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

check for unreachable root ip before assignment

Browse Source
This commit is contained in:
Eric Miller
2006-04-05 02:09:06 +00:00
parent c530e25e02
commit 4b70bfa7c8
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Info/Layer3.pm
View File

@@ -112,17 +112,18 @@ sub root_ip {
my $router_ip = $l3->router_ip(); my $router_ip = $l3->router_ip();
my $ospf_ip = $l3->ospf_ip(); my $ospf_ip = $l3->ospf_ip();
# return the first one found here (should be only) # return the first one found here (should be only one)
if (defined $ospf_ip and scalar(keys %$ospf_ip)){ if (defined $ospf_ip and scalar(keys %$ospf_ip)){
foreach my $key (keys %$ospf_ip){ foreach my $key (keys %$ospf_ip){
my $ip = $ospf_ip->{$key}; my $ip = $ospf_ip->{$key};
next if $ip eq '0.0.0.0'; next if $ip eq '0.0.0.0';
next unless $l3->_snmp_connect_ip($ip);
print " SNMP::Layer3::root_ip() using $ip\n" if $l3->debug(); print " SNMP::Layer3::root_ip() using $ip\n" if $l3->debug();
return $ip; return $ip;
} }
} }
return $router_ip if (defined $router_ip and $router_ip ne '0.0.0.0'); return $router_ip if ( (defined $router_ip) and ($router_ip ne '0.0.0.0') and ($l3->_snmp_connect_ip($router_ip)) );
return undef; return undef;
} }