From bf040dffa920d1c7dd097293643c2e9baf7488ec Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Thu, 29 Sep 2005 02:06:32 +0000
Subject: [PATCH] add extreme networks support

---
 Info.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/Info.pm b/Info.pm
index d8b8db5e..bf863261 100644
--- a/Info.pm
+++ b/Info.pm
@@ -428,6 +428,12 @@ Subclass for Nortel Networks' Contivity VPN concentrators.
 
 See SNMP::Info::Layer3::Contivity for where to get MIBs required.
 
+=item SNMP::Info::Layer3::Extreme
+
+Subclass for Extreme Networks switches.
+
+See SNMP::Info::Layer3::Extreme for more info.
+
 =item SNMP::Info::Layer3::Foundry
 
 Subclass for older Foundry Network devices.  Outdated, but being updated for newer devices.
@@ -769,6 +775,7 @@ Algorithm for Subclass Detection:
             Catalyst 3550,3548,3560        -> SNMP::Info::Layer3::C3550
             Catalyst 6500, 4000, 3750      -> SNMP::Info::Layer3::C6500
             Cisco Generic L3 IOS device    -> SNMP::Info::Layer3::Cisco
+            Extreme                        -> SNMP::Info::Layer3::Extreme
             Foundry                        -> SNMP::Info::Layer3::Foundry
             Nortel Passport/Accelar LAN    -> SNMP::Info::Layer3::Passport
             Alteon Ace Director            -> SNMP::Info::Layer3::AlteonAD
@@ -781,6 +788,7 @@ Algorithm for Subclass Detection:
             Catalyst 2970                  -> SNMP::Info::Layer3::C6500
             Catalyst 3550/3548             -> SNMP::Info::Layer3::C3550
             Catalyst WS-C 2926,5xxx        -> SNMP::Info::Layer2::Catalyst
+            Extreme                        -> SNMP::Info::Layer3::Extreme
             Foundry (EdgeIron,????)        -> SNMP::Info::Layer2::Foundry
             HP Procurve                    -> SNMP::Info::Layer2::HP
             Nortel/Bay Centillion ATM      -> SNMP::Info::Layer2::Centillion
@@ -828,6 +836,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/;
+        # Extreme Networks
+        $objtype = 'SNMP::Info::Layer3::Extreme'  if $desc =~ /Alpine38/;
+        $objtype = 'SNMP::Info::Layer3::Extreme'  if $desc =~ /Summit\d/;
         # 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]/;
@@ -872,6 +883,10 @@ sub device_type {
         #   Cisco 2970  
         $objtype = 'SNMP::Info::Layer3::C6500' if ($desc =~ /C2970/);
 
+        # Extreme Networks
+        $objtype = 'SNMP::Info::Layer3::Extreme'  if $desc =~ /Alpine38/;
+        $objtype = 'SNMP::Info::Layer3::Extreme'  if $desc =~ /Summit\d/;
+
         #   HP
         $objtype = 'SNMP::Info::Layer2::HP' if ($desc =~ /HP.*ProCurve/);