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

Add i_vlan_membership_untagged() method to L3::Aruba

Browse Source
This commit is contained in:
Eric A. Miller
2014-11-08 09:36:42 -05:00
parent eb046b6a61
commit 03a81ad4be
1 changed files with 29 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Info/Layer3/Aruba.pm
View File

@@ -484,6 +484,7 @@ sub i_vlan {
return $aruba->SUPER::i_vlan($partial) return $aruba->SUPER::i_vlan($partial)
if keys %{ $aruba->SUPER::i_vlan($partial) }; if keys %{ $aruba->SUPER::i_vlan($partial) };
# If we don't have Q-BRIDGE-MIB, we're a wireless controller
my $index = $aruba->aruba_if_idx(); my $index = $aruba->aruba_if_idx();
if ($partial) { if ($partial) {
@@ -512,6 +513,7 @@ sub i_vlan_membership {
return $aruba->SUPER::i_vlan_membership($partial) return $aruba->SUPER::i_vlan_membership($partial)
if keys %{ $aruba->SUPER::i_vlan_membership($partial) }; if keys %{ $aruba->SUPER::i_vlan_membership($partial) };
# If we don't have Q-BRIDGE-MIB, we're a wireless controller
my $essid_ssid = $aruba->aruba_ap_bssid_ssid(); my $essid_ssid = $aruba->aruba_ap_bssid_ssid();
my $ssid_vlans = $aruba->aruba_ssid_vlan(); my $ssid_vlans = $aruba->aruba_ssid_vlan();
my $if_vlans = $aruba->aruba_if_vlan_member(); my $if_vlans = $aruba->aruba_if_vlan_member();
@@ -555,6 +557,33 @@ sub i_vlan_membership {
return $i_vlan_membership; return $i_vlan_membership;
} }
sub i_vlan_membership_untagged {
my $aruba = shift;
my $partial = shift;
return $aruba->SUPER::i_vlan_membership_untagged($partial)
if keys %{ $aruba->SUPER::i_vlan_membership_untagged($partial) };
# If we don't have Q-BRIDGE-MIB, we're a wireless controller
# It is unclear if native VLAN is transmitted untagged
# This assumes Cisco-like behavior on trunks that native VLAN is
# transmitted untagged, if this needs to be changed we will need to
# consider ifExtMode rather than just using i_vlan
my $if_membership = $aruba->i_vlan_membership();
my $if_ = $aruba->i_vlan();
my $if_mode = $aruba->aruba_if_mode();
my $vlans = $aruba->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 i_80211channel { sub i_80211channel {
my $aruba = shift; my $aruba = shift;
my $partial = shift; my $partial = shift;