Missed a MIB when I merged my changes.
Add a commented-out reference to the Alcatel MIB that results in Alcatel model names getting translated. Return the alcatel-lucent model name and OS based on sysObjectID
This commit is contained in:
@@ -43,8 +43,10 @@ $VERSION = '1.09';
|
|||||||
|
|
||||||
%MIBS = (
|
%MIBS = (
|
||||||
%SNMP::Info::Layer2::MIBS,
|
%SNMP::Info::Layer2::MIBS,
|
||||||
'WLSX-SWITCH-MIB' => 'wlsxHostname',
|
'WLSX-SWITCH-MIB' => 'wlsxHostname',
|
||||||
'WLSR-AP-MIB' => 'wlsrHideSSID',
|
'WLSX-WLAN-MIB' => 'wlanAPFQLN',
|
||||||
|
'WLSR-AP-MIB' => 'wlsrHideSSID',
|
||||||
|
#'ALCATEL-IND1-TP-DEVICES' => 'familyOmniAccessWireless',
|
||||||
);
|
);
|
||||||
|
|
||||||
%GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, );
|
%GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, );
|
||||||
@@ -84,11 +86,27 @@ sub layers {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub os {
|
sub os {
|
||||||
return 'airos';
|
my $aruba = shift;
|
||||||
|
my %osmap = (
|
||||||
|
'alcatel-lucent' => 'aos-w',
|
||||||
|
);
|
||||||
|
return $osmap{$aruba->vendor()} || 'airos';
|
||||||
}
|
}
|
||||||
|
|
||||||
sub vendor {
|
sub vendor {
|
||||||
return 'aruba';
|
my $aruba = shift;
|
||||||
|
my $id = $aruba->id() || 'undef';
|
||||||
|
my %oidmap = (
|
||||||
|
6486 => 'alcatel-lucent',
|
||||||
|
);
|
||||||
|
$id = $1 if (defined($id) && $id =~ /^\.1\.3\.6\.1\.4\.1\.(\d+)/);
|
||||||
|
|
||||||
|
if (defined($id) and exists($oidmap{$id})) {
|
||||||
|
return $oidmap{$id};
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
return 'aruba';
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
sub os_ver {
|
sub os_ver {
|
||||||
|
|||||||
Reference in New Issue
Block a user