Parent Directory | Revision Log | Patch
revision 164 by dpavlin, Thu Aug 6 18:43:55 2009 UTC | revision 165 by dpavlin, Thu Aug 6 18:51:57 2009 UTC | |
---|---|---|
# | Line 39 sub conf { | Line 39 sub conf { |
39 | return $value; | return $value; |
40 | } | } |
41 | ||
42 | sub mac { | |
43 | my $ip = shift; | |
44 | my $mac = client::conf( $ip, 'mac' ); | |
45 | $mac =~ s{(..)}{$1:}g; | |
46 | $mac =~ s{:$}{}; | |
47 | $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd}; | |
48 | return uc($mac); | |
49 | } | |
50 | ||
51 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |