From bd908a69522998b1f68969c5380165ce59b07be2 Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Mon, 19 Nov 2007 04:25:17 +0000
Subject: [PATCH] =?UTF-8?q?[1833174]=20Info.pm:=20recognise=20new=20Nortel?=
 =?UTF-8?q?=20switches=20as=20Layer2::Baystack=20(David=20Sieb=EF=BF=BDrge?=
 =?UTF-8?q?r)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Info.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Info.pm b/Info.pm
index 45d0e6f6..7353e8ec 100644
--- a/Info.pm
+++ b/Info.pm
@@ -932,6 +932,7 @@ Algorithm for Subclass Detection:
             HP Procurve                    -> SNMP::Info::Layer2::HP
             Nortel/Bay Centillion ATM      -> SNMP::Info::Layer2::Centillion
             Nortel/Bay Baystack            -> SNMP::Info::Layer2::Baystack
+            Nortel Business Ethernet Switch-> SNMP::Info::Layer2::Baystack
             Nortel Passport/Accelar 8100   -> SNMP::Info::Layer3::Passport
             Nortel AP 222x                 -> SNMP::Info::Layer2::NAP222x
             Orinco AP                      -> SNMP::Info::Layer2::Orinoco
@@ -1022,7 +1023,7 @@ sub device_type {
         # Nortel ERS (Passport) 1600 Series < version 2.1
         $objtype = 'SNMP::Info::Layer3::N1600'  if $desc =~ /(Passport|Ethernet\s+Routing\s+Switch)-16/i;
         #  ERS - BayStack Numbered 
-        $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /(BayStack|Ethernet\s+Routing\s+Switch)\s[345]\d/i);
+        $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /^(BayStack|Ethernet\s+Routing\s+Switch)\s[2345](\d){2,3}/i);
         # Nortel Alteon AD Series
         $objtype = 'SNMP::Info::Layer3::AlteonAD' if $desc =~ /Alteon\s[1A][8D]/;
         # Nortel Contivity
@@ -1067,7 +1068,10 @@ sub device_type {
         $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /Business\sPolicy\sSwitch/i);
 
         #  BayStack Numbered
-        $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /(BayStack|Ethernet\s+(Routing\s+)??Switch)\s[345]\d/i);
+        $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /^(BayStack|Ethernet\s+(Routing\s+)??Switch)\s[2345](\d){2,3}/i);
+
+        #  Nortel Business Ethernet Switch
+        $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /^Business Ethernet Switch\s[12]\d\d/i);
 
         #  Nortel AP 222X
         $objtype = 'SNMP::Info::Layer2::NAP222x' if ($desc =~ /Access\s+Point\s+222/);