--- lib/PXElator/client.pm 2009/08/09 22:05:09 188 +++ lib/PXElator/client.pm 2009/08/10 00:07:38 190 @@ -41,12 +41,13 @@ } sub mac { - my $ip = shift; + my ( $ip, $op ) = @_; + $op ||= 'html'; my $mac = client::conf( $ip, 'mac' ); return '' unless $mac; $mac =~ s{(..)}{$1:}g; $mac =~ s{:$}{}; - $mac = qq|$mac| if (caller(1))[3] =~ m{^httpd}; + $mac = qq|$mac| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean'; return uc($mac); }