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

Capture Aruba AP software version when available

Browse Source
This commit is contained in:
Eric A. Miller
2014-11-09 18:01:11 -05:00
parent d674b22b39
commit ee7d254329
2 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ChangeLog
View File

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

23
Info/Layer3/Aruba.pm
View File

@@ -125,6 +125,7 @@ $VERSION = '3.20';
'aruba_ap_name' => 'wlanAPName',
'aruba_ap_ip' => 'wlanAPIpAddress',
'aruba_ap_hw_ver' => 'wlanAPHwVersion',
'aruba_ap_sw_ver' => 'wlanAPSwVersion',
# WLSX-WLAN-MIB::wlsxWlanESSIDVlanPoolTable
'aruba_ssid_vlan' => 'wlanESSIDVlanPoolStatus',
@@ -1050,6 +1051,24 @@ sub e_hwver {
return \%e_hwver;
}
sub e_swver {
my $aruba = shift;
my $ap_sw_ver = $aruba->aruba_ap_hw_ver() || {};
my %e_swver;
# APs
foreach my $idx ( keys %$ap_sw_ver ) {
my $sw_ver = $ap_sw_ver->{$idx};
next unless defined $sw_ver;
$e_swver{$idx} = "$sw_ver";
}
return \%e_swver;
}
sub e_vendor {
my $aruba = shift;
@@ -1693,6 +1712,10 @@ Returns reference to hash. Key: IID, Value: Type of component.
Returns reference to hash. Key: IID, Value: Hardware revision.
=item $aruba->e_swver()
Returns reference to hash. Key: IID, Value: Software revision.
=item $aruba->e_vendor()
Returns reference to hash. Key: IID, Value: aruba.