From c8c94bbd8b59782b31057e04d4178a62eab4d333 Mon Sep 17 00:00:00 2001
From: Max Baker <>
Date: Mon, 5 Jan 2004 00:16:07 +0000
Subject: [PATCH] added cat4000 and 3750s to l3:c6500 class

---
 ChangeLog | 2 ++
 Info.pm   | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 1ad3a60f..fef62d6d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,8 @@ ChangeLog $Id$
 
 version 0.8 ()
     * Added C3500XL devices to the Layer2::C2900 class
+    * Added Cisco 3750 (37xxstack) to Layer3::C6500 class
+    * Added Cisco Catalyst 4000 to Layer3::C6500 class
 
 version 0.7 (08/14/03)
     * Added Class for Catalyst 6500 Series - Layer3::C6500
diff --git a/Info.pm b/Info.pm
index 07a02105..e943d4d2 100644
--- a/Info.pm
+++ b/Info.pm
@@ -646,6 +646,9 @@ sub device_type {
         # Aironet - older non-IOS
         $objtype = 'SNMP::Info::Layer3::Aironet' if ($desc =~ /Cisco/ and $desc =~ /\D(CAP340|AP340|CAP350|350|1200)\D/) ;
         $objtype = 'SNMP::Info::Layer3::C6500'   if $desc =~ /c6sup2/;
+        # Next two untested. Reported working by DA
+        $objtype = 'SNMP::Info::Layer3::C6500'   if ($desc =~ /cisco/i and $desc =~ /3750/);
+        $objtype = 'SNMP::Info::Layer3::C6500'   if $desc =~ /Catalyst 4000/;
 
     # Layer 2 Supported
     } elsif ($info->has_layer(2)) {