Parent Directory | Revision Log | Patch
revision 168 by dpavlin, Thu Aug 6 21:31:10 2009 UTC | revision 190 by dpavlin, Mon Aug 10 00:07:38 2009 UTC | |
---|---|---|
# | Line 41 sub conf { | Line 41 sub conf { |
41 | } | } |
42 | ||
43 | sub mac { | sub mac { |
44 | my $ip = shift; | my ( $ip, $op ) = @_; |
45 | $op ||= 'html'; | |
46 | my $mac = client::conf( $ip, 'mac' ); | my $mac = client::conf( $ip, 'mac' ); |
47 | return '' unless $mac; | |
48 | $mac =~ s{(..)}{$1:}g; | $mac =~ s{(..)}{$1:}g; |
49 | $mac =~ s{:$}{}; | $mac =~ s{:$}{}; |
50 | $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd}; | $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean'; |
51 | return uc($mac); | return uc($mac); |
52 | } | } |
53 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |