*** empty log message ***

COPYRIGHT

@@ -1,4 +1,4 @@
-Copyright (c) 2002, Regents of the University of California
+Copyright (c) 2002,2003 Regents of the University of California
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without 

ChangeLog

@@ -0,0 +1,31 @@
+SNMP::Info - Perl5 OO Interface to Network Devices and SNMP MIBs
+ChangeLog $Id$
+
+version 0.2 (02/19/03)
+    * Added put_() methods and support for SNMP put commands
+    * Added SNMP::Info::Layer3::C3550 class for Cisco Catalyst 3550
+    * Fixed HP Detection in device_type()
+    * Added Spanning Tree Protocol (STP) methods to SNMP::Info::Bridge
+    * Removed HP Specific MIBS in SNMP::Info::Layer2 and cleaned up model()
+    * Added poke for Bay 450 Switches 
+    * Mapped HP Part Numbers to model numbers J4812A => 2512 in SNMP::Info::Layer2::HP
+     
+version 0.1 (12/30/02)
+    * Initial Release
+    * SubClasses Included:
+        * SNMP::Info::Bridge
+        * SNMP::Info::CDP
+        * SNMP::Info::EtherLike
+        * SNMP::Info::MAU
+        * SNMP::Info::Layer1
+              o SNMP::Info::Layer1::Allied
+              o SNMP::Info::Layer1::Asante 
+        * SNMP::Info::Layer2
+              o SNMP::Info::Layer2::Bay
+              o SNMP::Info::Layer2::C1900
+              o SNMP::Info::Layer2::C2900
+              o SNMP::Info::Layer2::Catalyst
+              o SNMP::Info::Layer2::HP 
+        * SNMP::Info::Layer3
+              o SNMP::Info::Layer3::Aironet
+              o SNMP::Info::Layer3::Foundry

Info.pm

@@ -1,12 +1,13 @@
 # SNMP::Info - Max Baker <max@warped.org>
+# $Id$
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002-3, Regents of the University of California
 # All rights reserved.  
 #
 # See COPYRIGHT below 
 
 package SNMP::Info;
-$VERSION = 0.1;
+$VERSION = 0.2;
 use strict;
 
 use Exporter;
@@ -36,7 +37,7 @@ SNMP::Info was created for the Netdisco application at UCSC
 
 =head1 COPYRIGHT AND LICENCE
 
-Copyright (c) 2002, Regents of the University of California
+Copyright (c) 2002-3, Regents of the University of California
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without 
@@ -422,14 +423,15 @@ SNMP::Info is returned.
 Algorithm for SubClass Detection:
 
         Layer3 Support                     -> SNMP::Info::Layer3
-            Foundry                        -> SNMP::Info::Foundry
-            Aironet                        -> SNMP::Info::Aironet
+            Aironet                        -> SNMP::Info::Layer3::Aironet
+            Catalyst 3550                  -> SNMP::Info::Layer3::C3550
+            Foundry                        -> SNMP::Info::Layer3::Foundry
         Elsif Layer2 (no Layer3)           -> SNMP::Info::Layer2 
+            Bay Networks                   -> SNMP::Info::Layer2::Bay
             Catalyst 1900                  -> SNMP::Info::Layer2::C1900
             Catalyst 2900XL (IOS)          -> SNMP::Info::Layer2::C2900
             Catalyst WS-C (2926,5xxx,6xxx) -> SNMP::Info::Layer2::Catalyst
             HP Procurve                    -> SNMP::Info::Layer2::HP
-            Bay Networks                   -> SNMP::Info::Layer2::Bay
         Elsif Layer1 Support               -> SNMP::Info::Layer1
             Allied                         -> SNMP::Info::Layer1::Allied
             Asante                         -> SNMP::Info::Layer1::Asante
