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

Capture Aruba AP hardware version when available

Browse Source
This commit is contained in:
Eric A. Miller
2014-11-08 12:21:31 -05:00
parent 163ba86196
commit 09e18e9b64
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ChangeLog
View File

@@ -17,6 +17,7 @@ version 3.21 ()
VLANs, fall back to dot1qVlanStaticTable if not available. VLANs, fall back to dot1qVlanStaticTable if not available.
* New method i_vlan_membership_untagged() for VLANs transmitted as * New method i_vlan_membership_untagged() for VLANs transmitted as
untagged frames. untagged frames.
* Capture Aruba AP hardware version when available
[BUG FIXES] [BUG FIXES]

15
Info/Layer3/Aruba.pm
View File

@@ -124,6 +124,7 @@ $VERSION = '3.20';
'aruba_ap_model' => 'wlanAPModelName', 'aruba_ap_model' => 'wlanAPModelName',
'aruba_ap_name' => 'wlanAPName', 'aruba_ap_name' => 'wlanAPName',
'aruba_ap_ip' => 'wlanAPIpAddress', 'aruba_ap_ip' => 'wlanAPIpAddress',
'aruba_ap_hw_ver' => 'wlanAPHwVersion',
# WLSX-WLAN-MIB::wlsxWlanESSIDVlanPoolTable # WLSX-WLAN-MIB::wlsxWlanESSIDVlanPoolTable
'aruba_ssid_vlan' => 'wlanESSIDVlanPoolStatus', 'aruba_ssid_vlan' => 'wlanESSIDVlanPoolStatus',
@@ -1023,8 +1024,9 @@ sub e_type {
sub e_hwver { sub e_hwver {
my $aruba = shift; my $aruba = shift;
my $ap_hw = $aruba->aruba_card_hw() || {}; my $ap_hw = $aruba->aruba_card_hw() || {};
my $ap_fpga = $aruba->aruba_card_fpga() || {}; my $ap_fpga = $aruba->aruba_card_fpga() || {};
my $ap_hw_ver = $aruba->aruba_ap_hw_ver() || {};
my %e_hwver; my %e_hwver;
@@ -1036,6 +1038,15 @@ sub e_hwver {
$e_hwver{$iid} = "$hw $fpga"; $e_hwver{$iid} = "$hw $fpga";
} }
# APs
foreach my $idx ( keys %$ap_hw_ver ) {
my $hw_ver = $ap_hw_ver->{$idx};
next unless defined $hw_ver;
$e_hwver{$idx} = "$hw_ver";
}
return \%e_hwver; return \%e_hwver;
} }