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

Add i_vlan_membership_untagged() to L3::AlteonAD

Browse Source
This commit is contained in:
Eric A. Miller
2014-11-08 10:06:12 -05:00
parent 7ad449303b
commit e57e7d99d5
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Info/Layer3/AlteonAD.pm
View File

@@ -385,6 +385,20 @@ sub i_vlan_membership {
return $i_vlan_membership; return $i_vlan_membership;
} }
sub i_vlan_membership_untagged {
my $alteon = shift;
my $partial = shift;
my $vlans = $alteon->i_vlan($partial);
my $i_vlan_membership = {};
foreach my $port (keys %$vlans) {
my $vlan = $vlans->{$port};
push( @{ $i_vlan_membership->{$port} }, $vlan );
}
return $i_vlan_membership;
}
# Bridge MIB does not map Bridge Port to ifIndex correctly on some code # Bridge MIB does not map Bridge Port to ifIndex correctly on some code
# versions # versions
sub bp_index { sub bp_index {
@@ -574,6 +588,12 @@ IDs. These are the VLANs which are members of the egress list for the port.
print "Port: $port VLAN: $vlan\n"; print "Port: $port VLAN: $vlan\n";
} }
=item $alteon->i_vlan_membership_untagged()
Returns reference to hash of arrays: key = C<ifIndex>, value = array of VLAN
IDs. These are the VLANs which are members of the untagged egress list for
the port.
=item $alteon->v_index() =item $alteon->v_index()
Returns VLAN IDs Returns VLAN IDs