my $octets_format = sub {
my $octets = shift;
- my $megs = $octets / 1048576;
- sprintf('<B>%.3f</B> megs', $megs);
- #my $gigs = $octets / 1073741824
- #sprintf('<B>%.3f</B> gigabytes', $gigs);
+ #my $megs = $octets / 1048576;
+ #sprintf('<B>%.3f</B> megs', $megs);
+ my $gigs = $octets / 1073741824;
+ sprintf('<B>%.3f</B> gigs', $gigs);
};
###
my $src = shift;
if ( $src =~
/^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i ) {
- return $src. ' ('.
+ return $src. ' <span style="white-space: nowrap">('.
(Net::MAC::Vendor::lookup($1))->[0].
- ')';
+ ')</span>';
}
length($src) ? $src : ' ';
my $dst = shift;
if ( $dst =~
/^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i ) {
- return $dst. ' ('.
+ return $dst. ' <span style="white-space: nowrap">('.
(Net::MAC::Vendor::lookup($1))->[0].
- ')';
+ ')</span>';
}
length($dst) ? $dst : ' ';
},