Parent Directory | Revision Log | Patch
revision 187 by dpavlin, Thu Aug 6 21:31:10 2009 UTC | revision 188 by dpavlin, Sun Aug 9 22:05:09 2009 UTC | |
---|---|---|
# | Line 43 sub conf { | Line 43 sub conf { |
43 | sub mac { | sub mac { |
44 | my $ip = shift; | my $ip = shift; |
45 | my $mac = client::conf( $ip, 'mac' ); | my $mac = client::conf( $ip, 'mac' ); |
46 | return '' unless $mac; | |
47 | $mac =~ s{(..)}{$1:}g; | $mac =~ s{(..)}{$1:}g; |
48 | $mac =~ s{:$}{}; | $mac =~ s{:$}{}; |
49 | $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd}; | $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd}; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |