Parent Directory | Revision Log | Patch
revision 215 by dpavlin, Thu Aug 13 12:06:35 2009 UTC | revision 216 by dpavlin, Thu Aug 13 13:06:18 2009 UTC | |
---|---|---|
# | Line 4 use warnings; | Line 4 use warnings; |
4 | use strict; | use strict; |
5 | ||
6 | sub mac { | sub mac { |
7 | my ( $mac, $op ) = @_; | my ($mac,$op) = @_; |
8 | $op ||= 'html'; | $op ||= ''; |
9 | $mac =~ s{(..)}{$1:}g; | if ( $mac !~ m{:} ) { |
10 | $mac =~ s{:$}{}; | $mac =~ s{(..)}{$1:}g; |
11 | $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean'; | $mac =~ s{:$}{}; |
12 | } | |
13 | $mac = qq|<tt>$mac</tt>| if $op =~ m{htm}; | |
14 | return uc($mac); | return uc($mac); |
15 | } | } |
16 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |