use Business::CreditCard 0.30; #for mask-aware cardtype()
use NetAddr::IP;
+ use Net::MAC::Vendor;
use Net::Ping;
use Net::Ping::External;
#if CPAN #7815 ever gets fixed# if ( $Net::Ping::External::VERSION <= 0.12 )
type => 'input-mac_addr',
value_callback => sub {
my $svc = shift;
- join(':', $svc->mac_addr =~ /../g);
+ $svc->mac_addr_formatted('U',':');
},
},
;
%>
</TD>
-% $value = time2str($date_format,$value) if ( $type eq 'date' && $value );
-% $value = time2str("$date_format %H:%M",$value) if ( $type eq 'datetime' && $value );
-% $value = $value eq 'Y' ? emt('Yes') : emt('No') if ( $type eq 'checkbox' );
+% $value = time2str($date_format,$value)
+% if $type eq 'date' && $value;
+% $value = time2str("$date_format %H:%M",$value)
+% if $type eq 'datetime' && $value;
+% $value = $value eq 'Y' ? emt('Yes') : emt('No')
+% if $type eq 'checkbox';
+% $value .= ' ('. (Net::MAC::Vendor::lookup($value))->[0]. ')'
+% if $type =~ /mac_addr$/ && $value =~ /\w/i;
% #eventually more options for <SELECT>, etc. fields
<TD BGCOLOR="#ffffff"><% $value %><TD>
'speed_up',
{ field => 'ip_addr', value_callback => \&ip_addr },
{ field => 'sectornum', value_callback => \§ornum },
- { field => 'mac_addr', value_callback => \&mac_addr },
+ { field => 'mac_addr', type=>'mac_addr', value_callback => \&mac_addr },
#'latitude',
#'longitude',
{ field => 'coordinates', value_callback => \&coordinates },
sub mac_addr {
my $svc = shift;
- join(':', $svc->mac_addr =~ /../g);
+ $svc->mac_addr_formatted('U',':');
}
sub usergroup {