From 4da90c4f9b7f46261be3fbe3197571d511fdb7e2 Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Fri, 3 Jun 2005 04:14:55 +0000
Subject: [PATCH] add support for Nortel 1600 and 8100 series

---
 Info.pm | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/Info.pm b/Info.pm
index cbf64a9a..e0c07a0c 100644
--- a/Info.pm
+++ b/Info.pm
@@ -438,10 +438,16 @@ See SNMP::Info::Layer3::Foundry for more info.
 
 =item SNMP::Info::Layer3::Passport
 
-Subclass for Nortel Networks' Passport 8600 and Accelar series switches.
+Subclass for Nortel Passport 8000 series and Accelar series switches.
 
 See SNMP::Info::Layer3::Passport for where to get MIBs required.
 
+=item SNMP::Info::Layer3::N1600
+
+Subclass for Nortel 1600 series switches.
+
+See SNMP::Info::Layer3::N1600 for where to get MIBs required.
+
 =back
 
 =back
@@ -779,6 +785,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 Passport/Accelar 8100   -> SNMP::Info::Layer3::Passport
             Nortel AP 222x                 -> SNMP::Info::Layer2::NAP222x
             Orinco AP                      -> SNMP::Info::Layer2::Orinoco
         Elsif Layer1 Support               -> SNMP::Info::Layer1
@@ -821,9 +828,9 @@ sub device_type {
         $objtype = 'SNMP::Info::Layer3::C6500'   if ($desc =~ /cisco/i and $desc =~ /3750/);
         $objtype = 'SNMP::Info::Layer3::C6500'   if $desc =~ /Catalyst 4000/;
         $objtype = 'SNMP::Info::Layer3::C6500'   if $desc =~ /s72033_rp/;
-        # Nortel Passport 8600, 1100, 1200 Series
+        # Nortel Passport 8600, 1600, 1100, 1200 Series
         $objtype = 'SNMP::Info::Layer3::Passport'  if $desc =~ /Passport-86/;
-        $objtype = 'SNMP::Info::Layer3::Passport'  if $desc =~ /Passport-[1][012]/;
+        $objtype = 'SNMP::Info::Layer3::Passport'  if $desc =~ /Passport-[1][0126]/;
         $objtype = 'SNMP::Info::Layer3::Passport'  if $desc =~ /Accelar-1/;
         # Nortel Alteon AD Series
         $objtype = 'SNMP::Info::Layer3::AlteonAD' if $desc =~ /Alteon\s[1A][8D]/;
@@ -872,10 +879,14 @@ sub device_type {
   
         #  BPS
         $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /Business\sPolicy\sSwitch/i);
-        
+
         #  BayStack Numbered
         $objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /BayStack\s[345]\d/);
-        
+
+        # Accelar/Passport 8100
+        $objtype = 'SNMP::Info::Layer3::Passport'  if $desc =~ /Passport-81/;
+        $objtype = 'SNMP::Info::Layer3::Passport'  if $desc =~ /Accelar-81/;
+
         #  Nortel AP 222X
         $objtype = 'SNMP::Info::Layer2::NAP222x' if ($desc =~ /Access\s+Point\s+222/);