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

modifications to i_vlan_membership()

Browse Source
This commit is contained in:
Eric Miller
2007-12-20 04:05:58 +00:00
parent d0061b4ec9
commit b7fab49da2
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Info/CiscoVTP.pm
View File

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