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

Add i_vlan_membership_untagged() to L3::F5, L2::C1900, and L2::HP4000

Browse Source
This commit is contained in:
Eric A. Miller
2014-11-06 23:02:35 -05:00
parent ce8bb68200
commit 9aca213a5f
3 changed files with 62 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Info/Layer2/C1900.pm
View File

@@ -261,6 +261,8 @@ sub i_vlan_membership {
return $i_vlan_membership;
}
sub i_vlan_membership_untagged { return; }
sub bp_index {
my $c1900 = shift;
my $partial = shift;
@@ -470,6 +472,9 @@ bridge group IDs.
print "Port: $port VLAN: $vlan\n";
}
=item $c1900->i_vlan_membership_untagged()
Unsupported, returns nothing.
=item $c1900->bp_index()

20
Info/Layer2/HP4000.pm
View File

@@ -376,6 +376,20 @@ sub i_vlan_membership {
return $i_vlan_membership;
}
sub i_vlan_membership_untagged {
my $hp = shift;
my $partial = shift;
my $vlans = $hp->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;
}
sub set_i_vlan {
my $hp = shift;
my $rv;
@@ -680,6 +694,12 @@ It is the union of tagged, untagged, and auto ports.
print "Port: $port VLAN: $vlan\n";
}
=item $hp->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 $hp->v_index()
Returns VLAN IDs