better tooltip for netmap

This commit is contained in:
Oliver Gorwits
2018-01-01 01:07:56 +00:00
parent 21eb5a4a97
commit 57d308196b

View File

@@ -74,13 +74,14 @@ sub to_speed {
sub make_node_infostring {
my $node = shift or return '';
my $fmt = ('Serial: <b>%s</b><br>Vendor/Model: <b>%s / %s</b><br>'
.'OS/Version: <b>%s / %s</b><br>Uptime: <b>%s</b><br>'
.'Location: <b>%s</b><br>Contact: <b>%s</b>');
return sprintf $fmt,
my $fmt = ('<b>%s</b> is %s <b>%s %s</b><br>running <b>%s %s</b><br>Serial: <b>%s</b><br>'
.'Uptime: <b>%s</b><br>Location: <b>%s</b><br>Contact: <b>%s</b>');
return sprintf $fmt, $node->ip,
((($node->vendor || '') =~ m/^[aeiou]/i) ? 'an' : 'a'),
ucfirst($node->vendor || ''),
map {defined $_ ? $_ : ''}
map {$node->$_}
(qw/serial vendor model os os_ver uptime_age location contact/);
(qw/model os os_ver serial uptime_age location contact/);
}
sub make_link_infostring {