--- 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);
}