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

Silence warnings from devices which don't return values for extended VLANs (>1024)

Browse Source
This commit is contained in:
Eric Miller
2007-11-27 17:19:28 +00:00
parent 70f20d2330
commit 5849f4ce3d
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Info/CiscoVTP.pm
View File

@@ -237,8 +237,12 @@ sub i_vlan_membership {
my $stat = $trunk_dyn_stat->{$port};
if ( defined $stat and $stat =~ /^trunking/ ) {
my $k = 0;
foreach my $list ("$ports_vlans->{$port}", "$ports_vlans_2k->{$port}",
"$ports_vlans_3k->{$port}", "$ports_vlans_4k->{$port}") {
my $list1 = $ports_vlans->{$port} || 'unavail';
my $list2 = $ports_vlans_2k->{$port} || 'unavail';
my $list3 = $ports_vlans_3k->{$port} || 'unavail';
my $list4 = $ports_vlans_4k->{$port} || 'unavail';
foreach my $list ("$list1", "$list2", "$list3", "$list4") {
next if ($list eq 'unavail');
my $vlanlist = [split(//, unpack("B*", $list))];
my $offset = 1024 * $k;
foreach my $vlan (keys %oper_vlans) {