# SNMP::Info::Layer3::C4000 # Bill Fenner # # Copyright (c) 2006 Bill Fenner # 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 Author, nor # 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::C4000; # $Id$ use strict; use Exporter; use SNMP::Info::CiscoVTP; use SNMP::Info::CDP; use SNMP::Info::CiscoStats; use SNMP::Info::CiscoImage; use SNMP::Info::CiscoPortSecurity; use SNMP::Info::CiscoConfig; use SNMP::Info::MAU; use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; $VERSION = '1.07'; @SNMP::Info::Layer3::C4000::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP SNMP::Info::CiscoStats SNMP::Info::CiscoImage SNMP::Info::CiscoPortSecurity SNMP::Info::CiscoConfig SNMP::Info::MAU SNMP::Info::Layer3 Exporter/; @SNMP::Info::Layer3::C4000::EXPORT_OK = qw//; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::MAU::MIBS, %SNMP::Info::CiscoConfig::MIBS, %SNMP::Info::CiscoPortSecurity::MIBS, %SNMP::Info::CiscoImage::MIBS, %SNMP::Info::CiscoStats::MIBS, %SNMP::Info::CDP::MIBS, %SNMP::Info::CiscoVTP::MIBS, 'CISCO-ENVMON-MIB' => 'ciscoEnvMonMIB', ); %GLOBALS = ( %SNMP::Info::Layer3::GLOBALS, %SNMP::Info::MAU::GLOBALS, %SNMP::Info::CiscoConfig::GLOBALS, %SNMP::Info::CiscoPortSecurity::GLOBALS, %SNMP::Info::CiscoImage::GLOBALS, %SNMP::Info::CiscoStats::GLOBALS, %SNMP::Info::CDP::GLOBALS, %SNMP::Info::CiscoVTP::GLOBALS, 'ps1_type' => 'ciscoEnvMonSupplyStatusDescr.1', 'ps1_status' => 'ciscoEnvMonSupplyState.1', 'ps2_type' => 'ciscoEnvMonSupplyStatusDescr.2', 'ps2_status' => 'ciscoEnvMonSupplyState.2', ); %FUNCS = ( %SNMP::Info::Layer3::FUNCS, %SNMP::Info::MAU::FUNCS, %SNMP::Info::CiscoConfig::FUNCS, %SNMP::Info::CiscoPortSecurity::FUNCS, %SNMP::Info::CiscoImage::FUNCS, %SNMP::Info::CiscoStats::FUNCS, %SNMP::Info::CDP::FUNCS, %SNMP::Info::CiscoVTP::FUNCS, 'fan_state' => 'ciscoEnvMonFanState', 'fan_descr' => 'ciscoEnvMonFanStatusDescr', ); %MUNGE = ( %SNMP::Info::Layer3::MUNGE, %SNMP::Info::MAU::MUNGE, %SNMP::Info::CiscoConfig::MUNGE, %SNMP::Info::CiscoPortSecurity::MUNGE, %SNMP::Info::CiscoImage::MUNGE, %SNMP::Info::CiscoStats::MUNGE, %SNMP::Info::CDP::MUNGE, %SNMP::Info::CiscoVTP::MUNGE, ); # Override Inheritance for these specific methods # use MAU-MIB for admin. duplex and admin. speed *SNMP::Info::Layer3::C4000::i_duplex_admin = \&SNMP::Info::MAU::mau_i_duplex_admin; *SNMP::Info::Layer3::C4000::i_speed_admin = \&SNMP::Info::MAU::mau_i_speed_admin; sub fan { my $c4000 = shift; my $fan_state = $c4000->fan_state(); my $fan_descr = $c4000->fan_descr(); my $ret = ""; my $s = ""; foreach my $i (sort {$a <=> $b} keys %$fan_state) { $ret .= $s . $fan_descr->{$i} . ": " . $fan_state->{$i}; $s = ", "; } return undef if ($s eq ""); $ret; } sub cisco_comm_indexing { 1; } 1; __END__ =head1 NAME SNMP::Info::Layer3::C4000 - SNMP Interface to Cisco Catalyst 4000 Layer 2/3 Switches running IOS =head1 AUTHOR Bill Fenner =head1 SYNOPSIS # Let SNMP::Info determine the correct subclass for you. my $c4000 = new SNMP::Info( AutoSpecify => 1, Debug => 1, # These arguments are passed directly to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 ) or die "Can't connect to DestHost.\n"; my $class = $c4000->class(); print "SNMP::Info determined this device to fall under subclass : $class\n"; =head1 DESCRIPTION Abstraction subclass for Cisco Catalyst 4000 Layer 2/3 Switches. For speed or debugging purposes you can call the subclass directly, but not after determining a more specific class using the method above. my $c4000 = new SNMP::Info::Layer3::C4000(...); =head2 Inherited Classes =over =item SNMP::Info::CiscoVTP =item SNMP::Info::CDP =item SNMP::Info::CiscoStats =item SNMP::Info::CiscoImage =item SNMP::Info::CiscoPortSecurity =item SNMP::Info::CiscoConfig =item SNMP::Info::MAU =item SNMP::Info::Layer3 =back =head2 Required MIBs =over =item Inherited Classes' MIBs See L for its own MIB requirements. See L for its own MIB requirements. See L for its own MIB requirements. See L for its own MIB requirements. See L for its own MIB requirements. See L for its own MIB requirements. See L for its own MIB requirements. See L for its own MIB requirements. =back =head1 GLOBALS These are methods that return scalar value from SNMP =head2 Global Methods imported from SNMP::Info::CiscoVTP See documentation in L for details. =head2 Globals imported from SNMP::Info::CDP See documentation in L for details. =head2 Globals imported from SNMP::Info::CiscoStats See documentation in L for details. =head2 Globals imported from SNMP::Info::CiscoImage See documentation in L for details. =head2 Globals imported from SNMP::Info::CiscoPortSecurity See documentation in L for details. =head2 Globals imported from SNMP::Info::CiscoConfig See documentation in L for details. =head2 Globals imported from SNMP::Info::MAU See documentation in L for details. =head2 Globals imported from SNMP::Info::Layer3 See documentation in L for details. =head1 TABLE METHODS These are methods that return tables of information in the form of a reference to a hash. =head2 Table Methods imported from SNMP::Info::CiscoVTP See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CDP See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoStats See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoImage See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoPortSecurity See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoConfig See documentation in L for details. =head2 Table Methods imported from SNMP::Info::MAU See documentation in L for details. =head2 Table Methods imported from SNMP::Info::Layer3 See documentation in L for details. =cut