From 6c8ec356ece512547f429f830fdbd66c7dbcdeb8 Mon Sep 17 00:00:00 2001
From: Bill Fenner <>
Date: Thu, 31 Jul 2008 16:57:41 +0000
Subject: [PATCH] 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

---
 Info/Layer2/Aruba.pm | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/Info/Layer2/Aruba.pm b/Info/Layer2/Aruba.pm
index b25b041b..50dbe3a9 100644
--- a/Info/Layer2/Aruba.pm
+++ b/Info/Layer2/Aruba.pm
@@ -43,8 +43,10 @@ $VERSION = '1.09';
 
 %MIBS = (
     %SNMP::Info::Layer2::MIBS,
-    'WLSX-SWITCH-MIB' => 'wlsxHostname',
-    'WLSR-AP-MIB'     => 'wlsrHideSSID',
+    'WLSX-SWITCH-MIB'         => 'wlsxHostname',
+    'WLSX-WLAN-MIB'           => 'wlanAPFQLN',
+    'WLSR-AP-MIB'             => 'wlsrHideSSID',
+    #'ALCATEL-IND1-TP-DEVICES' => 'familyOmniAccessWireless',
 );
 
 %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, );
@@ -84,11 +86,27 @@ sub layers {
 }
 
 sub os {
-    return 'airos';
+    my $aruba = shift;
+    my %osmap = (
+        'alcatel-lucent' => 'aos-w',
+                );
+    return $osmap{$aruba->vendor()} || 'airos';
 }
 
 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 {