--- lib/PXElator/client.pm 2009/08/06 18:43:55 164 +++ lib/PXElator/client.pm 2009/08/06 18:51:57 165 @@ -39,4 +39,13 @@ return $value; } +sub mac { + my $ip = shift; + my $mac = client::conf( $ip, 'mac' ); + $mac =~ s{(..)}{$1:}g; + $mac =~ s{:$}{}; + $mac = qq|$mac| if (caller(1))[3] =~ m{^httpd}; + return uc($mac); +} + 1;