135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[ 1670427 ] Info.pm modifications - allow partials on i_speed (Justin Hunter)

Browse Source
This commit is contained in:
Eric Miller
2007-06-19 01:48:57 +00:00
parent 06fd442dce
commit 533104ce55
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Info.pm
View File

@@ -1374,12 +1374,16 @@ Speed of the link, human format. See munge_speed() later in document for detail
=cut =cut
sub i_speed { sub i_speed {
my $l3 = shift; my $info = shift;
my $i_speed = $l3->orig_i_speed(); my $partial = shift;
my $i_speed = $info->orig_i_speed($partial);
my $i_up = $info->i_up($partial);
my $i_speed_high = undef; my $i_speed_high = undef;
foreach my $i (keys %$i_speed) { foreach my $i (keys %$i_speed) {
if ($i_speed->{$i} eq "4294967295") { if ($i_speed->{$i} eq "4294967295") {
$i_speed_high = $l3->i_speed_high() unless defined($i_speed_high); $i_speed_high = $info->i_speed_high($partial) unless defined($i_speed_high);
$i_speed->{$i} = $i_speed_high->{$i} if ($i_speed_high->{$i}); $i_speed->{$i} = $i_speed_high->{$i} if ($i_speed_high->{$i});
} }
} }