@@ -456,6 +458,7 @@ sub device_type {
 
         return $objtype unless (defined $desc and length($desc));
 
+        $objtype = 'SNMP::Info::Layer3::C3550'   if $desc =~ /C3550/ ;
         $objtype = 'SNMP::Info::Layer3::Foundry' if $desc =~ /foundry/i ;
         $objtype = 'SNMP::Info::Layer3::Aironet' if ($desc =~ /cisco/i and $desc =~ /\D3[45]0\D/) ;
 
@@ -476,8 +479,8 @@ sub device_type {
         #   Catalyst WS-C series override (2926,5xxx,6xxx)
         $objtype = 'SNMP::Info::Layer2::Catalyst' if ($desc =~ /WS-C\d{4}/);
 
-        #   HP ProCurve 
-        $objtype = 'SNMP::Info::Layer2::HP' if ($desc =~ /procurve/i); 
+        #   HP
+        $objtype = 'SNMP::Info::Layer2::HP' if ($desc =~ /hp/i); 
     
         #  Bay Switch
         $objtype = 'SNMP::Info::Layer2::Bay' if ($desc =~ /bay/i);
@@ -937,7 +940,7 @@ sub munge_ip {
 
 =item munge_mac()
 
-Takes an octet stream and returns a colon separated ASCII hex string.
+Takes an octet stream (HEX-STRING) and returns a colon separated ASCII hex string.
 
 =cut
 sub munge_mac {
@@ -1149,6 +1152,47 @@ sub _global{
     return $val;
 }
 
+=item $info->_set(attr,val,iid)
+
+Used internally by AUTOLOAD to run an SNMP set command for dynamic methods listed in 
+either %GLOBALS or %FUNCS.
+
+Example:  $info->set_name('dog',3) uses autoload to resolve to $info->_set('name','dog',3);
+
+=cut
+sub _set {
+    my ($self,$attr,$val,$iid) = @_;
+
+    $iid = defined $iid ? $iid : '.0';
+    # prepend dot if necessary to $iid
+    $iid = ".$iid" unless $iid =~ /^\./;
+
+
+    my $sess = $self->{sess};
+    return undef unless defined $sess;
+
+    my $funcs = $self->funcs();
+    my $globals = $self->globals(); 
+
+    my $oid = undef;
+    # Lookup oid
+    $oid = $globals->{$attr} if defined $globals->{$attr};
+    $oid = $funcs->{$attr} if defined $funcs->{$attr};
+
+    unless (defined $oid) { 
+        print "SNMP::Info::_set($attr,$val) - Failed to find $attr in \%GLOBALS or \%FUNCS \n";
+        return undef;
+    }
+
+    $oid .= $iid;
+    
+    print "SNMP::Info::_set $attr$iid ($oid) = $val\n" if $DEBUG;
+
+    my $rv = $sess->set($oid,$val);
+
+    return $rv;
+}
+
 =back
 
 =head3 Functions for SNMP Tables (%FUNCS)
@@ -1297,6 +1341,7 @@ Example :
 
 =cut
 sub AUTOLOAD {
+    my $self = shift;
     my $sub_name = $AUTOLOAD;
 
     return if $sub_name =~ /DESTROY$/;
@@ -1307,40 +1352,45 @@ sub AUTOLOAD {
     $sub_name =~ s/.*://;   
 
     my $attr = $sub_name;
-    $attr =~ s/^load_//;
-
+    $attr =~ s/^(load|set)_//;
     
     # Let's use the %GLOBALS and %FUNCS from the class that 
     #   inherited us.
-    no strict 'refs';
-    my %funcs = %{$package.'FUNCS'};
-    my %globals = %{$package.'GLOBALS'};
-
-    return unless( defined $funcs{$attr} or
-                   defined $globals{$attr} );
-    
-    my $self = shift;
-
-
-    # First check %GLOBALS and return _scalar(global)
-    if (defined $globals{$attr}) {
-        return $self->_global( $attr );
+    my (%funcs,%globals);
+    {
+        no strict 'refs';
+        %funcs = %{$package.'FUNCS'};
+        %globals = %{$package.'GLOBALS'};
     }
 
-    # Next see if we're load_ ing.
+    unless( defined $funcs{$attr} or
+            defined $globals{$attr} ) {
+        #print "$attr not found in ",join(',',keys %funcs),"\n";
+        return;
+    }
+    
+    # Check for load_ ing.
     if ($sub_name =~ /^load_/){
         $self->_load_attr( $attr,$funcs{$attr} );
         return $self->_show_attr( $attr ) if defined wantarray;
-    
-    # Otherwise we must be listed in %FUNCS 
-    } else {
+    } 
 
-        # Load data if not already cached
-        $self->_load_attr( $attr, $funcs{$attr} )
-            unless defined $self->{"_${attr}"};
-
-        return $self->_show_attr($attr);
+    if ($sub_name =~ /^set_/){
+        return $self->_set( $attr, @_);
     }
+
+    # First check %GLOBALS and return _scalar(global)
+    if (defined $globals{$attr} ){
+        return $self->_global( $attr );
+    }
+
+    # Otherwise we must be listed in %FUNCS 
+
+    # Load data if not already cached
+    $self->_load_attr( $attr, $funcs{$attr} )
+        unless defined $self->{"_${attr}"};
+
+    return $self->_show_attr($attr);
 }
 
 1;

Info/Bridge.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Bridge
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Bridge;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 
@@ -47,7 +48,11 @@ $INIT = 0;
 %GLOBALS = (
             'b_mac'   => 'dot1dBaseBridgeAddress',
             'b_ports' => 'dot1dBaseNumPorts',
-            'b_type'  => 'dot1dBaseType'
+            'b_type'  => 'dot1dBaseType',
+            # Spanning Tree Protocol
+            'stp_ver' => 'dot1dStpProtocolSpecification',
+            'stp_time' => 'dot1dStpTimeSinceTopologyChange',
+            'stp_root' => 'dot1dStpDesignatedRoot',
            );
 
 %FUNCS = (
@@ -63,16 +68,47 @@ $INIT = 0;
           'bs_port'   => 'dot1dStaticReceivePort',
           'bs_to'     => 'dot1dStaticAllowedToGoTo',
           'bs_status' => 'dot1dStaticStatus',
+          # Spanning Tree Protocol Table : dot1dStpPortTable
+          'stp_p_id'       => 'dot1dStpPort',
+          'stp_p_priority' => 'dot1dStpPortPriority',
+          'stp_p_state'    => 'dot1dStpPortState',
+          'stp_p_cost'     => 'dot1dStpPortPathCost',
+          'stp_p_root'     => 'dot1dStpPortDesignatedRoot',
+          'stp_p_bridge'   => 'dot1dStpPortDesignatedBridge',
+          'stp_p_port'     => 'dot1dStpPortDesignatedPort',
           );
 
 %MUNGE = (
           # Inherit all the built in munging
           %SNMP::Info::MUNGE,
           # Add ones for our class
-          'fw_mac' => \&SNMP::Info::munge_mac,
-          'bs_mac' => \&SNMP::Info::munge_mac,
+          'fw_mac'       => \&SNMP::Info::munge_mac,
+          'bs_mac'       => \&SNMP::Info::munge_mac,
+          'stp_root'     => \&SNMP::Info::munge_mac,
+          'stp_p_root'   => \&SNMP::Info::munge_mac,
+          'stp_p_bridge' => \&SNMP::Info::munge_mac,
+          'stp_p_port'   => \&SNMP::Info::munge_mac
          );
 
+
+sub i_stp_state {
+    my $bridge = shift;
+    my $bp_index = $bridge->bp_index();
+    my $stp_p_state = $bridge->stp_p_state();
+
+    my %i_stp_state;
+
+    foreach my $index (keys %$stp_p_state){
+        my $state = $stp_p_state->{$index};
+        my $iid   = $bp_index->{$index};
+        next unless defined $iid;
+        next unless defined $state;
+        $i_stp_state{$iid}=$state;
+    }
+
+    return \%i_stp_state;
+}
+
 1;
 __END__
 
@@ -148,6 +184,24 @@ Returns the type? of the device
 
 (B<dot1dBaseType>)
 
+=item $bridge->stp_ver()
+
+Returns what version of STP the device is running.  Either decLb100 or ieee8021d.
+
+(B<dot1dStpProtocolSpecification>)
+
+=item $bridge->stp_time()
+
+Returns time since last topology change detected. (100ths/second)
+
+(B<dot1dStpTimeSinceTopologyChange>)
+
+=item $bridge->stp_root()
+
+Returns root of STP.
+
+(B<dot1dStpDesignatedRoot>)
+
 =back
 
 =head1 TABLE ENTRIES
@@ -193,4 +247,72 @@ Returns reference to hash of bridge port table entries physical port name.
 (B<dot1dBasePortCircuit>)
 
 =back
+
+=head2 Spanning Tree Protocol Table (dot1dStpPortTable)
+
+Descriptions are lifted straight from F<BRIDGE-MIB.my>
+
+=over
+
+=item $bridge->stp_p_id()
+
+"The port number of the port for which this entry contains Spanning Tree Protocol management
+information."
+
+(B<dot1dStpPort>)
+
+=item $bridge->stp_p_priority()
+
+"The value of the priority field which is contained in the first (in network byte order)
+octet of the (2 octet long) Port ID.  The other octet of the Port ID is given by the value of
+dot1dStpPort."
+
+(B<dot1dStpPortPriority>)
+
+=item $bridge->stp_p_state()
+
+"The port's current state as defined by application of the Spanning Tree Protocol.  This
+state controls what action a port takes on reception of a frame.  If the bridge has detected
+a port that is malfunctioning it will place that port into the broken(6) state.  For ports which
+are disabled (see dot1dStpPortEnable), this object will have a value of disabled(1)."
+
+ disabled(1)
+ blocking(2)
+ listening(3)
+ learning(4)
+ forwarding(5)
+ broken(6)
+
+(B<dot1dStpPortState>)
+
+=item $bridge->stp_p_cost()
+
+"The contribution of this port to the path cost of paths towards the spanning tree root which include
+this port.  802.1D-1990 recommends that the default value of this parameter be in inverse
+proportion to the speed of the attached LAN."
+
+(B<dot1dStpPortPathCost>)
+
+=item $bridge->stp_p_root()
+
+"The unique Bridge Identifier of the Bridge recorded as the Root in the Configuration BPDUs
+transmitted by the Designated Bridge for the segment to which the port is attached."
+
+(B<dot1dStpPortDesignatedRoot>)
+
+=item $bridge->stp_p_bridge()
+
+"The Bridge Identifier of the bridge which this port considers to be the Designated Bridge for
+this port's segment."
+
+(B<dot1dStpPortDesignatedBridge>)
+
+=item $bridge->stp_p_port()
+
+(B<dot1dStpPortDesignatedPort>)
+
+"The Port Identifier of the port on the Designated Bridge for this port's segment."
+
+=back
+
 =cut

Info/CDP.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::CDP
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::CDP;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

Info/EtherLike.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::EtherLike
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::EtherLike;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

Info/Layer1.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer1 - SNMP Interface to Layer1 Devices 
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer1;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

Info/Layer1/Allied.pm

@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer1::Allied;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 use strict;
 
 use Exporter;

Info/Layer1/Asante.pm

@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer1::Asante;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 use strict;
 
 use Exporter;

Info/Layer2.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices 
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer2;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 
@@ -54,7 +55,7 @@ $INIT = 0;
           %SNMP::Info::CDP::MIBS,
           'CISCO-PRODUCTS-MIB' => 'sysName',
           'CISCO-STACK-MIB'    => 'wsc1900sysID',
-          'HP-ICF-OID'         => 'hpSwitch4000',
+#          'HP-ICF-OID'         => 'hpSwitch4000',
         );
 
 %GLOBALS = (
@@ -90,6 +91,8 @@ sub model {
 
     # Cisco
     $model =~ s/sysid$//i;
+    $model =~ s/^(cisco|catalyst)//i;
+    $model =~ s/^cat//i;
 
     return $model;
 }
@@ -176,7 +179,7 @@ MIBS:
 
  CISCO-PRODUCTS-MIB - Needed for ID of Cisco Products
  CISCO-STACK-MIB    - Needed for ID of Cisco Products
- HP-ICF-OID         - Needed for ID of HP    Products
+ ##HP-ICF-OID         - Needed for ID of HP    Products
  MIBS listed in SNMP::Info::Bridge and SNMP::Info::CDP
 
 Cisco MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz

Info/Layer2/Bay.pm

@@ -1,5 +1,7 @@
+# SNMP::Info::Layer2::Bay
+# Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -24,11 +26,10 @@
 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-# SNMP::Info::Layer2::Bay
-# Max Baker <max@warped.org>
 
 package SNMP::Info::Layer2::Bay;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 use strict;
 
 use Exporter;
@@ -122,6 +123,7 @@ sub model {
 
     return '303' if ($descr =~ /\D303\D/);
     return '304' if ($descr =~ /\D304\D/);
+    return '450' if ($model =~ /BayStack450/);
     return $model;
 }
 

Info/Layer2/C1900.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer2::C1900
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer2::C1900;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 use strict;
 
 use Exporter;

Info/Layer2/C2900.pm

@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer2::C2900;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 use strict;
 
 use Exporter;

Info/Layer2/Catalyst.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer2::Catalyst
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer2::Catalyst;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

Info/Layer2/HP.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer2::HP - SNMP Interface to HP ProCurve Switches
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer2::HP;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 
@@ -36,7 +37,7 @@ use Exporter;
 use SNMP::Info::Layer2;
 use SNMP::Info::MAU;
 
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT 
+use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP 
             %MYGLOBALS %MYMIBS %MYFUNCS %MYMUNGE %MUNGE $INIT/ ;
 @SNMP::Info::Layer2::HP::ISA = qw/SNMP::Info::Layer2 SNMP::Info::MAU Exporter/;
 @SNMP::Info::Layer2::HP::EXPORT_OK = qw//;
@@ -99,9 +100,30 @@ $INIT = 0;
             %MYMUNGE
          );
 
+%MODEL_MAP = ( 
+               'J4812A' => '2512',
+               'J4819A' => '5308XL',
+               'J4813A' => '2524',
+               'J4805A' => '5304XL',
+               'J4815A' => '3324XL',
+               'J4865A' => '4108GL',
+               'J4887A' => '4104GL',
+               'J4874A' => '9315',
+             );
 
 # Method Overrides
 
+# Lookup model number, and translate the part number to the common number
+sub model {
+    my $hp = shift;
+    my $id = $hp->id();
+    my $model = &SNMP::translateObj($id);
+    
+    $model =~ s/^hpswitch//i;
+
+    return defined $MODEL_MAP{$model} ? $MODEL_MAP{$model} : $model;
+}
+
 # Some have the serial num in entity mib, some dont.
 sub serial {
     my $hp = shift;
@@ -347,6 +369,18 @@ Provides abstraction to the configuration information obtainable from a
 HP device through SNMP.  Information is stored in a number of 
 MIB's such as IF-MIB, ENTITY-MIB, RFC1271-MIB, HP-ICF-OID, MAU-MIB
 
+MIBs required:
+
+=over
+
+=item RFC1271-MIB
+
+=item HP-ICF-OID
+
+=back
+
+HP MIBs can be found at http://www.hp.com/rnd/software
+
 =head1 AUTHOR
 
 Max Baker (C<max@warped.org>)

Info/Layer3.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer3 - SNMP Interface to Layer3 devices
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer3;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 
@@ -146,6 +147,8 @@ sub model {
     my $model = &SNMP::translateObj($id);
 
     $model =~ s/^cisco//i;
+    $model =~ s/^catalyst//;
+    $model =~ s/^cat//;
     return $model;
 }
 

Info/Layer3/Aironet.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer3::Aironet
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer3::Aironet;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

Info/Layer3/C3550.pm

@@ -0,0 +1,373 @@
+# SNMP::Info::Layer3::C3550
+# Max Baker <max@warped.org>
+#
+# Copyright (c) 2003, Regents of the University of California
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without 
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright notice,
+#       this list of conditions and the following disclaimer in the documentation
+#       and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the 
+#       names of its contributors may be used to endorse or promote products 
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
+# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::Layer3::C3550;
+$VERSION = 0.2;
+# $Id$
+
+use strict;
+
+use Exporter;
+use SNMP::Info::Layer3;
+
+use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/ ;
+@SNMP::Info::Layer3::C3550::ISA = qw/SNMP::Info::Layer3 Exporter/;
+@SNMP::Info::Layer3::C3550::EXPORT_OK = qw//;
+
+$DEBUG=0;
+
+# See SNMP::Info for the details of these data structures and 
+#       the interworkings.
+$INIT = 0;
+
+%MIBS = (
+         %SNMP::Info::Layer3::MIBS,  
+         'CISCO-STACK-MIB' => 'moduleType',
+         'CISCO-VTP-MIB'   => 'vtpVlanIndex'
+        );
+
+%GLOBALS = (
+            %SNMP::Info::Layer3::GLOBALS,
+            'ports2'      => 'ifNumber',
+            # these are in CISCO-STACK-MIB
+            'serial'      => 'chassisSerialNumberString',    
+            'ps1_type'    => 'chassisPs1Type',    
+            'ps1_status'  => 'chassisPs1Status',    
+            'ps2_type'    => 'chassisPs2Type',    
+            'ps2_status'  => 'chassisPs2Status',    
+            'fan'         => 'chassisFanStatus'
+             );
+
+%FUNCS = (
+            %SNMP::Info::Layer3::FUNCS,
+            'i_type2'        => 'ifType',
+            # CISCO-STACK-MIB::portEntry 
+            'p_name'    => 'portName',
+            'p_type'    => 'portType',
+            'p_status'  => 'portOperStatus',
+            'p_status2' => 'portAdditionalStatus',
+            'p_speed'   => 'portAdminSpeed',
+            'p_duplex'  => 'portDuplex',
+            'p_port'    => 'portIfIndex',
+            # CISCO-STACK-MIB::PortCpbEntry
+            'p_speed_admin'  => 'portCpbSpeed',
+            'p_duplex_admin' => 'portCpbDuplex',
+            # CISCO-VTP-MIB::VtpVlanEntry 
+            'v_state'   => 'vtpVlanState',
+            'v_type'    => 'vtpVlanType',
+            'v_name'    => 'vtpVlanName',
+            'v_mtu'     => 'vtpVlanMtu',
+        );
+
+%MUNGE = (
+            # Inherit all the built in munging
+            %SNMP::Info::Layer3::MUNGE,
+            'm_ports_status' => \&munge_port_status,
+            'p_duplex_admin' => \&SNMP::Info::munge_bits,
+         );
+
+%PORTSTAT = (1 => 'other',
+             2 => 'ok',
+             3 => 'minorFault',
+             4 => 'majorFault');
+
+# Changes binary byte describing each port into ascii, and returns
+# an ascii list separated by spaces.
+sub munge_port_status {
+    my $status = shift;
+    my @vals = map($PORTSTAT{$_},unpack('C*',$status));
+    return join(' ',@vals);
+}
+
+# Overidden Methods
+
+sub i_type {
+    my $c3550 = shift;
+
+    my $p_port = $c3550->p_port();
+    my $p_type  = $c3550->p_type();
+
+    # Get more generic port types from IF-MIB
+    my $i_type  = $c3550->i_type2();
+
+    # Now Override w/ port entries
+    foreach my $port (keys %$p_type) {
+        my $iid = $p_port->{$port};
+        $i_type->{$iid} = $p_type->{$port};  
+    }
+
+    return $i_type;
+}
+
+sub i_duplex {
+    my $c3550 = shift;
+
+    my $p_port = $c3550->p_port();
+    my $p_duplex  = $c3550->p_duplex();
+
+    my %i_duplex;
+    foreach my $port (keys %$p_duplex) {
+        my $iid = $p_port->{$port};
+        $i_duplex{$iid} = $p_duplex->{$port};
+    }
+    return \%i_duplex; 
+}
+
+sub i_duplex_admin {
+    my $c3550 = shift;
+
+    my $p_port          = $c3550->p_port();
+    my $p_duplex_admin  = $c3550->p_duplex_admin();
+
+    my %i_duplex_admin;
+    foreach my $port (keys %$p_duplex_admin) {
+        my $iid = $p_port->{$port};
+        next unless defined $iid;
+        my $duplex = $p_duplex_admin->{$port};
+        next unless defined $duplex;
+
+        my $string = 'other';
+        # see CISCO-STACK-MIB for a description of the bits
+        $string = 'half' if ($duplex =~ /001$/ or $duplex =~ /0100.$/);
+        $string = 'full' if ($duplex =~ /010$/ or $duplex =~ /100.0$/);
+        # we'll call it auto if both full and half are turned on, or if the
+        #   specifically 'auto' flag bit is set.
+        $string = 'auto' 
+            if ($duplex =~ /1..$/ or $duplex =~ /110..$/ or $duplex =~ /..011$/);
+       
+        $i_duplex_admin{$iid} = $string;
+    }
+    return \%i_duplex_admin; 
+}
+
+sub vendor {
+    return 'cisco';
+}
+
+sub model {
+    my $c3550 = shift;
+    my $id = $c3550->id();
+    my $model = &SNMP::translateObj($id);
+    $model =~ s/^catalyst//;
+    $model =~ s/(24|48)$//;
+
+    return $model;
+}
+
+# Ports is encoded into the model number
+sub ports {
+    my $c3550 = shift;
+
+    my $ports2 = $c3550->ports2();    
+
+    my $id = $c3550->id();
+    my $model = &SNMP::translateObj($id);
+    if ($model =~ /(24|48)$/) {
+        return $1;
+    }
+    return $ports2;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::Layer3::C3550 - Perl5 Interface to Cisco Catalyst 3550 Layer 2/3 Switches running IOS
+
+=head1 DESCRIPTION
+
+Abstraction subclass for Cisco Catalyst 3550 Layer 2/3 Switches.  These devices run
+IOS but have some of the same charactersitics as the Catalyst WS-C family (5xxx,6xxx). 
+For example, forwarding tables are held in VLANs, and extened interface information
+is gleened from CISCO-SWITCH-MIB.
+
+=head1 AUTHOR
+
+Max Baker (C<max@warped.org>)
+
+=head1 SYNOPSIS
+
+ my $c3550 = new SNMP::Info::Layer3::C3550(DestHost  => 'router' , 
+                              Community => 'public' ); 
+
+=head1 CREATING AN OBJECT
+
+=over
+
+=item  new SNMP::Info::Layer3::C3550()
+
+Arguments passed to new() are passed on to SNMP::Session::new()
+    
+
+    my $c3550 = new SNMP::Info::Layer3::C3550(
+        DestHost => $host,
+        Community => 'public',
+        Version => 3,...
+        ) 
+    die "Couldn't connect.\n" unless defined $c3550;
+
+=item  $c3550->session()
+
+Sets or returns the SNMP::Session object
+
+    # Get
+    my $sess = $c3550->session();
+
+    # Set
+    my $newsession = new SNMP::Session(...);
+    $c3550->session($newsession);
+
+=back
+
+=head1 GLOBAL Values
+
+=over
+
+=item $c3550->serial()
+(B<chassisSerialNumberString>)
+
+=item $c3550->model()
+(B<chassisModel>)
+
+=item $c3550->ps1_type()
+(B<chassisPs1Type>)
+
+=item $c3550->ps2_type()
+(B<chassisPs2Type>)
+
+=item $c3550->ps1_status()
+(B<chassisPs1Status>)
+
+=item $c3550->ps2_status()
+(B<chassisPs2Status>)
+
+=item $c3550->slots()
+(B<chassisNumSlots>)
+
+=item $c3550->fan()
+(B<chassisFanStatus>)
+
+=item $c3550->vendor()
+
+    Returns 'cisco'
+
+=back
+
+=head1 TABLE ENTRIES
+
+=head2 Overrides
+
+=over
+
+=item $c3550->i_type()
+
+    Crosses p_port() with p_type() and returns the results. 
+
+    Overrides with ifType if p_type() isn't available.
+
+=item $c3550->i_name()
+
+    Crosses p_name with p_port and returns results.
+
+=item $c3550->i_duplex()
+
+    Crosses p_duplex with p_port and returns results.
+
+=item $c3550->i_duplex_admin()
+
+    Crosses p_duplex_admin with p_port.
+
+    Munges bit_string returned from p_duplex_admin to get duplex settings.
+
+=back
+
+=head2 Port Entry Table (CISCO-STACK-MIB::portTable)
+
+=over
+
+=item $c3550->p_name()
+(B<portName>)
+
+=item $c3550->p_type()
+(B<portType>)
+
+=item $c3550->p_status()
+(B<portOperStatus>)
+
+=item $c3550->p_status2()
+(B<portAdditionalStatus>)
+
+=item $c3550->p_speed()
+(B<portAdminSpeed>)
+
+=item $c3550->p_duplex()
+(B<portDuplex>)
+
+=item $c3550->p_port()
+(B<portIfIndex>)
+
+=back
+
+=head2 Port Capability Table (CISCO-STACK-MIB::portCpbTable)
+
+=over
+
+=item $c3550->p_speed_admin()
+(B<portCpbSpeed>)
+
+=item $c3550->p_duplex_admin()
+(B<portCpbDuplex>)
+
+=back
+
+=head2 VLAN Entry Table
+
+See ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html
+for a good treaty of how to connect to the VLANs
+
+
+=over
+
+=item $c3550->v_state()
+(B<vtpVlanState>)
+
+=item $c3550->v_type()
+(B<vtpVlanType>)
+
+=item $c3550->v_name()
+(B<vtpVlanName>)
+
+=item $c3550->v_mtu()
+(B<vtpVlanMtu>)
+
+=back
+
+=cut
+

Info/Layer3/Foundry.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::Layer3::Foundry - SNMP Interface to Foundry devices
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::Layer3::Foundry;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

Info/MAU.pm

@@ -1,7 +1,7 @@
 # SNMP::Info::MAU - Media Access Unit - RFC2668
 # Max Baker <max@warped.org>
 #
-# Copyright (c) 2002, Regents of the University of California
+# Copyright (c) 2002,2003 Regents of the University of California
 # All rights reserved.
 # 
 # Redistribution and use in source and binary forms, with or without 
@@ -28,7 +28,8 @@
 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 package SNMP::Info::MAU;
-$VERSION = 0.1;
+$VERSION = 0.2;
+# $Id$
 
 use strict;
 

MANIFEST

@@ -1,3 +1,4 @@
+ChangeLog
 COPYRIGHT
 Info.pm
 Info/Bridge.pm
@@ -15,6 +16,7 @@ Info/Layer2/HP.pm
 Info/Layer3.pm
 Info/Layer3/Aironet.pm
 Info/Layer3/Foundry.pm
+Info/Layer3/C3550.pm
 Info/MAU.pm
 MANIFEST
 Makefile.PL

Makefile.PL

@@ -1,4 +1,6 @@
 # SNMP::Info -  Makefile.PL
+# $Id$
+
 use ExtUtils::MakeMaker;
 WriteMakefile(
     'NAME'               => 'SNMP::Info',

README

@@ -4,7 +4,7 @@ NAME
 
 VERSION
 
-    SNMP::Info - Version 0.1
+    SNMP::Info - Version 0.2
 
 AUTHOR
 
@@ -14,7 +14,7 @@ AUTHOR
 
 COPYRIGHT AND LICENCE
 
-    Copyright (c) 2002, Regents of the University of California All rights
+    Copyright (c) 2002-3, Regents of the University of California All rights
     reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -162,6 +162,7 @@ Sub Classes
     SNMP::Info::Layer2::HP
     SNMP::Info::Layer3::Aironet
     SNMP::Info::Layer3::Foundry
+    SNMP::Info::Layer3::C3550
   Details
 
     * SNMP::Info::Bridge - BRIDGE-MIB - RFC1286 Support
@@ -250,6 +251,7 @@ Sub Classes
          AWCVX-MIB        - Aironet Specific MIB values
          IEEE802dot11-MIB - IEEE 802.11 Specific MIB (currently draft)
 
+    * SNMP::Info::Layer3::C3550 - Cisco Catalyst 3550 Layer2/3 Switch
     * SNMP::Info::Layer3::Foundry - Older Foundry Networks Devices Support
         Inherits SNMP::Info::Bridge
 
@@ -299,14 +301,15 @@ METHODS
         Algorithm for SubClass Detection:
 
                 Layer3 Support                     -> SNMP::Info::Layer3
-                    Foundry                        -> SNMP::Info::Foundry
-                    Aironet                        -> SNMP::Info::Aironet
+                    Aironet                        -> SNMP::Info::Layer3::Aironet
+                    Catalyst 3550                  -> SNMP::Info::Layer3::C3550
+                    Foundry                        -> SNMP::Info::Layer3::Foundry
                 Elsif Layer2 (no Layer3)           -> SNMP::Info::Layer2 
+                    Bay Networks                   -> SNMP::Info::Layer2::Bay
                     Catalyst 1900                  -> SNMP::Info::Layer2::C1900
                     Catalyst 2900XL (IOS)          -> SNMP::Info::Layer2::C2900
                     Catalyst WS-C (2926,5xxx,6xxx) -> SNMP::Info::Layer2::Catalyst
                     HP Procurve                    -> SNMP::Info::Layer2::HP
-                    Bay Networks                   -> SNMP::Info::Layer2::Bay
                 Elsif Layer1 Support               -> SNMP::Info::Layer1
                     Allied                         -> SNMP::Info::Layer1::Allied
                     Asante                         -> SNMP::Info::Layer1::Asante
@@ -611,8 +614,8 @@ CREATING SUBCLASSES
         Takes a binary IP and makes it dotted ASCII
 
     munge_mac()
-        Takes an octet stream and returns a colon separated ASCII hex
-        string.
+        Takes an octet stream (HEX-STRING) and returns a colon separated
+        ASCII hex string.
 
     munge_octet2hex()
         Takes a binary octet stream and returns an ASCII hex string
@@ -657,6 +660,13 @@ CREATING SUBCLASSES
         Example: $info->name() calls autoload which calls
         $info->_global('name').
 
+    $info->_set(attr,val,iid)
+        Used internally by AUTOLOAD to run an SNMP set command for dynamic
+        methods listed in either %GLOBALS or %FUNCS.
+
+        Example: $info->set_name('dog',3) uses autoload to resolve to
+        $info->_set('name','dog',3);
+
    Functions for SNMP Tables (%FUNCS)
 
     $info->load_all()

test.pl

@@ -1,4 +1,5 @@
 # SNMP::Info - test.pl
+# $Id$
 #
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl test.pl'