--- lib/PXElator/client.pm 2009/08/27 14:30:55 305 +++ lib/PXElator/client.pm 2009/08/27 18:59:12 313 @@ -79,6 +79,7 @@ } sub next_ip($) { my $mac = shift; + $mac = format::mac($mac); my $p = Net::Ping->new; @@ -102,6 +103,7 @@ sub save_ip_mac { my ($ip,$mac) = @_; + $mac = format::mac($mac); mkdir ip_path($ip) unless -e ip_path($ip); @@ -113,9 +115,7 @@ sub ip_from_mac($) { my $mac = shift; - - $mac = lc $mac; - $mac =~ s{:}{}g; + $mac = format::mac($mac); my $mac_path = mac_path $mac; return unless -e $mac_path;