From ba85dc670bdb07721f7ef39a9f037702fa778184 Mon Sep 17 00:00:00 2001 From: Eric Miller <> Date: Mon, 7 Jul 2008 04:10:39 +0000 Subject: [PATCH] - POD Validation - POD spell check - Prep 1.09 --- Info.pm | 343 ++++++++++++++++++++----------------- Info/Airespace.pm | 260 ++++++++++++++-------------- Info/Bridge.pm | 167 +++++++++--------- Info/CDP.pm | 89 +++++----- Info/CiscoConfig.pm | 108 ++++++------ Info/CiscoImage.pm | 43 ++--- Info/CiscoPortSecurity.pm | 144 ++++++++-------- Info/CiscoPower.pm | 48 +++--- Info/CiscoQOS.pm | 75 ++++---- Info/CiscoRTT.pm | 41 +++-- Info/CiscoStack.pm | 146 ++++++++-------- Info/CiscoStats.pm | 89 +++++----- Info/CiscoVTP.pm | 186 ++++++++++---------- Info/Entity.pm | 47 ++--- Info/EtherLike.pm | 82 ++++----- Info/FDP.pm | 90 +++++----- Info/IEEE802dot11.pm | 102 +++++------ Info/LLDP.pm | 88 +++++----- Info/Layer1.pm | 57 +++--- Info/Layer1/Allied.pm | 48 +++--- Info/Layer1/Asante.pm | 46 +++-- Info/Layer1/Bayhub.pm | 71 ++++---- Info/Layer1/Cyclades.pm | 62 +++---- Info/Layer1/S3000.pm | 83 ++++----- Info/Layer2.pm | 45 +++-- Info/Layer2/Airespace.pm | 39 ++--- Info/Layer2/Aironet.pm | 49 +++--- Info/Layer2/Allied.pm | 44 ++--- Info/Layer2/Aruba.pm | 77 +++++---- Info/Layer2/Bay.pm | 103 ++++++----- Info/Layer2/Baystack.pm | 86 +++++----- Info/Layer2/C1900.pm | 83 ++++----- Info/Layer2/C2900.pm | 65 +++---- Info/Layer2/Catalyst.pm | 44 ++--- Info/Layer2/Centillion.pm | 98 +++++------ Info/Layer2/Cisco.pm | 34 ++-- Info/Layer2/Foundry.pm | 35 ++-- Info/Layer2/HP.pm | 105 ++++++------ Info/Layer2/N2270.pm | 41 +++-- Info/Layer2/NAP222x.pm | 78 ++++----- Info/Layer2/Netgear.pm | 34 ++-- Info/Layer2/Orinoco.pm | 47 +++-- Info/Layer2/ZyXEL_DSLAM.pm | 51 +++--- Info/Layer3.pm | 144 ++++++++-------- Info/Layer3/Aironet.pm | 80 ++++----- Info/Layer3/AlteonAD.pm | 78 ++++----- Info/Layer3/BayRS.pm | 93 +++++----- Info/Layer3/C3550.pm | 56 +++--- Info/Layer3/C4000.pm | 42 ++--- Info/Layer3/C6500.pm | 54 +++--- Info/Layer3/Cisco.pm | 40 ++--- Info/Layer3/Contivity.pm | 41 +++-- Info/Layer3/Dell.pm | 70 ++++---- Info/Layer3/Enterasys.pm | 54 +++--- Info/Layer3/Extreme.pm | 91 +++++----- Info/Layer3/Foundry.pm | 70 ++++---- Info/Layer3/HP9300.pm | 72 ++++---- Info/Layer3/Juniper.pm | 37 ++-- Info/Layer3/Microsoft.pm | 37 ++-- Info/Layer3/N1600.pm | 59 +++---- Info/Layer3/NetSNMP.pm | 49 +++--- Info/Layer3/Netscreen.pm | 44 ++--- Info/Layer3/Passport.pm | 83 ++++----- Info/Layer3/Sun.pm | 35 ++-- Info/MAU.pm | 58 +++---- Info/NortelStack.pm | 152 ++++++++-------- Info/PowerEthernet.pm | 53 +++--- Info/RapidCity.pm | 251 ++++++++++++++------------- Info/SONMP.pm | 64 +++---- 69 files changed, 2820 insertions(+), 2760 deletions(-) diff --git a/Info.pm b/Info.pm index de05dc0a..541d34ee 100644 --- a/Info.pm +++ b/Info.pm @@ -1,4 +1,5 @@ # SNMP::Info - Max Baker +# $Id$ # # Copyright (c) 2003,2004 Max Baker # All rights reserved. @@ -6,7 +7,6 @@ # All rights reserved. # # See COPYRIGHT at bottom -# $Id$ package SNMP::Info; $VERSION = '1.09'; @@ -25,7 +25,8 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG %SPEED_ =head1 NAME -SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs through SNMP. +SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs through +SNMP. =head1 VERSION @@ -34,7 +35,7 @@ SNMP::Info - Version 1.09 =head1 AUTHOR SNMP::Info was created at UCSC for the netdisco project (www.netdisco.org) -and was orginally written by Max Baker. +and was originally written by Max Baker. Currently being maintained by team of Open Source authors headed by Eric Miller and Bill Fenner. @@ -97,32 +98,35 @@ and Bill Fenner. =head1 SUPPORT -Please direct all support, help, and bug requests to the snmp-info-users Mailing List -at . +Please direct all support, help, and bug requests to the snmp-info-users +Mailing List at . =head1 DESCRIPTION -SNMP::Info gives an object oriented interface to information obtained through SNMP. +SNMP::Info gives an object oriented interface to information obtained through +SNMP. -This module lives at http://snmp-info.sourceforge.net Check for newest version and -documentation. +This module lives at http://snmp-info.sourceforge.net Check for newest version +and documentation. This module is geared towards network devices. Subclasses exist for a number of network devices and common MIBs. -The idea behind this module is to give a common interface to data from network devices, -leaving the device-specific hacks behind the scenes in subclasses. +The idea behind this module is to give a common interface to data from network +devices, leaving the device-specific hacks behind the scenes in subclasses. -In the SYNOPSIS example we fetch the name of all the ports on the device and the duplex -setting for that port with two methods -- interfaces() and i_duplex(). +In the SYNOPSIS example we fetch the name of all the ports on the device and +the duplex setting for that port with two methods -- interfaces() and +i_duplex(). -The information may be coming from any number of MIB files and is very vendor specific. -SNMP::Info provides you a common method for all supported devices. +The information may be coming from any number of MIB files and is very vendor +specific. SNMP::Info provides you a common method for all supported devices. Adding support for your own device is easy, and takes little SNMP knowledge. -The module is not limited to network devices. Any MIB or device can be given an objected oriented -front-end by making a module that consists of a couple hashes. See EXTENDING SNMP::INFO. +The module is not limited to network devices. Any MIB or device can be given an +objected oriented front-end by making a module that consists of a couple +hashes. See EXTENDING SNMP::INFO. =head1 REQUIREMENTS @@ -138,9 +142,10 @@ DO NOT INSTALL SNMP:: or Net::SNMP from CPAN! The SNMP module is matched to an install of net-snmp, and must be installed from the net-snmp source tree. -The Perl module C is found inside the net-snmp distribution. Go to the F directory -of the distribution to install it, or run C<./configure --with-perl-modules> from the top directory -of the net-snmp distribution. +The Perl module C is found inside the net-snmp distribution. Go to the +F directory of the distribution to install it, or run +C<./configure --with-perl-modules> from the top directory of the net-snmp +distribution. Net-SNMP can be found at http://net-snmp.sourceforge.net @@ -159,7 +164,7 @@ don't have the Perl library installed. Uninstall the RPM and install by hand. SNMP::Info operates on textual descriptors found in MIBs. If you are using SNMP::Info separate from Netdisco, -download the Netdisco-MIB package at +download the Netdisco MIB package at http://sourceforge.net/project/showfiles.php?group_id=80033&package_id=135517 @@ -194,7 +199,8 @@ SNMP::Info will ask for C and will get back C. You can create a new subclass for a device by providing four hashes : %GLOBALS, %MIBS, %FUNCS, and %MUNGE. -Or you can override any existing methods from a parent class by making a short subroutine. +Or you can override any existing methods from a parent class by making a short +subroutine. See the section EXTENDING SNMP::INFO for more details. @@ -221,133 +227,135 @@ For more info run C on any of the following module names. =item SNMP::Info::Airespace -AIRESPACE-WIRELESS-MIB and AIRESPACE-SWITCHING-MIB. Inherited by devices based -on the Airespace wireless platform. +F and F. Inherited by devices +based on the Airespace wireless platform. See documentation in L for details. =item SNMP::Info::Bridge -BRIDGE-MIB (RFC1286). QBRIDGE-MIB. Inherited by devices with Layer2 support. +F (RFC1286). F. Inherited by devices with Layer2 +support. See documentation in L for details. =item SNMP::Info::CDP -CISCO-CDP-MIB. Cisco Discovery Protocol (CDP) Support. Inherited by Cisco, +F. Cisco Discovery Protocol (CDP) Support. Inherited by Cisco, Enterasys, and HP devices. See documentation in L for details. =item SNMP::Info::CiscoConfig -CISCO-CONFIG-COPY-MIB, CISCO-FLASH-MIB, and OLD-CISCO-SYS-MIB. +F, F, and F. These OIDs facilitate the writing of configuration files. See documentation in L for details. =item SNMP::Info::CiscoImage -CISCO-IMAGE-MIB. A collection of OIDs providing IOS image characteristics. +F. A collection of OIDs providing IOS image characteristics. See documentation in L for details. =item SNMP::Info::CiscoPortSecurity -CISCO-PORT-SECURITY-MIB and CISCO-PAE-MIB. +F and F. See documentation in L for details. =item SNMP::Info::CiscoQOS -CISCO-CLASS-BASED-QOS-MIB. A collection of OIDs providing information about +F. A collection of OIDs providing information about a Cisco device's QOS config. See documentation in L for details. =item SNMP::Info::CiscoRTT -CISCO-RTTMON-MIB. A collection of OIDs providing information about a Cisco +F. A collection of OIDs providing information about a Cisco device's RTT values. See documentation in L for details. =item SNMP::Info::CiscoStack -CISCO-STACK-MIB. +F. See documentation in L for details. =item SNMP::Info::CiscoStats -OLD-CISCO-CPU-MIB, CISCO-PROCESS-MIB, and CISCO-MEMORY-POOL-MIB. Provides -common interfaces for memory, cpu, and os statistics for Cisco devices. +F, F, and F. +Provides common interfaces for memory, cpu, and os statistics for Cisco devices. See documentation in L for details. =item SNMP::Info::CiscoVTP -CISCO-VTP-MIB, CISCO-VLAN-MEMBERSHIP-MIB, CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB +F, F, +F See documentation in L for details. =item SNMP::Info::Entity -ENTITY-MIB. Used for device info in Cisco and other vendors. +F. Used for device info in Cisco and other vendors. See documentation in L for details. =item SNMP::Info::EtherLike -ETHERLIKE-MIB (RFC1398) - Some Layer3 devices implement this MIB, as well as +F (RFC1398) - Some Layer3 devices implement this MIB, as well as some Aironet Layer 2 devices (non Cisco). See documentation in L for details. =item SNMP::Info::FDP -Foundry Discovery Protocol. FOUNDRY-SN-SWITCH-GROUP-MIB +Foundry Discovery Protocol. F See documentation in L for details. =item SNMP::Info::IEEE802dot11 -IEEE802dot11-MIB. A collection of OIDs providing information about standards +F. A collection of OIDs providing information about standards based 802.11 wireless devices. See documentation in L for details. =item SNMP::Info::LLDP -LLDP-MIB, LLDP-EXT-DOT1-MIB, and LLDP-EXT-DOT3-MIB. Link Layer Discovery -Protocol (LLDP) Support. +F, F, and F. Link Layer +Discovery Protocol (LLDP) Support. See documentation in L for details. =item SNMP::Info::MAU -MAU-MIB (RFC2668). Some Layer2 devices use this for extended Ethernet +F (RFC2668). Some Layer2 devices use this for extended Ethernet (Media Access Unit) interface information. See documentation in L for details. =item SNMP::Info::NortelStack -S5-AGENT-MIB, S5-CHASSIS-MIB. +F, F. See documentation in L for details. =item SNMP::Info::RapidCity -RAPID-CITY. Inhertited by Nortel switches for duplex and VLAN information. +F. Inherited by Nortel switches for duplex and VLAN information. See documentation in L for details. =item SNMP::Info::SONMP -SYNOPTICS-ROOT-MIB, S5-ETH-MULTISEG-TOPOLOGY-MIB. Provides translation from -Nortel Topology Table information to CDP. Inherited by Nortel/Bay/Synoptics -switches and hubs. +F, F. Provides translation +from Nortel Topology Table information to CDP. Inherited by +Nortel/Bay/Synoptics switches and hubs. See documentation in L for details. @@ -358,7 +366,8 @@ See documentation in L for details. These subclasses inherit from one or more classes to provide a common interface to data obtainable from network devices. -All the required MIB files are included in the netdisco-mib package. (See Above). +All the required MIB files are included in the netdisco-mib package. +(See Above). =over @@ -374,7 +383,7 @@ See documentation in L for details. Subclass for Allied Telesys Repeaters / Hubs. -Requires ATI-MIB +Requires F See documentation in L for details. @@ -382,7 +391,7 @@ See documentation in L for details. Subclass for Asante 1012 Hubs. -Requires ASANTE-HUB1012-MIB +Requires F See documentation in L for details. @@ -495,7 +504,7 @@ Depreciated. Use SNMP::Info::Layer3::Foundry. Subclass for HP Procurve Switches -Requires HP-ICF-OID and ENTITY-MIB downloaded from HP. +Requires F and F downloaded from HP. See documentation in L for details. @@ -712,7 +721,8 @@ Returns an object of a more specific device class =item BigInt -Return Math::BigInt objects for 64 bit counters. Sets on a global scope, not object. +Return Math::BigInt objects for 64 bit counters. Sets on a global scope, +not object. (default off) @@ -726,7 +736,8 @@ Note that BULKWALK is turned off for Net-SNMP versions 5.1.x because of a bug. =item BulkRepeaters -Set number of MaxRepeaters for BULKWALK operation. See C -> bulkwalk() for more info. +Set number of MaxRepeaters for BULKWALK operation. See +C -> bulkwalk() for more info. (default 20) @@ -735,7 +746,7 @@ Set number of MaxRepeaters for BULKWALK operation. See C -> bulkw Detects looping during getnext table column walks by comparing IIDs for each instance. A loop is detected if the same IID is seen more than once and the walk is aborted. Note: This will not detect loops during a bulkwalk -operation, Net-SNMP's internal bulkwalk function must detect the loop. +operation, Net-'s internal bulkwalk function must detect the loop. Set to C<0> to turn off loop detection. @@ -752,7 +763,7 @@ Pass 2 to print even more debugging messages. Set $SNMP::debugging level for Net-SNMP. -See L for more details. +See F for more details. =item MibDirs @@ -793,14 +804,14 @@ you create the device object to see if there was a problem in connecting. A note about SNMP Versions : -Some older devices don't support SNMP version 2, and will not return anything when a -connection under Version 2 is attempted. +Some older devices don't support SNMP version 2, and will not return anything +when a connection under Version 2 is attempted. -Some newer devices will support Version 1, but will not return all the data they might have -if you had connected under Version 1 +Some newer devices will support Version 1, but will not return all the data +they might have if you had connected under Version 1 -When trying to get info from a new device, you may have to try version 2 and then fallback to -version 1. +When trying to get info from a new device, you may have to try version 2 and +then fallback to version 1. =cut @@ -924,7 +935,7 @@ Clears the object cache. This is useful, e.g., when a device supports multiple contexts (via changes to the Community string, or via the SNMPv3 Context parameter), but a context that you want to access does not support -the objects (e.g., sysObjectID, sysDescr) that we use to identify +the objects (e.g., C, C) that we use to identify the device. =cut @@ -975,7 +986,7 @@ and table methods. =head2 Object Scalar Methods -These are for package related data, not direcly supplied +These are for package related data, not directly supplied from SNMP. =over @@ -1004,7 +1015,8 @@ sub clear_cache { =item $info->debug(1) -Returns current debug status, and optionally toggles debugging info for this object. +Returns current debug status, and optionally toggles debugging info for this +object. =cut @@ -1426,7 +1438,8 @@ sub cisco_comm_indexing{ These are methods to return scalar data from RFC1213. -Some subset of these is probably available for any network device that speaks SNMP. +Some subset of these is probably available for any network device that speaks +SNMP. =over @@ -1434,19 +1447,19 @@ Some subset of these is probably available for any network device that speaks SN Uptime in hundredths of seconds since device became available. -(B) +(C) =item $info->contact() -(B) +(C) =item $info->name() -(B) +(C) =item $info->location() -(B) +(C) =item $info->layers() @@ -1461,7 +1474,7 @@ Note: This string is 8 digits long. See $info->has_layer() -(B) +(C) =item $info->ports() @@ -1470,7 +1483,7 @@ Number of interfaces available on this device. Not too useful as the number of SNMP interfaces usually does not correspond with the number of physical ports -(B) +(C) =item $info->ipforwarding() @@ -1478,7 +1491,7 @@ The indication of whether the entity is acting as an IP gateway Returns either forwarding or not-forwarding -(B) +(C) =back @@ -1518,7 +1531,7 @@ Partial table results are not cached. =item $info->interfaces() -This methods is overriden in each subclass to provide a +This methods is overridden in each subclass to provide a mapping between the Interface Table Index (iid) and the physical port name. =item $info->if_ignore() @@ -1526,8 +1539,8 @@ mapping between the Interface Table Index (iid) and the physical port name. Returns a reference to a hash where key values that exist are interfaces to ignore. -Ignored interfaces are ones that are usually not physical ports or Virtual Lans (VLANs) such as the Loopback interface, -or the CPU interface. +Ignored interfaces are ones that are usually not physical ports or Virtual +Lans (VLANs) such as the Loopback interface, or the CPU interface. =cut @@ -1540,32 +1553,33 @@ sub if_ignore { Default SNMP IID to Interface index. -(B) +(C) =item $info->i_description() -Description of the interface. Usually a little longer single word name that is both -human and machine friendly. Not always. +Description of the interface. Usually a little longer single word name that is +both human and machine friendly. Not always. -(B) +(C) =item $info->i_type() -Interface type, such as Vlan, 10baseT, Ethernet, Serial +Interface type, such as Vlan, Ethernet, Serial -(B) +(C) =item $info->i_mtu() INTEGER. Interface MTU value. -(B) +(C) =item $info->i_speed() -Speed of the link, human format. See munge_speed() later in document for details. +Speed of the link, human format. See munge_speed() later in document for +details. -(B, B if necessary) +(C, C if necessary) =cut @@ -1590,7 +1604,7 @@ sub i_speed { Speed of the link in bits per second without munging. If i_speed_high is available it will be used and multiplied by 1_000_000. -(B, B if necessary) +(C, C if necessary) =cut @@ -1616,45 +1630,46 @@ Speed of a high-speed link, human format. See munge_highspeed() later in document for details. You should not need to call this directly, as i_speed() will call it if it needs to. -(B) +(C) =item $info->i_mac() -MAC address of the interface. Note this is just the MAC of the port, not anything connected to it. +MAC address of the interface. Note this is just the MAC of the port, not +anything connected to it. -(B) +(C) =item $info->i_up() Link Status of the interface. Typical values are 'up' and 'down'. -(B) +(C) =item $info->i_up_admin() Administrative status of the port. Typical values are 'enabled' and 'disabled'. -(B) +(C) =item $info->i_lastchange() -The value of sysUpTime when this port last changed states (up,down). +The value of C when this port last changed states (up,down). -(B) +(C) =item $info->i_name() -Interface Name field. Supported by a smaller subset of devices, this fields is often -human set. +Interface Name field. Supported by a smaller subset of devices, this fields +is often human set. -(B) +(C) =item $info->i_alias() -Interface Name field. For certain devices this is a more human friendly form of i_description(). -For others it is a human set field like i_name(). +Interface Name field. For certain devices this is a more human friendly form +of i_description(). For others it is a human set field like i_name(). -(B) +(C) =back @@ -1671,19 +1686,21 @@ Number of octets sent/received on the interface including framing characters. 64 bit version may not exist on all devices. -NOTE: To manipulate 64 bit counters you need to use Math::BigInt, since the values -are too large for a normal Perl scalar. Set the global $SNMP::Info::BIGINT to 1 , or -pass the BigInt value to new() if you want SNMP::Info to do it for you. +NOTE: To manipulate 64 bit counters you need to use Math::BigInt, since the +values are too large for a normal Perl scalar. Set the global +$SNMP::Info::BIGINT to 1 , or pass the BigInt value to new() if you want +SNMP::Info to do it for you. -(B) (B) -(B) (B) +(C) (C) +(C) (C) =item $info->i_errors_in(), $info->i_errors_out() -Number of packets that contained an error prventing delivery. See IF-MIB for more info. +Number of packets that contained an error preventing delivery. See C +for more info. -(B) (B) +(C) (C) =item $info->i_pkts_ucast_in(), $info->i_pkts_ucast_out(), $info->i_pkts_ucast_in64(), $info->i_pkts_ucast_out64() @@ -1692,17 +1709,17 @@ Number of packets not sent to a multicast or broadcast address. 64 bit version may not exist on all devices. -(B) (B) -(B) (B) +(C) (C) +(C) (C) =item $info->i_pkts_nucast_in(), $info->i_pkts_nucast_out(), Number of packets sent to a multicast or broadcast address. -These methods are depricated by i_pkts_multi_in() and i_pkts_bcast_in() -according to IF-MIB. Actual device usage may vary. +These methods are deprecated by i_pkts_multi_in() and i_pkts_bcast_in() +according to C. Actual device usage may vary. -(B) (B) +(C) (C) =item $info->i_pkts_multi_in() $info->i_pkts_multi_out(), $info->i_pkts_multi_in64(), $info->i_pkts_multi_out64() @@ -1711,8 +1728,8 @@ Number of packets sent to a multicast address. 64 bit version may not exist on all devices. -(B) (B) -(B) (B) +(C) (C) +(C) (C) =item $info->i_pkts_bcast_in() $info->i_pkts_bcast_out(), $info->i_pkts_bcast_in64() $info->i_pkts_bcast_out64() @@ -1721,17 +1738,17 @@ Number of packets sent to a broadcast address on an interface. 64 bit version may not exist on all devices. -(B) (B) -(B) (B) +(C) (C) +(C) (C) =item $info->i_discards_in() $info->i_discards_out() "The number of inbound packets which were chosen to be discarded even though no errors had been detected to prevent their being deliverable to a higher-layer protocol. One possible reason for discarding such a packet could -be to free up buffer space." (IF-MIB) +be to free up buffer space." (C) -(B) (B) +(C) (C) =item $info->i_bad_proto_in() @@ -1743,19 +1760,19 @@ were discarded because of an unknown or unsupported protocol. For any interface that does not support protocol multiplexing, this counter will always be 0." -(B) +(C) =item $info->i_qlen_out() "The length of the output packet queue (in packets)." -(B) +(C) =item $info->i_specific() -See IF-MIB for full description +See C for full description -(B) +(C) =back @@ -1770,25 +1787,25 @@ this is implemented in Layer3 Devices. Maps the IP Table to the IID -(B) +(C) =item $info->ip_table() Maps the Table to the IP address -(B) +(C) =item $info->ip_netmask() Gives netmask setting for IP table entry. -(B) +(C) =item $info->ip_broadcast() Gives broadcast address for IP table entry. -(B) +(C) =back @@ -1952,21 +1969,23 @@ Returns undef if failed, or the return value from SNMP::Session::set() (snmp_err =back -NOTE: You must be connected to your device with a C community string in order -for set operations to work. +NOTE: You must be connected to your device with a C community +string in order for set operations to work. -NOTE: This will only set data listed in %FUNCS and %GLOBALS. For data acquired from -overriden methods (subroutines) specific set_METHOD() subroutines will need to be -added if they haven't been already. +NOTE: This will only set data listed in %FUNCS and %GLOBALS. For data acquired +from overridden methods (subroutines) specific set_METHOD() subroutines will +need to be added if they haven't been already. =head1 Quiet Mode -SNMP::Info will not chirp anything to STDOUT unless there is a serious error (in which case it will probably -die). +SNMP::Info will not chirp anything to STDOUT unless there is a serious error +(in which case it will probably die). -To get lots of debug info, set the Debug flag when calling new() or call $info->debug(1); +To get lots of debug info, set the Debug flag when calling new() or +call $info->debug(1); -When calling a method check the return value. If the return value is undef then check $info->error() +When calling a method check the return value. If the return value is undef +then check $info->error() Beware, calling $info->error() clears the error. @@ -1976,8 +1995,7 @@ Beware, calling $info->error() clears the error. =head2 Data Structures required in new Subclass -A class inheriting this class must implement these data -structures : +A class inheriting this class must implement these data structures : =over @@ -2023,7 +2041,7 @@ the SNMP::Info methods. =item %FUNCS Contains a hash in the form ( method_name => SNMP MIB leaf name) -These are table entries, such as the IfIndex +These are table entries, such as the C To resolve MIB leaf name conflicts between private MIBs, you may prefix the leaf name with the MIB replacing each - (dash) and : (colon) with @@ -2099,7 +2117,7 @@ ALTEON-TS-PHYSICAL-MIB::agPortCurCfgPortName. A list of each mib needed. -('MIB-NAME' => 'itemToTestForPresence') +C<('MIB-NAME' => 'itemToTestForPresence')> The value for each entry should be a MIB object to check for to make sure that the MIB is present and has loaded correctly. @@ -2257,9 +2275,9 @@ These set the default value for an object upon creation. =item $DEBUG -Default 0. Sends copious debug info to stdout. This global sets the object's debug status -in new() unless 'Debug' argument passed in new(). Change objects' debug status with -$info->debug(). +Default 0. Sends copious debug info to stdout. This global sets the object's +debug status in new() unless 'Debug' argument passed in new(). Change objects' +debug status with $info->debug(). =cut @@ -2267,8 +2285,9 @@ $DEBUG = 0; =item $BIGINT -Default 0. Set to true to have 64 bit counters return Math::BigInt objects instead of scalar -string values. See note under Interface Statistics about 64 bit values. +Default 0. Set to true to have 64 bit counters return Math::BigInt objects +instead of scalar string values. See note under Interface Statistics about +64 bit values. =cut @@ -2276,8 +2295,8 @@ $BIGINT = 0; =item $NOSUCH -Default 1. Set to false to disable RetryNoSuch option for SNMP::Session. Or see method in new() -to do it on an object scope. +Default 1. Set to false to disable RetryNoSuch option for SNMP::Session. Or +see method in new() to do it on an object scope. =cut @@ -2285,8 +2304,8 @@ $NOSUCH = 1; =item $REPEATERS -Default 20. MaxRepeaters for BULKWALK operations. See C for more info. Can change -by passing L option in new() +Default 20. MaxRepeaters for BULKWALK operations. See C for +more info. Can change by passing L option in new() =cut @@ -2390,7 +2409,7 @@ sub munge_speed { =item munge_highspeed() -Makes human friendly speed ratings for ifHighSpeed +Makes human friendly speed ratings for C =cut @@ -2427,7 +2446,8 @@ sub munge_ip { =item munge_mac() -Takes an octet stream (HEX-STRING) and returns a colon separated ASCII hex string. +Takes an octet stream (HEX-STRING) and returns a colon separated ASCII hex +string. =cut @@ -2442,7 +2462,8 @@ sub munge_mac { =item munge_prio_mac() -Takes an 8-byte octet stream (HEX-STRING) and returns a colon separated ASCII hex string. +Takes an 8-byte octet stream (HEX-STRING) and returns a colon separated ASCII +hex string. =cut @@ -2513,12 +2534,12 @@ sub munge_counter64 { =item munge_i_up -There is a collision between data in IF-MIB and RFC-1213. -For devices that fully implement IF-MIB it might return 7 for -a port that is down. This munges the data against the IF-MIB +There is a collision between data in C and C. +For devices that fully implement C it might return 7 for +a port that is down. This munges the data against the C by hand. -TODO: Get the precidence of MIBs and overriding of MIB data in Net-SNMP +TODO: Get the precedence of MIBs and overriding of MIB data in Net-SNMP figured out. Heirarchy/precendence of MIBS in SNMP::Info. =cut @@ -2553,7 +2574,7 @@ sub munge_port_list { =back -=head2 Internaly Used Functions +=head2 Internally Used Functions =over @@ -2679,7 +2700,7 @@ sub mibs { =item $info->munge() -Returns a reference ot the %MUNGE hash. +Returns a reference of the %MUNGE hash. =cut @@ -2809,7 +2830,7 @@ sub _global{ Used internally by AUTOLOAD to run an SNMP set command for dynamic methods listed in either %GLOBALS or %FUNCS or a valid mib leaf from a loaded MIB or -the set_multi() method to set multiple varible in one command. When run +the set_multi() method to set multiple variable in one command. When run clears attr cache. Attr is passed as either a scalar for dynamic methods or a reference to an @@ -2900,13 +2921,13 @@ Pass either a reference to a 4 element array [, , , ] or a reference to an array of 4 element arrays to specify multiple values. - One of the following forms: - 1) leaf identifier (e.g., 'sysContact') + 1) leaf identifier (e.g., C<'sysContact'>) 2) An entry in either %FUNCS, %GLOBALS (e.g., 'contact') - The dotted-decimal, instance identifier. For scalar MIB objects use '0' - The SNMP data value being set (e.g., 'netdisco') - Optional as the MIB should be loaded. -If one of the set assigments is invalid, then the request will be rejected +If one of the set assignments is invalid, then the request will be rejected without applying any of the new values - regardless of the order they appear in the list. @@ -2931,8 +2952,8 @@ sub set_multi { =item $info->load_all() -Debugging routine. This does not include any overriden method or method implemented -by subroutine. +Debugging routine. This does not include any overridden method or method +implemented by subroutine. Runs $info->load_METHOD() for each entry in $info->funcs(); @@ -3172,7 +3193,7 @@ sub _load_attr { =item $info->_show_attr() -Used internaly by AUTOLOAD to return data called by methods listed in %FUNCS. +Used internally by AUTOLOAD to return data called by methods listed in %FUNCS. Called like $info->METHOD(). @@ -3404,7 +3425,7 @@ sub AUTOLOAD { } 1; -=head1 COPYRIGHT AND LICENCE +=head1 COPYRIGHT AND LICENSE Changes from SNMP::Info Version 0.7 and on are: Copyright (c)2003, 2004 Max Baker - All rights reserved. diff --git a/Info/Airespace.pm b/Info/Airespace.pm index 3dda1467..1e9f3b20 100644 --- a/Info/Airespace.pm +++ b/Info/Airespace.pm @@ -1,34 +1,34 @@ # SNMP::Info::Airespace -# Eric Miller # $Id$ # -# Copyright (c) 2005 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Airespace; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -647,7 +647,7 @@ sub i_80211channel { } -# Psuedo ENTITY-MIB methods +# Pseudo ENTITY-MIB methods sub e_index { my $airespace = shift; @@ -879,8 +879,8 @@ __END__ =head1 NAME -SNMP::Info::Airespace - SNMP Interface to data from AIRESPACE-WIRELESS-MIB -and AIRESPACE-SWITCHING-MIB +SNMP::Info::Airespace - SNMP Interface to data from F +and F =head1 AUTHOR @@ -904,7 +904,7 @@ Eric Miller =head1 DESCRIPTION SNMP::Info::Airespace is a subclass of SNMP::Info that provides an interface -to C and C. These MIBs are +to F and F. These MIBs are used in Airespace wireless switches, as well as, products from Cisco, Nortel, and Alcatel which are based upon the Airespace platform. @@ -931,9 +931,9 @@ None. =over -=item AIRESPACE-WIRELESS-MIB +=item F -=item AIRESPACE-SWITCHING-MIB +=item F =back @@ -945,79 +945,79 @@ These are methods that return scalar value from SNMP =item $airespace->airespace_type() -(B) +(C) =item $airespace->airespace_model() -(B) +(C) =item $airespace->airespace_serial() -(B) +(C) =item $airespace->airespace_maint_ver() -(B) +(C) =item $airespace->airespace_mac() -(B) +(C) =item $airespace->airespace_os() -(B) +(C) =item $airespace->airespace_vendor() -(B) +(C) =item $airespace->airespace_prod_name() -(B) +(C) =item $airespace->os_ver() -(B) +(C) =item $airespace->airespace_bssid_mode() -(B) +(C) =item $airespace->airespace_mc_mode() -(B) +(C) =item $airespace->airespace_lwapp_mode() The LWAPP transport mode decides if the switch is operating in the Layer2 or Layer3 mode. -(B) +(C) =item $airespace->airespace_ul_mode() Transfer upload mode configures the mode to use when uploading from the switch. Normal usage tftp. -(B) +(C) =item $airespace->airespace_ul_ip() -Transfer upload tftpserverip configures the IP address of the server. It is +Transfer upload tftp server ip configures the IP address of the server. It is valid only when the Transfer Mode is tftp. -(B) +(C) =item $airespace->airespace_ul_path() -Transfer upload tftppath configures the directory path where the file is to be +Transfer upload tftp path configures the directory path where the file is to be uploaded to. The switch remembers the last file path used. -(B) +(C) =item $airespace->airespace_ul_file() -(B) +(C) =item $airespace->airespace_ul_type() @@ -1030,15 +1030,15 @@ Transfer upload datatype configures the type of file to upload from the switch. traplog(5) crashfile(6) -(B) +(C) =item $airespace->airespace_ul_start() -(B) +(C) =item $airespace->airespace_ul_status() -(B) +(C) =back @@ -1053,7 +1053,7 @@ proprietary MIBs. =item $airespace->serial() -(B) +(C) =back @@ -1079,7 +1079,7 @@ interface. =back -=head2 Dot11 Ess Table (B) +=head2 Dot11 Ess Table (C) Ess(WLAN) Configuration Table. Maximum of 17 WLANs can be created on Airespace Switch. Index of 17 is reserved for WLAN for Third Party @@ -1089,33 +1089,33 @@ APs(non-Airespace APs). =item $airespace->airespace_ess_idx() -(B) +(C) =item $airespace->airespace_ess_ssid() SSID assigned to ESS(WLAN) -(B) +(C) =item $airespace->airespace_ess_macflt() Select to filter clients by MAC address. By selecting this Security, you need -to create MacFilters in B or have MacFilters configured on -Radius Servers specified in B +to create MAC Filters in C or have MAC Filters configured on +Radius Servers specified in C -(B) +(C) =item $airespace->airespace_ess_status() Administrative Status of ESS(WLAN). -(B) +(C) =item $airespace->airespace_ess_sec_auth() Type of 802.11 Authentication. -(B) +(C) =item $airespace->airespace_ess_radio_pol() @@ -1123,30 +1123,30 @@ Radio Policy for a WLAN. It can either be All where it will be applicable to ALL types of protocols or it can be set to apply to combinations of 802.11a, 802.11b, 802.11g. -(B) +(C) =item $airespace->airespace_ess_qos() Quality of Service for a WLAN. -(B) +(C) =item $airespace->airespace_ess_ifname() Name of the interface used by this WLAN. -(B) +(C) =item $airespace->airespace_ess_aclname() Name of ACL for the WLAN. This is applicable only when Web Authentication is enabled. -(B) +(C) =back -=head2 AP Table (B) +=head2 AP Table (C) Table of Airespace APs managed by this Airespace Switch. @@ -1156,55 +1156,55 @@ Table of Airespace APs managed by this Airespace Switch. The MAC address of the 802.3 interface of the AP. -(B) +(C) =item $airespace->airespace_ap_name() Name assigned to this AP. If an AP is not configured its factory default name -will be ap:. eg. ap:af:12:be +will be ap:. e.g. ap:af:12:be -(B) +(C) =item $airespace->airespace_ap_ip() Ip address of the AP. This will not be available when the switch is operating in the Layer2 mode. In this case, the attribute will return 0 as value. -(B) +(C) =item $airespace->airespace_ap_loc() User specified location of this AP. -(B) +(C) =item $airespace->airespace_ap_sw() -(B) +(C) =item $airespace->airespace_ap_fw() -(B) +(C) =item $airespace->airespace_ap_model() -(B) +(C) =item $airespace->airespace_ap_serial() -(B) +(C) =item $airespace->airespace_ap_type() -(B) +(C) =item $airespace->airespace_ap_status() -(B) +(C) =back -=head2 AP Interface Table (B) +=head2 AP Interface Table (C) Table of 802.11 interfaces in an Airespace APs. @@ -1212,44 +1212,44 @@ Table of 802.11 interfaces in an Airespace APs. =item $airespace->airespace_apif_slot() -The slotId of this interface. Value will be 0 for a 802.11a (5Ghz) interface +The slot Id of this interface. Value will be 0 for a 802.11a (5Ghz) interface and will be 1 for 802.11b/g (2.4Ghz) interface. -(B) +(C) =item $airespace->airespace_apif_type() -(B) +(C) =item $airespace->airespace_apif_ch_num() -(B) +(C) =item $airespace->airespace_apif_power() -The TxPowerLevel N currently being used to transmit data. +The transmit power level N currently being used to transmit data. -(B) +(C) =item $airespace->airespace_apif() -(B) +(C) =item $airespace->airespace_apif_oride() This flag when disabled implies that all WLANs are available from this radio. However, if this is enabled, then only those WLANs that appear in the -(B) will be available from this radio. +(C) will be available from this radio. -(B) +(C) =item $airespace->airespace_apif_admin() -(B) +(C) =back -=head2 Mobile Station Table (B) +=head2 Mobile Station Table (C) =over @@ -1257,36 +1257,36 @@ However, if this is enabled, then only those WLANs that appear in the Mac Address of the AP on which Mobile Station is associated. -(B) +(C) =item $airespace->airespace_sta_slot() -SlotId of APIf on which mobile station is associated. +Slot Id of AP If on which mobile station is associated. -(B) +(C) =item $airespace->airespace_sta_ess_idx() Ess Index of the Wlan(SSID) that is being used by Mobile Station to connect to the AP. -(B) +(C) =item $airespace->airespace_sta_ssid() The SSID Advertised by the Mobile Station. -(B) +(C) =item $airespace->airespace_sta_delete() Action to Deauthenticate the Mobile Station. Set the State to delete. -(B) +(C) =back -=head2 Users Table (B) +=head2 Users Table (C) The (conceptual) table listing Wlan Users. @@ -1294,47 +1294,47 @@ The (conceptual) table listing Wlan Users. =item $airespace->airespace_user_name() -User name. For MAC filters, this will be the MAC address (eg. 000123456789). +User name. For MAC filters, this will be the MAC address (e.g. 000123456789). -(B) +(C) =item $airespace->airespace_user_pw() User Password. For MAC filters, this will be "nopassword". -(B) +(C) =item $airespace->airespace_user_ess_idx() User WLAN ID. Value 0 implies that this applies to any WLAN ID. -(B) +(C) =item $airespace->airespace_user_access() For MAC filters, this will be "readOnly". -(B) +(C) =item $airespace->airespace_user_type() User Access Mode. For MAC filters, this will be "macFilter". -(B) +(C) =item $airespace->airespace_user_ifname() -ACL for MAC Filters. An interface name from B +ACL for MAC Filters. An interface name from C -(B) +(C) =item $airespace->airespace_user_rstat() -(B) +(C) =back -=head2 Black List Client Table (B) +=head2 Black List Client Table (C) The table listing Wlan Black Listed Clients @@ -1342,41 +1342,41 @@ The table listing Wlan Black Listed Clients =item $airespace->airespace_bl_mac() -(B) +(C) =item $airespace->airespace_bl_descr() -(B) +(C) =item $airespace->airespace_bl_rstat() -(B) +(C) =back -=head2 AP Interface WLAN Override Table (B) +=head2 AP Interface WLAN Override Table (C) Each entry represents an SSID added to the AP when the attribute -B on the radio is enabled. This means only those WLANs +C on the radio is enabled. This means only those WLANs on the switch that are added to this table will be available on such a radio. =over =item $airespace->airespace_oride_id() -Index of the WLAN (B) added to the radio. +Index of the WLAN (C) added to the radio. -(B) +(C) =item $airespace->airespace_oride_ssid() SSID assigned to the override WLAN. -(B) +(C) =back -=head2 Interface Config Table (B) +=head2 Interface Config Table (C) A table of the switch's Interface Config entries. Typically, it will contain entries for Service Port Interface, DS Port Interface and Virtual Gateway @@ -1386,17 +1386,17 @@ Interface apart from other entries. =item $airespace->airespace_if_name() -Interace Name. This values is 'management' for DS port, 'service-port' for +Interface Name. This values is 'management' for DS port, 'service-port' for service port and 'virtual' for virtual gateway. For other interfaces, the name can be anything. These interfaces are already created by default. -(B) +(C) =item $airespace->airespace_if_vlan() VLAN Id configured for the Interface. -(B) +(C) =item $airespace->airespace_if_type() @@ -1404,22 +1404,22 @@ The interface's type. The static type is set for the interfaces that are created by default on the switch and these cannot be deleted. Any other interface that is created is of type dynamic which can be deleted. -(B) +(C) =item $airespace->airespace_if_mac() Interface MAC Address. This is only applicable in case of management and service-port interfaces. -(B) +(C) =item $airespace->airespace_if_ip() -(B) +(C) =item $airespace->airespace_if_mask() -(B) +(C) =item $airespace->airespace_if_acl() @@ -1428,25 +1428,25 @@ applicable only to the management interface and other dynamic interfaces. If it is required to remove the ACL name for an interface, it should be set to an empty string. -(B) +(C) =item $airespace->airespace_if_rstat() -(B) +(C) =back -=head2 Port Config Table (B) +=head2 Port Config Table (C) =over =item $airespace->airespace_duplex_admin() -(B) +(C) =item $airespace->airespace_duplex() -(B) +(C) =back @@ -1458,7 +1458,7 @@ to an empty string. Returns reference to map of IIDs to Interface index. -Extends ifIndex to support thin APs and WLAN virtual interfaces as device +Extends C to support thin APs and WLAN virtual interfaces as device interfaces. =item $airespace->interfaces() @@ -1470,38 +1470,38 @@ use airespace_if_name() as the port identifier. =item $airespace->i_name() -Returns reference to map of IIDs to interface names. Returns B for +Returns reference to map of IIDs to interface names. Returns C for Ethernet interfaces, airespace_ap_name() for thin AP interfaces, and airespace_if_name() for virtual interfaces. =item $airespace->i_description() -Returns reference to map of IIDs to interface types. Returns B +Returns reference to map of IIDs to interface types. Returns C for Ethernet interfaces, airespace_ap_loc() for thin AP interfaces, and airespace_if_name() for virtual interfaces. =item $airespace->i_type() Returns reference to map of IIDs to interface descriptions. Returns -B for Ethernet interfaces, airespace_apif_type() for thin AP +C for Ethernet interfaces, airespace_apif_type() for thin AP interfaces, and airespace_if_type() for virtual interfaces. =item $airespace->i_up() Returns reference to map of IIDs to link status of the interface. Returns -B for Ethernet interfaces and airespace_apif() for thin AP +C for Ethernet interfaces and airespace_apif() for thin AP interfaces. =item $airespace->i_up_admin() Returns reference to map of IIDs to administrative status of the interface. -Returns B for Ethernet interfaces and airespace_apif_admin() +Returns C for Ethernet interfaces and airespace_apif_admin() for thin AP interfaces. =item $airespace->i_mac() Returns reference to map of IIDs to MAC address of the interface. Returns -B for Ethernet interfaces and airespace_if_mac() for virtual +C for Ethernet interfaces and airespace_if_mac() for virtual interfaces. =item $airespace->i_vlan() @@ -1539,14 +1539,14 @@ airespace_sta_slot() combined to match the interface iid. =item $airespace->fw_mac() -(B) +(C) =back -=head2 Psuedo ENTITY-MIB information +=head2 Pseudo F information -These methods emulate ENTITY-MIB Physical Table methods using -AIRESPACE-SWITCHING-MIB and AIRESPACE-WIRELESS-MIB. Thin APs are included +These methods emulate F Physical Table methods using +F and F. Thin APs are included as subcomponents of the wireless controller. =over @@ -1600,4 +1600,6 @@ Returns reference to hash. Key: IID, Value: Software revision. Returns reference to hash. Key: IID, Value: The value of e_index() for the entity which 'contains' this entity. +=back + =cut diff --git a/Info/Bridge.pm b/Info/Bridge.pm index 8902daca..fdd6d32b 100644 --- a/Info/Bridge.pm +++ b/Info/Bridge.pm @@ -1,39 +1,38 @@ # SNMP::Info::Bridge -# Max Baker +# $Id$ # # Changes since Version 0.7 Copyright (c) 2004 Max Baker # All rights reserved. # # Copyright (c) 2002,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. +# * 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. +# 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::Bridge; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -418,7 +417,7 @@ __END__ =head1 NAME SNMP::Info::Bridge - SNMP Interface to SNMP data available through the -BRIDGE-MIB (RFC1493) +F (RFC1493) =head1 AUTHOR @@ -454,10 +453,10 @@ Max Baker =head1 DESCRIPTION -BRIDGE-MIB is used by most Layer 2 devices, and holds information like the +F is used by most Layer 2 devices, and holds information like the MAC Forwarding Table and Spanning Tree Protocol info. -Q-BRIDGE-MIB holds 802.1q information -- VLANs and Trunking. Cisco tends not +F holds 802.1q information -- VLANs and Trunking. Cisco tends not to use this MIB, but some proprietary ones. HP and some nicer vendors use this. This is from C. @@ -476,15 +475,14 @@ None. =over -=item BRIDGE-MIB +=item F -=item Q-BRIDGE-MIB - -F +=item F =back -BRIDGE-MIB needs to be extracted from ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz +F needs to be extracted from +ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz =head1 GLOBAL METHODS @@ -496,58 +494,57 @@ These are methods that return scalar values from SNMP Returns the MAC Address of the root bridge port -(B) +(C) =item $bridge->b_ports() Returns the number of ports in device -(B) +(C) =item $bridge->b_type() Returns the type of bridging this bridge can perform, transparent and/or -sourceroute. +source route. -(B) +(C) =item $bridge->stp_ver() -Returns what version of STP the device is running. Either decLb100 or -ieee8021d. +Returns what version of STP the device is running. -(B) +(C) =item $bridge->stp_time() Returns time since last topology change detected. (100ths/second) -(B) +(C) =item $bridge->stp_root() Returns root of STP. -(B) +(C) =item $bridge->qb_vlans_max() Maximum number of VLANS supported on this device. -(B) +(C) =item $bridge->qb_vlans() Current number of VLANs that are configured in this device. -(B) +(C) =item $bridge->qb_next_vlan_index() -The next available value for B of a local VLAN entry in -B +The next available value for C of a local VLAN entry in +C -(B) +(C) =back @@ -560,12 +557,12 @@ to a hash. =item $bridge->i_vlan() -Returns a mapping between ifIndex and the PVID or default VLAN. +Returns a mapping between C and the PVID or default VLAN. =item $bridge->i_vlan_membership() -Returns reference to hash of arrays: key = ifIndex, value = array of VLAN IDs. -These are the VLANs which are members of the egress list for the port. +Returns reference to hash of arrays: key = C, value = array of VLAN +IDs. These are the VLANs which are members of the egress list for the port. Example: my $interfaces = $bridge->interfaces(); @@ -579,7 +576,7 @@ These are the VLANs which are members of the egress list for the port. =back -=head2 Forwarding Table (dot1dTpFdbEntry) +=head2 Forwarding Table (C) =over @@ -587,24 +584,24 @@ These are the VLANs which are members of the egress list for the port. Returns reference to hash of forwarding table MAC Addresses -(B) +(C) =item $bridge->fw_port() Returns reference to hash of forwarding table entries port interface identifier (iid) -(B) +(C) =item $bridge->fw_status() -Returns reference to hash of forwading table entries status +Returns reference to hash of forwarding table entries status -(B) +(C) =back -=head2 Bridge Port Table (dot1dBasePortEntry) +=head2 Bridge Port Table (C) =over @@ -613,20 +610,20 @@ Returns reference to hash of forwading table entries status Returns reference to hash of bridge port table entries map back to interface identifier (iid) -(B) +(C) =item $bridge->bp_port() Returns reference to hash of bridge port table entries for a port which -(potentially) has the same value of B as another port +(potentially) has the same value of C as another port on the same bridge, this object contains the name of an object instance unique to this port. -(B) +(C) =back -=head2 Spanning Tree Protocol Table (dot1dStpPortTable) +=head2 Spanning Tree Protocol Table (C) Descriptions are lifted straight from F @@ -637,15 +634,15 @@ Descriptions are lifted straight from F "The port number of the port for which this entry contains Spanning Tree Protocol management information." -(B) +(C) =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." +of the Port ID is given by the value of C." -(B) +(C) =item $bridge->stp_p_state() @@ -653,7 +650,7 @@ of the Port ID is given by the value of dot1dStpPort." 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)." +(see C), this object will have a value of disabled(1)." disabled(1) blocking(2) @@ -662,7 +659,7 @@ that port into the broken(6) state. For ports which are disabled forwarding(5) broken(6) -(B) +(C) =item $bridge->stp_p_cost() @@ -671,7 +668,7 @@ 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) +(C) =item $bridge->stp_p_root() @@ -679,39 +676,39 @@ LAN." Configuration BPDUs transmitted by the Designated Bridge for the segment to which the port is attached." -(B) +(C) =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) +(C) =item $bridge->stp_p_port() -(B) +(C) "The Port Identifier of the port on the Designated Bridge for this port's segment." =item $bridge->i_stp_port() -Returns the mapping of (B) to the interface +Returns the mapping of (C) to the interface index (iid). =item $bridge->i_stp_id() -Returns the mapping of (B) to the interface index (iid). +Returns the mapping of (C) to the interface index (iid). =item $bridge->i_stp_bridge() -Returns the mapping of (B) to the interface +Returns the mapping of (C) to the interface index (iid). =back -=head2 Q-BRIDGE Port VLAN Table (dot1qPortVlanTable) +=head2 Q-BRIDGE Port VLAN Table (C) =over @@ -720,14 +717,14 @@ index (iid). The PVID, the VLAN ID assigned to untagged frames or Priority-Tagged frames received on this port. -(B) +(C) =item $bridge->qb_i_vlan_type() Either C or C. This is a good spot to find trunk ports. -(B) +(C) =item $bridge->qb_i_vlan_in_flt() @@ -735,11 +732,11 @@ When this is C the device will discard incoming frames for VLANs which do not include this Port in its Member set. When C, the port will accept all incoming frames. -(B) +(C) =back -=head2 Q-BRIDGE VLAN Current Table (dot1qVlanCurrentTable) +=head2 Q-BRIDGE VLAN Current Table (C) =over @@ -747,24 +744,24 @@ accept all incoming frames. The set of ports which are assigned to the egress list for this VLAN. -(B) +(C) =item $bridge->qb_cv_untagged() The set of ports which should transmit egress packets for this VLAN as untagged. -(B) +(C) =item $bridge->qb_cv_stat() Status of the VLAN, other, permanent, or dynamicGvrp. -(B) +(C) =back -=head2 Q-BRIDGE VLAN Static Table (dot1qVlanStaticTable) +=head2 Q-BRIDGE VLAN Static Table (C) =over @@ -772,37 +769,37 @@ Status of the VLAN, other, permanent, or dynamicGvrp. Human-entered name for vlans. -(B) +(C) =item $bridge->qb_v_egress() The set of ports which are assigned to the egress list for this VLAN. -(B) +(C) =item $bridge->qb_v_fbdn_egress() The set of ports which are prohibited from being included in the egress list for this VLAN. -(B) +(C) =item $bridge->qb_v_untagged() The set of ports which should transmit egress packets for this VLAN as untagged. -(B) +(C) =item $bridge->qb_v_stat() -uhh. C ! +C ! -(B) +(C) =back -=head2 Q-BRIDGE Filtering Database Table (dot1qFdbTable) +=head2 Q-BRIDGE Filtering Database Table (C) =over @@ -810,19 +807,21 @@ uhh. C ! Returns reference to hash of forwarding table MAC Addresses -(B) +(C) =item $bridge->qb_fw_port() Returns reference to hash of forwarding table entries port interface identifier (iid) -(B) +(C) =item $bridge->qb_fw_status() -Returns reference to hash of forwading table entries status +Returns reference to hash of forwarding table entries status -(B) +(C) + +=back =cut diff --git a/Info/CDP.pm b/Info/CDP.pm index 07b2cae2..497fa102 100644 --- a/Info/CDP.pm +++ b/Info/CDP.pm @@ -1,5 +1,5 @@ # SNMP::Info::CDP -# Max Baker +# $Id$ # # Changes since Version 0.7 Copyright (c) 2004 Max Baker # All rights reserved. @@ -12,27 +12,27 @@ # # * 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. +# * 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. +# 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::CDP; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -214,8 +214,9 @@ Max Baker SNMP::Info::CDP is a subclass of SNMP::Info that provides an object oriented interface to CDP information through SNMP. -CDP is a Layer 2 protocol that supplies topology information of devices that also speak CDP, -mostly switches and routers. CDP is implemented in Cisco and some HP devices. +CDP is a Layer 2 protocol that supplies topology information of devices that +also speak CDP, mostly switches and routers. CDP is implemented in Cisco and +some HP devices. Create or use a device subclass that inherits this class. Do not use directly. @@ -230,7 +231,7 @@ None. =over -=item CISCO-CDP-MIB +=item F =back @@ -253,27 +254,28 @@ Accounts for SNMP version 1 devices which may have CDP but not cdp_run() Is CDP enabled on this device? Note that a lot of Cisco devices that implement CDP don't implement this value. @#%$! -(B) +(C) =item $cdp->cdp_interval() Interval in seconds at which CDP messages are generated. -(B) +(C) =item $cdp->cdp_holdtime() Time in seconds that CDP messages are kept. -(B) +(C) =item $cdp->cdp_id() Returns CDP device ID. -This is the device id broadcast via CDP to other devices, and is what is retrieved from remote devices with $cdp->id(). +This is the device id broadcast via CDP to other devices, and is what is +retrieved from remote devices with $cdp->id(). -(B) +(C) =back @@ -300,7 +302,7 @@ From L for a pointer to this information. +Thanks to Martin Lorensen C for a pointer to this +information. -(B) +(C) =item $cdp->c_domain() -Returns remote VTP Management Domain as defined in CISCO-VTP-MIB::managementDomainName +Returns remote VTP Management Domain as defined in +C -(B) +(C) =item $cdp->c_duplex() Returns the port duplex status from remote devices. -(B) +(C) =item $cdp->c_id() Returns remote device id string -(B) +(C) =item $cdp->c_if() @@ -343,8 +347,8 @@ Returns the mapping to the SNMP Interface Table. Note that a lot devices don't implement $cdp->c_index(), So if it isn't around, we fake it. -In order to map the cdp table entry back to the interfaces() entry, we truncate the last number -off of it : +In order to map the cdp table entry back to the interfaces() entry, we truncate +the last number off of it : # it exists, yay. my $c_index = $device->c_index(); @@ -368,54 +372,55 @@ off of it : Returns the mapping to the SNMP2 Interface table for CDP Cache Entries. -Most devices don't implement this, so you probably want to use $cdp->c_if() instead. +Most devices don't implement this, so you probably want to use $cdp->c_if() +instead. See c_if() entry. -(B) +(C) =item $cdp->c_ip() If $cdp->c_proto() is supported, returns remote IPV4 address only. Otherwise it will return all addresses. -(B) +(C) =item $cdp->c_addr() Returns remote address -(B) +(C) =item $cdp->c_platform() Returns remote platform id -(B) +(C) =item $cdp->c_port() Returns remote port ID -(B) +(C) =item $cdp->c_proto() Returns remote address type received. Usually IP. -(B) +(C) =item $cdp->c_ver() Returns remote hardware version -(B) +(C) =item $cdp->c_vlan() Returns the remote interface native VLAN. -(B) +(C) =back diff --git a/Info/CiscoConfig.pm b/Info/CiscoConfig.pm index 8e342518..69063ab1 100644 --- a/Info/CiscoConfig.pm +++ b/Info/CiscoConfig.pm @@ -1,32 +1,32 @@ # SNMP::Info::CiscoConfig -# Justin Hunter, Eric Miller # $Id$ # -# Redistribution and use in source and binary forms, with or without +# 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 +# * 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. +# +# 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::CiscoConfig; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -262,7 +262,7 @@ Justin Hunter, Eric Miller =head1 DESCRIPTION SNMP::Info::CiscoConfig is a subclass of SNMP::Info that provides an interface -to C, C, and C. +to F, F, and F. These MIBs facilitate the writing of configuration files. Use or create a subclass of SNMP::Info that inherits this one. @@ -280,11 +280,11 @@ None. =over -=item CISCO-CONFIG-COPY-MIB +=item F -=item CISCO-FLASH-MIB +=item F -=item OLD-CISCO-SYS-MIB +=item F =back @@ -296,11 +296,11 @@ These are methods that return scalar value from SNMP =item $ciscoconfig->old_write_mem() -(B) +(C) =item $ciscoconfig->old_write_net() -(B) +(C) =back @@ -313,65 +313,65 @@ to a hash. =back -=head2 Config Copy Request Table (B) +=head2 Config Copy Request Table (C) =over =item $ciscoconfig->config_protocol() -(B) +(C) =item $ciscoconfig->config_source_type() -(B) +(C) =item $ciscoconfig->config_dest_type() -(B) +(C) =item $ciscoconfig->config_server_addr() -(B) +(C) =item $ciscoconfig->config_filename() -(B) +(C) =item $ciscoconfig->config_username() -(B) +(C) =item $ciscoconfig->config_password() -(B) +(C) =item $ciscoconfig->config_notify_complete() -(B) +(C) =item $ciscoconfig->config_copy_state() -(B) +(C) =item $ciscoconfig->config_copy_start_time() -(B) +(C) =item $ciscoconfig->config_copy_complete_time() -(B) +(C) =item $ciscoconfig->config_fail_cause() -(B) +(C) =item $ciscoconfig->config_row_status() -(B) +(C) =back -=head2 Flash Copy Table (B) +=head2 Flash Copy Table (C) Table of Flash copy operation entries. @@ -379,27 +379,27 @@ Table of Flash copy operation entries. =item $ciscoconfig->flash_copy_cmd() -(B) +(C) =item $ciscoconfig->flash_copy_protocol() -(B) +(C) =item $ciscoconfig->flash_copy_address() -(B) +(C) =item $ciscoconfig->flash_copy_source() -(B) +(C) =item $ciscoconfig->flash_copy_dest() -(B) +(C) =item $ciscoconfig->flash_copy_row_status() -(B) +(C) =back @@ -418,7 +418,7 @@ commands "copy running-config tftp" or "write net". This method attempts to use newer "copy running-config tftp" procedure first and then the older "write net" procedure if that fails. The newer procedure is -supported Cisco devices with the CISCO-CONFIG-COPY-MIB available, Cisco IOS +supported Cisco devices with the F available, Cisco IOS software release 12.0 or on some devices as early as release 11.2P. The older procedure has been depreciated by Cisco and is utilized only to support devices running older code revisions. @@ -429,12 +429,12 @@ devices running older code revisions. =item $ciscoconfig->copy_run_start() -Copy the running configuration to the startup configuration. Equivalent to -the CLI command "copy running-config startup-config" or "write mem". +Copy the running configuration to the start up configuration. Equivalent to +the CLI command C<"copy running-config startup-config"> or C<"write mem">. -This method attempts to use newer "copy running-config startup-config" -procedure first and then the older "write mem" procedure if that fails. The -newer procedure is supported Cisco devices with the CISCO-CONFIG-COPY-MIB +This method attempts to use newer C<"copy running-config startup-config"> +procedure first and then the older C<"write mem"> procedure if that fails. The +newer procedure is supported Cisco devices with the F available, Cisco IOS software release 12.0 or on some devices as early as release 11.2P. The older procedure has been depreciated by Cisco and is utilized only to support devices running older code revisions. @@ -443,4 +443,6 @@ utilized only to support devices running older code revisions. $ciscoconfig->copy_run_start() or die "Couldn't save config. ",$ciscoconfig->error(1); +=back + =cut diff --git a/Info/CiscoImage.pm b/Info/CiscoImage.pm index dcca818d..61af7e60 100644 --- a/Info/CiscoImage.pm +++ b/Info/CiscoImage.pm @@ -3,28 +3,29 @@ package SNMP::Info::CiscoImage; # Copyright (c) 2005 Matt Tuttle # -# Redistribution and use in source and binary forms, with or without +# 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 +# * 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. +# +# 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. use strict; @@ -32,7 +33,7 @@ use Exporter; use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::CiscoImage::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CiscoImage::EXPORT_OK = qw//; @@ -93,7 +94,7 @@ None. =over -=item CISCO-IMAGE-MIB +=item F =back @@ -111,7 +112,7 @@ None. Returns the table of image strings. -B +C =back diff --git a/Info/CiscoPortSecurity.pm b/Info/CiscoPortSecurity.pm index 264b6127..0a49bb89 100644 --- a/Info/CiscoPortSecurity.pm +++ b/Info/CiscoPortSecurity.pm @@ -1,34 +1,34 @@ # SNMP::Info::CiscoPortSecurity -# Eric Miller +# $Id$ # -# Copyright (c) 2006 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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 the +# * 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. +# 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::CiscoPortSecurity; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -118,7 +118,7 @@ __END__ =head1 NAME SNMP::Info::CiscoPortSecurity - SNMP Interface to data from -CISCO-PORT-SECURITY-MIB and CISCO-PAE-MIB +F and F =head1 AUTHOR @@ -128,12 +128,11 @@ Eric Miller # Let SNMP::Info determine the correct subclass for you. my $cps = new SNMP::Info( - AutoSpecify => 1, - Debug => 1, - # These arguments are passed directly on to SNMP::Session - DestHost => 'myswitch', - Community => 'public', - Version => 2 + AutoSpecify => 1, + Debug => 1, + DestHost => 'myswitch', + Community => 'public', + Version => 2 ) or die "Can't connect to DestHost.\n"; @@ -143,7 +142,7 @@ Eric Miller =head1 DESCRIPTION SNMP::Info::CiscoPortSecurity is a subclass of SNMP::Info that provides -an interface to the C and C. These +an interface to the F and F. These MIBs are used across the Catalyst family under CatOS and IOS. Use or create in a subclass of SNMP::Info. Do not use directly. @@ -156,17 +155,14 @@ None. =over -=item CISCO-PORT-SECURITY-MIB +=item F -=item CISCO-PAE-MIB +=item F -=item IEEE8021-PAE-MIB +=item F =back -MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz or from -Netdisco-mib package at netdisco.org. - =head1 GLOBALS These are methods that return scalar values from SNMP @@ -175,185 +171,185 @@ These are methods that return scalar values from SNMP =back -=head2 CISCO-PORT-SECURITY-MIB globals +=head2 F globals =over =item $stack->cps_clear() -(B) +(C) =item $stack->cps_notify() -(B) +(C) =item $stack->cps_rate() -(B) +(C) =item $stack->cps_enable() -(B) +(C) =item $stack->cps_mac_count() -(B) +(C) =item $stack->cps_mac_max() -(B) +(C) =back =head1 TABLE METHODS -=head2 CISCO-PORT-SECURITY-MIB - Interface Config Table +=head2 F - Interface Config Table =over =item $stack->cps_i_limit_val() -(B) +(C) =item $stack->cps_i_limit() -(B) +(C) =item $stack->cps_i_sticky() -(B) +(C) =item $stack->cps_i_clear_type() -(B) +(C) =item $stack->cps_i_shutdown() -(B) +(C) =item $stack->cps_i_flood() -(B) +(C) =item $stack->cps_i_clear() -(B) +(C) =item $stack->cps_i_mac() -(B) +(C) =item $stack->cps_i_count() -(B) +(C) =item $stack->cps_i_action() -(B) +(C) =item $stack->cps_i_mac_static() -(B) +(C) =item $stack->cps_i_mac_type() -(B) +(C) =item $stack->cps_i_mac_age() -(B) +(C) =item $stack->cps_i_mac_count() -(B) +(C) =item $stack->cps_i_mac_max() -(B) +(C) =item $stack->cps_i_status() -(B) +(C) =item $stack->cps_i_enable() -(B) +(C) =back -=head2 CISCO-PORT-SECURITY-MIB::cpsIfVlanTable +=head2 C =over =item $stack->cps_i_v_mac_count() -(B) +(C) =item $stack->cps_i_v_mac_max() -(B) +(C) =item $stack->cps_i_v() -(B) +(C) =back -=head2 CISCO-PORT-SECURITY-MIB::cpsIfVlanSecureMacAddrTable +=head2 C =over =item $stack->cps_i_v_mac_status() -(B) +(C) =item $stack->cps_i_v_mac_age() -(B) +(C) =item $stack->cps_i_v_mac_type() -(B) +(C) =item $stack->cps_i_v_vlan() -(B) +(C) =item $stack->cps_i_v_mac() -(B) +(C) =back -=head2 CISCO-PORT-SECURITY-MIB::cpsSecureMacAddressTable +=head2 C =over =item $stack->cps_m_status() -(B) +(C) =item $stack->cps_m_age() -(B) +(C) =item $stack->cps_m_type() -(B) +(C) =item $stack->cps_m_mac() -(B) +(C) =back -=head2 CISCO-PAE-MIB::dot1xPaePortEntry +=head2 C =over =item $stack->pae_i_capabilities() -B +C Indicates the PAE functionality that this Port supports and that may be managed through this MIB. diff --git a/Info/CiscoPower.pm b/Info/CiscoPower.pm index fb8e6603..1e709255 100644 --- a/Info/CiscoPower.pm +++ b/Info/CiscoPower.pm @@ -1,34 +1,34 @@ # SNMP::Info::CiscoPower -# Bill Fenner +# $Id$ # -# Copyright (c) 2007 Bill Fenner +# Copyright (c) 2008 Bill Fenner # # 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. +# * 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. +# 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::CiscoPower; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -73,9 +73,12 @@ sub peth_port_ifindex { 1; +__END__ + =head1 NAME -SNMP::Info::CiscoPower - SNMP Interface to data stored in CISCO-POWER-ETHERNET-EXT-MIB. +SNMP::Info::CiscoPower - SNMP Interface to data stored in +F. =head1 AUTHOR @@ -87,7 +90,6 @@ Bill Fenner my $poe = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -100,8 +102,8 @@ Bill Fenner =head1 DESCRIPTION The Info::PowerEthernet class needs a per-device helper function to -properly map the pethPsePortTable to ifIndex values. This class -provides that helper, using CISCO-POWER-ETHERNET-EXT-MIB. +properly map the C to C values. This class +provides that helper, using F. It does not define any helpers for the extra values that this MIB contains. @@ -121,7 +123,7 @@ Note that it requires that the device inherits from Info::Entity. =over -=item CISCO-POWER-ETHERNET-EXT-MIB +=item F =back @@ -140,7 +142,7 @@ to a hash. =item $poe->peth_port_ifindex() -Maps the pethPsePortTable to ifIndex by way of the ENTITY-MIB. +Maps the C to C by way of the F. =back diff --git a/Info/CiscoQOS.pm b/Info/CiscoQOS.pm index 7ffd43a7..9b47bea8 100644 --- a/Info/CiscoQOS.pm +++ b/Info/CiscoQOS.pm @@ -1,5 +1,5 @@ # SNMP::Info::CiscoQOS -# Alexander Hartmaier +# $Id$ # # Copyright (c) 2005 Alexander Hartmaier # @@ -10,28 +10,28 @@ # # * 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. +# * 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. +# 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::CiscoQOS; -$VERSION = '1.07'; +$VERSION = '1.09'; -# $Id$ use strict; use Exporter; @@ -90,7 +90,6 @@ Alexander Hartmaier my $qos = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -115,7 +114,7 @@ none. =over -=item CISCO-CLASS-BASED-QOS-MIB +=item F =back @@ -131,87 +130,89 @@ MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz =head1 TABLE METHODS -=head2 ServicePolicy Table (B) +=head2 Service Policy Table (C) -This table describes the interfaces/media types and the policymap that are +This table describes the interfaces/media types and the policy map that are attached to it. =over =item $qos->qos_i_index() -(B) +(C) =item $qos->qos_i_type() -(B) +(C) =item $qos->qos_pol_direction() -(B) +(C) =back -=head2 ClassMap Objects Table (B) +=head2 Class Map Objects Table (C) =over =item $qos->qos_obj_index() -(B) +(C) =item $qos->qos_obj_type() -(B) +(C) =item $qos->qos_obj_parent() -(B) +(C) =back -=head2 ClassMap Configuration Table (B) +=head2 Class Map Configuration Table (C) =over =item $qos->qos_cm_name() -(B) +(C) =item $qos->qos_cm_desc() -(B) +(C) =item $qos->qos_cm_info() -(B) +(C) =back -=head2 ClassMap Stats Table (B) +=head2 Class Map Stats Table (C) =over =item $qos->qos_octet_pre() -(B) +(C) =item $qos->qos_octet_post() -(B) +(C) =back -=head2 Queueing Configuration Table (B) +=head2 Queueing Configuration Table (C) =over =item $qos->qos_queueingcfg_bw() -(B) +(C) =item $qos->qos_queueingcfg_bw_units() -(B) +(C) + +=back =cut diff --git a/Info/CiscoRTT.pm b/Info/CiscoRTT.pm index 7106063c..405d251c 100644 --- a/Info/CiscoRTT.pm +++ b/Info/CiscoRTT.pm @@ -1,5 +1,4 @@ # SNMP::Info::CiscoRTT -# Alexander Hartmaier # $Id$ # # Copyright (c) 2005 Alexander Hartmaier @@ -11,26 +10,27 @@ # # * 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. +# * 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. +# 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::CiscoRTT; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -75,7 +75,6 @@ Alexander Hartmaier my $rtt = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -100,7 +99,7 @@ none. =over -=item CISCO-RTTMON-MIB +=item F =back @@ -118,25 +117,25 @@ None =head2 Overall Control Group Table -This table is from CISCO-RTTMAN-MIB::rttMonCtrlAdminTable +This table is from C =over =item $rtt->rtt_desc() -(B) +(C) =back =head2 Overall Control Group Table -This table is from CISCO-RTTMON-MIB::rttMonCtrl +This table is from C =over =item $rtt->rtt_last() -(B) +(C) =back diff --git a/Info/CiscoStack.pm b/Info/CiscoStack.pm index 49ed985e..3c3a2938 100644 --- a/Info/CiscoStack.pm +++ b/Info/CiscoStack.pm @@ -1,7 +1,7 @@ # SNMP::Info::CiscoStack -# Max Baker +# $Id$ # -# Copyright (c)2003,2004,2006 Max Baker +# Copyright (c) 2008 Max Baker # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -9,27 +9,27 @@ # # * 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 the +# * 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. +# 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::CiscoStack; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -272,8 +272,8 @@ __END__ =head1 NAME -SNMP::Info::CiscoStack - SNMP Inteface to data from CISCO-STACK-MIB and -CISCO-PORT-SECURITY-MIB +SNMP::Info::CiscoStack - SNMP Interface to data from F and +F =head1 AUTHOR @@ -285,7 +285,6 @@ Max Baker my $ciscostats = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -311,56 +310,53 @@ none. =over -=item CISCO-STACK-MIB +=item F =back -MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz or from -Netdisco-mib package at netdisco.org. - =head1 GLOBALS =over =item $stack->broadcast() -(B) +(C) =item $stack->fan() -(B) +(C) =item $stack->model() -(B) +(C) =item $stack->netmask() -(B) +(C) =item $stack->ps1_type() -(B) +(C) =item $stack->ps2_type() -(B) +(C) =item $stack->ps1_status() -(B) +(C) =item $stack->ps2_status() -(B) +(C) =item $stack->serial() -(B) or (B) +(C) or (C) =item $stack->slots() -(B) +(C) =back @@ -378,34 +374,34 @@ Returns a map to IID for ports that are physical ports, not vlans, etc. Crosses p_port() with p_type() and returns the results. -Overrides with ifType if p_type() isn't available. +Overrides with C if p_type() isn't available. =item $stack->i_duplex() Returns reference to hash of iid to current link duplex setting. First checks for fixed gigabit ports which are always full duplex. Next, if -the port is not operational and reported port duplex (B) is auto +the port is not operational and reported port duplex (C) is auto then the operational duplex can not be determined. Otherwise it uses the -reported port duplex (B). +reported port duplex (C). =item $stack->i_duplex_admin() Returns reference to hash of iid to administrative duplex setting. First checks for fixed gigabit ports which are always full duplex. Next checks -the port administrative speed (B) which if set to +the port administrative speed (C) which if set to autonegotiate then the duplex will also autonegotiate, otherwise it uses the -reported port duplex (B). +reported port duplex (C). =item $stack->set_i_speed_admin(speed, ifIndex) - Sets port speed, must be supplied with speed and port ifIndex + Sets port speed, must be supplied with speed and port C Speed choices are 'auto', '10', '100', '1000' Crosses $stack->p_port() with $stack->p_duplex() to - utilize port ifIndex. + utilize port C. Example: my %if_map = reverse %{$stack->interfaces()}; @@ -414,12 +410,12 @@ reported port duplex (B). =item $stack->set_i_duplex_admin(duplex, ifIndex) - Sets port duplex, must be supplied with duplex and port ifIndex + Sets port duplex, must be supplied with duplex and port C Speed choices are 'auto', 'half', 'full' Crosses $stack->p_port() with $stack->p_duplex() to - utilize port ifIndex. + utilize port C. Example: my %if_map = reverse %{$stack->interfaces()}; @@ -437,27 +433,27 @@ the Catalyst device. =item $stack->m_type() -(B) +(C) =item $stack->m_model() -(B) +(C) =item $stack->m_serial() -(B) +(C) =item $stack->m_status() -(B) +(C) =item $stack->m_name() -(B) +(C) =item $stack->m_ports() -(B) +(C) =item $stack->m_ports_status() @@ -468,31 +464,31 @@ To see the status of port 4 : @ports_status = split(' ', $stack->m_ports_status() ); $port4 = $ports_status[3]; -(B) +(C) =item $stack->m_ports_hwver() -(B) +(C) =item $stack->m_ports_fwver() -(B) +(C) =item $stack->m_ports_swver() -(B) +(C) =item $stack->m_ports_ip() -(B) +(C) =item $stack->m_ports_sub1() -(B) +(C) =item $stack->m_ports_sub2() -(B) +(C) =back @@ -502,49 +498,49 @@ To see the status of port 4 : =item $stack->m_ip() -(B) +(C) =item $stack->m_sub1() -(B) +(C) =item $stack->m_sub2() -(B) +(C) =back -=head2 Port Entry Table (CISCO-STACK-MIB::portTable) +=head2 Port Entry Table (C) =over =item $stack->p_name() -(B) +(C) =item $stack->p_type() -(B) +(C) =item $stack->p_status() -(B) +(C) =item $stack->p_status2() -(B) +(C) =item $stack->p_speed() -(B) +(C) =item $stack->p_duplex() -(B) +(C) =item $stack->p_port() -(B) +(C) =item $stack->p_rx_flow_control() @@ -554,7 +550,7 @@ Can be either C C or C could not agree with the far end on a link protocol, its operational status will be disagree(3)." -B +C =item $stack->p_tx_flow_control() @@ -564,7 +560,7 @@ Can be either C C or C port could not agree with the far end on a link protocol, its operational status will be disagree(3)." -B +C =item $stack->p_rx_flow_control_admin() @@ -576,7 +572,7 @@ control. If the status is set to off(2), the port will not allow far end to send flow control. If the status is set to desired(3), the port will allow the far end to send the flow control." -B +C =item $stack->p_tx_flow_control_admin() @@ -588,21 +584,21 @@ the status is set to off(2), the port will not send flow control to the far end. If the status is set to desired(3), the port will send flow control to the far end if the far end supports it." -B +C =back -=head2 Port Capability Table (CISCO-STACK-MIB::portCpbTable) +=head2 Port Capability Table (C) =over =item $stack->p_speed_admin() -(B) +(C) =item $stack->p_duplex_admin() -(B) +(C) =back diff --git a/Info/CiscoStats.pm b/Info/CiscoStats.pm index 99a32eb0..44850a1d 100644 --- a/Info/CiscoStats.pm +++ b/Info/CiscoStats.pm @@ -1,7 +1,7 @@ # SNMP::Info::CiscoStats -# Max Baker +# $Id$ # -# Changes since Version 0.7 Copyright (c) 2004 Max Baker +# Changes since Version 0.7 Copyright (c) 2008 Max Baker # All rights reserved. # # Copyright (c) 2003 Regents of the University of California @@ -12,27 +12,27 @@ # # * 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. +# * 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. +# 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::CiscoStats; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -233,21 +233,21 @@ None. =over -=item CISCO-PRODUCTS-MIB +=item F -=item CISCO-PROCESS-MIB +=item F -=item CISCO-MEMORY-POOL-MIB +=item F -=item SNMPv2-MIB +=item F -=item OLD-CISCO-SYSTEM-MIB +=item F -=item CISCO-STACK-MIB +=item F -=item CISCO-ENTITY-VENDORTYPE-OID-MIB +=item F -=item CISCO-FLASH-MIB +=item F =back @@ -275,78 +275,79 @@ Returns mem_free() + mem_used() =item $ciscostats->os() -Trys to parse if device is running IOS or CatOS from description() +Tries to parse if device is running IOS or CatOS from description() =item $ciscostats->os_ver() -Trys to parse device operating system version from description() +Tries to parse device operating system version from description() =item $ciscostats->ios_cpu() Current CPU usage in percent. -B<1.3.6.1.4.1.9.2.1.56.0> = -B +C<1.3.6.1.4.1.9.2.1.56.0> = +C =item $ciscostats->ios_cpu_1min() Average CPU Usage in percent over the last minute. -B<1.3.6.1.4.1.9.2.1.57.0> +C<1.3.6.1.4.1.9.2.1.57.0> =item $ciscostats->ios_cpu_5min() Average CPU Usage in percent over the last 5 minutes. -B<1.3.6.1.4.1.9.2.1.58.0> +C<1.3.6.1.4.1.9.2.1.58.0> =item $ciscostats->cat_cpu() Current CPU usage in percent. -B +C =item $ciscostats->cat_cpu_1min() Average CPU Usage in percent over the last minute. -B +C =item $ciscostats->cat_cpu_5min() Average CPU Usage in percent over the last 5 minutes. -B +C =item $ciscostats->mem_free() Main DRAM free of the device in bytes. -B +C =item $ciscostats->mem_used() Main DRAM used of the device in bytes. -B +C =item $ciscostats->mem_total() Main DRAM of the device in bytes. -B + B +C + +C =item $ciscostats->flashmem_total() Flash memory of the device in bytes. -B +C =back =head1 TABLE METHODS -=head2 Cisco Memory Pool Table (B) +=head2 Cisco Memory Pool Table (C) =over @@ -355,18 +356,18 @@ B The number of bytes from the memory pool that are currently unused on the managed device. -(B) +(C) =item $ciscostats->cisco_mem_used() The number of bytes from the memory pool that are currently in use by applications on the managed device. -(B) +(C) =back -=head2 Cisco Flash Device Table (B) +=head2 Cisco Flash Device Table (C) =over @@ -375,6 +376,8 @@ applications on the managed device. Total size of the Flash device. For a removable device, the size will be zero if the device has been removed. -(B) +(C) + +=back =cut diff --git a/Info/CiscoVTP.pm b/Info/CiscoVTP.pm index 94494c11..b5138593 100644 --- a/Info/CiscoVTP.pm +++ b/Info/CiscoVTP.pm @@ -1,7 +1,7 @@ # SNMP::Info::CiscoVTP -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::CiscoVTP; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -426,7 +426,6 @@ Max Baker my $vtp = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -439,7 +438,7 @@ Max Baker =head1 DESCRIPTION SNMP::Info::CiscoVTP is a subclass of SNMP::Info that provides -information about a Cisco device's VLAN and VTP Domain memebership. +information about a Cisco device's VLAN and VTP Domain membership. Use or create in a subclass of SNMP::Info. Do not use directly. @@ -451,11 +450,11 @@ None. =over -=item CISCO-VTP-MIB +=item F -=item CISCO-VLAN-MEMBERSHIP-MIB +=item F -=item CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB +=item F =back @@ -467,27 +466,27 @@ MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz =item $vtp->vtp_version() -(B) +(C) =item $vtp->vtp_maxstore() -(B) +(C) =item $vtp->vtp_notify() -(B) +(C) =item $vtp->vtp_notify_create() -(B) +(C) =item $vtp->vtp_notify_delete() -(B) +(C) =item $vtp->vtp_trunk_set_serial() -(B) +(C) =back @@ -499,13 +498,13 @@ Your device will only implement a subset of these methods. =item $vtp->i_vlan() -Returns a mapping between ifIndex and assigned VLAN ID for access ports and the -default VLAN ID for trunk ports. +Returns a mapping between C and assigned VLAN ID for access ports +and the default VLAN ID for trunk ports. =item $vtp->i_vlan_membership() -Returns reference to hash of arrays: key = ifIndex, value = array of VLAN IDs. -These are the VLANs which are members of enabled VLAN list for the port. +Returns reference to hash of arrays: key = C, value = array of VLAN +IDs. These are the VLANs which are members of enabled VLAN list for the port. Example: my $interfaces = $vtp->interfaces(); @@ -519,88 +518,88 @@ These are the VLANs which are members of enabled VLAN list for the port. =back -=head2 VLAN Table (B) +=head2 VLAN Table (C) -See ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html +See L for a good treaty of how to connect to the VLANs =over =item $vtp->v_index() -(B) +(C) =item $vtp->v_state() -(B) +(C) =item $vtp->v_type() -(B) +(C) =item $vtp->v_name() -(B) +(C) =item $vtp->v_mtu() -(B) +(C) =item $vtp->v_said() -(B) +(C) =item $vtp->v_ring() -(B) +(C) =item $vtp->v_bridge() -(B) +(C) =item $vtp->v_stp() -(B) +(C) =item $vtp->v_parent() -(B) +(C) =item $vtp->v_trans1() -(B) +(C) =item $vtp->v_trans2() -(B) +(C) =item $vtp->v_btype() -(B) +(C) =item $vtp->v_hop_are() -(B) +(C) =item $vtp->v_hop_ste() -(B) +(C) =item $vtp->v_crf() -(B) +(C) =item $vtp->v_type_ext() -(B) +(C) =item $vtp->v_if() -(B) +(C) =back -=head2 VLAN Membership Table (B) +=head2 VLAN Membership Table (C) =over @@ -608,161 +607,162 @@ for a good treaty of how to connect to the VLANs Static, Dynamic, or multiVlan. -(B) +(C) =item $vtp->i_vlan2() The VLAN that an access port is assigned to. -(B) +(C) =item $vtp->i_vlan_stat() Inactive, active, shutdown. -(B) +(C) =item $vtp->i_vlan_1() Each bit represents a VLAN. This is 0 through 1023 -(B) +(C) =item $vtp->i_vlan_2() Each bit represents a VLAN. This is 1024 through 2047 -(B) +(C) =item $vtp->i_vlan_3() Each bit represents a VLAN. This is 2048 through 3071 -(B) +(C) =item $vtp->i_vlan_4() Each bit represents a VLAN. This is 3072 through 4095 -(B) +(C) =back -=head2 VLAN Membership Voice VLAN Table (B) +=head2 VLAN Membership Voice VLAN Table +(C) =over =item $vtp->i_voice_vlan() -(B) +(C) =back -=head2 Managment Domain Table (B) +=head2 Management Domain Table (C) =over =item $vtp->vtp_d_index() -(B) +(C) =item $vtp->vtp_d_name() -(B) +(C) =item $vtp->vtp_d_mode() -(B) +(C) =item $vtp->vtp_d_rev() -(B) +(C) =item $vtp->vtp_d_updater() -(B) +(C) =item $vtp->vtp_d_last() -(B) +(C) =item $vtp->vtp_d_status() -(B) +(C) =item $vtp->vtp_d_tftp() -(B) +(C) =item $vtp->vtp_d_tftp_path() -(B) +(C) =item $vtp->vtp_d_pruning() -(B) +(C) =item $vtp->vtp_d_ver() -(B) +(C) =back -=head2 VLAN Trunk Port Table (B) +=head2 VLAN Trunk Port Table (C) =over =item $vtp->vtp_trunk_mgmt_dom() -(B) +(C) =item $vtp->vtp_trunk_encaps_t() -(B) +(C) =item $vtp->vtp_trunk_vlans() -(B) +(C) =item $vtp->vtp_trunk_vlans_2k() -(B) +(C) =item $vtp->vtp_trunk_vlans_3k() -(B) +(C) =item $vtp->vtp_trunk_vlans_4k() -(B) +(C) =item $vtp->vtp_trunk_native() -(B) +(C) =item $vtp->i_pvid() -(B) +(C) =item $vtp->vtp_trunk_rstat() -(B) +(C) =item $vtp->vtp_trunk_dyn() -(B) +(C) =item $vtp->vtp_trunk_dyn_stat() -(B) +(C) =item $vtp->vtp_trunk_vtp() -(B) +(C) =item $vtp->vtp_trunk_encaps() -(B) +(C) =back @@ -777,7 +777,7 @@ L for general information on set operations. =item $vtp->set_i_vlan ( vlan, ifIndex ) Changes an access (untagged) port VLAN, must be supplied with the numeric -VLAN ID and port ifIndex. This method should only be used on end station +VLAN ID and port C. This method should only be used on end station (non-trunk) ports. Example: @@ -788,7 +788,7 @@ VLAN ID and port ifIndex. This method should only be used on end station =item $vtp->set_i_pvid ( pvid, ifIndex ) Sets port default VLAN, must be supplied with the numeric VLAN ID and -port ifIndex. This method should only be used on trunk ports. +port C. This method should only be used on trunk ports. Example: my %if_map = reverse %{$vtp->interfaces()}; @@ -798,7 +798,7 @@ port ifIndex. This method should only be used on trunk ports. =item $vtp->set_add_i_vlan_tagged ( vlan, ifIndex ) Adds the VLAN to the enabled VLANs list of the port, must be supplied with the -numeric VLAN ID and port ifIndex. +numeric VLAN ID and port C. Example: my %if_map = reverse %{$vtp->interfaces()}; @@ -808,11 +808,13 @@ numeric VLAN ID and port ifIndex. =item $vtp->set_remove_i_vlan_tagged ( vlan, ifIndex ) Removes the VLAN from the enabled VLANs list of the port, must be supplied -with the numeric VLAN ID and port ifIndex. +with the numeric VLAN ID and port C. Example: my %if_map = reverse %{$vtp->interfaces()}; $vtp->set_remove_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) or die "Couldn't add port to egress list. ",$vtp->error(1); +=back + =cut diff --git a/Info/Entity.pm b/Info/Entity.pm index 54252a98..25e1cb02 100644 --- a/Info/Entity.pm +++ b/Info/Entity.pm @@ -1,7 +1,7 @@ # SNMP::Info::Entity -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::Entity; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -118,11 +118,14 @@ sub munge_e_type { return $name if defined($name); return $oid; } + 1; +__END__ + =head1 NAME -SNMP::Info::Entity - SNMP Interface to data stored in ENTITY-MIB. RFC 2737 +SNMP::Info::Entity - SNMP Interface to data stored in F. RFC 2737 =head1 AUTHOR @@ -134,7 +137,6 @@ Max Baker my $entity = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -146,7 +148,8 @@ Max Baker =head1 DESCRIPTION -ENTITY-MIB is used by Layer 2 devices from HP,Aironet,Foundry,Cisco and more. +F is used by Layer 2 devices from HP, Aironet, Foundry, Cisco, +and more. See RFC 2737 for full details. @@ -164,7 +167,7 @@ none. =over -=item ENTITY-MIB +=item F =back @@ -253,7 +256,7 @@ More computer friendly name of entity. Parse me. =item $entity->e_port() -Maps EntityTable entries to the Interface Table (IfTable) using +Maps Entity Table entries to the Interface Table (C) using $entity->e_map() =item $entity->e_pos() diff --git a/Info/EtherLike.pm b/Info/EtherLike.pm index 914bf698..bc423690 100644 --- a/Info/EtherLike.pm +++ b/Info/EtherLike.pm @@ -1,7 +1,7 @@ # SNMP::Info::EtherLike -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::EtherLike; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -91,7 +91,7 @@ __END__ =head1 NAME -SNMP::Info::EtherLike - SNMP Interface to SNMP ETHERLIKE-MIB RFC 1398 +SNMP::Info::EtherLike - SNMP Interface to SNMP F RFC 1398 =head1 AUTHOR @@ -126,11 +126,13 @@ Max Baker =head1 DESCRIPTION SNMP::Info::EtherLike is a subclass of SNMP::Info that supplies -access to the ETHERLIKE-MIB used by some Layer 3 Devices such as Cisco routers. +access to the F used by some Layer 3 Devices such as +Cisco routers. See RFC 1398 for more details. -Use or create a subclass of SNMP::Info that inherits this one. Do not use directly. +Use or create a subclass of SNMP::Info that inherits this one. Do not use +directly. =head2 Inherited Classes @@ -140,7 +142,7 @@ None. =over -=item ETHERLIKE-MIB +=item F =back @@ -161,7 +163,7 @@ These are methods that return scalar values from SNMP These are methods that return tables of information in the form of a reference to a hash. -=head2 ETHERLIKE STATS TABLE (dot3StatsTable) +=head2 ETHERLIKE STATS TABLE (C) =over @@ -169,77 +171,77 @@ to a hash. Returns reference to hash. Indexes Stats Table to the interface index (iid). -(B) +(C) =item $el->el_duplex() Returns reference to hash. Indexes Stats Table to Duplex Status of port. -(B) +(C) =item $el->el_chipset() -(B) +(C) =item $el->el_coll_excess() -(B) +(C) =item $el->el_coll_late() -(B) +(C) =item $el->el_coll_mult() -(B) +(C) =item $el->el_coll_single() -(B) +(C) =item $el->el_error_alignment() -(B) +(C) =item $el->el_error_fcs() -(B) +(C) =item $el->el_error_cs() -(B) +(C) =item $el->el_error_frame() -(B) +(C) =item $el->el_error_mac_rec() -(B) +(C) =item $el->el_error_mac_xmit() -(B) +(C) =item $el->el_error_sqe() -(B) +(C) =item $el->el_error_symbol() -(B) +(C) =item $el->el_xmit_defer() -(B) +(C) =item $el->el_coll_count() -(B) +(C) =item $el->el_coll_freq() -(B) +(C) =back diff --git a/Info/FDP.pm b/Info/FDP.pm index cde4256b..ae1091c4 100644 --- a/Info/FDP.pm +++ b/Info/FDP.pm @@ -1,8 +1,7 @@ # SNMP::Info::FDP -# Bruce Rodger # $Id$ # -# (c) 2004 Bruce Rodger, Max Baker +# Copyright (c) 2008 Bruce Rodger, Max Baker # All rights reserved. # # Copyright (c) 2002,2003 Regents of the University of California @@ -13,23 +12,24 @@ # # * 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. +# * 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. +# 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::FDP; @@ -42,7 +42,7 @@ use SNMP::Info; @SNMP::Info::FDP::EXPORT_OK = qw//; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; -$VERSION = '1.07'; +$VERSION = '1.09'; %MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' @@ -204,17 +204,13 @@ None. =over -=item FOUNDRY-SN-SWITCH-GROUP-MIB +=item F Needs a reasonably recent MIB. Works OK with B2R07604A.mib, but doesn't work with B2R07600C. - =back -MIBs are normally distributed with each code update. Contact your vendor, -or trawl through google... - =head1 GLOBAL METHODS These are methods that return scalar values from SNMP @@ -231,27 +227,28 @@ Accounts for SNMP version 1 devices which may have FDP but not fdp_run() Is FDP enabled on this device? -(B) +(C) =item $fdp->fdp_interval() Interval in seconds at which FDP messages are generated. -(B) +(C) =item $fdp->fdp_holdtime() Time in seconds that FDP messages are kept. -(B) +(C) =item $fdp->fdp_id() Returns FDP device ID. -This is the device id broadcast via FDP to other devices, and is what is retrieved from remote devices with $fdp->id(). +This is the device id broadcast via FDP to other devices, and is what is +retrieved from remote devices with $fdp->id(). -(B) +(C) =back @@ -278,7 +275,7 @@ From L for a pointer to this information. +Thanks to Martin Lorensen C for a pointer to +this information. -(B) +(C) =item $fdp->fdp_domain() -The CDP version of this returns remote VTP Management Domain as defined in CISCO-VTP-MIB::managementDomainName +The CDP version of this returns remote VTP Management Domain as defined +in C -(B) +(C) =item $fdp->fdp_duplex() Returns the port duplex status from remote devices. -(B) +(C) =item $fdp->fdp_id() Returns remote device id string -(B) +(C) =item $fdp->fdp_if() Returns the mapping to the SNMP Interface Table. -Note that a lot devices don't implement $fdp->fdp_index(), So if it isn't around, -we fake it. +Note that a lot devices don't implement $fdp->fdp_index(), So if it isn't +around, we fake it. -In order to map the fdp table entry back to the interfaces() entry, we truncate the last number -off of it : +In order to map the fdp table entry back to the interfaces() entry, we +truncate the last number off of it : # it exists, yay. my $fdp_index = $device->fdp_index(); @@ -346,47 +345,48 @@ off of it : Returns the mapping to the SNMP2 Interface table for FDP Cache Entries. -Most devices don't implement this, so you probably want to use $fdp->fdp_if() instead. +Most devices don't implement this, so you probably want to use $fdp->fdp_if() +instead. See fdp_if() entry. -(B) +(C) =item $fdp->fdp_ip() Returns remote IP address -(B) +(C) =item $fdp->fdp_platform() Returns remote platform id -(B) +(C) =item $fdp->fdp_port() Returns remote port ID -(B) +(C) =item $fdp->fdp_proto() Returns remote address type received. Usually IP. -(B) +(C) =item $fdp->fdp_ver() Returns remote hardware version -(B) +(C) =item $fdp->fdp_vlan() Returns the remote interface native VLAN. -(B) +(C) =back diff --git a/Info/IEEE802dot11.pm b/Info/IEEE802dot11.pm index 1a4cf421..61af33c6 100644 --- a/Info/IEEE802dot11.pm +++ b/Info/IEEE802dot11.pm @@ -1,34 +1,34 @@ # SNMP::Info::IEEE802dot11 -# Eric Miller # $Id$ # -# Copyright (c) 2006 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::IEEE802dot11; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -178,7 +178,7 @@ __END__ =head1 NAME -SNMP::Info::IEEE802dot11 - SNMP Interface to data from IEEE802dot11-MIB +SNMP::Info::IEEE802dot11 - SNMP Interface to data from F =head1 AUTHOR @@ -202,7 +202,7 @@ Eric Miller =head1 DESCRIPTION SNMP::Info::IEEE802dot11 is a subclass of SNMP::Info that provides an interface -to C. This MIB is used in standards based 802.11 wireless +to F. This MIB is used in standards based 802.11 wireless devices. Use or create a subclass of SNMP::Info that inherits this one. @@ -220,7 +220,7 @@ None. =over -=item IEEE802dot11-MIB +=item F =back @@ -232,17 +232,17 @@ These are methods that return scalar value from SNMP =item $dot11->vendor() -Trys to discover the vendor from dot11_man_name() - returns lower case +Tries to discover the vendor from dot11_man_name() - returns lower case of the first word in the first instance found. =item $dot11->model() -Trys to discover the model from dot11_prod_name() - returns lower case +Tries to discover the model from dot11_prod_name() - returns lower case of the first instance found. =item $dot11->os_ver() -Trys to discover the operating system version from dot11_prod_ver() - returns +Tries to discover the operating system version from dot11_prod_ver() - returns string of numeric and decimals in the first instance found. =back @@ -258,7 +258,7 @@ to a hash. Returns reference to hash. SSID's recognized by the radio interface. -(B) +(C) =item $dot11->i_80211channel() @@ -267,130 +267,130 @@ interface. =item $dot11->dot11_cur_tx_pwr_mw() -Returns reference to hash. Current transmit power, in milliwats, of the radio +Returns reference to hash. Current transmit power, in milliwatts, of the radio interface. =back -=head2 Dot11 Phy OFDM Table (B) +=head2 Dot11 Phy OFDM Table (C) =over =item $dot11->dot11_cur_freq() -(B) +(C) =back -=head2 Dot11 Phy DSSS Table (B) +=head2 Dot11 Phy DSSS Table (C) =over =item $dot11->dot11_cur_ch() -(B) +(C) =back -=head2 Dot11 Phy Operation Table (B) +=head2 Dot11 Phy Operation Table (C) =over =item $dot11->dot11_phy_type() -(B) +(C) =item $dot11->dot11_reg_dom() -(B) +(C) =back -=head2 Dot11 Resource Information Table (B) +=head2 Dot11 Resource Information Table (C) =over =item $dot11->dot11_prod_ver() -(B) +(C) =item $dot11->dot11_prod_name() -(B) +(C) =item $dot11->dot11_man_name() -(B) +(C) =back -=head2 Dot11 Operation Table (B) +=head2 Dot11 Operation Table (C) =over =item $dot11->dot11_mac() -(B) +(C) =back -=head2 Dot11 Station Configuration Table (B) +=head2 Dot11 Station Configuration Table (C) =over =item $dot11->dot11_bss_type() -(B) +(C) =item $dot11->dot11_pwr_mode() -(B) +(C) =item $dot11->dot11_sta_id() -(B) +(C) =back -=head2 Dot11 Transmission Power Table (B) +=head2 Dot11 Transmission Power Table (C) =over =item $dot11->dot11_cur_tx_pwr() -(B) +(C) =item $dot11->dot11_tx_pwr_level_1() -(B) +(C) =item $dot11->dot11_tx_pwr_level_2() -(B) +(C) =item $dot11->dot11_tx_pwr_level_3() -(B) +(C) =item $dot11->dot11_tx_pwr_level_4() -(B) +(C) =item $dot11->dot11_tx_pwr_level_5() -(B) +(C) =item $dot11->dot11_tx_pwr_level_6() -(B) +(C) =item $dot11->dot11_tx_pwr_level_7() -(B) +(C) =item $dot11->dot11_tx_pwr_level_8() -(B) +(C) =back diff --git a/Info/LLDP.pm b/Info/LLDP.pm index 7be0ebdd..c091d84d 100644 --- a/Info/LLDP.pm +++ b/Info/LLDP.pm @@ -1,33 +1,35 @@ # SNMP::Info::LLDP +# $Id$ # -# Eric Miller -# -# Copyright (c) 2007 Eric Miller +# Copyright (c) 2008 Eric Miller # All rights reserved. # -# Redistribution and use in source and binary forms, with or without +# 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. -# -# 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. +# * 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::LLDP; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -304,11 +306,11 @@ None. =over -=item LLDP-MIB +=item F -=item LLDP-EXT-DOT1-MIB +=item F -=item LLDP-EXT-DOT3-MIB +=item F =back @@ -322,28 +324,28 @@ These are methods that return scalar values from SNMP Is LLDP is active in this device? -Note: LLDP may be active, but nothing in B Tables so +Note: LLDP may be active, but nothing in C Tables so the device would not return any useful topology information. =item $lldp->lldp_sysname() The string value used to identify the system name of the local system. If the -local agent supports IETF RFC 3418, B object should have the -same value of B object. +local agent supports IETF RFC 3418, C object should have the +same value of C object. Nulls are removed before the value is returned. -(B) +(C) =item $lldp->lldp_sysdesc() The string value used to identify the system description of the local system. -If the local agent supports IETF RFC 3418, B object should have -the same value of B object. +If the local agent supports IETF RFC 3418, C object should have +the same value of C object. Nulls are removed before the value is returned. -(B) +(C) =item $lldp->lldp_sys_cap() @@ -375,7 +377,7 @@ capability and nothing else." =back -(B) +(C) =back @@ -391,7 +393,7 @@ to a hash. Returns the string value used to identify the chassis component associated with the remote system. -(B) +(C) =item $lldp->lldp_if() @@ -413,7 +415,7 @@ Returns remote port ID =back -=head2 LLDP Remote Table (B) +=head2 LLDP Remote Table (C) =over @@ -422,28 +424,28 @@ Returns remote port ID Returns the type of encoding used to identify the chassis associated with the remote system. -(B) +(C) =item $lldp->lldp_rem_id() Returns the string value used to identify the chassis component associated with the remote system. -(B) +(C) =item $lldp->lldp_rem_pid_type() Returns the type of port identifier encoding used in the associated -B object. +C object. -(B) +(C) =item $lldp->lldp_rem_pid() Returns the string value used to identify the port component associated with the remote system. -(B) +(C) =item $lldp->lldp_rem_desc() @@ -452,7 +454,7 @@ associated with the remote system. Nulls are removed before the value is returned. -(B) +(C) =item $lldp->lldp_rem_sysname() @@ -460,7 +462,7 @@ Returns the string value used to identify the system name of the remote system. Nulls are removed before the value is returned. -(B) +(C) =item $lldp->lldp_rem_sysdesc() @@ -469,7 +471,7 @@ remote system. Nulls are removed before the value is returned. -(B) +(C) =item $lldp->lldp_rem_sys_cap() @@ -501,7 +503,7 @@ capability and nothing else." =back -(B) +(C) =back diff --git a/Info/Layer1.pm b/Info/Layer1.pm index f62ec8d9..feb5f09e 100644 --- a/Info/Layer1.pm +++ b/Info/Layer1.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer1 - SNMP Interface to Layer1 Devices -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::Layer1; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -175,7 +175,6 @@ Max Baker my $l1 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -223,7 +222,7 @@ after determining a more specific class using the method above. =over -=item SNMP-REPEATER-MIB +=item F =back @@ -231,7 +230,7 @@ MIBs required for L See L for its MIB requirements. -SNMP-REPEATER-MIB needs to be extracted from +F needs to be extracted from ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz =head1 GLOBALS @@ -244,7 +243,7 @@ These are methods that return scalar value from SNMP Gets the number of ports under the interface mib -(B) +(C) =back @@ -254,7 +253,7 @@ Gets the number of ports under the interface mib =item $l1->vendor() -Trys to discover the vendor from $l1->model() and $l1->vendor() +Tries to discover the vendor from $l1->model() and $l1->vendor() =item $l1->ports() @@ -264,7 +263,7 @@ Adds the values from rptr_ports() and ports_managed() Number of 'groups' in the Repeater MIB -(B) +(C) =back @@ -297,31 +296,31 @@ to a hash. Number of ports in each group. -(B) +(C) =item $l1->rptr_port() Port number in Group -(B) +(C) =item $l1->rptr_slot() Group (slot) Number for given port. -(B) +(C) =item $l1->rptr_up_admin() -(B) +(C) =item $l1->rptr_up() -(B) +(C) =item $l1->rptr_last_src() -(B) +(C) =back diff --git a/Info/Layer1/Allied.pm b/Info/Layer1/Allied.pm index 25fb9475..768c8d1e 100644 --- a/Info/Layer1/Allied.pm +++ b/Info/Layer1/Allied.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer1::Allied -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,28 @@ # # * 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. +# * 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. +# 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::Layer1::Allied; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -136,7 +137,6 @@ Max Baker my $allied = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myhub', Community => 'public', Version => 1 @@ -164,9 +164,7 @@ inherited methods. =over -=item ATI-MIB - -Download for your device from http://www.allied-telesyn.com/allied/support/ +=item F =back @@ -198,11 +196,11 @@ Culls Version from description() Returns IP Address of Managed Hub. -(B) +(C) =item $allied->model() -Trys to cull out AT-nnnnX out of the description field. +Tries to cull out C out of the description field. =back @@ -233,11 +231,11 @@ the values of ati_up() to 'up' and 'down'. =item $allied->ati_p_name() -(B) +(C) =item $allied->ati_up() -(B) +(C) =back diff --git a/Info/Layer1/Asante.pm b/Info/Layer1/Asante.pm index acd6858c..0b3075e4 100644 --- a/Info/Layer1/Asante.pm +++ b/Info/Layer1/Asante.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer1::Asante -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,28 @@ # # * 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. +# * 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. +# 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::Layer1::Asante; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -179,7 +180,6 @@ Max Baker my $asante = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -206,9 +206,7 @@ Asante device through SNMP. =over -=item ASANTE-HUB1012-MIB - -Download from http://www.mibdepot.com +=item F =back @@ -236,7 +234,7 @@ Returns 'asante' :) =item $asante->model() -Cross references $asante->id() to the ASANTE-HUB1012-MIB and returns +Cross references $asante->id() to the F and returns the results. =back @@ -268,11 +266,11 @@ the values of asante_up() to 'up' and 'down'. =item $asante->ati_p_name() -(B) +(C) =item $asante->ati_up() -(B) +(C) =back diff --git a/Info/Layer1/Bayhub.pm b/Info/Layer1/Bayhub.pm index f60fc14c..9c1b9e45 100644 --- a/Info/Layer1/Bayhub.pm +++ b/Info/Layer1/Bayhub.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer1::Bayhub -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller, Max Baker # # 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. +# * 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. +# 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::Layer1::Bayhub; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -472,7 +472,6 @@ Eric Miller my $bayhub = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -486,10 +485,11 @@ Eric Miller =head1 DESCRIPTION Provides abstraction to the configuration information obtainable from a -Bayhub device through SNMP. Also provides device MAC to port mapping through the proprietary MIB. +Bay hub device through SNMP. Also provides device MAC to port mapping through +the proprietary MIB. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $bayhub = new SNMP::Info::Layer1::Bayhub(...); @@ -509,9 +509,9 @@ my $bayhub = new SNMP::Info::Layer1::Bayhub(...); =over -=item S5-ETHERNET-COMMON-MIB +=item F -=item S5-COMMON-STATS-MIB +=item F =back @@ -539,7 +539,7 @@ Returns 'bay_hub' =item $bayhub->model() -Cross references $bayhub->id() to the SYNOPTICS-MIB and returns +Cross references $bayhub->id() to the F and returns the results. Removes either Baystack Hub, 5000, or 5005 depending on the model. @@ -552,7 +552,8 @@ Removes either Baystack Hub, 5000, or 5005 depending on the model. =item $bayhub->layers() -Returns 00000011. Class emulates Layer 2 functionality through proprietary MIBs. +Returns 00000011. Class emulates Layer 2 functionality through proprietary +MIBs. =item $bayhub->index_factor() @@ -591,7 +592,7 @@ to a hash. Returns reference to map of IIDs to Interface index. -Since hubs do not support ifIndex, the interface index is created using the +Since hubs do not support C, the interface index is created using the formula (board * 256 + port). =item $bayhub->interfaces() @@ -612,17 +613,17 @@ Returns interface speed. =item $bayhub->i_up() -Returns (B) for each port. Translates on/off to up/down. +Returns (C) for each port. Translates on/off to up/down. =item $bayhub->i_up_admin() -Returns (B) for each port. +Returns (C) for each port. =item $bayhub->set_i_up_admin(state, ifIndex) -Sets port state, must be supplied with state and port ifIndex +Sets port state, must be supplied with state and port C -State choices are 'up'or 'down' +State choices are 'up' or 'down' Example: my %if_map = reverse %{$bayhub->interfaces()}; @@ -636,20 +637,20 @@ both the keys and values. =item $bayhub->fw_port() -Returns reference to map of IIDs of the S5-COMMON-STATS-MIB::s5CmSNodeTable +Returns reference to map of IIDs of the C to the Interface index. =item $bayhub->fw_mac() -(B) +(C) =back -=head2 Pseudo ENTITY-MIB Information +=head2 Pseudo F Information -These devices do not support ENTITY-MIB. These methods emulate Physical Table -methods using S5-CHASSIS-MIB. See L -for details. +These devices do not support F. These methods emulate Physical +Table methods using F. See +L for details. =over diff --git a/Info/Layer1/Cyclades.pm b/Info/Layer1/Cyclades.pm index d292e975..49901eca 100644 --- a/Info/Layer1/Cyclades.pm +++ b/Info/Layer1/Cyclades.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer1::Cyclades -# Eric Miller # $Id$ # -# Copyright (c) 2006 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer1::Cyclades; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -325,11 +325,11 @@ my $cyclades = new SNMP::Info::Layer1::Cyclades(...); =over -=item CYCLADES-ACS-SYS-MIB +=item F -=item CYCLADES-ACS-CONF-MIB +=item F -=item CYCLADES-ACS-INFO-MIB +=item F =back @@ -345,23 +345,23 @@ These are methods that return scalar value from SNMP =item $cyclades->os_ver() -(B) +(C) =item $cyclades->serial() -(B) +(C) =item $cyclades->root_ip() -(B) +(C) =item $cyclades->ps1_status() -(B) +(C) =item $cyclades->ps2_status() -(B) +(C) =back @@ -384,7 +384,7 @@ Returns 'cyclades' =item $cyclades->model() -Returns lower case (B) +Returns lower case (C) =back @@ -407,30 +407,30 @@ Returns reference to map of IIDs to Interface index. Extended to include serial ports. Serial ports are indexed with the alternative labeling system for the serial port, the listening socket port -B to avoid conflicts with B. +C to avoid conflicts with C. =item $cyclades->interfaces() Returns reference to map of IIDs to physical ports. Extended to include -serial ports, B. +serial ports, C. =item $cyclades->i_speed() -Returns interface speed. Extended to include serial ports, B. +Returns interface speed. Extended to include serial ports, C. =item $cyclades->i_up() Returns link status for each port. Extended to include serial ports, -B. +C. =item $cyclades->i_description() Returns description of each port. Extended to include serial ports, -B. +C. =item $cyclades->i_name() -Returns name of each port. Extended to include serial ports, B. +Returns name of each port. Extended to include serial ports, C. =back diff --git a/Info/Layer1/S3000.pm b/Info/Layer1/S3000.pm index 205223de..e3cd04ba 100644 --- a/Info/Layer1/S3000.pm +++ b/Info/Layer1/S3000.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer1::S3000 -# Eric Miller # $Id$ # -# Copyright (c) 2006 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer1::S3000; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -225,7 +225,7 @@ sub i_speed { next unless defined $index; next if (defined $partial and $index !~ /^$partial$/); - # These hubs only support 10Mbs + # These hubs only support 10 Mbs my $speed = '10000000'; $i_speed{$index}=$speed; } @@ -356,7 +356,6 @@ Eric Miller my $s3000 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -370,10 +369,11 @@ Eric Miller =head1 DESCRIPTION Provides abstraction to the configuration information obtainable from a -Bayhub device through SNMP. Also provides device MAC to port mapping through the proprietary MIB. +Bay hub device through SNMP. Also provides device MAC to port mapping through +the proprietary MIB. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $s3000 = new SNMP::Info::Layer1::S3000(...); @@ -389,9 +389,9 @@ my $s3000 = new SNMP::Info::Layer1::S3000(...); =over -=item SYNOPTICS-COMMON-MIB +=item F -=item SYNOPTICS-ETHERNET-MIB +=item F =back @@ -415,20 +415,21 @@ Returns 'synoptics' =item $s3000->model() -Cross references $s3000->id() to the SYNOPTICS-MIB and returns +Cross references $s3000->id() to the F and returns the results. -Removes sreg- from the model name and returns only the numeric model identifier. +Removes C from the model name and returns only the numeric model +identifier. =item $stack->os_ver() Returns the software version specified as major.minor.maint. -(B).(B).(B) +(C).(C).(C) =item $stack->os_bin() -Returns the firmware version. (B) +Returns the firmware version. (C) =item $s3000->mac() @@ -442,7 +443,8 @@ Returns MAC of the advertised IP address of the device. =item $s3000->layers() -Returns 00000011. Class emulates Layer 2 functionality through proprietary MIBs. +Returns 00000011. Class emulates Layer 2 functionality through proprietary +MIBs. =back @@ -463,8 +465,9 @@ to a hash. Returns reference to map of IIDs to Interface index. -Since hubs do not support ifIndex, the interface index is created using the -formula (board * 256 + port). This is required to support devices with more than one module. +Since hubs do not support C, the interface index is created using the +formula (board * 256 + port). This is required to support devices with more +than one module. =item $s3000->interfaces() @@ -480,21 +483,21 @@ Returns half, hubs do not support full duplex. =item $s3000->i_speed() -Returns 10000000. The hubs only support 10Mbs Ethernet. +Returns 10000000. The hubs only support 10 Mbs Ethernet. =item $s3000->i_up() -Returns (B) for each port. Translates on/off to up/down. +Returns (C) for each port. Translates on/off to up/down. =item $s3000->i_up_admin() -Returns (B) for each port. +Returns (C) for each port. =item $s3000->set_i_up_admin(state, ifIndex) -Sets port state, must be supplied with state and port ifIndex +Sets port state, must be supplied with state and port C -State choices are 'up'or 'down' +State choices are 'up' or 'down' Example: my %if_map = reverse %{$s3000->interfaces()}; @@ -508,22 +511,22 @@ both the keys and values. =item $s3000->fw_port() -Returns reference to map of IIDs of the SYNOPTICS-ETHERNET-MIB::s3EnetShowNodesTable -to the Interface index. +Returns reference to map of IIDs of the +C to the Interface index. =item $s3000->fw_mac() -(B) +(C) =item $s3000->s3000_topo_port() Returns reference to hash. Key: Table entry, Value:Port Number (interface iid) -(B) +(C) =item $s3000->s3000_topo_mac() -(B) +(C) Returns reference to hash. Key: Table entry, Value:Remote MAC address diff --git a/Info/Layer2.pm b/Info/Layer2.pm index e3239de4..14015d88 100644 --- a/Info/Layer2.pm +++ b/Info/Layer2.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices -# Max Baker +# $Id$ # -# Copyright (c) 2004,2005 Max Baker -- All changes from Version 0.7 on +# Copyright (c) 2008 Max Baker -- All changes from Version 0.7 on # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::Layer2; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -179,7 +179,6 @@ Max Baker my $l2 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -251,13 +250,13 @@ These are methods that return scalar value from SNMP Cross references $l2->id() with product IDs in the Cisco MIBs. -For HP devices, removes 'hpswitch' from the name +For HP devices, removes C<'hpswitch'> from the name -For Cisco devices, removes 'sysid' from the name +For Cisco devices, removes c<'sysid'> from the name =item $l2->vendor() -Trys to discover the vendor from $l2->model() and $l2->description() +Tries to discover the vendor from $l2->model() and $l2->description() =back @@ -286,13 +285,13 @@ to a hash. Creates a map between the interface identifier (iid) and the physical port name. -Defaults to B but checks and overrides with B +Defaults to C but checks and overrides with C =item $l2->i_ignore() Returns reference to hash. Increments value of IID if port is to be ignored. -Ignores ports with B of loopback,propvirtual,other, and cpu +Ignores ports with C of loopback, propvirtual, other, and cpu =back diff --git a/Info/Layer2/Airespace.pm b/Info/Layer2/Airespace.pm index ec4f4e15..6eab0738 100644 --- a/Info/Layer2/Airespace.pm +++ b/Info/Layer2/Airespace.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer2::Airespace -# Eric Miller # $Id$ # -# Copyright (c) 2007 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer2::Airespace; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -104,7 +104,6 @@ Eric Miller my $airespace = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -120,8 +119,8 @@ Eric Miller Provides abstraction to the configuration information obtainable from Cisco (Airespace) Wireless Controllers through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after -determining a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $airespace = new SNMP::Info::Layer2::Airespace(...); @@ -167,7 +166,7 @@ Returns 'cisco' =item $airespace->model() -(B) +(C) =back diff --git a/Info/Layer2/Aironet.pm b/Info/Layer2/Aironet.pm index 8957d778..d6edaa62 100644 --- a/Info/Layer2/Aironet.pm +++ b/Info/Layer2/Aironet.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer2::Aironet -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,28 @@ # # * 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. +# * 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. +# 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::Layer2::Aironet; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -359,7 +360,8 @@ __END__ =head1 NAME -SNMP::Info::Layer2::Aironet - SNMP Interface to Cisco Aironet devices running IOS. +SNMP::Info::Layer2::Aironet - SNMP Interface to Cisco Aironet devices running +IOS. =head1 AUTHOR @@ -371,7 +373,6 @@ Max Baker my $aironet = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -383,7 +384,8 @@ Max Baker =head1 DESCRIPTION -Provides interface to SNMP Data available on newer Aironet devices running Cisco IOS. +Provides interface to SNMP Data available on newer Aironet devices running +Cisco IOS. Note there are two classes for Aironet devices : @@ -399,8 +401,8 @@ This class is for devices running Cisco IOS software (newer) =back -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $aironet = new SNMP::Info::Layer2::Aironet(...); @@ -468,7 +470,8 @@ Uses the i_description() field. =item $aironet->i_duplex() -Crosses information from SNMP::Info::EtherLike to get duplex info for interfaces. +Crosses information from SNMP::Info::EtherLike to get duplex info for +interfaces. =back diff --git a/Info/Layer2/Allied.pm b/Info/Layer2/Allied.pm index 2a3a09e0..0faf3d90 100644 --- a/Info/Layer2/Allied.pm +++ b/Info/Layer2/Allied.pm @@ -1,5 +1,5 @@ # SNMP::Info::Layer2::Allied -# Max Baker, Dmitry Sergienko +# $Id$ # # Copyright (c) 2004 Max Baker # All rights reserved. @@ -9,27 +9,28 @@ # # * 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 Netdisco nor the +# * 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. +# 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::Layer2::Allied; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -146,7 +147,6 @@ Max Baker, Dmitry Sergienko my $allied = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myhub', Community => 'public', Version => 1 @@ -174,9 +174,9 @@ inherited methods. =over -=item AtiSwitch-MIB +=item F -=item AtiStackInfo-MIB +=item F Download for your device from ftp://ftp.allied-telesyn.com/pub/switches/mibs/ @@ -210,11 +210,11 @@ Culls Version from description() Returns IP Address of Managed Device. -(B) +(C) =item $allied->model() -Trys to cull out AT-nnnnX out of the description field. +Tries to cull out C out of the description field. =back diff --git a/Info/Layer2/Aruba.pm b/Info/Layer2/Aruba.pm index 7ce4ccc5..67459ebc 100644 --- a/Info/Layer2/Aruba.pm +++ b/Info/Layer2/Aruba.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer2::Aruba -# Eric Miller # $Id$ # -# Copyright (c) 2005 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer2::Aruba; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -373,8 +373,8 @@ This class emulates bridge functionality for the wireless switch. This enables end station MAC addresses collection and correlation to the thin access point the end station is using for communication. -For speed or debugging purposes you can call the subclass directly, but not after -determining a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $aruba = new SNMP::Info::Layer2::Aruba(...); @@ -390,9 +390,9 @@ determining a more specific class using the method above. =over -=item WLSX-SWITCH-MIB +=item F -=item WLSR-AP-MIB +=item F =back @@ -421,7 +421,7 @@ Returns 'airos' =item $aruba->os_ver() -Returns the software version extracted from B +Returns the software version extracted from C =back @@ -453,7 +453,7 @@ to a hash. Returns reference to map of IIDs to Interface index. -Extends ifIndex to support thin APs as device interfaces. +Extends C to support thin APs as device interfaces. =item $aruba->interfaces() @@ -462,7 +462,7 @@ interfaces. The thin AP MAC address is used as the port identifier. =item $aruba->i_name() -Interface name. Returns (B) for Ethernet interfaces and (B) +Interface name. Returns (C) for Ethernet interfaces and (C) for thin AP interfaces. =item $aruba->bp_index() @@ -472,72 +472,73 @@ both the keys and values. =item $aruba->fw_port() -(B) as extracted from the IID. +(C) as extracted from the IID. =item $aruba->fw_mac() -(B) as extracted from the IID. +(C) as extracted from the IID. =item $aruba->i_ssidlist() Returns reference to hash. SSID's recognized by the radio interface. -(B) +(C) =item $aruba->i_ssidbcast() -Returns reference to hash. Indicates whether the SSID is broadcast, true or false. +Returns reference to hash. Indicates whether the SSID is broadcast, true or +false. -(B) +(C) =item $aruba->i_80211channel() Returns reference to hash. Current operating frequency channel of the radio interface. -(B) +(C) =back -=head2 Aruba Switch AP Table (B) +=head2 Aruba Switch AP Table (C) =over =item $aruba->aruba_ap_name() -(B) +(C) =item $aruba->aruba_ap_ip() -(B) +(C) =item $aruba->aruba_ap_essid() -(B) +(C) =item $aruba->aruba_ap_ssidbcast() -(B) +(C) =back -=head2 Aruba Switch Station Management Table (B) +=head2 Aruba Switch Station Management Table (C) =over =item $aruba->fw_user() -(B) +(C) =back -=head2 Aruba Wireless AP Configuration Table (B) +=head2 Aruba Wireless AP Configuration Table (C) =over =item $aruba->aruba_ap_channel() -(B) +(C) =back diff --git a/Info/Layer2/Bay.pm b/Info/Layer2/Bay.pm index 9b539978..1502205c 100644 --- a/Info/Layer2/Bay.pm +++ b/Info/Layer2/Bay.pm @@ -1,8 +1,8 @@ # SNMP::Info::Layer2::Bay -# Max Baker +# $Id$ # This module depricated. See Layer2::BayStack # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -12,27 +12,28 @@ # # * 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. +# * 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. +# 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::Layer2::Bay; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -277,15 +278,15 @@ Max Baker =head1 SYNOPSIS -This module is Depricated. Please use Layer2::BayStack instead. +This module is Deprecated. Please use Layer2::BayStack instead. =head1 DESCRIPTION Provides abstraction to the configuration information obtainable from a Bay device through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $bay = new SNMP::Info::Layer2::Bay(...); @@ -301,9 +302,9 @@ a more specific class using the method above. =over -=item SYNOPTICS-ROOT-MIB +=item F -=item S5-ETH-MULTISEG-TOPOLOGY-MIB +=item F =item Inherited classes @@ -311,15 +312,6 @@ MIBs required by L and its superclasses. =back -Bay MIBs can be found on the CD that came with your product. - -Or, if you still have a service contract they can be downloaded at -www.nortelnetworks.com - -They have also been seen at : http://www.inotech.com/mibs/vendor/baynetworks/synoptics/synoptics.asp - -Or http://www.oidview.com/mibs/detail.html under Synoptics. Check also www.mibdepot.com - =head1 GLOBALS These are methods that return scalar value from SNMP @@ -332,23 +324,23 @@ Returns 'bay' :) =item $bay->model() -Cross references $bay->id() to the SYNOPTICS-MIB and returns +Cross references $bay->id() to the F and returns the results. 303s and 304s have the same ID, so we have a hack to return depending on which it is. -Removes sreg- from the model name +Removes C from the model name =item $bay->cdp_id() Returns the IP that the device is sending out for its Nmm topology info. -(B) +(C) =item $bay->cdp_run() -Returns if the S5-ETH-MULTISEG-TOPOLOGY info is on for this device. +Returns if the F info is on for this device. -(B) +(C) =back @@ -369,17 +361,17 @@ to a hash. Returns reference to map of IIDs to physical ports. -Currently simply returns the B +Currently simply returns the C =item $bay->i_ignore() Returns reference to hash of IIDs to ignore. -Simply calls the SNMP::Info::Layer2::i_ignore() fn for this. +Simply calls the SNMP::Info::Layer2::i_ignore() for this. =item $bay->i_mac() -Returns the B table entries. +Returns the C table entries. Removes all entries matching '00:00:00:00:00:00' -- Certain older revisions of Bay 303 and 304 firmware report all zeros @@ -387,7 +379,7 @@ for each port mac. =back -=head2 Psuedo CDP information +=head2 Pseudo CDP information All entries with port=0 are local and ignored. @@ -395,18 +387,20 @@ All entries with port=0 are local and ignored. =item $bay->c_if() -Returns referenece to hash. Key: port.1 Value: port (iid) +Returns reference to hash. Key: port.1 Value: port (iid) =item $bay->c_ip() -Returns referenece to hash. Key: port.1 +Returns reference to hash. Key: port.1 The value of each hash entry can either be a scalar or an array. A scalar value is most likely a direct neighbor to that port. -It is possible that there is a non-bay device in between this device and the remote device. +It is possible that there is a non-bay device in between this device and the +remote device. -An array value represents a list of seen devices. The only time you will get an array -of nieghbors, is if there is a non-bay device in between two or more devices. +An array value represents a list of seen devices. The only time you will get +an array of neighbors, is if there is a non-bay device in between two or more +devices. Use the data from the Layer2 Topology Table below to dig deeper. @@ -420,7 +414,7 @@ Returns reference to hash. Key: port.1 Value: Remote Device Type =back -=head2 Layer2 Topology info (s5EnMsTopNmmTable) +=head2 Layer2 Topology info (C) =over @@ -428,28 +422,28 @@ Returns reference to hash. Key: port.1 Value: Remote Device Type Returns reference to hash. Key: Table entry, Value:slot number -(B) +(C) =item $bay->bay_topo_port() Returns reference to hash. Key: Table entry, Value:Port Number (interface iid) -(B) +(C) =item $bay->bay_topo_ip() Returns reference to hash. Key: Table entry, Value:Remote IP address of entry -(B) +(C) =item $bay->bay_topo_seg() Returns reference to hash. Key: Table entry, Value:Remote Segment ID -(B) +(C) =item $bay->bay_topo_mac -(B) +(C) Returns reference to hash. Key: Table entry, Value:Remote MAC address @@ -457,13 +451,14 @@ Returns reference to hash. Key: Table entry, Value:Remote MAC address Returns reference to hash. Key: Table entry, Value:Remote Device Type -(B) +(C) =item $bay->bay_topo_localseg -Returns reference to hash. Key: Table entry, Value:Boolean, if bay_topo_seg() is local +Returns reference to hash. Key: Table entry, Value:Boolean, if bay_topo_seg() +is local -(B) +(C) =back diff --git a/Info/Layer2/Baystack.pm b/Info/Layer2/Baystack.pm index 9fc3d65f..6b05597b 100644 --- a/Info/Layer2/Baystack.pm +++ b/Info/Layer2/Baystack.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer2::Baystack -# Eric Miller +# $Id$ # -# Copyright (c) 2004-6 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -9,28 +9,28 @@ # # * 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. +# * 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. +# 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::Layer2::Baystack; -$VERSION = '1.07'; +$VERSION = '1.09'; -# $Id$ use strict; use Exporter; @@ -436,7 +436,8 @@ __END__ =head1 NAME -SNMP::Info::Layer2::Baystack - SNMP Interface to Nortel Ethernet (Baystack) Switches +SNMP::Info::Layer2::Baystack - SNMP Interface to Nortel Ethernet (Baystack) +Switches =head1 AUTHOR @@ -448,7 +449,6 @@ Eric Miller my $baystack = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -463,8 +463,8 @@ Eric Miller Provides abstraction to the configuration information obtainable from a Nortel Ethernet Switch (Baystack) through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $baystack = new SNMP::Info::Layer2::Baystack(...); @@ -514,14 +514,13 @@ Returns 'nortel' =item $baystack->model() -Cross references $baystack->id() to the SYNOPTICS-MIB and returns +Cross references $baystack->id() to the F and returns the results. 303s and 304s have the same ID, so we have a hack to return depending on which it is. Returns BPS for Business Policy Switch -For BayStack, EthernetRoutingSwitch, or EthernetSwitch extracts and returns -the switch numeric designation. +For others extracts and returns the switch numeric designation. =item $baystack->os() @@ -529,7 +528,7 @@ Returns 'baystack' or 'boss' depending on software version. =item $baystack->os_bin() -Returns the firmware version extracted from B. +Returns the firmware version extracted from C. =back @@ -596,77 +595,77 @@ Returns reference to hash of IIDs to ignore. =item $baystack->i_mac() -Returns the B table entries. +Returns the C table entries. Removes all entries matching '00:00:00:00:00:00' -- Certain revisions of Baystack firmware report all zeros for each port mac. =item $baystack->i_name() -Crosses ifName with ifAlias and returns the human set port name if exists. +Crosses C with C and returns the human set port name if exists. =back -=head2 ENTITY-MIB Information +=head2 F Information -For older devices which do not support ENTITY-MIB, these methods emulate -Physical Table methods using S5-CHASSIS-MIB. See +For older devices which do not support F, these methods emulate +Physical Table methods using F. See L for details on ns_e_* methods. =over =item $baystack->e_index() -If the device doesn't support B, this will try ns_e_index(). -Note that this is based on B due to implementation +If the device doesn't support C, this will try ns_e_index(). +Note that this is based on C due to implementation details of SNMP::Info::Entity::e_index(). =item $baystack->e_class() -If the device doesn't support B, this will try ns_e_class(). +If the device doesn't support C, this will try ns_e_class(). =item $baystack->e_descr() -If the device doesn't support B, this will try ns_e_descr(). +If the device doesn't support C, this will try ns_e_descr(). =item $baystack->e_fwver() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_fwver(). =item $baystack->e_hwver() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_hwver(). =item $baystack->e_parent() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_parent(). =item $baystack->e_pos() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_pos(). =item $baystack->e_serial() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_serial(). =item $baystack->e_swver() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_swver(). =item $baystack->e_type() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_type(). =item $baystack->e_vendor() -If the device doesn't support B, this will try +If the device doesn't support C, this will try ns_e_vendor(). =back @@ -678,7 +677,8 @@ Management Protocol (SONMP) and Link Layer Discovery Protocol (LLDP). These methods will query both and return the combination of all information. As a result, there may be identical topology information returned from the two protocols causing duplicate entries. It is the calling program's -responsibility to identify any duplicate entries and de-duplicate if necessary. +responsibility to identify any duplicate entries and remove duplicates if +necessary. =over diff --git a/Info/Layer2/C1900.pm b/Info/Layer2/C1900.pm index 5d7e48ba..cffbe139 100644 --- a/Info/Layer2/C1900.pm +++ b/Info/Layer2/C1900.pm @@ -1,38 +1,38 @@ # SNMP::Info::Layer2::C1900 -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. # -# Redistribution and use in source and binary forms, with or without +# 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 +# * 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. +# +# 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::Layer2::C1900; -$VERSION = '1.07'; +$VERSION = '1.09'; -# $Id$ use strict; use Exporter; @@ -255,7 +255,7 @@ __END__ =head1 NAME -SNMP::Info::Layer2::C1900 - SNMP Interface to data from Cisco Catlyst 1900 +SNMP::Info::Layer2::C1900 - SNMP Interface to data from Cisco Catalyst 1900 Network Switches running CatOS =head1 AUTHOR @@ -268,7 +268,6 @@ Max Baker my $c1900 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -308,9 +307,9 @@ after determining a more specific class using the method above. =over -=item STAND-ALONE-ETHERNET-SWITCH-MIB (ESSWITCH-MIB) +=item F -ESSWITCH-MIB is included in the Version 1 MIBS from Cisco. +F is included in the Version 1 MIBs from Cisco. They can be found at ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz @@ -337,7 +336,7 @@ These are methods that return scalar value from SNMP Usually contains the version of the software loaded in flash. Used by os_ver() -B +C =item $c1900->os() @@ -401,8 +400,8 @@ Returns reference to hash of IIDs to admin duplex setting =item $c1900->i_name() -Crosses ifName with $c1900->c1900_p_name() and returns the human set port name -if exists. +Crosses C with $c1900->c1900_p_name() and returns the human set port +name if exists. =item $c1900->i_vlan() @@ -426,7 +425,7 @@ bridge group IDs. =back -=head2 STAND-ALONE-ETHERNET-SWITCH-MIB Switch Port Table Entries: +=head2 F Switch Port Table Entries: =over @@ -434,43 +433,43 @@ bridge group IDs. Maps the Switch Port Table to the IID -B +C =item $c1900->c1900_p_duplex() Gives Port Duplex Info -(B) +(C) =item $c1900->c1900_p_duplex_admin() Gives admin setting for Duplex Info -(B) +(C) =item $c1900->c1900_p_name() Gives human set name for port -(B) +(C) =item $c1900->c1900_p_up_admin() Gives Admin status of port enabled. -(B) +(C) =item $c1900->c1900_p_type() -Gives Type of port, ie. "general-ethernet" +Gives Type of port, i.e. C<"general-ethernet"> -(B) +(C) =item $c1900->c1900_p_media() -Gives the media of the port , ie "fiber-sc" +Gives the media of the port , i.e. "C" -(B) +(C) =back @@ -500,12 +499,14 @@ L for general information on set operations. =item $c1900->set_i_duplex_admin(duplex, ifIndex) -Sets port duplex, must be supplied with duplex and port ifIndex. Speed choices -are 'auto', 'half', 'full'. +Sets port duplex, must be supplied with duplex and port C. Speed +choices are 'auto', 'half', 'full'. Example: my %if_map = reverse %{$c1900->interfaces()}; $c1900->set_i_duplex_admin('auto', $if_map{'1'}) or die "Couldn't change port duplex. ",$c1900->error(1); +=back + =cut diff --git a/Info/Layer2/C2900.pm b/Info/Layer2/C2900.pm index 43164614..8025cab3 100644 --- a/Info/Layer2/C2900.pm +++ b/Info/Layer2/C2900.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer2::C2900 -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,28 @@ # # * 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. +# * 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. +# 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::Layer2::C2900; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -211,7 +212,8 @@ __END__ =head1 NAME -SNMP::Info::Layer2::C2900 - SNMP Interface to Cisco Catalyst 2900 Switches running IOS +SNMP::Info::Layer2::C2900 - SNMP Interface to Cisco Catalyst 2900 Switches +running IOS =head1 AUTHOR @@ -263,7 +265,7 @@ after determining a more specific class using the method above. =over -=item CISCO-C2900-MIB +=item F Part of the v2 MIBs from Cisco. @@ -328,10 +330,11 @@ to a hash. Returns reference to the map between IID and physical Port. -On the 2900 devices i_name isn't reliable, so we override to just the description. +On the 2900 devices i_name isn't reliable, so we override to just the +description. Next all dots are changed for forward slashes so that the physical port name -is the same as the broadcasted CDP port name. +is the same as the broad-casted CDP port name. (Ethernet0.1 -> Ethernet0/1) Also, any weird characters are removed, as I saw a few pop up. @@ -350,7 +353,7 @@ Crosses $c2900->c2900_p_index() with $c2900->c2900_p_duplex_admin() =back -=head2 C2900-MIB Port Entry Table +=head2 F Port Entry Table =over @@ -358,25 +361,25 @@ Crosses $c2900->c2900_p_index() with $c2900->c2900_p_duplex_admin() Maps the Switch Port Table to the IID -(B) +(C) =item $c2900->c2900_p_duplex() Gives Port Duplex Info -(B) +(C) =item $c2900->c2900_p_duplex_admin() Gives admin setting for Duplex Info -(B) +(C) =item $c2900->c2900_p_speed_admin() Gives Admin speed of port -(B) +(C) =back @@ -410,12 +413,12 @@ L for general information on set operations. =item $c2900->set_i_speed_admin(speed, ifIndex) -Sets port speed, must be supplied with speed and port ifIndex +Sets port speed, must be supplied with speed and port C Speed choices are 'auto', '10', '100' Crosses $c2900->c2900_p_index() with $c2900->c2900_p_speed_admin() to utilize -port ifIndex. +port C. Example: my %if_map = reverse %{$c2900->interfaces()}; @@ -424,16 +427,18 @@ port ifIndex. =item $c2900->set_i_duplex_admin(duplex, ifIndex) -Sets port duplex, must be supplied with duplex and port ifIndex +Sets port duplex, must be supplied with duplex and port C Speed choices are 'auto', 'half', 'full' Crosses $c2900->c2900_p_index() with $c2900->c2900_p_duplex_admin() to utilize -port ifIndex. +port C. Example: my %if_map = reverse %{$c2900->interfaces()}; $c2900->set_i_duplex_admin('auto', $if_map{'FastEthernet0/1'}) or die "Couldn't change port duplex. ",$c2900->error(1); +=back + =cut diff --git a/Info/Layer2/Catalyst.pm b/Info/Layer2/Catalyst.pm index e9c6538b..e396856e 100644 --- a/Info/Layer2/Catalyst.pm +++ b/Info/Layer2/Catalyst.pm @@ -1,8 +1,8 @@ # SNMP::Info::Layer2::Catalyst -# Max Baker +# $Id$ # # Copyright (c) 2002,2003 Regents of the University of California -# Copyright (c) 2003,2004 Max Baker changes from version 0.8 and beyond +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -10,27 +10,27 @@ # # * 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. +# * 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. +# 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::Layer2::Catalyst; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -196,7 +196,6 @@ Max Baker my $cat = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -261,7 +260,8 @@ 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. @@ -331,15 +331,15 @@ Returns the map between SNMP Interface Identifier (iid) and physical port name. Returns reference to hash of iid to human set name. -B +C =item $cat->bp_index() Returns reference to hash of bridge port table entries map back to interface identifier (iid) -Crosses (B) to (B) since some devices seem to have -problems with BRIDGE-MIB +Crosses (C) to (C) since some devices seem to have +problems with F =back diff --git a/Info/Layer2/Centillion.pm b/Info/Layer2/Centillion.pm index 28ed1dc2..844b3e0f 100644 --- a/Info/Layer2/Centillion.pm +++ b/Info/Layer2/Centillion.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer2::Centillion -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer2::Centillion; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -244,7 +244,8 @@ __END__ =head1 NAME -SNMP::Info::Layer2::Centillion - SNMP Interface to Nortel Centillion based ATM Switches +SNMP::Info::Layer2::Centillion - SNMP Interface to Nortel Centillion based +ATM Switches =head1 AUTHOR @@ -256,7 +257,6 @@ Eric Miller my $centillion = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -271,8 +271,8 @@ Eric Miller Provides abstraction to the configuration information obtainable from a Centillion device through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $centillion = new SNMP::Info::Layer2::centillion(...); @@ -297,13 +297,13 @@ than bridge group based. =over -=item CENTILLION-DOT3-EXTENSIONS-MIB +=item F -=item S5-COMMON-STATS-MIB +=item F -=item CENTILLION-VLAN-MIB +=item F -=item CENTILLION-CONFIG-MIB +=item F =item Inherited Classes' MIBs @@ -317,15 +317,6 @@ See L for its own MIB requirements. =back -MIBs can be found on the CD that came with your product. - -Or, they can be downloaded directly from Nortel Networks regardless of support -contract status. - -Go to http://www.nortelnetworks.com Techninal Support, Browse Technical Support, -Select by Product Families, Centillion, Centillion C100-C50 ATM Speed Modules, -Software. Filter on mibs and download the latest version's archive. - =head1 GLOBALS These are methods that return scalar value from SNMP @@ -338,10 +329,10 @@ Returns 'Nortel' =item $centillion->model() -Cross references $centillion->id() to the SYNOPTICS-MIB and returns +Cross references $centillion->id() to the F and returns the results. -Removes sreg- from the model name +Removes C from the model name =item $centillion->os() @@ -349,23 +340,23 @@ Returns 'Centillion' =item $centillion->tftp_action() -(B) +(C) =item $centillion->tftp_host() -(B) +(C) =item $centillion->tftp_file() -(B) +(C) =item $centillion->tftp_type() -(B) +(C) =item $centillion->tftp_result() -(B) +(C) =back @@ -375,7 +366,8 @@ Returns 'Centillion' =item $centillion->layers() -Returns 00000011. Class emulates Layer 2 functionality through proprietary MIBs. +Returns 00000011. Class emulates Layer 2 functionality through proprietary +MIBs. =item $centillion->index_factor() @@ -438,23 +430,23 @@ Returns reference to hash of IIDs to ignore. =item $centillion->fw_mac() -(B) +(C) =item $centillion->fw_port() -(B) +(C) =item $centillion->bp_index() -Returns a mapping between ifIndex and the Bridge Table. +Returns a mapping between C and the Bridge Table. =item $centillion->i_vlan() -Returns a mapping between ifIndex and the VLAN. +Returns a mapping between C and the VLAN. =back -=head2 Centillion 802.3 Extension Table (B) +=head2 Centillion 802.3 Extension Table (C) =over @@ -462,23 +454,23 @@ Returns a mapping between ifIndex and the VLAN. Returns reference to hash. Maps table IIDs to Interface IIDs -(B) +(C) =item $centillion->centillion_p_duplex() Returns reference to hash. Maps port operational duplexes to IIDs -(B) +(C) =item $centillion->rc_centillion_p_duplex_admin() Returns reference to hash. Maps port admin duplexes to IIDs -(B) +(C) =back -=head2 Centillion VLAN Table (B) +=head2 Centillion VLAN Table (C) =over @@ -486,19 +478,19 @@ Returns reference to hash. Maps port admin duplexes to IIDs Returns reference to hash. Key: Table entry, Value: Index -(B) +(C) =item $centillion->centillion_i_vlan() Returns reference to hash. Key: Table entry, Value: VLAN ID -(B) +(C) =item $centillion->centillion_i_vlan_type() Returns reference to hash. Key: Table entry, Value: VLAN Type -(B) +(C) =back diff --git a/Info/Layer2/Cisco.pm b/Info/Layer2/Cisco.pm index f45dce90..71d11f8c 100644 --- a/Info/Layer2/Cisco.pm +++ b/Info/Layer2/Cisco.pm @@ -1,33 +1,33 @@ # SNMP::Info::Layer2::Cisco -# Max Baker +# $Id$ # -# Copyright (c) 2006 Max Baker +# Copyright (c) 2008 Max Baker # # 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. +# * 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. +# 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::Layer2::Cisco; -# $Id$ use strict; @@ -42,7 +42,7 @@ use SNMP::Info::CiscoConfig; use SNMP::Info::Layer2; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer2::Cisco::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP SNMP::Info::CiscoStats SNMP::Info::CiscoImage SNMP::Info::CiscoRTT SNMP::Info::CiscoQOS diff --git a/Info/Layer2/Foundry.pm b/Info/Layer2/Foundry.pm index ec998651..9e7a6fbb 100644 --- a/Info/Layer2/Foundry.pm +++ b/Info/Layer2/Foundry.pm @@ -1,33 +1,34 @@ # SNMP::Info::Layer2::Foundry - SNMP Interface to Foundry Switches +# $Id$ # -# Copyright (c) 2005 Max Baker +# Copyright (c) 2008 Max Baker # # 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. +# * 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. +# 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::Layer2::Foundry; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -237,7 +238,7 @@ This module provides support for Foundry EdgeIron Switches =over -=item FOUNDRY-SN-ROOT-MIB +=item F =item Inherited Classes' MIBs diff --git a/Info/Layer2/HP.pm b/Info/Layer2/HP.pm index 9b6082ca..fd038337 100644 --- a/Info/Layer2/HP.pm +++ b/Info/Layer2/HP.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer2::HP - SNMP Interface to HP ProCurve Switches -# Max Baker +# $Id$ # -# Copyright (c) 2004,2005 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::Layer2::HP; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -613,7 +613,6 @@ Max Baker my $hp = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -628,12 +627,12 @@ Max Baker Provides abstraction to the configuration information obtainable from a HP ProCurve Switch via SNMP. -Note: Some HP Switches will connect via SNMP version 1, but a lot of config data will -not be available. Make sure you try and connect with Version 2 first, and then fail back -to version 1. +Note: Some HP Switches will connect via SNMP version 1, but a lot of config +data will not be available. Make sure you try and connect with Version 2 +first, and then fail back to version 1. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $hp = new SNMP::Info::Layer2::HP(...); @@ -653,30 +652,32 @@ a more specific class using the method above. =over -=item RFC1271-MIB +=item F Included in V2 mibs from Cisco -=item HP-ICF-OID +=item F -=item HP-VLAN +=item F (this MIB new with SNMP::Info 0.8) -=item STATISTICS-MIB +=item F -=item NETSWITCH-MIB +=item F -=item CONFIG-MIB +=item F =back -The last five MIBs listed are from HP and can be found at L -or L +The last five MIBs listed are from HP and can be found at +L or +L -=head1 ChangeLog +=head1 Change Log -Version 0.4 - Removed ENTITY-MIB e_*() methods to separate sub-class - SNMP::Info::Entity +Version 0.4 - Removed F e_*() methods to separate sub-class - +SNMP::Info::Entity =head1 GLOBALS @@ -690,7 +691,8 @@ Returns CPU Utilization in percentage. =item $hp->log() -Returns all the log entries from the switch's log that are not Link up or down messages. +Returns all the log entries from the switch's log that are not Link up or +down messages. =item $hp->mem_free() @@ -706,8 +708,8 @@ Returns bytes of used memory =item $hp->model() -Returns the model number of the HP Switch. Will translate between the HP Part number and -the common model number with this map : +Returns the model number of the HP Switch. Will translate between the HP Part +number and the common model number with this map : %MODEL_MAP = ( 'J4093A' => '2424M', @@ -776,7 +778,7 @@ Returns hp =item $hp->os_bin() -B +C =item $hp->os_ver() @@ -785,7 +787,7 @@ the description field. =item $hp->os_version() -B +C =item $hp->serial() @@ -840,20 +842,20 @@ Crosses i_name() with $hp->e_name() using $hp->e_port() and i_alias() =item $hp->i_vlan() -Returns a mapping between ifIndex and the PVID (default VLAN) or untagged -port when using HP-VLAN. +Returns a mapping between C and the PVID (default VLAN) or untagged +port when using F. -Looks in Q-BRIDGE-MIB first (L) and for -older devices looks in HP-VLAN. +Looks in F first (L) and for +older devices looks in F. =item $hp->i_vlan_membership() -Returns reference to hash of arrays: key = ifIndex, value = array of VLAN IDs. -These are the VLANs which are members of the egress list for the port. It -is the union of tagged, untagged, and auto ports when using HP-VLAN. +Returns reference to hash of arrays: key = C, value = array of VLAN +IDs. These are the VLANs which are members of the egress list for the port. +It is the union of tagged, untagged, and auto ports when using F. -Looks in Q-BRIDGE-MIB first (L) and for -older devices looks in HP-VLAN. +Looks in F first (L) and for +older devices looks in F. Example: my $interfaces = $hp->interfaces(); @@ -867,10 +869,11 @@ older devices looks in HP-VLAN. =item $hp->bp_index() -Returns reference to hash of bridge port table entries map back to interface identifier (iid) +Returns reference to hash of bridge port table entries map back to interface +identifier (iid) -Returns (B) for both key and value for 1600, 2424, 4000, and 8000 models -since they seem to have problems with BRIDGE-MIB +Returns (C) for both key and value for 1600, 2424, 4000, and 8000 +models since they seem to have problems with F =back @@ -881,7 +884,7 @@ Protocol (CDP), Link Layer Discovery Protocol (LLDP), or both. These methods will query both and return the combination of all information. As a result, there may be identical topology information returned from the two protocols causing duplicate entries. It is the calling program's responsibility to -identify any duplicate entries and de-duplicate if necessary. +identify any duplicate entries and remove duplicates if necessary. =over diff --git a/Info/Layer2/N2270.pm b/Info/Layer2/N2270.pm index e2d0261e..e10fd707 100644 --- a/Info/Layer2/N2270.pm +++ b/Info/Layer2/N2270.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer2::N2270 -# Eric Miller # $Id$ # -# Copyright (c) 2005 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer2::N2270; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -115,7 +115,6 @@ Eric Miller my $n2270 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -131,8 +130,8 @@ Eric Miller Provides abstraction to the configuration information obtainable from a Nortel 2270 Series Wireless Switch through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after -determining a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $n2270 = new SNMP::Info::Layer2::N2270(...); @@ -182,10 +181,10 @@ Returns 'nortel' =item $n2270->model() -Cross references $bayhub->id() to the SYNOPTICS-ROOT-MIB and returns +Cross references $bayhub->id() to the F and returns the results. -Removes sreg-WLANSecuritySwitch from the model name +Removes C from the model name =back diff --git a/Info/Layer2/NAP222x.pm b/Info/Layer2/NAP222x.pm index fab99dc4..89afd31d 100644 --- a/Info/Layer2/NAP222x.pm +++ b/Info/Layer2/NAP222x.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer2::NAP222x -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer2::NAP222x; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -373,7 +373,6 @@ Eric Miller my $nap222x = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -388,8 +387,8 @@ Eric Miller Provides abstraction to the configuration information obtainable from a Nortel 2220 series wireless Access Points through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $nap222x = new SNMP::Info::Layer2::NAP222x(...); @@ -409,7 +408,7 @@ a more specific class using the method above. =over -=item NORTEL-WLAN-AP-MIB +=item F =back @@ -430,7 +429,7 @@ These are methods that return scalar value from SNMP =item $nap222x->model() -Returns the model extracted from B. +Returns the model extracted from C. =item $nap222x->os() @@ -438,7 +437,7 @@ Returns 'nortel' =item $nap222x->os_bin() -Returns the firmware version extracted from B. +Returns the firmware version extracted from C. =item $nap222x->mac() @@ -452,49 +451,49 @@ Returns the MAC address of the first Ethernet Interface. Returns the hardware version. -(B) +(C) =item $nap222x->nt_cc() Returns the country code of the AP. -(B) +(C) =item $nap222x->tftp_action() -(B) +(C) =item $nap222x->tftp_host() -(B) +(C) =item $nap222x->tftp_file() -(B) +(C) =item $nap222x->tftp_type() -(B) +(C) =item $nap222x->tftp_result() -(B) +(C) =item $nap222x->tftp_xtype() -(B) +(C) =item $nap222x->tftp_src_file() -(B) +(C) =item $nap222x->ftp_user() -(B) +(C) =item $nap222x->ftp_pass() -(B) +(C) =back @@ -527,13 +526,13 @@ Returns reference to map of IIDs to physical ports. Returns reference to hash. Maps port operational duplexes to IIDs. -(B) +(C) =item $nap222x->i_duplex_admin() Returns reference to hash. Maps port admin duplexes to IIDs. -(B) +(C) =item $nap222x->i_name() @@ -541,8 +540,9 @@ Returns a human name based upon port description. =item $nap222x->bp_index() -Returns a mapping between ifIndex and the Bridge Table. This does not exist in -the MIB and bridge port index is not the same as ifIndex so it is created. +Returns a mapping between C and the Bridge Table. This does not +exist in the MIB and bridge port index is not the same as C so it is +created. =item $nap222x->i_ssidlist() @@ -559,9 +559,9 @@ interface. =item $nap222x->i_vlan() -The default VID of the radio interfaces. +The default Vlan ID of the radio interfaces. -(B) +(C) =back diff --git a/Info/Layer2/Netgear.pm b/Info/Layer2/Netgear.pm index fedfcdca..5a59641e 100644 --- a/Info/Layer2/Netgear.pm +++ b/Info/Layer2/Netgear.pm @@ -1,32 +1,33 @@ # SNMP::Info::Layer2::Netgear -# Bill Fenner and Zoltan Erszenyi +# $Id$ # +# Copyright (c) 2008 Bill Fenner # # 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. +# * 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. +# 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::Layer2::Netgear; -# $Id$ use strict; @@ -36,7 +37,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer2::Netgear::ISA = qw/SNMP::Info::Layer2 Exporter/; @SNMP::Info::Layer2::Netgear::EXPORT_OK = qw//; @@ -111,7 +112,6 @@ Bill Fenner and Zoltan Erszenyi my $netgear = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 diff --git a/Info/Layer2/Orinoco.pm b/Info/Layer2/Orinoco.pm index 25bdeb73..1a59a9c0 100644 --- a/Info/Layer2/Orinoco.pm +++ b/Info/Layer2/Orinoco.pm @@ -1,34 +1,34 @@ # SNMP::Info::Layer2::Orinoco -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller +# Copyright (c) 2008 Eric Miller # # 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. +# * 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. +# 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::Layer2::Orinoco; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -195,7 +195,6 @@ Eric Miller my $orinoco = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -208,11 +207,11 @@ Eric Miller =head1 DESCRIPTION Provides abstraction to the configuration information obtainable from a Orinoco -Access Point through SNMP. Orinoco devices have been maufactured by Proxim, +Access Point through SNMP. Orinoco devices have been manufactured by Proxim, Agere, and Lucent. -For speed or debugging purposes you can call the subclass directly, but not after -determining a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $orinoco = new SNMP::Info::Layer2::Orinoco(...); @@ -252,7 +251,7 @@ Returns 'proxim' =item $orinoco->model() -Returns the model extracted from B. +Returns the model extracted from C. =item $orinoco->os() @@ -260,15 +259,15 @@ Returns 'Orinoco' =item $orinoco->os_ver() -Returns the software version extracted from B. +Returns the software version extracted from C. =item $orinoco->os_bin() -Returns the firmware version extracted from B. +Returns the firmware version extracted from C. =item $orinoco->serial() -Returns the serial number extracted from B. +Returns the serial number extracted from C. =back diff --git a/Info/Layer2/ZyXEL_DSLAM.pm b/Info/Layer2/ZyXEL_DSLAM.pm index df96e87c..90d153de 100644 --- a/Info/Layer2/ZyXEL_DSLAM.pm +++ b/Info/Layer2/ZyXEL_DSLAM.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer2::ZyXEL_DSLAM -# Dmitry Sergienko +# $Id$ # -# Copyright (c) 2004 Max Baker +# Copyright (c) 2008 Max Baker # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -9,27 +9,28 @@ # # * 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 Netdisco nor the +# * 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. +# 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::Layer2::ZyXEL_DSLAM; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; + use strict; use Exporter; @@ -127,7 +128,6 @@ Dmitry Sergienko (C) my $zyxel = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myhub', Community => 'public', Version => 1 @@ -155,13 +155,12 @@ inherited methods. =over -=item ADSL-LINE-MIB - -This MIB assumedly obtainable through ZyXEL or possibly included with your device. +=item F =item Inherited Classes -MIBs listed in L and their inherited classes. +MIBs listed in L and their inherited +classes. =back @@ -189,11 +188,11 @@ Culls Version from description() Returns IP Address of DSLAM. -(B) +(C) =item $zyxel->model() -Trys to cull out model out of the description field. +Tries to cull out model out of the description field. =back @@ -209,7 +208,7 @@ See documentation in L for details. =item $zyxel->i_name() -Returns reference to map of IIDs to port name (B). +Returns reference to map of IIDs to port name (C). =item $zyxel->i_description() diff --git a/Info/Layer3.pm b/Info/Layer3.pm index c39b3afb..e3fe6fab 100644 --- a/Info/Layer3.pm +++ b/Info/Layer3.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer3 - SNMP Interface to Layer3 devices -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker -- All changes from Version 0.7 on +# Copyright (c) 2008 Max Baker -- All changes from Version 0.7 on # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -316,7 +316,6 @@ Max Baker my $l3 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -369,11 +368,11 @@ after determining a more specific class using the method above. =over -=item IP-MIB +=item F -=item OSPF-MIB +=item F -=item BGP4-MIB +=item F =back @@ -387,8 +386,6 @@ See L for its MIB requirements. See L for its MIB requirements. -MIBs can be found in the netdisco-mibs package. - =head1 GLOBALS These are methods that return scalar value from SNMP @@ -399,15 +396,15 @@ These are methods that return scalar value from SNMP Returns root port mac address -(B) +(C) =item $l3->router_ip() -(B) +(C) =item $l3->bgp_id() -(B) +(C) Returns the BGP identifier of the local system @@ -415,7 +412,7 @@ Returns the BGP identifier of the local system Returns the local autonomous system number -(B) +(C) =back @@ -425,23 +422,24 @@ Returns the local autonomous system number =item $l3->model() -Trys to reference $l3->id() to one of the product MIBs listed above +Tries to reference $l3->id() to one of the product MIBs listed above Removes 'cisco' from cisco devices for readability. =item $l3->serial() -Trys to cull a serial number from ENTITY-MIB, description, and OLD-CISCO-... mib +Tries to cull a serial number from F, description, and +F... MIB. =item $l3->vendor() -Trys to cull a Vendor name from B +Tries to cull a Vendor name from C =item $l3->root_ip() Returns the primary IP used to communicate with the device. Returns the first -found: OSPF Router ID (B) or any OSPF Host IP Address -(B). +found: OSPF Router ID (C) or any OSPF Host IP Address +(C). =back @@ -486,7 +484,7 @@ Currently looks for tunnel,loopback,lo,null from $l3->interfaces() Returns reference to hash of iid to human set name. -Defaults to B, but checks for an B +Defaults to C, but checks for an C =item $l3->i_duplex() @@ -499,7 +497,7 @@ See L for the el_index() and el_duplex() methods. =back -=head2 IP-MIB Arp Cache Table (B) +=head2 F Arp Cache Table (C) =over @@ -507,35 +505,35 @@ See L for the el_index() and el_duplex() methods. Returns reference to hash. Maps ARP table entries to Interface IIDs -(B) +(C) -If the device doesn't support B, this will try -the deprecated B. +If the device doesn't support C, this will try +the deprecated C. =item $l3->at_paddr() Returns reference to hash. Maps ARP table entries to MAC addresses. -(B) +(C) -If the device doesn't support B, this will try -the deprecated B. +If the device doesn't support C, this will try +the deprecated C. =item $l3->at_netaddr() -Returns reference to hash. Maps ARP table entries to IPs +Returns reference to hash. Maps ARP table entries to IP addresses. -(B) +(C) -If the device doesn't support B, this will try -the deprecated B. +If the device doesn't support C, this will try +the deprecated C. =back =head2 ARP Cache Entries -The B has been deprecated since 1991. You should never need -to use these methods. See B above. +The C has been deprecated since 1991. You should never need +to use these methods. See C above. =over @@ -543,23 +541,23 @@ to use these methods. See B above. Returns reference to map of IID to Arp Cache Entry -(B) +(C) =item $l3->old_at_paddr() Returns reference to hash of Arp Cache Entries to MAC address -(B) +(C) =item $l3->old_at_netaddr() Returns reference to hash of Arp Cache Entries to IP Address -(B) +(C) =back -=head2 BGP Peer Table (B) +=head2 BGP Peer Table (C) =over @@ -567,77 +565,77 @@ Returns reference to hash of Arp Cache Entries to IP Address Returns reference to hash of BGP peer to local IP address -(B) +(C) =item $l3->bgp_peer_id() Returns reference to hash of BGP peer to BGP peer identifier -(B) +(C) =item $l3->bgp_peer_state() Returns reference to hash of BGP peer to BGP peer state -(B) +(C) =item $l3->bgp_peer_as() Returns reference to hash of BGP peer to BGP peer autonomous system number -(B) +(C) =item $l3->bgp_peer_addr() Returns reference to hash of BGP peer to BGP peer IP address -(B) +(C) =item $l3->bgp_peer_fsm_est_trans() Returns reference to hash of BGP peer to the total number of times the BGP FSM transitioned into the established state -(B) +(C) =item $l3->bgp_peer_in_tot_msgs() Returns reference to hash of BGP peer to the total number of messages received from the remote peer on this connection -(B) +(C) =item $l3->bgp_peer_in_upd_el_time() Returns reference to hash of BGP peer to the elapsed time in seconds since the last BGP UPDATE message was received from the peer. -(B) +(C) =item $l3->bgp_peer_in_upd() Returns reference to hash of BGP peer to the number of BGP UPDATE messages received on this connection -(B) +(C) =item $l3->bgp_peer_out_tot_msgs() Returns reference to hash of BGP peer to the total number of messages transmitted to the remote peer on this connection -(B) +(C) =item $l3->bgp_peer_out_upd() Returns reference to hash of BGP peer to the number of BGP UPDATE messages transmitted on this connection -(B) +(C) =back -=head2 OSPF Interface Table (B) +=head2 OSPF Interface Table (C) =over @@ -645,47 +643,47 @@ transmitted on this connection Returns reference to hash of OSPF interface IP addresses -(B) +(C) =item $l3->ospf_if_area() Returns reference to hash of the OSPF area to which the interfaces connect -(B) +(C) =item $l3->ospf_if_type() Returns reference to hash of the OSPF interfaces' type -(B) +(C) =item $l3->ospf_if_hello() Returns reference to hash of the OSPF interfaces' hello interval -(B) +(C) =item $l3->ospf_if_dead() Returns reference to hash of the OSPF interfaces' dead interval -(B) +(C) =item $l3->ospf_if_admin() Returns reference to hash of the OSPF interfaces' administrative status -(B) +(C) =item $l3->ospf_if_state() Returns reference to hash of the OSPF interfaces' state -(B) +(C) =back -=head2 OSPF Neighbor Table (B) +=head2 OSPF Neighbor Table (C) =over @@ -694,20 +692,20 @@ Returns reference to hash of the OSPF interfaces' state Returns reference to hash of IP addresses the neighbor is using in its IP Source Addresses -(B) +(C) =item $l3->ospf_peer_id() Returns reference to hash of neighbor Router IDs -(B) +(C) =item $l3->ospf_peer_state() Returns reference to hash of state of the relationship with the neighbor routers -(B) +(C) =back diff --git a/Info/Layer3/Aironet.pm b/Info/Layer3/Aironet.pm index d187cff4..1c1b535a 100644 --- a/Info/Layer3/Aironet.pm +++ b/Info/Layer3/Aironet.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer3::Aironet -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::Aironet; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -212,7 +212,8 @@ __END__ =head1 NAME -SNMP::Info::Layer3::Aironet - Perl5 Interface to Cisco Aironet Wireless Devices running Aironet software, not IOS +SNMP::Info::Layer3::Aironet - Perl5 Interface to Cisco Aironet Wireless Devices +running Aironet software, not IOS =head1 AUTHOR @@ -224,7 +225,6 @@ Max Baker my $aironet = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -236,8 +236,8 @@ Max Baker =head1 DESCRIPTION -SNMP::Info subclass to provide access to SNMP data for an Aironet device running Aironet software, -not cisco IOS. +SNMP::Info subclass to provide access to SNMP data for an Aironet device +running Aironet software, not cisco IOS. Note there are two classes for Aironet devices : @@ -253,8 +253,8 @@ This class is for devices running Cisco IOS software (newer) =back -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $aironet = new SNMP::Info::Layer3::Aironet(...); @@ -270,14 +270,14 @@ a more specific class using the method above. =over -=item AWCVX-MIB +=item F -=item IEEE802dot11-MIB +=item F =back -These MIBs are now included in the v2.tar.gz archive available from ftp.cisco.com. Make sure you -have a current version. +These MIBs are now included in the v2.tar.gz archive available from +ftp.cisco.com. Make sure you have a current version. =head1 GLOBALS @@ -289,13 +289,13 @@ These are methods that return scalar value from SNMP Gives the admin duplex setting for the Ethernet Port. -B +C =item $aironet->mac() Gives the MAC Address of the wireless side -B +C =item $aironet->os() @@ -326,18 +326,18 @@ to a hash. =item $aironet->bp_index() -Takes the bp_index() value from SNMP::Info::Bridge and overrides the wireless port -to be assigned to the transparent bridge port (port 0) +Takes the bp_index() value from SNMP::Info::Bridge and overrides the wireless +port to be assigned to the transparent bridge port (port 0) =item $aironet->fw_mac() -Adds static table entries from bs_mac() to port 0 so that wireless MAC addresses will -be reported. Forwarding table entries for port 0 are removed. +Adds static table entries from bs_mac() to port 0 so that wireless MAC +addresses will be reported. Forwarding table entries for port 0 are removed. =item $aironet->fw_port() -Adds the static table port mappings to the forwarding table port mappings by adding -bs_port() to fw_port() +Adds the static table port mappings to the forwarding table port mappings by +adding bs_port() to fw_port() =item $aironet->i_duplex() @@ -361,29 +361,29 @@ Ignores ports that are of type ``rptr'' and ``lo''. Gives the default MAC address of each interface. -B +C =item $aironet->awc_mac() Gives the actual MAC address of each interface. -B +C =item $aironet->awc_ip() Gives the IP Address assigned to each interface. -B +C =item $aironet->awc_netmask() Gives the NetMask for each interface. -B +C =item $aironet->awc_msdu() -B +C =back diff --git a/Info/Layer3/AlteonAD.pm b/Info/Layer3/AlteonAD.pm index 094a11a1..60e2d6f3 100644 --- a/Info/Layer3/AlteonAD.pm +++ b/Info/Layer3/AlteonAD.pm @@ -1,8 +1,7 @@ # SNMP::Info::Layer3::AlteonAD -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller +# Copyright (c) 2008 Eric Miller # All Rights Reserved # # Redistribution and use in source and binary forms, with or without @@ -10,26 +9,27 @@ # # * 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. +# * 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. +# 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::AlteonAD; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -340,7 +340,6 @@ Eric Miller my $alteon = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -355,8 +354,8 @@ Eric Miller Abstraction subclass for Nortel Alteon Series Layer 2-7 load balancing switches and Nortel BladeCenter Layer2-3 GbE Switch Modules. -For speed or debugging purposes you can call the subclass directly, but not after -determining a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $alteon = new SNMP::Info::Layer3::AlteonAD(...); @@ -372,19 +371,19 @@ determining a more specific class using the method above. =over -=item ALTEON-ROOT-MIB +=item F -=item ALTEON-TIGON-SWITCH-MIB +=item F -=item ALTEON-TS-PHYSICAL-MIB +=item F -=item ALTEON-TS-NETWORK-MIB +=item F -=item ALTEON-CS-PHYSICAL-MIB +=item F -=item ALTEON-CHEETAH-SWITCH-MIB +=item F -=item ALTEON-CHEETAH-NETWORK-MIB +=item F =item Inherited Classes' MIBs @@ -400,8 +399,8 @@ These are methods that return scalar value from SNMP =item $alteon->model() -Returns model type. Checks $alteon->id() against the ALTEON-ROOT-MIB and -then parses out aceswitch, replaces acedirector with AD, and replaces +Returns model type. Checks $alteon->id() against the F and +then parses out C, replaces C with AD, and replaces copperModule/fiberModule with BladeCenter GbESM. =item $alteon->vendor() @@ -414,23 +413,23 @@ Returns 'alteon' =item $alteon->os_ver() -Returns the software version reported by B +Returns the software version reported by C =item $alteon->tftp_action() -(B) +(C) =item $alteon->tftp_host() -(B) +(C) =item $alteon->tftp_file() -(B) +(C) =item $alteon->tftp_result() -(B) +(C) =back @@ -452,7 +451,7 @@ to a hash. Returns reference to the map between IID and physical port. Utilizes description for network interfaces. Ports are determined by -formula (ifIndex mod 256). +formula (C). =item $alteon->i_duplex() @@ -464,12 +463,12 @@ Returns reference to hash. Maps port admin duplexes to IIDs. =item $alteon->i_vlan() -Returns a mapping between ifIndex and the PVID or default VLAN. +Returns a mapping between C and the PVID or default VLAN. =item $alteon->i_vlan_membership() -Returns reference to hash of arrays: key = ifIndex, value = array of VLAN IDs. -These are the VLANs which are members of the egress list for the port. +Returns reference to hash of arrays: key = C, value = array of VLAN +IDs. These are the VLANs which are members of the egress list for the port. Example: my $interfaces = $alteon->interfaces(); @@ -487,11 +486,12 @@ Human-entered name for vlans. =item $alteon->i_name() -Maps (B) to port and returns the human set port name if exists. +Maps (C) to port and returns the human set port name if +exists. =item $alteon->bp_index() -Returns a mapping between ifIndex and the Bridge Table. +Returns a mapping between C and the Bridge Table. =back diff --git a/Info/Layer3/BayRS.pm b/Info/Layer3/BayRS.pm index f71081fe..6fb25e12 100644 --- a/Info/Layer3/BayRS.pm +++ b/Info/Layer3/BayRS.pm @@ -1,8 +1,7 @@ # SNMP::Info::Layer3::BayRS -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -10,26 +9,27 @@ # # * 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. +# * 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. +# 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::BayRS; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -1316,7 +1316,6 @@ Eric Miller my $bayrs = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -1330,8 +1329,8 @@ Eric Miller Abstraction subclass for routers running Nortel BayRS. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $bayrs = new SNMP::Info::Layer3::BayRS(...); @@ -1351,15 +1350,15 @@ a more specific class using the method above. =over -=item Wellfleet-HARDWARE-MIB +=item F -=item Wellfleet-MODULE-MIB +=item F -=item Wellfleet-OSPF-MIB +=item F -=item Wellfleet-DOT1QTAG-CONFIG-MIB +=item F -=item Wellfleet-CSMACD-MIB +=item F =back @@ -1382,22 +1381,22 @@ These are methods that return scalar value from SNMP Returns the model of the BayRS router. Will translate between the MIB model and the common model with this map : -%MODEL_MAP = ( - 'acefn' => 'FN', - 'aceln' => 'LN', - 'acecn' => 'CN', - 'afn' => 'AFN', - 'in' => 'IN', - 'an' => 'AN', - 'arn' => 'ARN', - 'sys5000' => '5000', - 'freln' => 'BLN', - 'frecn' => 'BCN', - 'frerbln' => 'BLN-2', - 'asn' => 'ASN', + C<%MODEL_MAP = ( + 'acefn' => 'FN', + 'aceln' => 'LN', + 'acecn' => 'CN', + 'afn' => 'AFN', + 'in' => 'IN', + 'an' => 'AN', + 'arn' => 'ARN', + 'sys5000' => '5000', + 'freln' => 'BLN', + 'frecn' => 'BCN', + 'frerbln' => 'BLN-2', + 'asn' => 'ASN', 'asnzcable' => 'ASN-Z', 'asnbcable' => 'ASN-B', - ); + );> =item $bayrs->vendor() @@ -1409,17 +1408,17 @@ Returns 'bayrs' =item $bayrs->os_ver() -Returns the software version extracted from B +Returns the software version extracted from C =item $bayrs->serial() -Returns (B) after conversion to ASCII decimal +Returns (C) after conversion to ASCII decimal =item $bayrs->root_ip() Returns the primary IP used to communicate with the router. -Returns the first found: CLIP (CircuitLess IP), (B), or +Returns the first found: CLIP (CircuitLess IP), (C), or undefined. =back @@ -1458,7 +1457,7 @@ maintained. Otherwise the port is the interface description. =item $bayrs->i_name() -Returns (B) along with VLAN name (B) for VLAN +Returns (C) along with VLAN name (C) for VLAN interfaces. =item $bayrs->i_duplex() @@ -1477,10 +1476,10 @@ Returns reference to hash. Maps port VLAN ID to IIDs. =back -=head2 Pseudo ENTITY-MIB information +=head2 Pseudo F information -These methods emulate ENTITY-MIB Physical Table methods using -Wellfleet-HARDWARE-MIB and Wellfleet-MODULE-MIB. +These methods emulate F Physical Table methods using +F and F. =over @@ -1521,8 +1520,8 @@ entities sharing the same parent. =item $bayrs->e_type() Returns reference to hash. Key: IID, Value: Type of component/sub-component -as defined in Wellfleet-HARDWARE-MIB for processors and link moduels or -Wellfleet-MODULE-MIB for hardware modules. +as defined in F for processors and link modules or +F for hardware modules. =item $bayrs->e_fwver() diff --git a/Info/Layer3/C3550.pm b/Info/Layer3/C3550.pm index dc571002..17765a0c 100644 --- a/Info/Layer3/C3550.pm +++ b/Info/Layer3/C3550.pm @@ -1,8 +1,8 @@ # SNMP::Info::Layer3::C3550 -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. -# Copyright (c) 2003, Regents of the University of California +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2004 Regents of the University of California # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -10,27 +10,27 @@ # # * 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. +# * 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. +# 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 = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -250,9 +250,9 @@ Max Baker Abstraction subclass for Cisco Catalyst 3550 Layer 2/3 Switches. -These devices run IOS but have some of the same charactersitics as the +These devices run IOS but have some of the same characteristics 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. +VLANs, and extended interface information is gleaned from F. For speed or debugging purposes you can call the subclass directly, but not after determining a more specific class using the method above. @@ -291,7 +291,8 @@ 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. @@ -324,7 +325,7 @@ Will take the translated model number and try to format it better. =item $c3550->ports() -Trys to cull the number of ports from the model number. +Tries to cull the number of ports from the model number. =back @@ -375,7 +376,7 @@ Returns reference to hash of iid to current link duplex setting. Software version 12.1(22)EA1a or greater returns duplex based upon the result of $c3550->el_duplex(). Otherwise it uses the result of -the call to CiscoStack i_duplex(). +the call to CiscoStack::i_duplex(). See L for el_duplex() method and L for its i_duplex() method. @@ -386,17 +387,17 @@ Returns reference to hash of iid to administrative duplex setting. Software version 12.1(22)EA1a or greater returns duplex based upon the result of $c3550->p_duplex(). Otherwise it uses the result of -the call to CiscoStack i_duplex(). +the call to CiscoStack::i_duplex(). See L for its i_duplex() and p_duplex() methods. =item $c3550->set_i_duplex_admin(duplex, ifIndex) -Sets port duplex, must be supplied with duplex and port ifIndex. +Sets port duplex, must be supplied with duplex and port C. Speed choices are 'auto', 'half', 'full'. -Crosses $c3550->p_port() with $c3550->p_duplex() to utilize port ifIndex. +Crosses $c3550->p_port() with $c3550->p_duplex() to utilize port C. Example: my %if_map = reverse %{$c3550->interfaces()}; @@ -415,7 +416,8 @@ See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoPortSecurity -See documentation in L for details. +See documentation in L for +details. =head2 Table Methods imported from SNMP::Info::CiscoVTP diff --git a/Info/Layer3/C4000.pm b/Info/Layer3/C4000.pm index f0989299..db5a567b 100644 --- a/Info/Layer3/C4000.pm +++ b/Info/Layer3/C4000.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer3::C4000 -# Bill Fenner +# $Id$ # -# Copyright (c) 2006 Bill Fenner +# Copyright (c) 2008 Bill Fenner # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -9,26 +9,26 @@ # # * 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 +# * 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. +# 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; @@ -44,7 +44,7 @@ use SNMP::Info::MAU; use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::C4000::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP SNMP::Info::CiscoStats SNMP::Info::CiscoImage SNMP::Info::CiscoPortSecurity @@ -197,7 +197,8 @@ 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. @@ -266,7 +267,8 @@ See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoPortSecurity -See documentation in L for details. +See documentation in L for +details. =head2 Table Methods imported from SNMP::Info::CiscoConfig diff --git a/Info/Layer3/C6500.pm b/Info/Layer3/C6500.pm index 60e278c0..70d3cf2b 100644 --- a/Info/Layer3/C6500.pm +++ b/Info/Layer3/C6500.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer3::C6500 -# Max Baker +# $Id$ # -# Copyright (c) 2003,2004,2005 Max Baker +# Copyright (c) 2008 Max Baker # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -9,26 +9,26 @@ # # * 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 +# * 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. +# 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::C6500; -# $Id$ use strict; @@ -44,7 +44,7 @@ use SNMP::Info::CiscoPower; use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::C6500::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CiscoStack SNMP::Info::CDP SNMP::Info::CiscoStats SNMP::Info::CiscoImage @@ -223,9 +223,9 @@ Max Baker Abstraction subclass for Cisco Catalyst 6500 Layer 2/3 Switches. -These devices run IOS but have some of the same charactersitics as the Catalyst +These devices run IOS but have some of the same characteristics as the Catalyst WS-C family (5xxx). For example, forwarding tables are held in VLANs, and -extended interface information is gleened from CISCO-SWITCH-MIB. +extended interface information is gleaned from F. For speed or debugging purposes you can call the subclass directly, but not after determining a more specific class using the method above. @@ -272,7 +272,8 @@ 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. @@ -345,7 +346,7 @@ Returns reference to hash of iid to current link duplex setting. Newer software versions return duplex based upon the result of $c6500->el_duplex(). Otherwise it uses the result of the call to -CiscoStack i_duplex(). +CiscoStack::i_duplex(). See L for el_duplex() method and L for its i_duplex() method. @@ -356,17 +357,17 @@ Returns reference to hash of iid to administrative duplex setting. Newer software versions return duplex based upon the result of $c6500->p_duplex(). Otherwise it uses the result of the call to -CiscoStack i_duplex(). +CiscoStack::i_duplex(). See L for its i_duplex() and p_duplex() methods. =item $c6500->set_i_duplex_admin(duplex, ifIndex) -Sets port duplex, must be supplied with duplex and port ifIndex. +Sets port duplex, must be supplied with duplex and port C. Speed choices are 'auto', 'half', 'full'. -Crosses $c6500->p_port() with $c6500->p_duplex() to utilize port ifIndex. +Crosses $c6500->p_port() with $c6500->p_duplex() to utilize port C. Example: my %if_map = reverse %{$c6500->interfaces()}; @@ -397,7 +398,8 @@ See documentation in L for details. =head2 Table Methods imported from SNMP::Info::CiscoPortSecurity -See documentation in L for details. +See documentation in L for +details. =head2 Table Methods imported from SNMP::Info::CiscoConfig diff --git a/Info/Layer3/Cisco.pm b/Info/Layer3/Cisco.pm index dba7e5e3..6536c1a9 100644 --- a/Info/Layer3/Cisco.pm +++ b/Info/Layer3/Cisco.pm @@ -1,33 +1,33 @@ # SNMP::Info::Layer3::Cisco -# Max Baker +# $Id$ # -# Copyright (c) 2004 Max Baker +# Copyright (c) 2008 Max Baker # # 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. +# * 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. +# 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::Cisco; -# $Id$ use strict; @@ -43,7 +43,7 @@ use SNMP::Info::CiscoPower; use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::Cisco::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP SNMP::Info::CiscoStats SNMP::Info::CiscoImage SNMP::Info::CiscoRTT SNMP::Info::CiscoQOS @@ -183,7 +183,7 @@ Subclass for Generic Cisco Routers running IOS =over -=item CISCO-EIGRP-MIB +=item F =item Inherited Classes' MIBs @@ -219,7 +219,7 @@ These are methods that return scalar value from SNMP =item $cisco->eigrp_id() -(B) +(C) =back @@ -270,7 +270,7 @@ to a hash. Returns EIGRP peer IP addresses -(B) +(C) =back diff --git a/Info/Layer3/Contivity.pm b/Info/Layer3/Contivity.pm index eb328561..4c7ada00 100644 --- a/Info/Layer3/Contivity.pm +++ b/Info/Layer3/Contivity.pm @@ -1,8 +1,7 @@ # SNMP::Info::Layer3::Contivity -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -10,26 +9,27 @@ # # * 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. +# * 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. +# 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::Contivity; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -178,7 +178,6 @@ Eric Miller my $contivity = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -237,21 +236,21 @@ Returns 'Nortel' Returns the chassis name. -(B) +(C) =item $contivity->os() -Returns 'CES' +Returns C<'CES'> =item $contivity->os_ver() -Returns the software version extracted from (B). +Returns the software version extracted from (C). =item $contivity->serial() Returns the chassis serial number. -(B) +(C) =item $contivity->mac() diff --git a/Info/Layer3/Dell.pm b/Info/Layer3/Dell.pm index b0f60640..36478dc6 100644 --- a/Info/Layer3/Dell.pm +++ b/Info/Layer3/Dell.pm @@ -1,33 +1,34 @@ # SNMP::Info::Layer3::Dell - SNMP Interface to Dell devices -# Eric Miller +# $Id$ # -# Copyright (c) 2006 Eric Miller +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::Dell; -# $Id$ use strict; @@ -36,7 +37,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::Dell::ISA = qw/SNMP::Info::Layer3 Exporter/; @SNMP::Info::Layer3::Dell::EXPORT_OK = qw//; @@ -240,7 +241,6 @@ Eric Miller my $dell = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -274,13 +274,13 @@ my $dell = new SNMP::Info::Layer3::Dell(...); =over -=item Dell-Vendor-MIB +=item F -=item RADLAN-Physicaldescription-MIB +=item F -=item RADLAN-rlInterfaces +=item F -=item RADLAN-HWENVIROMENT +=item F =item Inherited Classes' MIBs @@ -296,15 +296,15 @@ These are methods that return scalar value from SNMP =item $dell->os_ver() -(B) +(C) =item $dell->dell_id_name() -(B) +(C) =item $dell->model() -Returns model type. Returns numeric from (B) +Returns model type. Returns numeric from (C) if available, otherwise if returns description(). =item $dell->vendor() @@ -325,7 +325,7 @@ id(). Defaults to 'dlink'. =item $dell->serial() -Returns serial number. Returns (B) if available, +Returns serial number. Returns (C) if available, otherwise uses the Layer3 serial method. =back @@ -339,41 +339,41 @@ See documentation in L for details. These are methods that return tables of information in the form of a reference to a hash. -=head2 RADLAN Interface Table (B) +=head2 RADLAN Interface Table (C) =over =item $dell->dell_duplex_admin() -(B) +(C) =item $dell->dell_duplex() -(B) +(C) =item $dell->dell_tag_mode() -(B) +(C) =item $dell->dell_i_type() -(B) +(C) =item $dell->dell_fc_admin() -(B) +(C) =item $dell->dell_speed_admin() -(B) +(C) =item $dell->dell_auto() -(B) +(C) =item $dell->dell_fc() -(B) +(C) =back diff --git a/Info/Layer3/Enterasys.pm b/Info/Layer3/Enterasys.pm index ea182a77..aea90d42 100644 --- a/Info/Layer3/Enterasys.pm +++ b/Info/Layer3/Enterasys.pm @@ -1,30 +1,34 @@ # SNMP::Info::Layer3::Enterasys - SNMP Interface to Enterasys devices -# Eric Miller +# $Id$ # -# Copyright (c) 2007 Eric Miller +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::Enterasys; -# $Id$ use strict; @@ -36,7 +40,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::Enterasys::ISA = qw/SNMP::Info::MAU SNMP::Info::LLDP SNMP::Info::CDP SNMP::Info::Layer3 @@ -317,7 +321,6 @@ Eric Miller my $enterasys = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -356,7 +359,7 @@ my $enterasys = new SNMP::Info::Layer3::Enterasys(...); =over -=item ENTERASYS-OIDS-MIB +=item F =back @@ -378,7 +381,7 @@ These are methods that return scalar value from SNMP =item $enterasys->model() -Returns model type. Checks $enterasys->id() against the ENTERASYS-OIDS-MIB. +Returns model type. Checks $enterasys->id() against the F. =item $enterasys->vendor() @@ -392,7 +395,7 @@ Returns enterasys Returns base mac -(B) +(C) =back @@ -439,20 +442,21 @@ See documentation for mau_i_duplex() in L. =item $enterasys->i_duplex_admin() -See documentation for mau_i_duplex_admin() in L. +See documentation for mau_i_duplex_admin() in +L. =back =head2 Topology information Based upon the firmware version Enterasys devices may support Cabletron -Discovery Protocol (CTRON-CDP), Cisco Discovery Protocol (CDP), Link Layer +Discovery Protocol (CTRON CDP), Cisco Discovery Protocol (CDP), Link Layer Discovery Protocol (LLDP), or all. This module currently supports CDP and -LLDP, but not CTRON-CDP. These methods will query both CDP and LLDP and +LLDP, but not CTRON CDP. These methods will query both CDP and LLDP and return the combination of all information. As a result, there may be identical topology information returned from the two protocols causing duplicate entries. It is the calling program's responsibility to -identify any duplicate entries and de-duplicate if necessary. +identify any duplicate entries and remove duplicates if necessary. =over diff --git a/Info/Layer3/Extreme.pm b/Info/Layer3/Extreme.pm index 1854c2fa..74ed4213 100644 --- a/Info/Layer3/Extreme.pm +++ b/Info/Layer3/Extreme.pm @@ -1,8 +1,7 @@ # SNMP::Info::Layer3::Extreme - SNMP Interface to Extreme devices -# Eric Miller -# Bill Fenner +# $Id$ # -# Copyright (c) 2005 Eric Miller +# Copyright (c) 2008 Eric Miller # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -12,26 +11,26 @@ # # * 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. +# * 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. +# 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::Extreme; -# $Id$ use strict; @@ -41,7 +40,7 @@ use SNMP::Info::MAU; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::Extreme::ISA = qw/SNMP::Info::Layer3 SNMP::Info::MAU Exporter/; @SNMP::Info::Layer3::Extreme::EXPORT_OK = qw//; @@ -499,7 +498,6 @@ Eric Miller, Bill Fenner my $extreme = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -515,8 +513,8 @@ Eric Miller, Bill Fenner Provides abstraction to the configuration information obtainable from an Extreme device through SNMP. -For speed or debugging purposes you can call the subclass directly, but not after determining -a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $extreme = new SNMP::Info::Layer3::Extreme(...); @@ -534,13 +532,13 @@ my $extreme = new SNMP::Info::Layer3::Extreme(...); =over -=item EXTREME-BASE-MIB +=item F -=item EXTREME-SYSTEM-MIB +=item F -=item EXTREME-FDB-MIB +=item F -=item EXTREME-VLAN-MIB +=item F =item Inherited Classes' MIBs @@ -554,13 +552,9 @@ These are methods that return scalar value from SNMP =over -#=item $extreme->bulkwalk_no -# -#Return C<1>. Bulkwalk is currently turned off for this class. - =item $extreme->model() -Returns model type. Checks $extreme->id() against the EXTREME-BASE-MIB. +Returns model type. Checks $extreme->id() against the F. =item $extreme->vendor() @@ -574,31 +568,31 @@ Returns extreme Returns serial number -(B) +(C) =item $extreme->temp() Returns system temperature -(B) +(C) =item $extreme->ps1_status() Returns status of power supply 1 -(B) +(C) =item $extreme->fan() Returns fan status -(B) +(C) =item $extreme->mac() Returns base mac -(B) +(C) =back @@ -627,26 +621,27 @@ to a hash. =item $extreme->fw_mac() -(B) +(C) =item $extreme->fw_port() -(B) +(C) =item $extreme->fw_status() -(B) +(C) =item $extreme->i_vlan() -Returns a mapping between ifIndex and the VLAN. +Returns a mapping between C and the VLAN. =item $stack->bp_index() -Returns reference to hash of bridge port table entries map back to interface identifier (iid) +Returns reference to hash of bridge port table entries map back to interface +identifier (iid) -Returns (B) for both key and value since we're using EXTREME-FDB-MIB -rather than BRIDGE-MIB. +Returns (C) for both key and value since we're using F +rather than F. =back @@ -658,10 +653,12 @@ See documentation in L for details. See documentation in L for details. +=over + =item $extreme->set_i_vlan ( vlan, ifIndex ) Changes an access (untagged) port VLAN, must be supplied with the numeric -VLAN ID and port ifIndex. This method should only be used on end station +VLAN ID and port C. This method should only be used on end station (non-trunk) ports. Example: @@ -672,7 +669,7 @@ VLAN ID and port ifIndex. This method should only be used on end station =item $extreme->set_i_pvid ( pvid, ifIndex ) Sets port default VLAN, must be supplied with the numeric VLAN ID and -port ifIndex. This method should only be used on trunk ports. +port C. This method should only be used on trunk ports. Example: my %if_map = reverse %{$extreme->interfaces()}; @@ -682,7 +679,7 @@ port ifIndex. This method should only be used on trunk ports. =item $extreme->set_add_i_vlan_tagged ( vlan, ifIndex ) Adds the VLAN to the enabled VLANs list of the port, must be supplied with the -numeric VLAN ID and port ifIndex. +numeric VLAN ID and port C. Example: my %if_map = reverse %{$extreme->interfaces()}; @@ -692,11 +689,13 @@ numeric VLAN ID and port ifIndex. =item $extreme->set_remove_i_vlan_tagged ( vlan, ifIndex ) Removes the VLAN from the enabled VLANs list of the port, must be supplied -with the numeric VLAN ID and port ifIndex. +with the numeric VLAN ID and port C. Example: my %if_map = reverse %{$extreme->interfaces()}; $extreme->set_remove_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) or die "Couldn't add port to egress list. ",$extreme->error(1); +=back + =cut diff --git a/Info/Layer3/Foundry.pm b/Info/Layer3/Foundry.pm index 83be6eb6..7d0e3520 100644 --- a/Info/Layer3/Foundry.pm +++ b/Info/Layer3/Foundry.pm @@ -1,7 +1,7 @@ # SNMP::Info::Layer3::Foundry - SNMP Interface to Foundry devices -# Max Baker +# $Id$ # -# Copyright (c) 2004,2005 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,26 +11,26 @@ # # * 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. +# * 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. +# 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::Foundry; -# $Id$ use strict; @@ -41,7 +41,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::Foundry::ISA = qw/SNMP::Info::FDP SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/; @@ -409,7 +409,6 @@ Max Baker my $foundry = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -445,11 +444,11 @@ after determining a more specific class using the method above. =over -=item FOUNDRY-SN-ROOT-MIB +=item F -=item FOUNDRY-SN-AGENT-MIB +=item F -=item FOUNDRY-SN-SWITCH-GROUP-MIB +=item F =item Inherited Classes' MIBs @@ -469,8 +468,8 @@ These are methods that return scalar value from SNMP =item $foundry->model() -Returns model type. Checks $foundry->id() against the FOUNDRY-SN-ROOT-MIB -and removes 'sn'. EdgeIron models determined through ENTITY-MIB. +Returns model type. Checks $foundry->id() against the F +and removes 'C'. EdgeIron models determined through F. =item $foundry->vendor() @@ -488,13 +487,13 @@ Returns the software version Returns MAC Address of root port. -(B) +(C) =item $foundry->chassis() Returns Chassis type. -(B) +(C) =item $foundry->serial() @@ -504,25 +503,25 @@ Returns serial number of device. Returns the chassis temperature -(B) +(C) =item $foundry->ps1_type() Returns the Description for the power supply -(B) +(C) =item $foundry->ps1_status() Returns the status of the power supply. -(B) +(C) =item $foundry->fan() Returns the status of the chassis fan. -(B) +(C) =back @@ -565,7 +564,7 @@ Crosses $foundry->sw_duplex() with $foundry->sw_index() =back -=head2 Foundry Switch Port Information Table (B) +=head2 Foundry Switch Port Information Table (C) =over @@ -573,25 +572,25 @@ Crosses $foundry->sw_duplex() with $foundry->sw_index() Returns reference to hash. Maps Table to Interface IID. -(B) +(C) =item $foundry->sw_duplex() Returns reference to hash. Current duplex status for switch ports. -(B) +(C) =item $foundry->sw_type() Returns reference to hash. Current Port Type . -(B) +(C) =item $foundry->sw_speed() Returns reference to hash. Current Port Speed. -(B) +(C) =back @@ -602,7 +601,8 @@ Protocol (FDP) and Link Layer Discovery Protocol (LLDP). These methods will query both and return the combination of all information. As a result, there may be identical topology information returned from the two protocols causing duplicate entries. It is the calling program's -responsibility to identify any duplicate entries and de-duplicate if necessary. +responsibility to identify any duplicate entries and remove duplicates if +necessary. =over diff --git a/Info/Layer3/HP9300.pm b/Info/Layer3/HP9300.pm index 098479b5..17fa341c 100644 --- a/Info/Layer3/HP9300.pm +++ b/Info/Layer3/HP9300.pm @@ -1,30 +1,34 @@ # SNMP::Info::Layer3::HP9300 - SNMP Interface to HP Foundry OEM devices -# Eric Miller +# $Id$ # -# Copyright (c) 2007 Eric Miller +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::HP9300; -# $Id$ use strict; @@ -337,7 +341,6 @@ Eric Miller my $hp9300 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -374,11 +377,11 @@ after determining a more specific class using the method above. =over -=item HP-SN-ROOT-MIB +=item F -=item HP-SN-AGENT-MIB +=item F -=item HP-SN-SWITCH-GROUP-MIB +=item F =item Inherited Classes' MIBs @@ -398,8 +401,8 @@ These are methods that return scalar value from SNMP =item $hp9300->model() -Returns model type. Checks $hp9300->id() against the HP-SN-ROOT-MIB -and removes 'hpSwitch'. +Returns model type. Checks $hp9300->id() against the F +and removes C. =item $hp9300->vendor() @@ -417,13 +420,13 @@ Returns the software version Returns MAC Address of root port. -(B) +(C) =item $hp9300->chassis() Returns Chassis type. -(B) +(C) =item $hp9300->serial() @@ -433,25 +436,25 @@ Returns serial number of device. Returns the chassis temperature -(B) +(C) =item $hp9300->ps1_type() Returns the Description for the power supply -(B) +(C) =item $hp9300->ps1_status() Returns the status of the power supply. -(B) +(C) =item $hp9300->fan() Returns the status of the chassis fan. -(B) +(C) =back @@ -494,7 +497,7 @@ Crosses $hp9300->sw_duplex() with $hp9300->sw_index() =back -=head2 Switch Port Information Table (B) +=head2 Switch Port Information Table (C) =over @@ -502,25 +505,25 @@ Crosses $hp9300->sw_duplex() with $hp9300->sw_index() Returns reference to hash. Maps Table to Interface IID. -(B) +(C) =item $hp9300->sw_duplex() Returns reference to hash. Current duplex status for switch ports. -(B) +(C) =item $hp9300->sw_type() Returns reference to hash. Current Port Type . -(B) +(C) =item $hp9300->sw_speed() Returns reference to hash. Current Port Speed. -(B) +(C) =back @@ -531,7 +534,8 @@ Protocol (FDP) and Link Layer Discovery Protocol (LLDP). These methods will query both and return the combination of all information. As a result, there may be identical topology information returned from the two protocols causing duplicate entries. It is the calling program's -responsibility to identify any duplicate entries and de-duplicate if necessary. +responsibility to identify any duplicate entries and remove duplicates +if necessary. =over diff --git a/Info/Layer3/Juniper.pm b/Info/Layer3/Juniper.pm index 451fe4c0..5ab9ca34 100644 --- a/Info/Layer3/Juniper.pm +++ b/Info/Layer3/Juniper.pm @@ -1,38 +1,40 @@ # SNMP::Info::Layer3::Juniper -# Bill Fenner +# $Id$ # +# Copyright (c) 2008 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. +# * 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. +# 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::Juniper; -# $Id$ use Exporter; use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::Juniper::ISA = qw/SNMP::Info::Layer3 Exporter/; @SNMP::Info::Layer3::Juniper::EXPORT_OK = qw//; @@ -132,7 +134,6 @@ Bill Fenner my $juniper = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myrouter', Community => 'public', Version => 2 @@ -202,7 +203,7 @@ to a hash. =item $juniper->i_vlan() -Returns the list of interfaces whose ifType is l2vlan(135), and +Returns the list of interfaces whose C is l2vlan(135), and the VLAN ID extracted from the interface description. =back diff --git a/Info/Layer3/Microsoft.pm b/Info/Layer3/Microsoft.pm index 2490b5fe..6f33a31f 100644 --- a/Info/Layer3/Microsoft.pm +++ b/Info/Layer3/Microsoft.pm @@ -1,31 +1,35 @@ # SNMP::Info::Layer3::Microsoft -# +# $Id$ +# +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::Microsoft; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use Exporter; use SNMP::Info::Layer3; @@ -107,7 +111,6 @@ begemot my $router = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myrouter', Community => 'public', Version => 1 diff --git a/Info/Layer3/N1600.pm b/Info/Layer3/N1600.pm index 746baf01..99e5c8b8 100644 --- a/Info/Layer3/N1600.pm +++ b/Info/Layer3/N1600.pm @@ -1,30 +1,34 @@ # SNMP::Info::Layer3::N1600 - SNMP Interface to Nortel N16XX devices -# Eric Miller +# $Id$ # -# Copyright (c) 2005 Eric Miller +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::N1600; -# $Id$ use strict; @@ -34,7 +38,7 @@ use SNMP::Info::SONMP; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::N1600::ISA = qw/SNMP::Info::Layer3 SNMP::Info::SONMP Exporter/; @SNMP::Info::Layer3::N1600::EXPORT_OK = qw//; @@ -181,7 +185,6 @@ Eric Miller my $n1600 = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 1 @@ -216,9 +219,9 @@ my $n1600 = new SNMP::Info::Layer3::N1600(...); =over -=item SWL2MGMT-MIB +=item F -=item RAPID-CITY +=item F =item Inherited Classes' MIBs @@ -226,16 +229,6 @@ See classes listed above for their required MIBs. =back -MIBs can be found on the CD that came with your product. - -Or, they can be downloaded directly from Nortel regardless of support -contract status. - -Go to http://www.nortel.com Techninal Support, Browse Technical Support, -Select by product, Java Device Manager, Software. Download the latest version. -After installation, all mibs are located under the install directory under mibs -and the repspective product line. - =head1 GLOBALS These are methods that return scalar value from SNMP @@ -249,7 +242,7 @@ Return C<1>. Bulkwalk is currently turned off for this class. =item $n1600->model() Returns model type. Checks $n1600->id() against the -RAPID-CITY-MIB and then parses out rcA. +F and then parses out C. =item $n1600->vendor() @@ -271,7 +264,7 @@ Required by SNMP::Info::SONMP. Number representing the number of ports reserved per slot within the device MIB. Returns 64 since largest switch has 48 ports. Since these switches can -not stack, the only requirment to reserve more than the max number of ports. +not stack, the only requirement to reserve more than the max number of ports. =back @@ -296,7 +289,7 @@ to a hash. Returns reference to hash of interface names to iids. -Places a 1 in front of index number. This is required for compatibilty with +Places a 1 in front of index number. This is required for compatibility with SNMP::Info::SONMP. =item $n1600->i_duplex() diff --git a/Info/Layer3/NetSNMP.pm b/Info/Layer3/NetSNMP.pm index 46ca83e7..4514be32 100644 --- a/Info/Layer3/NetSNMP.pm +++ b/Info/Layer3/NetSNMP.pm @@ -1,38 +1,40 @@ # SNMP::Info::Layer3::NetSNMP -# Bradley Baetz and Bill Fenner +# $Id$ # +# Copyright (c) 2008 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. +# * 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. +# 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::NetSNMP; -# $Id$ use Exporter; use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; -$VERSION = '1.07'; +$VERSION = '1.09'; @SNMP::Info::Layer3::NetSNMP::ISA = qw/SNMP::Info::Layer3 Exporter/; @SNMP::Info::Layer3::NetSNMP::EXPORT_OK = qw//; @@ -136,7 +138,6 @@ Bradley Baetz and Bill Fenner my $netsnmp = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myrouter', Community => 'public', Version => 2 @@ -162,11 +163,11 @@ Subclass for Generic Net-SNMP devices =over -=item UCD-SNMP-MIB +=item F -=item NET-SNMP-TC +=item F -=item HOST-RESOURCES-MIB +=item F =item Inherited Classes' MIBs @@ -186,17 +187,17 @@ Returns 'Net-SNMP'. =item $netsnmp->os() -Returns the OS extracted from sysDescr. +Returns the OS extracted from C. =item $netsnmp->os_ver() -Returns the software version extracted from sysDescr, along +Returns the software version extracted from C, along with the Net-SNMP version. =item $netsnmp->uptime() Returns the system uptime instead of the agent uptime. -NOTE: discontinuity timers and other TimeStamp-based objects +NOTE: discontinuity timers and other Time Stamp based objects are based on agent uptime, so use orig_uptime(). =back @@ -224,7 +225,7 @@ similar to where N is the object ID for your OS from the C MIB (or 255 if not listed). Some Net-SNMP installations default to an -incorrect return value for system.sysObjectId. +incorrect return value for C. In order to recognize a Net-SNMP device as Layer3, it may be necessary to put a configuration line similar to diff --git a/Info/Layer3/Netscreen.pm b/Info/Layer3/Netscreen.pm index 08c7f427..2b20401a 100644 --- a/Info/Layer3/Netscreen.pm +++ b/Info/Layer3/Netscreen.pm @@ -1,32 +1,35 @@ # SNMP::Info::Layer3::Netscreen -# Kent Hamilton # $Id$ # +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::Netscreen; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -114,7 +117,6 @@ Kent Hamilton my $netscreen = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -145,13 +147,13 @@ my $netscreen = new SNMP::Info::Layer3::Netscreen(...); =over -=item NETSCREEN-SMI +=item F -=item NETSCREEN-PRODUCTS-MIB +=item F -=item NETSCREEN-INTERFACE-MIB +=item F -=item NETSCREEN-SET-GEN-MIB +=item F =item Inherited Classes @@ -171,7 +173,7 @@ Returns 'netscreen' =item $netscreen->os() -Returns 'screenos' +Returns C<'screenos'> =item $netscreen->os_ver() diff --git a/Info/Layer3/Passport.pm b/Info/Layer3/Passport.pm index 7d1364f7..e9708f4d 100644 --- a/Info/Layer3/Passport.pm +++ b/Info/Layer3/Passport.pm @@ -1,8 +1,7 @@ # SNMP::Info::Layer3::Passport -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -10,26 +9,27 @@ # # * 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. +# * 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. +# 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::Passport; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -547,7 +547,7 @@ sub bp_index { return \%bp_index; } -# Psuedo ENTITY-MIB methods +# Pseudo ENTITY-MIB methods sub e_index { my $passport = shift; @@ -1011,7 +1011,6 @@ Eric Miller my $passport = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -1026,12 +1025,12 @@ Eric Miller Abstraction subclass for modular Nortel Ethernet Routing Switches (formerly Passport and Accelar Series Switches). -These devices have some of the same charactersitics as the stackable Nortel +These devices have some of the same characteristics as the stackable Nortel Ethernet Switches (Baystack). For example, extended interface information is -gleened from RAPID-CITY. +gleaned from F. -For speed or debugging purposes you can call the subclass directly, but not after -determining a more specific class using the method above. +For speed or debugging purposes you can call the subclass directly, but not +after determining a more specific class using the method above. my $passport = new SNMP::Info::Layer3::Passport(...); @@ -1070,7 +1069,7 @@ These are methods that return scalar value from SNMP =item $passport->model() Returns model type. Checks $passport->id() against the -RAPID-CITY-MIB and then parses out rcA. +F and then parses out C. =item $passport->vendor() @@ -1082,17 +1081,17 @@ Returns 'passport' =item $passport->os_ver() -Returns the software version extracted from B +Returns the software version extracted from C =item $passport->serial() -Returns (B) +Returns (C) =item $passport->root_ip() Returns the primary IP used to communicate with the device. Returns the first -found: CLIP (CircuitLess IP), Management Virtual IP (B), -OSPF Router ID (B), SONMP Advertised IP Address. +found: CLIP (CircuitLess IP), Management Virtual IP (C), +OSPF Router ID (C), SONMP Advertised IP Address. =back @@ -1137,16 +1136,17 @@ to a hash. =item $passport->i_index() -Returns SNMP IID to Interface index. Extends (B) by adding the index of -the CPU virtual management IP (if present), each CPU Ethernet port, and each VLAN -to ensure the virtual router ports are captured. +Returns SNMP IID to Interface index. Extends (C) by adding the index +of the CPU virtual management IP (if present), each CPU Ethernet port, and +each VLAN to ensure the virtual router ports are captured. =item $passport->interfaces() Returns reference to the map between IID and physical Port. Slot and port numbers on the Passport switches are determined by the formula: -port = (ifIndex % index_factor) + port_offset, slot = int(ifIndex / index_factor). +port = (C) + port_offset, +slot = int(C). The physical port name is returned as slot.port. CPU Ethernet ports are prefixed with CPU and VLAN interfaces are returned as the VLAN ID prefixed with Vlan. @@ -1163,32 +1163,33 @@ human and machine friendly. Not always. =item $passport->i_name() -Crosses rc_alias() (B) with ifAlias() and returns the human set port +Crosses rc_alias() (C) with ifAlias() and returns the human set port name if exists. =item $passport->ip_index() -Maps the IP Table to the IID. Extends (B) by adding the index of +Maps the IP Table to the IID. Extends (C) by adding the index of the CPU virtual management IP (if present) and each CPU Ethernet port. =item $passport->ip_netmask() -Extends (B) by adding the mask of the CPU virtual management +Extends (C) by adding the mask of the CPU virtual management IP (if present) and each CPU Ethernet port. =item $passport->bp_index() -Returns reference to hash of bridge port table entries map back to interface identifier (iid) +Returns reference to hash of bridge port table entries map back to interface +identifier (iid) -Returns (B) for both key and value since some devices seem to have -problems with BRIDGE-MIB +Returns (C) for both key and value since some devices seem to have +problems with F =back -=head2 Psuedo ENTITY-MIB information +=head2 Pseudo F information -These devices do not support ENTITY-MIB. These methods emulate Physical Table -methods using the RAPID-CITY MIB. +These devices do not support F. These methods emulate Physical +Table methods using the F. =over @@ -1202,7 +1203,7 @@ two digits padded with leading zero if required. =item $passport->e_class() Returns reference to hash. Key: IID, Value: General hardware type. This -class only returns container, module, and powerSupply types. +class only returns container, module, and power supply types. =item $passport->e_descr() diff --git a/Info/Layer3/Sun.pm b/Info/Layer3/Sun.pm index ffdaabf9..e1869295 100644 --- a/Info/Layer3/Sun.pm +++ b/Info/Layer3/Sun.pm @@ -1,32 +1,36 @@ # SNMP::Info::Layer3::Sun +# $Id$ +# +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::Sun; -$VERSION = '1.07'; +$VERSION = '1.09'; -# $Id$ use strict; use Exporter; @@ -115,7 +119,6 @@ begemot my $sun = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'mysunrouter', Community => 'public', Version => 1 diff --git a/Info/MAU.pm b/Info/MAU.pm index 6c1a465f..355d9e0e 100644 --- a/Info/MAU.pm +++ b/Info/MAU.pm @@ -1,7 +1,7 @@ # SNMP::Info::MAU - Media Access Unit - RFC 2668 -# Max Baker +# $Id$ # -# Copyright (c) 2004,2005 Max Baker changes from version 0.8 and beyond. +# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond. # # Copyright (c) 2002,2003 Regents of the University of California # All rights reserved. @@ -11,27 +11,27 @@ # # * 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. +# * 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. +# 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::MAU; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -281,8 +281,8 @@ Max Baker =head1 DESCRIPTION -SNMP::Info::MAU is a sublcass of SNMP::Info that supplies access to the -MAU-MIB (RFC 2668). This MIB is sometimes implemented on Layer 2 network +SNMP::Info::MAU is a subclass of SNMP::Info that supplies access to the +F (RFC 2668). This MIB is sometimes implemented on Layer 2 network devices like HP Switches. MAU = Media Access Unit. The MAU table contains link and duplex info for the port itself and the device @@ -303,7 +303,7 @@ None. =over -=item MAU-MIB +=item F =back @@ -354,14 +354,14 @@ Returns either (auto,none,full,half). =item $mau->mau_index() - Returns a list of interfaces and their index in the MAU IF Table. -(B) +(C) =item $mau->mau_link() - Returns the type of Media Access used. This is essentially the type of link in use. eg. dot3MauType100BaseTXFD - 100BaseT at Full Duplex -(B) +(C) =item $mau->mau_status() - Returns the admin link condition as @@ -374,16 +374,16 @@ and their index in the MAU IF Table. Use 5 and !5 to see if the link is up or down on the admin side. -(B) +(C) =item $mau->mau_up() - Returns the current link condition - (B) + (C) =item $mau->mau_type() - Returns a 32bit string reporting the capabilities of the port from a MAU POV. - Directly from the MAU-MIB : + Directly from F : Bit Capability 0 other or unknown 1 AUI @@ -407,7 +407,7 @@ of the port from a MAU POV. 19 100BASE-T2 half duplex mode 20 100BASE-T2 full duplex mode -(B) +(C) =item $mau->mau_type_admin() @@ -415,7 +415,7 @@ of the port from a MAU POV. =item $mau->mau_auto() - Returns status of auto-negotiation mode for ports. -(B) +(C) =item $mau->mau_autostat() @@ -426,7 +426,7 @@ capabilities we are broadcasting on that port Uses the same decoder as $mau->mau_type(). -(B) +(C) =item $mau->mau_autorec() - Returns a 32 bit bit-string representing the @@ -434,7 +434,7 @@ capabilities of the device on the other end. Uses the same decoder as $mau->mau_type(). -(B) +(C) =back diff --git a/Info/NortelStack.pm b/Info/NortelStack.pm index a818fe32..0d22ff8a 100644 --- a/Info/NortelStack.pm +++ b/Info/NortelStack.pm @@ -1,34 +1,35 @@ # SNMP::Info::NortelStack -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::NortelStack; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -135,7 +136,7 @@ sub serial { return undef; } -# Psuedo ENTITY-MIB methods for older switches with don't support ENTITY-MIB +# Pseudo ENTITY-MIB methods for older switches with don't support ENTITY-MIB # This class supports both stackable and chassis based switches, identify if # we have a stackable so that we return appropriate entPhysicalClass @@ -554,7 +555,8 @@ __END__ =head1 NAME -SNMP::Info::NortelStack - SNMP Interface to the Nortel S5-AGENT-MIB and S5-CHASSIS-MIB +SNMP::Info::NortelStack - SNMP Interface to the Nortel F and +F =head1 AUTHOR @@ -579,7 +581,7 @@ Eric Miller =head1 DESCRIPTION SNMP::Info::NortelStack is a subclass of SNMP::Info that provides an interface -to C and C. These MIBs are used across the +to F and F. These MIBs are used across the Nortel Stackable Ethernet Switches (BayStack), as well as, older Nortel devices such as the Centillion family of ATM switches. @@ -593,11 +595,11 @@ None. =over -=item S5-AGENT-MIB +=item F -=item S5-CHASSIS-MIB +=item F -=item S5-ROOT-MIB and S5-TCS-MIB are required by the other MIBs. +=item F and F are required by the other MIBs. =back @@ -609,89 +611,89 @@ These are methods that return scalar values from SNMP =item $stack->os_ver() -Returns the software version extracted from (B) +Returns the software version extracted from (C) =item $stack->os_bin() -Returns the firmware version extracted from (B) +Returns the firmware version extracted from (C) =item $stack->serial() Returns serial number of the chassis -(B) +(C) =item $stack->ns_ag_ver() Returns the version of the agent in the form 'major.minor.maintenance[letters]'. -(B) +(C) =item $stack->ns_op_mode() Returns the stacking mode. -(B) +(C) =item $stack->tftp_action() This object is used to download or upload a config file or an image file. -(B) +(C) =item $stack->tftp_result() Returns the status of the latest action as shown by $stack->tftp_action(). -(B) +(C) =item $stack->ns_auto_pvid() Returns the value indicating whether adding a port as a member of a VLAN automatically results in its PVID being set to be the same as that VLAN ID. -(B) +(C) =item $stack->tftp_file() Name of the binary configuration file that will be downloaded/uploaded when the $stack->tftp_action() object is set. -(B) +(C) =item $stack->tftp_host() The IP address of the TFTP server for all TFTP operations. -(B) +(C) =item $stack->vlan() Returns the VLAN ID of the system's management VLAN. -(B) +(C) =item $stack->ch_ser() Returns the serial number of the chassis. -(B) +(C) =item $stack->ns_cfg_chg() -Returns the total number of configuration changes (other than attachment changes, -or physical additions or removals) in the chassis that have been detected since -cold/warm start. +Returns the total number of configuration changes (other than attachment +changes, or physical additions or removals) in the chassis that have been +detected since cold/warm start. -(B) +(C) =item $stack->ns_cfg_time() -Returns the value of sysUpTime when the last configuration change (other than +Returns the value of C when the last configuration change (other than attachment changes, or physical additions or removals) in the chassis was detected. -(B) +(C) =back @@ -700,7 +702,7 @@ detected. These are methods that return tables of information in the form of a reference to a hash. -=head2 Agent Interface Table (s5AgMyIfTable) +=head2 Agent Interface Table (C) =over @@ -708,17 +710,18 @@ to a hash. Returns reference to hash. Key: Table entry, Value: Name of the file -(B) +(C) =item $stack->i_cfg_host() -Returns reference to hash. Key: Table entry, Value: IP address of the load server +Returns reference to hash. Key: Table entry, Value: IP address of the load +server -(B) +(C) =back -=head2 Chassis Components Table (s5ChasComTable) +=head2 Chassis Components Table (C) =over @@ -727,49 +730,49 @@ Returns reference to hash. Key: Table entry, Value: IP address of the load serv Returns reference to hash. Key: Table entry, Value: Index of the chassis level group which contains this component. -(B) +(C) =item $stack->ns_com_idx() Returns reference to hash. Key: Table entry, Value: Index of the component in the group. For modules in the 'board' group, this is the slot number. -(B) +(C) =item $stack->ns_com_sub_idx() Returns reference to hash. Key: Table entry, Value: Index of the sub-component in the component. -(B) +(C) =item $stack->ns_com_type() Returns reference to hash. Key: Table entry, Value: Type -(B) +(C) =item $stack->ns_com_descr() Returns reference to hash. Key: Table entry, Value: Description -(B) +(C) =item $stack->ns_com_ver() Returns reference to hash. Key: Table entry, Value: Version -(B) +(C) =item $stack->ns_com_serial() Returns reference to hash. Key: Table entry, Value: Serial Number -(B) +(C) =back -=head2 Storage Area Table (s5ChasStoreTable) +=head2 Storage Area Table (C) =over @@ -778,77 +781,78 @@ Returns reference to hash. Key: Table entry, Value: Serial Number Returns reference to hash. Key: Table entry, Value: Index of the chassis level group. -(B) +(C) =item $stack->ns_store_idx() Returns reference to hash. Key: Table entry, Value: Index of the group. -(B) +(C) =item $stack->ns_store_sub_idx() Returns reference to hash. Key: Table entry, Value: Index of the sub-component. -(B) +(C) =item $stack->ns_store_idx() Returns reference to hash. Key: Table entry, Value: Index of the storage area. -(B) +(C) =item $stack->ns_store_type() Returns reference to hash. Key: Table entry, Value: Type -(B) +(C) =item $stack->ns_store_size() Returns reference to hash. Key: Table entry, Value: Size -(B) +(C) =item $stack->ns_store_ver() Returns reference to hash. Key: Table entry, Value: Version -(B) +(C) =back -=head2 Psuedo ENTITY-MIB information +=head2 Pseudo F information -These methods emulate ENTITY-MIB Physical Table methods using S5-CHASSIS-MIB. +These methods emulate F Physical Table methods using +F. =over =item $stack->ns_e_index() -Returns reference to hash. Key: IID, Value: Integer, Indicies are combined +Returns reference to hash. Key: IID, Value: Integer, Indices are combined into a six digit integer, each index is two digits padded with leading zero if required. =item $stack->ns_e_class() Returns reference to hash. Key: IID, Value: General hardware type -(B). +(C). Group is stripped from the string. Values may be Supervisory Module, -Backplane, Board, Power Supply, Sensor, Fan, Clock, Unit. +Back Plane, Board, Power Supply, Sensor, Fan, Clock, Unit. =item $stack->ns_e_descr() Returns reference to hash. Key: IID, Value: Human friendly name -(B) +(C) =item $stack->ns_e_hwver() Returns reference to hash. Key: IID, Value: Hardware version -(B) +(C) =item $stack->ns_e_vendor() @@ -858,32 +862,32 @@ Returns reference to hash. Key: IID, Value: nortel Returns reference to hash. Key: IID, Value: Serial number -(B) +(C) =item $stack->ns_e_pos() Returns reference to hash. Key: IID, Value: The relative position among all entities sharing the same parent. -(B) +(C) =item $stack->ns_e_type() Returns reference to hash. Key: IID, Value: Type of component/sub-component -as defined under B in S5-REG-MIB. +as defined under C in F. =item $stack->ns_e_fwver() Returns reference to hash. Key: IID, Value: Firmware revision. -Value of B for entries with rom, boot, or fw in -B. +Value of C for entries with rom, boot, or firmware in +C. =item $stack->ns_e_fwver() Returns reference to hash. Key: IID, Value: Software revision. -Value of B for entries with "flash" in B. +Value of C for entries with "flash" in C. =item $stack->ns_e_parent() @@ -891,4 +895,6 @@ Returns reference to hash. Key: IID, Value: The value of ns_e_index() for the entity which 'contains' this entity. A value of zero indicates this entity is not contained in any other entity. +=back + =cut diff --git a/Info/PowerEthernet.pm b/Info/PowerEthernet.pm index 8d57ba50..da82c846 100644 --- a/Info/PowerEthernet.pm +++ b/Info/PowerEthernet.pm @@ -1,34 +1,35 @@ # SNMP::Info::PowerEthernet -# Bill Fenner +# $Id$ # -# Copyright (c) 2007 Bill Fenner +# Copyright (c) 2008 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. +# * 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. +# 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::PowerEthernet; -$VERSION = '1.07'; -# $Id$ +$VERSION = '1.09'; use strict; @@ -88,9 +89,12 @@ sub peth_port_ifindex { 1; +__END__ + =head1 NAME -SNMP::Info::PowerEthernet - SNMP Interface to data stored in POWER-ETHERNET-MIB. +SNMP::Info::PowerEthernet - SNMP Interface to data stored in +F. =head1 AUTHOR @@ -102,7 +106,6 @@ Bill Fenner my $poe = new SNMP::Info( AutoSpecify => 1, Debug => 1, - # These arguments are passed directly on to SNMP::Session DestHost => 'myswitch', Community => 'public', Version => 2 @@ -114,7 +117,7 @@ Bill Fenner =head1 DESCRIPTION -POWER-ETHERNET-MIB is used to describe PoE (IEEE 802.3af) +F is used to describe PoE (IEEE 802.3af) Create or use a device subclass that inherit this class. Do not use directly. @@ -130,7 +133,7 @@ none. =over -=item POWER-ETHERNET-MIB +=item F =back @@ -163,15 +166,15 @@ C =item $poe->peth_port_class() -Device class: if status is deliveringPower, this represents the 802.3af +Device class: if status is delivering power, this represents the 802.3af class of the device being powered. C =item $poe->peth_port_ifindex() -A mapping function from the pethPsePortTable INDEX of -module.port to an ifIndex. The default mapping ignores the +A mapping function from the C INDEX of +module.port to an C. The default mapping ignores the module (returning undef if there are any module values greater than 1) and returns the port number, assuming that there is a 1:1 mapping. @@ -202,7 +205,7 @@ C =item $poe->peth_power_consumption() How much power, in watts, this power supply has been committed to -deliver. (Note: certain devices seem to supply this value in milliwats, +deliver. (Note: certain devices seem to supply this value in milliwatts, so be cautious interpreting it.) C diff --git a/Info/RapidCity.pm b/Info/RapidCity.pm index c192ddc3..4f72bd59 100644 --- a/Info/RapidCity.pm +++ b/Info/RapidCity.pm @@ -1,33 +1,35 @@ # SNMP::Info::RapidCity # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::RapidCity; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; use Exporter; @@ -530,12 +532,12 @@ Eric Miller # Let SNMP::Info determine the correct subclass for you. my $rapidcity = new SNMP::Info( - AutoSpecify => 1, - Debug => 1, - # These arguments are passed directly on to SNMP::Session - DestHost => 'myswitch', - Community => 'public', - Version => 2 + 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"; @@ -547,7 +549,7 @@ Eric Miller SNMP::Info::RapidCity is a subclass of SNMP::Info that provides an interface to the C MIB. This MIB is used across the Nortel Ethernet Routing Switch and Ethernet Switch product lines (Formerly known as Passport, -BayStack, and Acclear). +BayStack, and Accelar). Use or create in a subclass of SNMP::Info. Do not use directly. @@ -571,47 +573,47 @@ These are methods that return scalar values from SNMP =item $rapidcity->rc_base_mac() -(B) +(C) =item $rapidcity->rc_serial() -(B) +(C) =item $rapidcity->rc_ch_rev() -(B) +(C) =item $rapidcity->chassis() -(B) +(C) =item $rapidcity->slots() -(B) +(C) =item $rapidcity->rc_virt_ip() -(B) +(C) =item $rapidcity->rc_virt_mask() -(B) +(C) =item $rapidcity->tftp_host() -(B) +(C) =item $rapidcity->tftp_file() -(B) +(C) =item $rapidcity->tftp_action() -(B) +(C) =item $rapidcity->tftp_result() -(B) +(C) =back @@ -642,12 +644,12 @@ Returns reference to hash of IIDs to admin duplex setting. =item $rapidcity->i_vlan() -Returns a mapping between ifIndex and the PVID or default VLAN. +Returns a mapping between C and the PVID or default VLAN. =item $rapidcity->i_vlan_membership() -Returns reference to hash of arrays: key = ifIndex, value = array of VLAN IDs. -These are the VLANs which are members of the egress list for the port. +Returns reference to hash of arrays: key = C, value = array of VLAN +IDs. These are the VLANs which are members of the egress list for the port. Example: my $interfaces = $rapidcity->interfaces(); @@ -661,333 +663,333 @@ These are the VLANs which are members of the egress list for the port. =back -=head2 RAPID-CITY Port Table (B) +=head2 RAPID-CITY Port Table (C) =over =item $rapidcity->rc_index() -(B) +(C) =item $rapidcity->rc_duplex() -(B) +(C) =item $rapidcity->rc_duplex_admin() -(B) +(C) =item $rapidcity->rc_speed_admin() -(B) +(C) =item $rapidcity->rc_auto() -(B) +(C) =item $rapidcity->rc_alias() -(B) +(C) =back -=head2 RAPID-CITY CPU Ethernet Port Table (B) +=head2 RAPID-CITY CPU Ethernet Port Table (C) =over =item $rapidcity->rc_cpu_ifindex() -(B) +(C) =item $rapidcity->rc_cpu_admin() -(B) +(C) =item $rapidcity->rc_cpu_oper() -(B) +(C) =item $rapidcity->rc_cpu_ip() -(B) +(C) =item $rapidcity->rc_cpu_mask() -(B) +(C) =item $rapidcity->rc_cpu_auto() -(B) +(C) =item $rapidcity->rc_cpu_duplex_admin() -(B) +(C) =item $rapidcity->rc_cpu_duplex() -(B) +(C) =item $rapidcity->rc_cpu_speed_admin() -(B) +(C) =item $rapidcity->rc_cpu_speed_oper() -(B) +(C) =item $rapidcity->rc_cpu_mac() -(B) +(C) =back -=head2 RAPID-CITY VLAN Port Table (B) +=head2 RAPID-CITY VLAN Port Table (C) =over =item $rapidcity->rc_i_vlan_if() -(B) +(C) =item $rapidcity->rc_i_vlan_num() -(B) +(C) =item $rapidcity->rc_i_vlan() -(B) +(C) =item $rapidcity->rc_i_vlan_type() -(B) +(C) =item $rapidcity->rc_i_vlan_pvid() -(B) +(C) =item $rapidcity->rc_i_vlan_tag() -(B) +(C) =back -=head2 RAPID-CITY VLAN Table (B) +=head2 RAPID-CITY VLAN Table (C) =over =item $rapidcity->rc_vlan_id() -(B) +(C) =item $rapidcity->v_name() -(B) +(C) =item $rapidcity->rc_vlan_color() -(B) +(C) =item $rapidcity->rc_vlan_if() -(B) +(C) =item $rapidcity->rc_vlan_stg() -(B) +(C) =item $rapidcity->rc_vlan_type() -(B) +(C) =item $rapidcity->rc_vlan_members() -(B) +(C) =item $rapidcity->rc_vlan_mac() -(B) +(C) =back -=head2 RAPID-CITY IP Address Table (B) +=head2 RAPID-CITY IP Address Table (C) =over =item $rapidcity->rc_ip_index() -(B) +(C) =item $rapidcity->rc_ip_addr() -(B) +(C) =item $rapidcity->rc_ip_type() -(B) +(C) =back -=head2 RAPID-CITY Chassis Fan Table (B) +=head2 RAPID-CITY Chassis Fan Table (C) =over =item $rapidcity->rc_fan_op() -(B) +(C) =back -=head2 RAPID-CITY Power Supply Table (B) +=head2 RAPID-CITY Power Supply Table (C) =over =item $rapidcity->rc_ps_op() -(B) +(C) =back -=head2 RAPID-CITY Power Supply Detail Table (B) +=head2 RAPID-CITY Power Supply Detail Table (C) =over =item $rapidcity->rc_ps_type() -(B) +(C) =item $rapidcity->rc_ps_serial() -(B) +(C) =item $rapidcity->rc_ps_rev() -(B) +(C) =item $rapidcity->rc_ps_part() -(B) +(C) =item $rapidcity->rc_ps_detail() -(B) +(C) =back -=head2 RAPID-CITY Card Table (B) +=head2 RAPID-CITY Card Table (C) =over =item $rapidcity->rc_c_type() -(B) +(C) =item $rapidcity->rc_c_serial() -(B) +(C) =item $rapidcity->rc_c_rev() -(B) +(C) =item $rapidcity->rc_c_part() -(B) +(C) =back -=head2 RAPID-CITY 2k Card Table (B) +=head2 RAPID-CITY 2k Card Table (C) =over =item $rapidcity->rc2k_c_ftype() -(B) +(C) =item $rapidcity->rc2k_c_fdesc() -(B) +(C) =item $rapidcity->rc2k_c_fserial() -(B) +(C) =item $rapidcity->rc2k_c_frev() -(B) +(C) =item $rapidcity->rc2k_c_fpart() -(B) +(C) =item $rapidcity->rc2k_c_fdate() -(B) +(C) =item $rapidcity->rc2k_c_fdev() -(B) +(C) =item $rapidcity->rc2k_c_btype() -(B) +(C) =item $rapidcity->rc2k_c_bdesc() -(B) +(C) =item $rapidcity->rc2k_c_bserial() -(B) +(C) =item $rapidcity->rc2k_c_brev() -(B) +(C) =item $rapidcity->rc2k_c_bpart() -(B) +(C) =item $rapidcity->rc2k_c_bdate() -(B) +(C) =item $rapidcity->rc2k_c_bdev() -(B) +(C) =back -=head2 RAPID-CITY MDA Card Table (B) +=head2 RAPID-CITY MDA Card Table (C) =over =item $rapidcity->rc2k_mda_type() -(B) +(C) =item $rapidcity->rc2k_mda_desc() -(B) +(C) =item $rapidcity->rc2k_mda_serial() -(B) +(C) =item $rapidcity->rc2k_mda_rev() -(B) +(C) =item $rapidcity->rc2k_mda_part() -(B) +(C) =item $rapidcity->rc2k_mda_date() -(B) +(C) =item $rapidcity->rc2k_mda_dev() -(B) +(C) =back @@ -1001,7 +1003,7 @@ L for general information on set operations. =item $rapidcity->set_i_speed_admin(speed, ifIndex) -Sets port speed, must be supplied with speed and port ifIndex. Speed choices +Sets port speed, must be supplied with speed and port C. Speed choices are 'auto', '10', '100', '1000'. Example: @@ -1011,8 +1013,8 @@ are 'auto', '10', '100', '1000'. =item $rapidcity->set_i_duplex_admin(duplex, ifIndex) -Sets port duplex, must be supplied with duplex and port ifIndex. Speed choices -are 'auto', 'half', 'full'. +Sets port duplex, must be supplied with duplex and port C. Speed +choices are 'auto', 'half', 'full'. Example: my %if_map = reverse %{$rapidcity->interfaces()}; @@ -1021,9 +1023,10 @@ are 'auto', 'half', 'full'. =item $rapidcity->set_i_vlan(vlan, ifIndex) -Changes an access (untagged) port VLAN, must be supplied with the numeric VLAN ID -and port ifIndex. This method will modify the port's VLAN membership and PVID -(default VLAN). This method should only be used on end station (non-trunk) ports. +Changes an access (untagged) port VLAN, must be supplied with the numeric +VLAN ID and port C. This method will modify the port's VLAN membership +and PVID (default VLAN). This method should only be used on end station +(non-trunk) ports. Example: my %if_map = reverse %{$rapidcity->interfaces()}; @@ -1033,8 +1036,8 @@ and port ifIndex. This method will modify the port's VLAN membership and PVID =item $rapidcity->set_i_pvid(pvid, ifIndex) Sets port PVID or default VLAN, must be supplied with the numeric VLAN ID and -port ifIndex. This method only changes the PVID, to modify an access (untagged) -port use set_i_vlan() instead. +port C. This method only changes the PVID, to modify an access +(untagged) port use set_i_vlan() instead. Example: my %if_map = reverse %{$rapidcity->interfaces()}; @@ -1044,7 +1047,7 @@ port use set_i_vlan() instead. =item $rapidcity->set_add_i_vlan_tagged(vlan, ifIndex) Adds the port to the egress list of the VLAN, must be supplied with the numeric -VLAN ID and port ifIndex. +VLAN ID and port C. Example: my %if_map = reverse %{$rapidcity->interfaces()}; @@ -1054,7 +1057,7 @@ VLAN ID and port ifIndex. =item $rapidcity->set_remove_i_vlan_tagged(vlan, ifIndex) Removes the port from the egress list of the VLAN, must be supplied with the -numeric VLAN ID and port ifIndex. +numeric VLAN ID and port C. Example: my %if_map = reverse %{$rapidcity->interfaces()}; @@ -1072,4 +1075,6 @@ Creates the specified VLAN on the device. Note: This method only allows creation of Port type VLANs and does not allow for the setting of the Spanning Tree Group (STG) which defaults to 1. +=back + =cut diff --git a/Info/SONMP.pm b/Info/SONMP.pm index 648346ce..766c802a 100644 --- a/Info/SONMP.pm +++ b/Info/SONMP.pm @@ -1,34 +1,35 @@ # SNMP::Info::SONMP -# Eric Miller # $Id$ # -# Copyright (c) 2004 Eric Miller, Max Baker +# Copyright (c) 2008 Eric Miller +# 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. +# * 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. +# 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::SONMP; -$VERSION = '1.07'; +$VERSION = '1.09'; use strict; @@ -215,7 +216,8 @@ __END__ =head1 NAME -SNMP::Info::SONMP - SNMP Interface to SynOptics Network Management Protocol (SONMP) +SNMP::Info::SONMP - SNMP Interface to SynOptics Network Management Protocol +(SONMP) =head1 AUTHOR @@ -274,9 +276,9 @@ None. =over -=item SYNOPTICS-ROOT-MIB +=item F -=item S5-ETH-MULTISEG-TOPOLOGY-MIB +=item F =back @@ -307,13 +309,13 @@ Is SONMP is active in this device? Returns the IP that the device is sending out for its Nmm topology info. -(B) +(C) =item $sonmp->cdp_run() Returns true if SONMP is on for this device. -(B) +(C) =item $sonmp->mac() @@ -326,7 +328,7 @@ Returns MAC of the advertised IP address of the device. These are methods that return tables of information in the form of a reference to a hash. -=head2 Layer2 Topology info (B) +=head2 Layer2 Topology info (C) =over @@ -334,29 +336,29 @@ to a hash. Returns reference to hash. Key: Table entry, Value:slot number -(B) +(C) =item $sonmp->sonmp_topo_port() Returns reference to hash. Key: Table entry, Value:Port Number (interface iid) -(B) +(C) =item $sonmp->sonmp_topo_ip() Returns reference to hash. Key: Table entry, Value:Remote IP address of entry -(B) +(C) =item $sonmp->sonmp_topo_seg() Returns reference to hash. Key: Table entry, Value:Remote Segment ID -(B) +(C) =item $sonmp->sonmp_topo_mac() -(B) +(C) Returns reference to hash. Key: Table entry, Value:Remote MAC address @@ -364,18 +366,18 @@ Returns reference to hash. Key: Table entry, Value:Remote MAC address Returns reference to hash. Key: Table entry, Value:Remote Device Type -(B) +(C) =item $sonmp->sonmp_topo_localseg Returns reference to hash. Key: Table entry, Value: Boolean, if bay_topo_seg() is local. -(B) +(C) =back -=head2 Psuedo CDP information +=head2 Pseudo CDP information All entries with port=0 are local and ignored. @@ -390,7 +392,7 @@ Returns reference to hash. Key: IID, Value: Local port (interfaces) Returns reference to hash. Key: IID, Value: Remote IP address If multiple entries exist with the same local port, c_if(), with different IPv4 -addresses, c_ip(), there is either a non-SONMP device in between two or +addresses, c_ip(), there is either a non SONMP device in between two or more devices or multiple devices which are not directly connected. Use the data from the Layer2 Topology Table below to dig deeper.