release 3.61

Fix SNMPv1 cdp_run check

.github/issue_template.md

@@ -0,0 +1,31 @@
+<!--- Provide a general summary of the issue in the Title above -->
+<!--- https://guides.github.com/features/mastering-markdown/#examples -->
+
+## Expected Behavior
+<!--- If you're describing a bug, tell us what should happen -->
+<!--- If you're suggesting a change/improvement, tell us how it should work -->
+
+## Current Behavior
+<!--- If describing a bug, tell us what happens instead of the expected behavior -->
+<!--- If suggesting a change/improvement, explain the difference from current behavior -->
+
+## Possible Solution
+<!--- Not obligatory, but suggest a fix/reason for the bug, -->
+<!--- or ideas how to implement the addition or change -->
+
+## Steps to Reproduce (for bugs)
+<!--- Provide a link to a live example, or an unambiguous set of steps to -->
+<!--- reproduce this bug. Include code to reproduce, if relevant, or attach screenshots -->
+1. 
+2. 
+3. 
+4. 
+
+## Context
+<!--- How has this issue affected you? What are you trying to accomplish? -->
+<!--- Providing context helps us come up with a solution that is most useful in the real world -->
+
+## Your Environment
+<!--- Include as many relevant details about the environment you experienced the bug in -->
+* SNMP::Info version used: 
+* Netdisco version (if used): 

.gitignore

@@ -0,0 +1,12 @@
+*.swp
+*.pid
+test.pl
+MYMETA.*
+*.tar.gz
+MANIFEST.*
+*.komodo*
+Makefile*
+Build
+_build
+blib
+cover_db

.perltidyrc

@@ -0,0 +1,18 @@
+# .perltidyrc - PBP perltidy configuration file for SNMP::Info
+# $Id$
+
+-l=78   # Max line width is 78 cols
+-i=4    # Indent level is 4 cols
+-ci=4   # Continuation indent is 4 cols
+-nst    # Output to STDOUT
+-se     # Errors to STDERR
+-vt=2   # Maximal vertical tightness
+-cti=0  # No extra indentation for closing brackets
+-pt=1   # Medium parenthesis tightness
+-bt=1   # Medium brace tightness
+-sbt=1  # Medium square bracket tightness
+-bbt=1  # Medium block brace tightness
+-nsfs   # No space before semicolons
+-nolq   # Don't outdent long quoted strings
+-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= && += -= /= |= >>= ||= .= %= ^= x=" # Break before all operators
+

.travis.yml

@@ -0,0 +1,29 @@
+language: perl
+addons:
+  apt:
+    packages:
+      - jq
+      - libsnmp-dev
+branches:
+  only:
+    - /^3\.\d{2}$/
+    - 'master'
+before_install:
+  - mkdir ~/netdisco-mibs
+  - cd ~/netdisco-mibs
+install:
+  - curl -sL https://github.com/netdisco/netdisco-mibs/releases/download/4.010/netdisco-mibs.tar.gz | tar --strip-components=1 -zxf -
+  - cpanm --quiet --notest PkgConfig Test::CChecker Alien::zlib::Static Alien::OpenSSL::Static Alien::SNMP::MAXTC
+before_script:
+  - 'cd ${TRAVIS_BUILD_DIR}'
+script:
+  - >
+    perl Build.PL &&
+    PERL_MM_USE_DEFAULT=1 ./Build installdeps --cpan_client 'cpanm --quiet --notest' &&
+    ./Build test --test_files t/ --test_files xt/
+notifications:
+  irc:
+    on_success: change
+    on_failure: always
+    channels:
+      - 'chat.freenode.net#netdisco'

Build.PL

@@ -0,0 +1,51 @@
+use strict;
+use warnings;
+use Module::Build;
+
+Module::Build->new(
+  module_name => 'SNMP::Info',
+  license     => 'bsd',
+  dist_author => 'Eric A. Miller <emiller@cpan.org>',
+  # dynamic_config => 1,
+  create_readme => 1,
+  configure_requires => {
+    'Module::Build' => '0.42',
+  },
+  # build_requires => {
+  # },
+  requires => {
+    'SNMP' => '0',
+    'Math::BigInt' => '0',
+    'NetAddr::IP' => '4.068',
+  },
+  recommends => {
+    'PPI' => '0',
+    'Class::ISA' => '0',
+    'Module::Info' => '0',
+    'Module::Load' => '0',
+    'File::Slurp' => '0',
+  },
+  test_requires => {
+    'Test::More' => '0.88',
+    'Test::Distribution' => '0',
+    'Test::Class::Most'  => '0',
+    'Test::MockObject::Extends' => '0',
+    'File::Find' => '0',
+    'Path::Class' => '0',
+    'File::Slurper' => '0',
+    'Test::Exception' => '0.43',
+    'Class::Inspector' => '0',
+  },
+  # script_files => [
+  # ],
+  # share_dir => 'share',
+  meta_merge => {
+    resources => {
+      homepage => 'http://netdisco.org/',
+      bugtracker => 'https://github.com/netdisco/snmp-info/issues',
+      repository => 'https://github.com/netdisco/snmp-info',
+      MailingList => 'https://lists.sourceforge.net/lists/listinfo/snmp-info-users',
+      IRC => 'irc://irc.freenode.org/#netdisco',
+    },
+  },
+)->create_build_script;

ChangeLog

@@ -1,293 +0,0 @@
-SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
-ChangeLog $Id$
-
-version 1.07 (11/26/07) - Beta/developer release
-
-version 1.05 (11/25/07) - CVS only. No official release
-    + Added support for LLDP in new class LLDP (contributions from Bernhard
-      Augenstein)
-    + Added device specific support for LLDP in L2::HP, L2::Baystack,
-      L3::Enterasys and L3::Foundry
-    + Added support for Enterasys devices as new class L3::Enterasys 
-    + Added support for Dell PowerConnect switches as new class L3::Dell
-    + Added basic support for generic routers running Microsoft Windows OS
-      as new class L3::Microsoft (begemot)
-    + Added basic support for Sun routers as new class L3::Sun (begemot)
-    + Added basic support for Juniper NetScreen devices as new class
-      L3::Netscreen (Kent Hamilton)
-    + Added support for Cyclades terminal servers as new class L1::Cyclades
-    + Added support for Cisco (Airespace) wireless controllers as new class
-      L2::Airespace
-    + Added support for Nortel Ethernet Routing Switch 2500 series and
-      Business Ethernet Switches (David Sieb<65>rger)
-    + Update of L3::Foundry to support all Foundry devices including newer
-      switches.  Depreciate L2::Foundry.
-    + Added generic device type detection using IANA assigned enterpise
-      number extracted from sysObjectID
-    + Added ifDiscards and other missing entries from IF-MIB::ifEntry (Greg King)
-    + Added CGESM devices to L2::C2900 class (Alexander Hartmaier)
-    + Added support for dual speed 10/100 hubs and i_speed() in L1::Bayhub
-    + Added i_ssidlist(), i_ssidbcast(), and i_80211channel() methods to
-      L2::Aruba, Airespace, and L2::NAP222x classes
-    + New class IEEE802dot11 class for generic standards based wireless AP
-      support to include i_ssidlist()and i_80211channel() methods.
-    + L2::Orinoco inherits from new IEEE802dot11 for i_ssidlist()and
-      i_80211channel() support. 
-    + Added new VLAN methods i_pvid(), i_vlan_membership(), set_i_pvid(),
-      set_i_vlan(), set_add_i_vlan_tagged(), set_remove_i_vlan_tagged() to
-      Bridge, CiscoVTP, Extreme, HP, and RapidCity classes.
-    + Added set_i_speed_admin() method to RapidCity class,
-    + Added set_i_duplex_admin() method to RapidCity class,
-    + Added OSPF Neighbor Tables, SF Patch 1577918 to Layer 3 (Andrew Herrick)
-    + Added CiscoConfig class, SF Patch 1555001 (Justin Hunter)
-    + Enable load_ methods for %GLOBALS and MIB Leaf node names.
-    + Enable dynamic methods in AUTOLOAD with MIB Leaf node names for loaded
-      MIBs without definition in %FUNCS or %GLOBALS.  Single instance mib leafs
-      will be treated as a GLOBAL and returna scalar while mib leafs which
-      reside in a table will be treated as a FUNC and return a reference to a
-      hash.
-    + Enable load_ methods for %GLOBALS and MIB Leaf node names.
-    + Add loop detect option and code for getnext table column walks.
-    + Add Layer3::NetSNMP for Net-SNMP-based hosts, part of
-      SF patch 1557529 (Bradley Baetz).
-    + Add EIGRP Neighbor Tables to L3::Cisco SF Patch 1577927 (Andrew Herrick)
-    + Additions to CiscoQOS and CiscoStats (Alexander Hartmaier)
-    + Emulate ENTITY-MIB Physical Table methods for devices which don't
-      have ENTITY-MIB support in Airespace, Bayhub, Baystack, BayRS,
-      NortelStack, and Passport classes.
-    + Enable use of MIB Leaf node names in SNMP sets.
-    + Add POWER-ETHERNET-MIB and CISCO-POWER-ETHERNET-EXT-MIB support.
-
-    * Fix for bug where an SNMP error in any operation would cause subsequent
-      table get operations to fail while using the same session, originally
-      identified by Nicolai Petri.
-    * Enable single instance partial table fetches (Alexander Hartmaier)
-    * Enable partial table fetches in overriden table methods (Justin Hunter)
-    * Allow partial table fetches with load_ methods.
-    * Fixed vlan trunk port handling bug in L2:HP (Michael Robbert)
-    * Correct bp_port() definition in Bridge class (Reported by Nicolai Petri)
-    * Remove port security definitions from CiscoStack and move into new class
-      CiscoPortSecurity.  Needed to support devices such a L3::C4000 which
-      support CISCO-PORT-SECURITY-MIB, but not CISCO-STACK-MIB.
-      (Reported by Prakash RudraRaju)
-    * Correct port numbering for Nortel 8110, 1100, 1150 in L3:Passport
-      (Reported by David Pinkoski)
-    * Documentation updates
-    * Translate OIDs returned by Entity MIB e_type
-    * Modify inheritance to use Cisco classes before generic classes
-    * Create e_index method in ENTITY-MIB to facilitate emulation methods in
-      other classes as entPhysicalIndex is not-accessible.
-    * Only return MAC from munge_mac() if it actually is a MAC. Fix for
-      netdisco where device would not be inserted in DB due to malformed MAC.
-    * Enable SUPER class calls to find autoloaded methods (Bernhard Augenstein)
-    * Clear attribute cache on sucessful SNMP set.
-    * Improve accuracy of operational and administrative duplex reporting on
-      devices using CiscoStack.
-    * All i_type() methods now use standard IANAifType values.
-    * Report bridge groups (VLANs) in L2::C1900.
-    * Turn on bulkwalk for C6500.  Users with buggy OS versions can turn
-      it off when creating the object.
-    * c_ip() now attempts to return only IPV4 addresses, use c_addr() for all
-      address types.
-
-version 1.04 (07/08/06)
-    +  Added C1130 and C1240 to L2::Aironet (Ralf Gross)
-    +  Added detection for Cisco 2960, 2940, 3400 w/ MetroBase
-    +  Added generic L2::Cisco Class
-    *  Corrected detection for Cisco Supervisor Engine 2 and 32 (IOS).  
-    *  Fixed warnings in CiscoStack
-    *  Updated ProCurve HP device detection for newer firmwares
-
-version 1.03 (04/14/06) - Beta/developer release
-    * Use ipNetToMedia table instead of atTable for ARP
-    * Remove CiscoStack from Layer3::C4000
-    * Fixed bug in MAU class when polling devices without MAU-MIB support 
-
-version 1.01 (04/08/06) - Beta/developer release
-    + Change version numbers to X.XX format.  Odd releases are beta
-      or developer only releases.  Even are official releases.
-
-version 1.0 (04/07/06) - CVS only. No official release
-    + Added Interface FlowControl status to CiscoStack (Nicolai Petri)
-    + Added CiscoImage class (Matthew Tuttle)
-    + Added C1200 and C350 IOS devices to L2::Aironet (Matthew Tuttle)
-    + Added support for Foundry IronWare and gave L3::Foundry CPR
-    + Added support for Foundry EdgeIrons as new class L2::Foundry
-    + Added BulkWalk and BulkRepeaters options to new()
-    + Added DebugSNMP option to new()
-    + Added CISCO-ENTITY-VENDORTYPE-OID-MIB,CISCO-PRODUCTS-MIB,CISCO-STACK-MIB
-      to CiscoStats.pm for model()
-    + Check for bulkwalk_no() method
-    + Added Entity.pm to L3 and L2 classes per N. Petri's suggestion.
-    + Added support for Passport/Accelar 1100 and 1200 series in L3::Passport
-    + Added support for Passport/Accelar 8100 series in L3::Passport
-    + Added support for Passport 1600 series as new class, L3::N1600
-    + Added support for Extreme Alpine and Summit switches as new class
-      L3:Extreme (Mike Hunter and Eric Miller)
-    + Added support for Aruba wireless switches (Eric Miller and Brian Chow)
-    + Added support for Nortel 2700 series (Airespace) wireless switches
-    + Added support for Synoptics hubs as new class L1:S3000
-    + Added Cisco QOS and RTT classes (Alexander Hartmaier)
-    + Added BGP Peer Table to L3 class (Carlos Vicente)
-    + Added ipforwarding status to Info base class (Carlos Vicente)
-    + Added STP port state to Bridge class (Alexander Barthel)
-    + Added L3 support (arpnip) to Baystack class for routing capable switches
-    + Added set_i_duplex_admin() and set_i_speed_admin() to C2900 class
-      (Justin Hunter)
-    + Added set_i_duplex_admin() and set_i_speed_admin() to CiscoStack class
-    + CDP added to Aironet class
-    + Added Juniper class
-    + Added support for Catalyst 4000 and 4500, get admin. duplex
-      and speed properly
-    + Added i_speed_high(), which i_speed() uses if needed to support
-      interfaces >4Gbps
-
-    * More error checking in  _load_attr() around bulkwalk code
-    * Minor warning fix in L3::Aironet::os_ver()
-    * Abstracted remaining Cisco stuff from L3 to L3::Cisco
-    * Removed all Cisco stuff from L2
-    * Expanded Entity.pm to cover the whole ENTITY-MIB and improved docs.
-    * changed all refs to $DEBUG to $self->debug() for reentrant code
-    * [ 1111284 ] Parameters not being set with AutoSpecify - fixed.
-    * Turned off BULKWALK for C1900 and C6500 classes.
-    * Added exception handling for V2 ENDOFMIBVIEW
-    * Fix in SONMP when topology not enabled
-    * Fix in L3::Passport root_ip()
-    * Fix in L3::Passport bp_index() some devices not returning complete index.
-    * Enable set_i_up_admin() in Bayhub
-    * Recognize new Nortel model names in Baystack and Passport classes
-    * Orinoco class should now recognize more models
-    * Cleanup model recognition in Baystack class, recognize more models
-    * Modify Catalyst class to use CISCO-STACK-MIB for brige port index mapping
-      some devices having problems returning complete index from BRIDGE-MIB
-    * Check root ip for reachability before assignment
-    * HP class should recognize more models
-    * Fix in HP class for models not returning full bp_index
-    * [ 1436103 ] L2::Aironet devices weren't getting their model
-      translated properly
-
-verison 0.9 (11/15/04)
-    + ** Added full Nortel/Bay/BayStack support 
-        by new developer Eric Miller.  
-        L2::Bay now depricated.
-    + Added Alteon Ace support (Eric Miller)
-    + Added Nortel Cotivity support (Eric Miller)
-    + Added Nortel BayRS support (Eric Miller)
-    + Added Nortel Centillion support (Eric Miller)
-    + Added Nortel AP 222x support (Eric Miller)
-    + Added Orinco AP support (Eric Miller) 
-    + Added i_lastchange() per suggestion of Nicolai Petri
-    + Added BULKWALK patch by Bradley Baetz - This should
-          greatly speed up requests on SNMPv2c devices.
-    + Added MibDirs option to new() to allow specifying non-system MIB
-      directories.
-
-    * Added C3560s to the C3550 class. Thanks to Nicolai.
-    * Fixed Bug where older Cisco's would append nulls to certain
-      CDP information.  Would come up a 'DBD::Pg parser' error in Netdisco
-    * Changed so a failed _global() call is cached so it won't retry
-      an error over and over again if the same global is used.
-    * Added check in _set() to see if data came from sub or FUNCS/GLOBALS
-      Fails if came from sub.
-
-version 0.8 (03/21/04)
-    + Added Q-BRIDGE-MIB support to SNMP::Info::Bridge
-    + Added Aironet AP4800 to Layer3::Aironet class
-    + Added C3500XL devices to the Layer2::C2900 class
-    + Added Cisco 3750 (37xxstack) to Layer3::C6500 class
-    + Added Cisco Catalyst 4000 to Layer3::C6500 class
-    + Added Cisco Catalyst 2970 to Layer3::C6500 Class
-    * Made Cisco Commuinty string indexing a boolean method for clarification
-    * Added VLAN info for HP devices using Q-BRIDGE-MIB
-    * Fixed warning about uninitialized value in CiscoStats line 92
-    * Added for more serial# checking for L2 and L3
-    * Fixed warning in Layer2::Bay about non numeric port line 199
-    Contributions from Dmitry Sergienko:
-    + Added Cisco Aironet BR500 and AP1200 to L2::Aironet Class
-    * Fixed the Port name alias for Catalyst 2900 devices
-    + Added Support For ZyXEL DSLAMs and Allied Telesys Switches
-
-version 0.7 (08/14/03)
-    * Added Class for Catalyst 6500 Series - Layer3::C6500
-    * Added CiscoVTP support to 3550,2900, and Catalyst classes
-    * Extracted VLAN stuff from Layer2::Catalyst to SNMP::Info::CiscoVTP
-    * Extracted CISCO-STACK-MIB from Layer2::Catalyst to SNMP::Info::CiscoStack
-    * Added 2950's to the Layer2::C2900 class
-    * Added 3548's and 350x's to the Layer3::C3550 class
-    * Broke out 3550's into separate device types (3550-24, 3550-48)
-    * Added T1,dual T1, and T3 , ATM over OC-12 ... to the SPEED_MAP
-    * Fixed speed map -- OC-1 -> OC-3
-    * Fixed Bug where Catalyst Switch running IOS would report CatOS as os()
-
-version 0.6 (06/18/03)
-    * Minor Bug Fix.  SNMP::Info::Layer2::Bay and SNMP::Info::Layer2::C1900
-      didn't return 1 and failed to load on some versions of Perl.
-
-version 0.5 (06/10/03)
-    * Added ability to get paritial tables.  For example to get the
-      IP routing table for 128.114.*  you can do 
-      $ipr = $dev->ipr_dest('128.114');
-    * Added IP Routing Table entries from RFC1213 to SNMP::Info
-    * minor bug fixes
-
-version 0.4 (04/29/03)
-    * BIG CHANGE ! Internal Data structure has changed.  
-    * Added clear_cache() method
-    * Added NO_SUCH support for snmpget (TABLE) calls to get SNMP MIB II data 
-      from SNMP Version 1 devices.
-    * Methods load_all() and all() have changed their return value. Sorry but
-      the API had to change.
-    * New object methods snmp_comm(), snmp_ver(), store(), class(), nosuch()
-      to make it more OO happy.
-    * Globals are now cached
-    * Added new argument 'AutoSpecify' to new() to auto-connect with subclass 
-      detected in device_type()
-    * New method specify() returns a new subclass object
-    * Subclasses are automatically loaded when specify or autospecify is used!
-    * Added methods for Interface statistics (ifInOctets ...)
-    * Added methods for Memory and CPU statistics 
-    * Added SNMP::Info::Entity, moved out of L2-HP
-    * Added SNMP::Info::Layer2::Aironet
-
-version 0.3 (03/06/03)
-    * Fixed HP model() warning
-    * Added error checking for responses of NOSUCHOBJECT and NOSUCHINSTANCE
-      in _global and _load_attr
-    * Added more debugging
-    * Added info and munging for c_capabilities in SNMP::Info::CD
-      Thanks to Martin Lorensen <martin /at- lorensen.dk>
-    * Removed requirement for SNMP in the Makefile.PL and moved it to t/prereq.t
-      so that the Module will install via CPAN without trying to install the old
-      4.2.0 version of SNMP on CPAN.  Will now fail in the test phase. 
-      Thanks again to Martin Lorensen <martin /at- lorensen.dk>
-    * Moved tests from test.pl to t/*
-
-version 0.2 (02/19/03)
-    * Added put_() methods and support for SNMP put commands
-    * Added SNMP::Info::Layer3::C3550 class for Cisco Catalyst 3550
-    * Fixed HP Detection in device_type()
-    * Added Spanning Tree Protocol (STP) methods to SNMP::Info::Bridge
-    * Removed HP Specific MIBS in SNMP::Info::Layer2 and cleaned up model()
-    * Added poke for Bay 450 Switches 
-    * Mapped HP Part Numbers to model numbers J4812A => 2512 in
-      SNMP::Info::Layer2::HP
-     
-version 0.1 (12/30/02)
-    * Initial Release
-    * SubClasses Included:
-        * SNMP::Info::Bridge
-        * SNMP::Info::CDP
-        * SNMP::Info::EtherLike
-        * SNMP::Info::MAU
-        * SNMP::Info::Layer1
-              o SNMP::Info::Layer1::Allied
-              o SNMP::Info::Layer1::Asante 
-        * SNMP::Info::Layer2
-              o SNMP::Info::Layer2::Bay
-              o SNMP::Info::Layer2::C1900
-              o SNMP::Info::Layer2::C2900
-              o SNMP::Info::Layer2::Catalyst
-              o SNMP::Info::Layer2::HP 
-        * SNMP::Info::Layer3
-              o SNMP::Info::Layer3::Aironet
-              o SNMP::Info::Layer3::Foundry

DeviceMatrix.txt

@@ -1,761 +0,0 @@
-# SNMP Device Compatibility Matrix
-# SNMP::Info - (C) 2004 Max Baker
-
-# This file is meant to detail the cababilities
-# of network devices to supply data via SNMP.  
-
-# $Id$
-
-# Airespace (pre-Cisco)
-device-vendor: Airespace
-cdp:no
-arpnip: no
-macsuck: yes
-portmac: yes
-duplex: both
-vlan: yes
-modules: yes
-class: Layer2::Airespace
-note: Uses proprietary MIBs to provide MAC to port mapping.  APs appear as switch ports.
-note: Device will only communicate with SNMP version configured in the controller.
-
-device-family: Airespace Wireless Controllers
-
-device: 3500, 4101, 4102
-
-# Allied
-device-vendor: Allied Telesyn
-cdp:no
-class: Layer1::Allied
-ver: 1
-arpnip: no
-macsuck: no
-duplex: no
-
-device-family: Allied Hubs
-
-device: AT-3624T
-
-device-family: AT-8000 Switches
-class: Layer2::Allied
-ver: 2
-macsuck: yes
-
-# Aruba
-device-vendor: Aruba
-arpnip: no
-macsuck: yes
-portmac: yes
-duplex: no
-class: Layer2::Aruba
-note: Uses proprietary MIBs to provide MAC to port mapping.  APs appear as switch ports.
-
-device-family: Aruba Wireless Controllers
-
-device: 5000
-
-# Asante
-device-vendor: Asante
-class: Layer1::Asante
-ver: 1
-arpnip: no
-macsuck: no
-duplex: no
-
-device-family: Asante Hubs
-
-device: 1012
-
-# Bay
-device-vendor: Bay
-note: See Nortel
-
-# CISCO
-device-vendor: Cisco
-cdp: yes
-ver: 2
-modules: yes
-note: Error in CISCO-TC-MIB. See README for how to patch.
-
-device-family: Aironet
-note: IOS and Aironet OS versions
-class: Layer3::Aironet
-
-device: AIRAP1100, AP1200, C1100, C1130, C1240
-note: IOS based device
-class: Layer2::Aironet
-
-device: BR500
-note: Aironet based device
-
-device: AP350, AP340, CAP350, CAP340, 1200, AP4800
-note: Aironet based device
-
-device-family: 1000
-duplex: no
-ver: 1
-class: Layer3::Cisco
-
-device: 1003
-
-device-family: 1700
-class: Layer3::Cisco
-
-device: 1710
-duplex: link
-
-device-family: 2500
-duplex: no
-macsuck: yes
-arpnip: yes
-ver: 1
-class: Layer3::Cisco
-
-device: 2501,2503,2511,2514
-
-device: AS2509RJ,AS2511RJ
-
-device-family: 2600
-duplex: link
-arpnip: yes
-macsuck: yes
-class: Layer3::Cisco
-
-device:2610,2610XM,2611,2620,2620XM,2621,2621XM
-
-device:2651XM
-
-device:2691
-
-device-family: 2800
-duplex: link
-arpnip: yes
-macsuck: yes
-class: Layer3::Cisco
-
-device: 2811,2821,2851
-
-device-family: 3600
-class: Layer3::Cisco
-
-device: 3620
-
-device: 3640
-duplex: no
-
-device-family:7200
-class: Layer3::Cisco
-note: !"When scanning my network with netdisco I would find that my 7200 series router running Cisco IOS Software Release 12.2(1) would reboot when scanning for CDP neighbours, to solve the issue I upgraded to Cisco IOS Software Release  Version 12.2(37)"
-
-device-family: 7500
-class: Layer3::Cisco
-
-device: 7507
-duplex: no
-note: !Duplex settings are falsely reported in older IOS versions
-
-device-family: AS5000
-duplex: no
-class: Layer3::Cisco
-
-device: AS5300
-
-#
-# Cisco - Catalyst
-#
-device-family: Catalyst 1900
-note: !Upgrade older (pre 9.0) versions of CatOS
-note: !CatOS ver 9.00.03 through 9.00.06 have problems when trunking. Upgrade to 9.00.07 or higher.
-ver: 1
-duplex: both
-vlan: write
-class: Layer2::C1900
-
-device: wsc1900c
-device-family: Catalyst 1900
-
-device: wsc1900
-device-family: Catalyst 1900
-
-device-family: Catalyst 2900
-note: IOS
-macsuck: vlan
-duplex: write
-vlan: write
-class: Layer2::C2900
-portmac: yes
-note: !Pre IOS 11.2 (8) SA3 - PortMAC shows up in CAM table.
-
-device: 2908xl
-note: !Pre IOS 11.2 (8.6) some features (duplex...) aren't present.
-
-device: 2912MfXL
-
-device: 2924MXL
-ver: 1
-
-device: 2924CXL
-
-device: 2924CXLv
-
-device-family: Catalyst 2940
-note: IOS
-macsuck: vlan
-duplex: write
-vlan: write
-class: Layer2::C2900
-portmac: yes
-
-device: 2940-8TT
-
-device-family: Catalyst 2950
-note: IOS
-macsuck: vlan
-duplex: write
-vlan: write
-class: Layer2::C2900
-portmac: yes
-
-device: 2950-t24
-
-device-family: Catalyst 2970
-macsuck:vlan
-duplex: write
-vlan: write
-note: Acts just like IOS Catalyst 6500 series
-class: Layer3::C6500
-
-device: 2960, 2970G-24T-E
-
-device-family: Catalyst 3500 XL
-portmac: yes
-macsuck: vlan
-duplex: write
-vlan: write
-note: L2 only IOS devices - Just like Catalyst 2900 series from SNMP
-note: IOS Version 12.0(5)XP is buggy and doesn't do VLAN Community indexing correctly.
-class: Layer2::C2900
-
-device: 3508GXL
-
-device: 3524XL
-
-device: 3548XL
-
-device-family: Catalyst 3550
-macsuck: vlan
-duplex: write
-vlan: write
-class: Layer3::C3550
-note: Run IOS
-note: Has VLANs that don't accept SNMP connections.  Don't know if they are standard (by name or number).
-note: Uses CISCO-STACK-MIB like Catalyst 5000 series for serial,duplex,type but not name
-note: Comes in flavors that support L2, L3 or combo.
-
-device: 3550-12T
-
-device: 3400 w/ MetroBase Image
-
-device: 3550
-note: L2/L3 Switch
-arpnip: yes
-
-device: 3550-24, 3550-48
-macsuck: vlan
-
-device-family: Catalyst 3750
-class: Layer3::C6500
-
-device: 3750
-
-device-family: Catalyst 4000
-duplex: write
-macsuck: vlan
-vlan: write
-class: Layer2::Catalyst
-note: Comes in IOS and CatOS versions like the 6k series.
-note: CatOS versions like L2::Catalyst just fine.
-note: !Reported problems with SNMP taking up all the CPU.  Requests take significantly longer.
-note: !IOS Version 12.1.8a reported not to respond to BRIDGE-MIB calls.
-
-device: wsc4003, wsc4006
-
-device: wsc4503, wsc4506
-
-device: wsc4912g
-note: Dedicated 12 port gig-e switch
-
-device: 4006
-duplex: both
-class: Layer3::C4000
-note: !Has serious slowdown/timeout problems with SNMP
-note: !IOS Software Release 12.2(20)EW or higher required for duplex support
-
-device: 4503, 4506, 4507, 4510
-duplex: both
-class: Layer3::C4000
-note: !Has serious slowdown/timeout problems with SNMP
-note: !IOS Software Release 12.2(20)EW or higher required for duplex support
-
-
-device-family: Catalyst 5000
-duplex: write
-vlan: write
-class: Layer2::Catalyst
-note: Port info in CISCO-STACK-MIB
-
-device: wsc2926
-note: !Can give false information over SNMP at times.
-
-device: wsc2948g
-
-device: wsc2980g
-note: !Macsuck not working?
-
-device: wsc5000
-note: !Has nasty tendency to not give you all SNMP data ,flaky for some older Catalyst versions.
-
-device: wsc5500,wsc5505,wsc5509
-
-device: wsx5302
-arpnip: yes
-class: Layer3
-note: Router blade that runs IOS
-
-device-family: Catalyst 6500
-macsuck:vlan
-duplex: write
-vlan: write
-class: Layer3::C6500
-note: Runs in two possible modes, native (IOS) and hybrid (IOS with CatOS on top).
-note: Switch running Hybrid has WS-C in description field and loves L2::Catalyst class
-note: Native Mode (IOS) versions seem to have SNMP problems with L2 data.
-note: !Problem with IOS 12.2.17d-SXB ... upgrade to -SXB1 or higher.
-note: !Sup720-3B and NativeIOS 12.2 (17d)SXB10 may report 127.0.0.51 as CDP neighbor address.
-
-device: 6503
-macsuck:no
-note: !Macsuck failing even under vlan mode
-note: Native mode (IOS) reports L2+L3
-
-device: 6509
-duplex: link
-macsuck:no
-note: Native mode (IOS) reports L2+L3
-note: !Macsuck failing even under vlan mode
-
-device: wsc6509
-duplex: write
-class: Layer2::Catalyst
-note: Hybrid Mode (Catalyst) reports L2 only
-
-device: 6kMsfc
-class: Layer3
-duplex: no
-vlan: no
-note: IOS portion of Hybrid mode.  VLAN and other L3 Services.
-
-device: 6kMsfc2
-class: Layer3
-duplex: no
-vlan: no
-note: IOS portion of Hybrid mode.  VLAN and other L3 Services.
-
-device-family: Voice Gateway
-class: Layer3
-duplex: no
-
-device: VG200
-
-device-family: Wireless Controllers
-class: Layer2::Airespace
-cdp:no
-arpnip: no
-macsuck: yes
-portmac: yes
-duplex: both
-note: Uses proprietary MIBs to provide MAC to port mapping.  APs appear as switch ports.
-note: Device will only communicate with SNMP version configured in the controller.
-
-device: 2006, 4112, 4124, 4136, 4402, 4404
-
-# Dell
-device-vendor: Dell
-arpnip: no
-macsuck: yes
-duplex: both
-vlan: yes
-cdp: no
-modules: yes
-class: Layer3::Dell
-
-device-family: Dell PowerConnect 6000 Series
-arpnip: yes
-device: 6024F, 6224, 6248
-
-device-family: Dell PowerConnect 5000 Series
-device: 5324
-
-device-family: Dell PowerConnect 3000 Series
-device: 3348, 3448P, 3424, 3424P
-
-# Enterasys
-device-vendor: Enterasys Networks
-arpnip: yes
-macsuck: yes
-duplex: both
-vlan: yes
-cdp: yes
-modules: yes
-class: Layer3::Enterasys
-
-device-family: SuperStack C-Series
-
-device: C3G124-24, C3G124-48
-device: C2G124-24, C2G124-48
-
-device-family: Matrix
-
-device: Matrix N-Series DFE
-
-# Extreme
-device-vendor: Extreme Networks
-arpnip: yes
-macsuck: yes
-duplex: both
-vlan: yes
-cdp: no
-modules: yes
-class: Layer3::Extreme
-
-device-family: Alpine and Summit
-
-device: Alpine 3808
-device: Summit 7i, 48si
-
-# Foundry
-device-vendor: Foundry Networks
-note: CDP --> FDP.
-vlan: yes
-modules: no
-
-device-family: FastIron
-class: Layer3::Foundry
-ver: 1
-note: Support very limited
-
-device: FastIron 4802
-
-device-family: EdgeIron
-ver: 2
-class: Layer3::Foundry
-cdp: yes
-duplex: yes
-macsuck: yes
-device: EdgeIron 24G
-note: Bug where spanning tree stuff loops forever when polled by SNMP.
-
-device-family: IronWare
-class: Layer3::Foundry
-ver: 2
-cdp: yes
-note: FDP enabled.
-duplex: yes
-macsuck: yes
-arpnip: yes
-device: FWSX424 
-device: ServerIronGT
-device: FLS624, FLS648
-
-# HP
-device-vendor: HP
-class:  Layer2::HP
-ver: 2
-modules: yes
-
-device-family: HP ProCurve
-duplex: both
-macsuck: yes
-arpnip: no
-cdp: yes
-vlan: write
-note: CDP only available with newer ROM versions. 
-
-device: 2512
-ver: 1
-
-device: 2524
-ver: 1
-
-device: 4000
-note: duplex issues?
-
-device: 4104GL
-duplex: link
-
-device: 4108GL,8000,2626,2650,8000
-note: VLAN info in Q-BRIDGE-MIB
-
-# Juniper
-device-vendor: Juniper
-arpnip: yes
-
-device-family: M-series router
-class: Layer3::Juniper
-device: M-series router
-
-device-family: NetScreen
-class: Layer3::Netscreen
-device:  Netscreen
-
-# NetScreen
-device-vendor: NetScreen
-note: See Juniper
-
-# Net-SNMP
-device-vendor: Net-SNMP
-class: Layer3
-ver: 2
-
-device-family: Linux
-note: net-snmp 4.x agent and 5.x agent.
-device:  Linux routers
-
-device-family: BSD
-device:  BSD routers
-
-# NORTEL
-device-vendor: Nortel
-macsuck: yes
-cdp: proprietary
-note: CDP --> SONMP.
-
-device-family: BayStack Hub
-duplex: both
-ver: 1
-modules: yes
-class: Layer1::Bayhub
-note: Uses proprietary MIBs to provide MAC to port mapping.
-note: !Requires Advanced or Advanced Analyzer NMM
-
-device: 102
-
-device: System 5000
-
-device-family: Ethernet Switch/Baystack Switch
-macsuck: yes
-duplex: both
-vlan: write
-modules: yes
-class: Layer2::Baystack
-
-device: 303,304
-
-device: 350
-
-device: 380
-
-device: 410
-
-device: 420,425
-
-device: 450
-note: !Some versions > 4.X in stacked configuration have SNMP timeout issues. 
-note: Labels full duplex as 20Mbit connection.
-
-device: 460,470
-
-device: BPS
-
-device-family: Ethernet Routing Switch/Baystack Switch
-arpnip: yes
-duplex: write
-vlan: write
-modules: yes
-class: Layer2::Baystack
-
-device: 3510
-
-device: 2526,2550
-
-device: 4524,4526,4548,4550
-
-device: 5510,5520,5530
-
-device-family: Business Ethernet Switch
-arpnip: yes
-duplex: write
-vlan: write
-modules: yes
-class: Layer2::Baystack
-
-device: 50,110,120,210,220,1010,1020 
-
-device-family: Centillion
-duplex: both
-vlan: yes
-class: Layer2::Centillion
-note: !Must be on version 4.x or 5.x (VLAN based) software.
-
-device: 5000BH
-
-device: 5005BH
-
-device: C100
-
-device: C50
-
-device-family: AP222x
-duplex: both
-modules: no
-class: Layer2::NAP222x
-note: !Upgrade to version 1.3 or higher.
-note: Sends out topology packets if enabled but does not build neighbor table.
-
-device: AP-2220, AP-2221
-
-device-family: Alteon AD
-arpnip: yes
-duplex: both
-cdp: no
-vlan: yes
-modules: no
-class: Layer3::AlteonAD
-note: !Some versions have issues with continuous SNMP polling. Upgrade to 10.0.30.7 or higher.
-
-device: AD2,AD3,AD4
-
-device: 180,183,184
-
-device-family: Multiprotocol Router/BayRS
-arpnip: yes
-portmac: yes
-duplex: both
-cdp: no
-vlan: yes
-modules: yes
-class: Layer3::BayRS
-
-device: AN,ARN,ASN,BLN,BCN
-
-device: 2430,5430
-
-device-family: VPN Router/Contivity
-arpnip: yes
-macsuck: no
-portmac: yes
-duplex: no
-cdp: no
-modules: yes
-class: Layer3::Contivity
-
-device: 100,400,600
-
-device: 1000,1010,1050
-
-device: 1500,1600,1700,1740,1750
-
-device: 2500,2600,2700
-
-device: 4500,4600,5000
-
-device-family: Ethernet Routing Switch/Passport/Accelar LAN
-arpnip: yes
-macsuck: yes
-portmac: yes
-duplex: write
-cdp: proprietary
-vlan: write
-modules: yes
-class: Layer3::Passport
-note: !8600 Code versions < 3.2 vlan based mac-suck and are unsupported.  Upgrade code.
-note: !8600 3.2 code versions < 3.2.2.2 have Bridge MIB loop.  Upgrade code.
-
-device: 8603,8606,8610
-
-device: 8610co
-
-device: 8106,8110
-
-device: 1050,1100,1150,1200
-
-device-family: Ethernet Routing Switch/Passport 1600 (Software < 2.1)
-arpnip: yes
-macsuck: yes
-portmac: yes
-duplex: both
-cdp: proprietary
-vlan: write
-class: Layer3::N1600
-
-device: 1612,1624,1648
-
-device-family: Ethernet Routing Switch/Passport 1600 (Software >= 2.1)
-arpnip: yes
-macsuck: yes
-portmac: yes
-duplex: write
-cdp: proprietary
-vlan: write
-class: Layer3::Passport
-
-device: 1612,1624,1648
-
-device-family: Synoptics
-macsuck: yes
-duplex: both
-cdp: proprietary
-ver: 1
-class: Layer1::S3000
-note: Uses proprietary MIBs to provide MAC to port mapping.
-note: !Requires Advanced or Advanced Analyzer NMM
-
-device: 281X
-
-device: System 3000
-
-device-family: Wireless Switch 2270
-arpnip: no
-macsuck: yes
-portmac: yes
-duplex: both
-cdp: proprietary
-modules: yes
-class: Layer2::N2270
-note: Uses proprietary MIBs to provide MAC to port mapping.  APs appear as switch ports.
-
-device: 2270
-
-# Proxim
-device-vendor: Proxim
-macsuck: yes
-duplex: no
-cdp: no
-class: Layer2::Orinoco
-
-device-family: Orinoco
-
-device: AP-1000,AP-2000,AP-4000
-
-device: WavePOINT-II
-
-# Sun
-device-vendor: Sun
-class: Layer3::Sun
-
-device-family: Sun routers
-
-device: Sun routers
-
-# Synoptics
-device-vendor: Synoptics
-note: See Nortel
-
-# Zyxel
-device-vendor: Zyxel
-class: Layer2::ZyXEL_DSLAM
-note: Doesn't report sysServices (layers)
-
-device-family: Zyxel DSLAM
-
-device:AAM10008-61, AAM1008-63

Info/CDP.pm

@@ -1,422 +0,0 @@
-# SNMP::Info::CDP
-# Max Baker
-#
-# 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.
-#     * 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::CDP;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-@SNMP::Info::CDP::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::CDP::EXPORT_OK = qw//;
-
-use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
-
-# Five data structures required by SNMP::Info
-%MIBS    = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' );
-
-# Notice we dont inherit the default GLOBALS and FUNCS
-# only the default MUNGE.
-%GLOBALS = (
-            'cdp_run'      => 'cdpGlobalRun',
-            'cdp_interval' => 'cdpGlobalMessageInterval',
-            'cdp_holdtime' => 'cdpGlobalHoldTime',
-            'cdp_id'       => 'cdpGlobalDeviceId',
-           );
-
-%FUNCS  = (
-            'c_index'        => 'cdpCacheIfIndex',
-            'c_proto'        => 'cdpCacheAddressType',
-            'c_addr'         => 'cdpCacheAddress',
-            'c_ver'          => 'cdpCacheVersion',
-            'c_id'           => 'cdpCacheDeviceId',
-            'c_port'         => 'cdpCacheDevicePort',
-            'c_platform'     => 'cdpCachePlatform',
-            'c_capabilities' => 'cdpCacheCapabilities',
-            'c_domain'       => 'cdpCacheVTPMgmtDomain',
-            'c_vlan'         => 'cdpCacheNativeVLAN',
-            'c_duplex'       => 'cdpCacheDuplex',
-            'c_power'        => 'cdpCachePowerConsumption',
-          );
-
-%MUNGE = (
-          'c_capabilities' => \&munge_caps,
-          'c_platform'     => \&munge_null,
-          'c_domain'       => \&munge_null,
-          'c_port'         => \&munge_null,
-          'c_id'           => \&munge_null,
-          'c_ver'          => \&munge_null,
-          'c_ip'           => \&SNMP::Info::munge_ip,
-          'c_power'        => \&munge_power,
-
-         );
-
-# munge_null() - removes nulls (\0)
-sub munge_null {
-    my $text = shift || return;
-    
-    $text =~ s/\0//g;
-    return $text;
-}
-
-sub munge_caps {
-    my $caps = shift;
-    return undef unless defined $caps;
-
-    my $bits = substr(unpack("B*",$caps),-7);
-    return $bits;
-}
-
-sub munge_power {
-    my $power = shift;
-    my $decimal = substr($power, -3);
-    $power =~ s/$decimal$/\.$decimal/;
-    return $power;
-}
-
-sub hasCDP {
-    my $cdp = shift;
-
-    my $ver = $cdp->{_version};
-
-
-    # SNMP v1 clients dont have the globals
-    if (defined $ver and $ver == 1){
-        my $c_ip = $cdp->c_ip();
-        # See if anything in cdp cache, if so we have cdp
-        return 1 if (defined $c_ip and scalar(keys %$c_ip)) ;
-        return undef;
-    }
-    
-    return $cdp->cdp_run();
-}
-
-sub c_if {
-    my $cdp  = shift;
-
-    # See if by some miracle Cisco implemented the cdpCacheIfIndex entry
-    my $c_index     = $cdp->c_index();
-    return $c_index if defined $c_index;
-
-    # Nope, didn't think so. Now we fake it.
-    my $c_ip = $cdp->c_ip();
-    unless (defined $c_ip){
-        $cdp->error_throw("SNMP::Info::CDP:c_if() - Device doesn't have cdp_ip() data.  Can't fake cdp_index()");
-        return undef;
-    }
-
-    my %c_if;
-    foreach my $key (keys %$c_ip){
-      next unless defined $key;
-      my $iid = $key;
-      # Truncate .1 from cdp cache entry
-      $iid =~ s/\.\d+$//;
-      $c_if{$key} = $iid;
-    }
-
-    return \%c_if;
-}
-
-sub c_ip {
-    my $cdp = shift;
-    my $partial = shift;
-
-    my $c_addr  = $cdp->c_addr($partial) || {};
-    my $c_proto = $cdp->c_proto($partial) || {};
-    
-    my %c_ip;    
-    foreach my $key (keys %$c_addr) {
-        my $addr  = $c_addr->{$key};
-        my $proto = $c_proto->{$key};
-        next unless defined $addr;
-        next if (defined $proto and $proto ne 'ip');
-
-        my $ip = join('.',unpack('C4',$addr));
-        $c_ip{$key} = $ip;
-    }
-    return \%c_ip;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::CDP - SNMP Interface to Cisco Discovery Protocol (CDP) using SNMP
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- my $cdp = new SNMP::Info ( 
-                             AutoSpecify => 1,
-                             Debug       => 1,
-                             DestHost    => 'router', 
-                             Community   => 'public',
-                             Version     => 2
-                           );
-
- my $class = $cdp->class();
- print " Using device sub class : $class\n";
-
- $hascdp   = $cdp->hasCDP() ? 'yes' : 'no';
-
- # Print out a map of device ports with CDP neighbors:
- my $interfaces = $cdp->interfaces();
- my $c_if       = $cdp->c_if();
- my $c_ip       = $cdp->c_ip();
- my $c_port     = $cdp->c_port();
-
- foreach my $cdp_key (keys %$c_ip){
-    my $iid           = $c_if->{$cdp_key};
-    my $port          = $interfaces->{$iid};
-    my $neighbor      = $c_ip->{$cdp_key};
-    my $neighbor_port = $c_port->{$cdp_key};
-    print "Port : $port connected to $neighbor / $neighbor_port\n";
- }
-
-=head1 DESCRIPTION
-
-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.
-
-Create or use a device subclass that inherits this class.  Do not use directly.
-
-Each device implements a subset of the global and cache entries. 
-Check the return value to see if that data is held by the device.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-CDP-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBAL METHODS
-
-These are methods that return scalar values from SNMP
-
-=over
-
-=item  $cdp->hasCDP()
-
-Is CDP is active in this device?  
-
-Accounts for SNMP version 1 devices which may have CDP but not cdp_run()
-
-=item $cdp->cdp_run()
-
-Is CDP enabled on this device?  Note that a lot of Cisco devices that implement
-CDP don't implement this value. @#%$!
-
-(B<cdpGlobalRun>)
-
-=item $cdp->cdp_interval()
-
-Interval in seconds at which CDP messages are generated.
-
-(B<cdpGlobalMessageInterval>)
-
-=item $cdp->cdp_holdtime()
-
-Time in seconds that CDP messages are kept. 
-
-(B<cdpGlobalHoldTime>)
-
-=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().
-
-(B<cdpGlobalDeviceId>)
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 CDP CACHE ENTRIES
-
-=over
-
-=item $cdp->c_capabilities()
-
-Returns Device Functional Capabilities.  Results are munged into an ascii
-binary string, 7 digits long, MSB.  Each digit represents a bit from the
-table below.
-
-From L<http://www.cisco.com/univercd/cc/td/doc/product/lan/trsrb/frames.htm#18843>:
-
-(Bit) - Description
-
-=over
-
-=item (0x40) - Provides level 1 functionality.
-
-=item (0x20) - The bridge or switch does not forward IGMP Report packets on nonrouter ports.
-
-=item (0x10) - Sends and receives packets for at least one network layer protocol. If the device is routing the protocol, this bit should not be set.
-
-=item (0x08) - Performs level 2 switching. The difference between this bit and bit 0x02 is that a switch does not run the Spanning-Tree Protocol. This device is assumed to be deployed in a physical loop-free topology.
-
-=item (0x04) - Performs level 2 source-route bridging. A source-route bridge would set both this bit and bit 0x02.
-
-=item (0x02) - Performs level 2 transparent bridging.
-
-=item (0x01) - Performs level 3 routing for at least one network layer protocol.
-
-=back
-
-Thanks to Martin Lorensen C<martin -at- lorensen.dk> for a pointer to this information.
-
-(B<cdpCacheCapabilities>)
-
-=item $cdp->c_domain()
-
-Returns remote VTP Management Domain as defined in CISCO-VTP-MIB::managementDomainName
-
-(B<cdpCacheVTPMgmtDomain>)
-
-=item $cdp->c_duplex() 
-
-Returns the port duplex status from remote devices.
-
-(B<cdpCacheDuplex>)
-
-=item $cdp->c_id()
-
-Returns remote device id string
-
-(B<cdpCacheDeviceId>)
-
-=item $cdp->c_if()
-
-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 :
-
-  # it exists, yay.
-  my $c_index     = $device->c_index();
-  return $c_index if defined $c_index;
-
-  # if not, let's fake it
-  my $c_ip       = $device->c_ip();
-    
-  my %c_if
-  foreach my $key (keys %$c_ip){
-      $iid = $key;
-      ## Truncate off .1 from cdp response
-      $iid =~ s/\.\d+$//;
-      $c_if{$key} = $iid;
-  }
- 
-  return \%c_if;
-
-
-=item $cdp->c_index()
-
-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.
-
-See c_if() entry.
-
-(B<cdpCacheIfIndex>)
-
-=item  $cdp->c_ip()
-
-If $cdp->c_proto() is supported, returns remote IPV4 address only.  Otherwise
-it will return all addresses.
-
-(B<cdpCacheAddress>)
-
-=item  $cdp->c_addr()
-
-Returns remote address
-
-(B<cdpCacheAddress>)
-
-=item $cdp->c_platform() 
-
-Returns remote platform id 
-
-(B<cdpCachePlatform>)
-
-=item $cdp->c_port()
-
-Returns remote port ID
-
-(B<cdpDevicePort>)
-
-=item  $cdp->c_proto()
-
-Returns remote address type received.  Usually IP.
-
-(B<cdpCacheAddressType>)
-
-=item $cdp->c_ver() 
-
-Returns remote hardware version
-
-(B<cdpCacheVersion>)
-
-=item $cdp->c_vlan()
-
-Returns the remote interface native VLAN.
-
-(B<cdpCacheNativeVLAN>)
-
-=back
-
-=cut

Info/CiscoImage.pm

@@ -1,118 +0,0 @@
-package SNMP::Info::CiscoImage;
-#$Id$
-
-# Copyright (c) 2005 Matt Tuttle
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the
-#       names of its contributors may be used to endorse or promote products
-#       derived from this software without specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
-$VERSION = '1.07';
-
-@SNMP::Info::CiscoImage::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::CiscoImage::EXPORT_OK = qw//;
-
-%MIBS    = (
-            'CISCO-IMAGE-MIB' => 'ciscoImageString',
-           );
-
-%GLOBALS = (
-           );
-
-%FUNCS   = (
-            'ci_images'         => 'ciscoImageString',
-           );
-
-%MUNGE   = (
-           );
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::CiscoImage - SNMP Interface to image strings for Cisco Devices
-
-=head1 AUTHOR
-
-Matt Tuttle (C<mtuttle@americanhebrewacademy.org>)
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you.
- my $ci = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        )
-    or die "Can't connect to DestHost.\n";
-
- my $class = $ci->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::CiscoImage is a subclass of SNMP::Info that provides access to
-image strings embedded in an image running on Cisco Devices.
-
-Use or create in a subclass of SNMP::Info.  Do not use directly.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-IMAGE-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBALS
-
-None.
-
-=head1 TABLE METHODS
-
-=over
-
-=item $ci->ci_images()
-
-Returns the table of image strings.
-
-B<ciscoImageString>
-
-=back
-
-=cut

Info/CiscoPortSecurity.pm

@@ -1,328 +0,0 @@
-# SNMP::Info::CiscoPortSecurity
-# Eric Miller
-#
-# Copyright (c) 2006 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 
-#       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::CiscoPortSecurity;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-
-use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
-@SNMP::Info::CiscoPortSecurity::ISA = qw/Exporter/;
-@SNMP::Info::CiscoPortSecurity::EXPORT_OK = qw//;
-
-%MIBS    = (
-            'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB',
-           );
-
-%GLOBALS = (
-            # CISCO-PORT-SECURITY-MIB
-            'cps_clear'     => 'cpsGlobalClearSecureMacAddresses',
-            'cps_notify'    => 'cpsGlobalSNMPNotifControl',
-            'cps_rate'      => 'cpsGlobalSNMPNotifRate',
-            'cps_enable'    => 'cpsGlobalPortSecurityEnable',
-            'cps_mac_count' => 'cpsGlobalTotalSecureAddress',
-            'cps_mac_max'   => 'cpsGlobalMaxSecureAddress',
-           );
-
-%FUNCS   = (
-            # CISCO-PORT-SECURITY-MIB::cpsIfConfigTable
-            'cps_i_limit_val'  => 'cpsIfInvalidSrcRateLimitValue',
-            'cps_i_limit'      => 'cpsIfInvalidSrcRateLimitEnable',
-            'cps_i_sticky'     => 'cpsIfStickyEnable',
-            'cps_i_clear_type' => 'cpsIfClearSecureMacAddresses',
-            'cps_i_shutdown'   => 'cpsIfShutdownTimeout',
-            'cps_i_flood'      => 'cpsIfUnicastFloodingEnable',
-            'cps_i_clear'      => 'cpsIfClearSecureAddresses',
-            'cps_i_mac'        => 'cpsIfSecureLastMacAddress',
-            'cps_i_count'      => 'cpsIfViolationCount',
-            'cps_i_action'     => 'cpsIfViolationAction',
-            'cps_i_mac_static' => 'cpsIfStaticMacAddrAgingEnable',
-            'cps_i_mac_type'   => 'cpsIfSecureMacAddrAgingType',
-            'cps_i_mac_age'    => 'cpsIfSecureMacAddrAgingTime',
-            'cps_i_mac_count'  => 'cpsIfCurrentSecureMacAddrCount',
-            'cps_i_mac_max'    => 'cpsIfMaxSecureMacAddr',
-            'cps_i_status'     => 'cpsIfPortSecurityStatus',
-            'cps_i_enable'     => 'cpsIfPortSecurityEnable',
-            # CISCO-PORT-SECURITY-MIB::cpsIfVlanTable
-            'cps_i_v_mac_count' => 'cpsIfVlanCurSecureMacAddrCount',
-            'cps_i_v_mac_max'   => 'cpsIfVlanMaxSecureMacAddr',
-            'cps_i_v'           => 'cpsIfVlanIndex',
-            # CISCO-PORT-SECURITY-MIB::cpsIfVlanSecureMacAddrTable
-            'cps_i_v_mac_status' => 'cpsIfVlanSecureMacAddrRowStatus',
-            'cps_i_v_mac_age'    => 'cpsIfVlanSecureMacAddrRemainAge',
-            'cps_i_v_mac_type'   => 'cpsIfVlanSecureMacAddrType',
-            'cps_i_v_vlan'       => 'cpsIfVlanSecureVlanIndex',
-            'cps_i_v_mac'        => 'cpsIfVlanSecureMacAddress',
-            # CISCO-PORT-SECURITY-MIB::cpsSecureMacAddressTable
-            'cps_m_status' => 'cpsSecureMacAddrRowStatus',
-            'cps_m_age' => 'cpsSecureMacAddrRemainingAge',
-            'cps_m_type' => 'cpsSecureMacAddrType',
-            'cps_m_mac' => 'cpsSecureMacAddress',
-           );
-
-%MUNGE   = (
-            'cps_i_mac'      => \&SNMP::Info::munge_mac, 
-            'cps_m_mac'      => \&SNMP::Info::munge_mac,
-            'cps_i_v_mac'    => \&SNMP::Info::munge_mac,
-           );
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::CiscoPortSecurity - SNMP Interface to data from
-CISCO-PORT-SECURITY-MIB
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- # 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
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $cps->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::CiscoPortSecurity is a subclass of SNMP::Info that provides
-an interface to the C<CISCO-PORT-SECURITY-MIB>.  This MIB is used across
-the Catalyst family under CatOS and IOS.
-
-Use or create in a subclass of SNMP::Info.  Do not use directly.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-PORT-SECURITY-MIB
-
-=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
-
-=over
-
-=back
-
-=head2 CISCO-PORT-SECURITY-MIB globals
-
-=over
-
-=item $stack->cps_clear()
-
-(B<cpsGlobalClearSecureMacAddresses>)
-
-=item $stack->cps_notify()
-
-(B<cpsGlobalSNMPNotifControl>)
-
-=item $stack->cps_rate()
-
-(B<cpsGlobalSNMPNotifRate>)
-
-=item $stack->cps_enable()
-
-(B<cpsGlobalPortSecurityEnable>)
-
-=item $stack->cps_mac_count()
-
-(B<cpsGlobalTotalSecureAddress>)
-
-=item $stack->cps_mac_max()
-
-(B<cpsGlobalMaxSecureAddress>)
-
-=back
-
-=head1 TABLE METHODS
-
-=head2 CISCO-PORT-SECURITY-MIB - Interface Config Table
-
-=over
-
-=item $stack->cps_i_limit_val()
-
-(B<cpsIfInvalidSrcRateLimitValue>)
-
-=item $stack->cps_i_limit()
-
-(B<cpsIfInvalidSrcRateLimitEnable>)
-
-=item $stack->cps_i_sticky()
-
-(B<cpsIfStickyEnable>)
-
-=item $stack->cps_i_clear_type()
-
-(B<cpsIfClearSecureMacAddresses>)
-
-=item $stack->cps_i_shutdown()
-
-(B<cpsIfShutdownTimeout>)
-
-=item $stack->cps_i_flood()
-
-(B<cpsIfUnicastFloodingEnable>)
-
-=item $stack->cps_i_clear()
-
-(B<cpsIfClearSecureAddresses>)
-
-=item $stack->cps_i_mac()
-
-(B<cpsIfSecureLastMacAddress>)
-
-=item $stack->cps_i_count()
-
-(B<cpsIfViolationCount>)
-
-=item $stack->cps_i_action()
-
-(B<cpsIfViolationAction>)
-
-=item $stack->cps_i_mac_static()
-
-(B<cpsIfStaticMacAddrAgingEnable>)
-
-=item $stack->cps_i_mac_type()
-
-(B<cpsIfSecureMacAddrAgingType>)
-
-=item $stack->cps_i_mac_age()
-
-(B<cpsIfSecureMacAddrAgingTime>)
-
-=item $stack->cps_i_mac_count()
-
-(B<cpsIfCurrentSecureMacAddrCount>)
-
-=item $stack->cps_i_mac_max()
-
-(B<cpsIfMaxSecureMacAddr>)
-
-=item $stack->cps_i_status()
-
-(B<cpsIfPortSecurityStatus>)
-
-=item $stack->cps_i_enable()
-
-(B<cpsIfPortSecurityEnable>)
-
-=back
-
-=head2 CISCO-PORT-SECURITY-MIB::cpsIfVlanTable
-
-=over
-
-=item $stack->cps_i_v_mac_count()
-
-(B<cpsIfVlanCurSecureMacAddrCount>)
-
-=item $stack->cps_i_v_mac_max()
-
-(B<cpsIfVlanMaxSecureMacAddr>)
-
-=item $stack->cps_i_v()
-
-(B<cpsIfVlanIndex>)
-
-=back
-
-=head2 CISCO-PORT-SECURITY-MIB::cpsIfVlanSecureMacAddrTable
-
-=over
-
-=item $stack->cps_i_v_mac_status()
-
-(B<cpsIfVlanSecureMacAddrRowStatus>)
-
-=item $stack->cps_i_v_mac_age()
-
-(B<cpsIfVlanSecureMacAddrRemainAge>)
-
-=item $stack->cps_i_v_mac_type()
-
-(B<cpsIfVlanSecureMacAddrType>)
-
-=item $stack->cps_i_v_vlan()
-
-(B<cpsIfVlanSecureVlanIndex>)
-
-=item $stack->cps_i_v_mac()
-
-(B<cpsIfVlanSecureMacAddress>)
-
-=back
-
-=head2 CISCO-PORT-SECURITY-MIB::cpsSecureMacAddressTable
-
-=over
-
-=item $stack->cps_m_status()
-
-(B<cpsSecureMacAddrRowStatus>)
-
-=item $stack->cps_m_age()
-
-(B<cpsSecureMacAddrRemainingAge>)
-
-=item $stack->cps_m_type()
-
-(B<cpsSecureMacAddrType>)
-
-=item $stack->cps_m_mac()
-
-(B<cpsSecureMacAddress>)
-
-=back
-
-=cut

Info/CiscoPower.pm

@@ -1,147 +0,0 @@
-# SNMP::Info::CiscoPower
-# Bill Fenner
-#
-# Copyright (c) 2007 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.
-#     * 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::CiscoPower;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
-@SNMP::Info::CiscoPower::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::CiscoPower::EXPORT_OK = qw//;
-
-%MIBS    = ('CISCO-POWER-ETHERNET-EXT-MIB' => 'cpeExtPsePortEntPhyIndex');
-
-%GLOBALS = (
-           );
-
-%FUNCS   = (
-	    'cpeth_ent_phy'    => 'cpeExtPsePortEntPhyIndex',
-           );
-
-%MUNGE   = (
-           );
-
-# Cisco overcame the limitation of the module.port index of the
-# pethPsePortTable by adding another mapping table, which maps
-# a pethPsePortTable row to an entPhysicalTable index, which can
-# then be mapped to ifIndex.
-sub peth_port_ifindex {
-    my $cpeth = shift;
-    my $partial = shift;
-
-    my $ent_phy = $cpeth->cpeth_ent_phy($partial);
-    my $e_port = $cpeth->e_port();
-
-    my $peth_port_ifindex = {};
-    foreach my $i (keys %$ent_phy) {
-	if ($e_port->{$ent_phy->{$i}}) {
-	    $peth_port_ifindex->{$i} = $e_port->{$ent_phy->{$i}};
-	}
-    }
-    return $peth_port_ifindex;
-}
-
-1;
-
-=head1 NAME
-
-SNMP::Info::CiscoPower - SNMP Interface to data stored in CISCO-POWER-ETHERNET-EXT-MIB.
-
-=head1 AUTHOR
-
-Bill Fenner
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $poe = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $poe->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=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.
-It does not define any helpers for the extra values that this MIB
-contains.
-
-Create or use a device subclass that inherit this class.  Do not use directly.
-
-For debugging purposes you can call this class directly as you would SNMP::Info
-
- my $poe = new SNMP::Info::CiscoPower (...);
-
-=head2 Inherited Classes
-
-none.
-
-Note that it requires that the device inherits from Info::Entity.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-POWER-ETHERNET-EXT-MIB
-
-=back
-
-=head1 GLOBALS
-
-none.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Power Port Table
-
-=over
-
-=item $poe->peth_port_ifindex()
-
-Maps the pethPsePortTable to ifIndex by way of the ENTITY-MIB.
-
-=back
-
-=cut

Info/CiscoQOS.pm

@@ -1,217 +0,0 @@
-# SNMP::Info::CiscoQOS
-# Alexander Hartmaier <alexander.hartmaier@t-systems.at>
-#
-# Copyright (c) 2005 Alexander Hartmaier
-#
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::CiscoQOS;
-$VERSION = '1.07';
-
-# $Id$
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-@SNMP::Info::CiscoQOS::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::CiscoQOS::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
-
-%MIBS    = (
-            'CISCO-CLASS-BASED-QOS-MIB'      => 'cbQosIfIndex',
-           );
-
-%GLOBALS = (
-           );
-
-%FUNCS   = (
-            # CISCO-CLASS-BASED-QOS-MIB::cbQosServicePolicyTable
-            'qos_i_index'             => 'cbQosIfIndex',
-            'qos_i_type'              => 'cbQosIfType',
-            'qos_pol_direction'       => 'cbQosPolicyDirection',
-            # CISCO-CLASS-BASED-QOS-MIB::cbQosObjectsTable
-            'qos_obj_conf_index'      => 'cbQosConfigIndex',
-            'qos_obj_type'            => 'cbQosObjectsType',
-            'qos_obj_parent'          => 'cbQosParentObjectsIndex',
-            # CISCO-CLASS-BASED-QOS-MIB::cbQosCMCfgTable
-            'qos_cm_name'             => 'cbQosCMName',
-            'qos_cm_desc'             => 'cbQosCMDesc',
-            'qos_cm_info'             => 'cbQosCMInfo',
-            # CISCO-CLASS-BASED-QOS-MIB::cbQosCMStatsTable
-            'qos_octet_pre'           => 'cbQosCMPrePolicyByte',
-            'qos_octet_post'          => 'cbQosCMPostPolicyByte',
-            # CISCO-CLASS-BASED-QOS-MIB::cbQosQueueingCfgTable
-            'qos_queueingcfg_bw'        => 'cbQosQueueingCfgBandwidth',
-            'qos_queueingcfg_bw_units'  => 'cbQosQueueingCfgBandwidthUnits',
-           );
-
-%MUNGE   = (
-           );
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::CiscoQOS - SNMP Interface to Cisco's Quality of Service MIBs
-
-=head1 AUTHOR
-
-Alexander Hartmaier
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $qos = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class = $qos->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::CiscoQOS is a subclass of SNMP::Info that provides 
-information about a cisco device's QoS config.
-
-Use or create in a subclass of SNMP::Info.  Do not use directly.
-
-=head2 Inherited Classes
-
-none.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-CLASS-BASED-QOS-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBALS
-
-=over
-
-=item none
-
-=back
-
-=head1 TABLE METHODS
-
-=head2 ServicePolicy Table (B<cbQosServicePolicyTable>)
-
-This table describes the interfaces/media types and the policymap that are
-attached to it.
-
-=over
-
-=item $qos->qos_i_index()
-
-(B<cbQosIfIndex>)
-
-=item $qos->qos_i_type()
-
-(B<cbQosIfType>)
-
-=item $qos->qos_pol_direction()
-
-(B<cbQosPolicyDirection>)
-
-=back
-
-=head2 ClassMap Objects Table (B<cbQosObjectsTable>)
-
-=over
-
-=item $qos->qos_obj_index()
-
-(B<cbQosConfigIndex>)
-
-=item $qos->qos_obj_type()
-
-(B<cbQosObjectsType>)
-
-=item $qos->qos_obj_parent()
-
-(B<cbQosParentObjectsIndex>)
-
-=back
-
-=head2 ClassMap Configuration Table (B<cbQosCMCfgTable>)
-
-=over
-
-=item $qos->qos_cm_name()
-
-(B<cbQosCMName>)
-
-=item $qos->qos_cm_desc()
-
-(B<cbQosCMDesc>)
-
-=item $qos->qos_cm_info()
-
-(B<cbQosCMInfo>)
-
-=back
-
-=head2 ClassMap Stats Table (B<cbQosCMStatsTable>)
-
-=over
-
-=item $qos->qos_octet_pre()
-
-(B<cbQosCMPrePolicyByte>)
-
-=item $qos->qos_octet_post()
-
-(B<cbQosCMPostPolicyByte>)
-
-=back
-
-=head2 Queueing Configuration Table (B<cbQosQueueingCfgTable>)
-
-=over
-
-=item $qos->qos_queueingcfg_bw()
-
-(B<cbQosQueueingCfgBandwidth>)
-
-=item $qos->qos_queueingcfg_bw_units()
-
-(B<cbQosQueueingCfgBandwidthUnits>)
-
-=cut

Info/CiscoStats.pm

@@ -1,380 +0,0 @@
-# SNMP::Info::CiscoStats
-# Max Baker
-#
-# Changes since Version 0.7 Copyright (c) 2004 Max Baker 
-# All rights reserved.  
-#
-# Copyright (c) 2003 Regents of the University of California
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::CiscoStats;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
-@SNMP::Info::CiscoStats::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::CiscoStats::EXPORT_OK = qw//;
-
-%MIBS    = (
-            'SNMPv2-MIB'                       => 'sysDescr',
-            'CISCO-PROCESS-MIB'               => 'cpmCPUTotal5sec',
-            'CISCO-MEMORY-POOL-MIB'           => 'ciscoMemoryPoolUsed',
-            'OLD-CISCO-SYSTEM-MIB'            => 'writeMem',
-            'CISCO-PRODUCTS-MIB'              => 'sysName',
-            # some older catalysts live here
-            'CISCO-STACK-MIB'                 => 'wsc1900sysID',    
-            'CISCO-ENTITY-VENDORTYPE-OID-MIB' => 'cevChassis',
-            'CISCO-FLASH-MIB'                 => 'ciscoFlashDeviceSize',
-           );
-
-%GLOBALS = (
-            'description'  => 'sysDescr',
-            # We will use the numeric OID's so that we don't require people
-            # to install v1 MIBs, which can conflict.
-            # OLD-CISCO-CPU-MIB:avgBusyPer
-            'ios_cpu'      => '1.3.6.1.4.1.9.2.1.56.0',
-            'ios_cpu_1min' => '1.3.6.1.4.1.9.2.1.57.0',
-            'ios_cpu_5min' => '1.3.6.1.4.1.9.2.1.58.0',
-            # CISCO-PROCESS-MIB
-            'cat_cpu'      => 'cpmCPUTotal5sec.9',
-            'cat_cpu_1min' => 'cpmCPUTotal1min.9',
-            'cat_cpu_5min' => 'cpmCPUTotal5min.9',
-            # OLD-CISCO-SYSTEM-MIB
-            'write_mem'    => 'writeMem',
-           );
-
-%FUNCS   = (
-            # CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolTable
-            'cisco_mem_free'    => 'ciscoMemoryPoolFree',
-            'cisco_mem_used'    => 'ciscoMemoryPoolUsed',
-            # CISCO-FLASH-MIB::ciscoFlashDeviceTable
-            'cisco_flash_size'  => 'ciscoFlashDeviceSize',
-           );
-
-%MUNGE   = (
-           );
-
-sub os {
-    my $l2 = shift;
-    my $descr = $l2->description() || '';
-
-    # order here matters - there are Catalysts that run IOS and have catalyst in their description field.
-    return 'ios'      if ($descr =~ /IOS/);
-    return 'catalyst' if ($descr =~ /catalyst/i);
-    return undef;
-}
-
-sub os_ver {
-    my $l2    = shift;
-    my $os    = $l2->os();
-    my $descr = $l2->description();
-    
-    # Older Catalysts
-    if (defined $os and $os eq 'catalyst' and defined $descr and $descr =~ m/V(\d{1}\.\d{2}\.\d{2})/){
-        return $1;
-    }
-    
-    # Newer Catalysts and IOS devices
-    if (defined $descr and $descr =~ m/Version (\d+\.\d+\([^)]+\)[^,\s]*)(,|\s)+/ ){
-        return $1;
-    } 
-    return undef;
-}
-
-sub cpu {
-    my $self = shift;
-    my $ios_cpu = $self->ios_cpu();
-    return $ios_cpu if defined $ios_cpu;
-    my $cat_cpu = $self->cat_cpu();
-    return $cat_cpu;
-}
-
-sub cpu_1min {
-    my $self = shift;
-    my $ios_cpu_1min = $self->ios_cpu_1min();
-    return $ios_cpu_1min if defined $ios_cpu_1min;
-    my $cat_cpu_1min = $self->cat_cpu_1min();
-    return $cat_cpu_1min;
-}
-
-sub cpu_5min {
-    my $self = shift;
-    my $ios_cpu_5min = $self->ios_cpu_5min();
-    return $ios_cpu_5min if defined $ios_cpu_5min;
-    my $cat_cpu_5min = $self->cat_cpu_5min();
-    return $cat_cpu_5min;
-}
-
-sub mem_free {
-    my $self = shift;
-
-    my $mem_free;
-
-    my $cisco_mem_free = $self->cisco_mem_free() || {};
-
-    foreach my $mem_free_val (values %$cisco_mem_free) {
-        $mem_free += $mem_free_val;
-    }
-
-    return $mem_free;
-}
-
-sub mem_used {
-    my $self = shift;
-
-    my $mem_used;
-
-    my $cisco_mem_used = $self->cisco_mem_used() || {};
- 
-    foreach my $mem_used_val (values %$cisco_mem_used) {
-        $mem_used += $mem_used_val;
-    }
-
-    return $mem_used;
-}
-
-sub mem_total {
-    my $self = shift;
-
-    my $mem_total;
-
-    my $cisco_mem_free = $self->cisco_mem_free() || {};
-    my $cisco_mem_used = $self->cisco_mem_used() || {};
-
-    foreach my $mem_entry (keys %$cisco_mem_free){
-        my $mem_free = $cisco_mem_free->{$mem_entry} || 0;
-        my $mem_used = $cisco_mem_used->{$mem_entry} || 0;
-        $mem_total += ($mem_free + $mem_used);
-    }
-    return $mem_total;
-}
-
-sub flashmem_total {
-    my $self = shift;
-
-    my $flashmem_total;
-
-    my $flash_sizes = $self->cisco_flash_size;
-
-    foreach my $flash_index (keys %$flash_sizes) {
-        $flashmem_total += $flash_sizes->{$flash_index};
-    }
-
-    return $flashmem_total;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::CiscoStats - Perl5 Interface to CPU and Memory stats for Cisco Devices
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $ciscostats = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $ciscostats->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::CiscoStats is a subclass of SNMP::Info that provides cpu, memory, os and
-version information about Cisco Devices. 
-
-Use or create in a subclass of SNMP::Info.  Do not use directly.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-PRODUCTS-MIB
-
-=item CISCO-PROCESS-MIB
-
-=item CISCO-MEMORY-POOL-MIB
-
-=item SNMPv2-MIB
-
-=item OLD-CISCO-SYSTEM-MIB
-
-=item CISCO-STACK-MIB
-
-=item CISCO-ENTITY-VENDORTYPE-OID-MIB
-
-=item CISCO-FLASH-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBALS
-
-=over
-
-=item $ciscostats->cpu()
-
-Returns ios_cpu() or cat_cpu(), whichever is available.
-
-=item $ciscostats->cpu_1min()
-
-Returns ios_cpu_1min() or cat_cpu1min(), whichever is available.
-
-=item $ciscostats->cpu_5min()
-
-Returns ios_cpu_5min() or cat_cpu5min(), whichever is available.
-
-=item $ciscostats->mem_total()
-
-Returns mem_free() + mem_used()
-
-=item $ciscostats->os()
-
-Trys to parse if device is running IOS or CatOS from description()
-
-=item $ciscostats->os_ver()
-
-Trys 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<OLD-CISCO-CPU-MIB:avgBusyPer>
-
-=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>
-
-=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>
-
-=item $ciscostats->cat_cpu()
-
-Current CPU usage in percent.
-
-B<CISCO-PROCESS-MIB::cpmCPUTotal5sec.9>
-
-=item $ciscostats->cat_cpu_1min()
-
-Average CPU Usage in percent over the last minute.
-
-B<CISCO-PROCESS-MIB::cpmCPUTotal1min.9>
-
-=item $ciscostats->cat_cpu_5min()
-
-Average CPU Usage in percent over the last 5 minutes.
-
-B<CISCO-PROCESS-MIB::cpmCPUTotal5min.9>
-
-=item $ciscostats->mem_free()
-
-Main DRAM free of the device in bytes.
-
-B<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolFree>
-
-=item $ciscostats->mem_used()
-
-Main DRAM used of the device in bytes.
-
-B<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolUsed>
-
-=item $ciscostats->mem_total()
-
-Main DRAM of the device in bytes.
-
-B<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolFree> + B<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolUsed>
-
-=item $ciscostats->flashmem_total()
-
-Flash memory of the device in bytes.
-
-B<CISCO-FLASH-MIB::ciscoFlashDeviceSize>
-
-=back
-
-=head1 TABLE METHODS
-
-=head2 Cisco Memory Pool Table (B<ciscoMemoryPoolTable>)
-
-=over
-
-=item $ciscostats->cisco_mem_free()
-
-The number of bytes from the memory pool that are currently unused on the
-managed device.
-
-(B<ciscoMemoryPoolFree>)
-
-=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<ciscoMemoryPoolUsed>)
-
-=back
-
-=head2 Cisco Flash Device Table (B<ciscoFlashDeviceTable>)
-
-=over
-
-=item $ciscostats->cisco_flash_size()
-
-Total size of the Flash device.  For a removable device, the size will be
-zero if the device has been removed.
-
-(B<ciscoFlashDeviceSize>)
-
-=cut

Info/CiscoVTP.pm

@@ -1,825 +0,0 @@
-# SNMP::Info::CiscoVTP
-# Max Baker
-#
-# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
-#
-# Copyright (c) 2003 Regents of the University of California
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::CiscoVTP;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
- 
-use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
-@SNMP::Info::CiscoVTP::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::CiscoVTP::EXPORT_OK = qw//;
-
-%MIBS    = (
-            'CISCO-VTP-MIB'                       => 'vtpVlanName',
-            'CISCO-VLAN-MEMBERSHIP-MIB'           => 'vmMembershipEntry',
-            'CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB' => 'cviRoutedVlanIfIndex',
-           );
-
-%GLOBALS = (
-            'vtp_version'           => 'vtpVersion',
-            'vtp_maxstore'          => 'vtpMaxVlanStorage',
-            'vtp_notify'            => 'vtpNotificationsEnabled',
-            'vtp_notify_create'     => 'vtpVlanCreatedNotifEnabled',
-            'vtp_notify_delete'     => 'vtpVlanDeletedNotifEnabled',
-            'vtp_trunk_set_serial'  => 'vlanTrunkPortSetSerialNo',
-           );
-
-%FUNCS   = (
-            # CISCO-VTP-MIB::managementDomainTable
-            'vtp_d_index'     => 'managementDomainIndex',
-            'vtp_d_name'      => 'managementDomainName',
-            'vtp_d_mode'      => 'managementDomainLocalMode',
-            'vtp_d_rev'       => 'managementDomainConfigRevNumber',
-            'vtp_d_updater'   => 'managementDomainLastUpdater',
-            'vtp_d_last'      => 'managementDomainLastChange',
-            'vtp_d_status'    => 'managementDomainRowStatus',
-            'vtp_d_tftp'      => 'managementDomainTftpServer',
-            'vtp_d_tftp_path' => 'managementDomainTftpPathname',
-            'vtp_d_pruning'   => 'managementDomainPruningState',
-            'vtp_d_ver'       => 'managementDomainVersionInUse',
-            # CISCO-VTP-MIB::vtpVlanTable
-            'v_state'    => 'vtpVlanState',
-            'v_type'     => 'vtpVlanType',
-            'v_name'     => 'vtpVlanName',
-            'v_mtu'      => 'vtpVlanMtu',
-            'v_said'     => 'vtpVlanDot10Said',
-            'v_ring'     => 'vtpVlanRingNumber',
-            'v_bridge'   => 'vtpVlanBridgeNumber',
-            'v_stp'      => 'vtpVlanStpType',
-            'v_parent'   => 'vtpVlanParentVlan',
-            'v_trans1'   => 'vtpVlanTranslationalVlan1',
-            'v_trans2'   => 'vtpVlanTranslationalVlan2',
-            'v_btype'    => 'vtpVlanBridgeType',
-            'v_hop_are'  => 'vtpVlanAreHopCount',
-            'v_hop_ste'  => 'vtpVlanSteHopCount',
-            'v_crf'      => 'vtpVlanIsCRFBackup',
-            'v_type_ext' => 'vtpVlanTypeExt',
-            'v_if'       => 'vtpVlanIfIndex',
-            # CISCO-VLAN-MEMBERSHIP-MIB::vmMembershipTable
-            'i_vlan_type' => 'vmVlanType',
-            'i_vlan2'     => 'vmVlan',
-            'i_vlan_stat' => 'vmPortStatus',
-            'i_vlan_1'    => 'vmVlans',
-            'i_vlan_2'    => 'vmVlans2k',
-            'i_vlan_3'    => 'vmVlans3k',
-            'i_vlan_4'    => 'vmVlans4k',
-            # CISCO-VLAN-MEMBERSHIP-MIB::vmVoiceVlanTable
-            'i_voice_vlan' => 'vmVoiceVlanId',
-            # CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB
-            'v_cvi_if'    => 'cviRoutedVlanIfIndex',
-            # CISCO-VTP-MIB::vlanTrunkPortTable
-            'vtp_trunk_mgmt_dom' => 'vlanTrunkPortManagementDomain',
-            'vtp_trunk_encaps_t' => 'vlanTrunkPortEncapsulationType',
-            'vtp_trunk_vlans'    => 'vlanTrunkPortVlansEnabled',
-            'vtp_trunk_vlans_2k' => 'vlanTrunkPortVlansEnabled2k',
-            'vtp_trunk_vlans_3k' => 'vlanTrunkPortVlansEnabled3k',
-            'vtp_trunk_vlans_4k' => 'vlanTrunkPortVlansEnabled4k',
-            'vtp_trunk_native'   => 'vlanTrunkPortNativeVlan',
-            'i_pvid'             => 'vlanTrunkPortNativeVlan',
-            'vtp_trunk_rstat'    => 'vlanTrunkPortRowStatus',
-            'vtp_trunk_dyn'      => 'vlanTrunkPortDynamicState',
-            'vtp_trunk_dyn_stat' => 'vlanTrunkPortDynamicStatus',
-            'vtp_trunk_vtp'      => 'vlanTrunkPortVtpEnabled',
-            'vtp_trunk_encaps'  => 'vlanTrunkPortEncapsulationOperType',
-            # TODO Add these tables if someone wants them..
-            # vtpEditControlTable
-            # vtpVlanEditTable
-            # vtpStatsTable
-           );
-
-%MUNGE   = (
-           );
-
-sub v_index {
-    my $vtp = shift;
-    my $partial = shift;
-
-    my $v_name = $vtp->v_name($partial);
-    my %v_index;
-    foreach my $idx (keys %$v_name) {
-        my ($mgmtdomain, $vlan) = split(/\./, $idx);
-        $v_index{$idx} = $vlan;
-    }
-    return \%v_index;
-}
-
-sub i_vlan {
-    my $vtp = shift;
-    my $partial = shift;
-
-    my $port_vlan = $vtp->vtp_trunk_native($partial) || {};
-    my $i_vlan = $vtp->i_vlan2($partial) || {};
-    my $trunk_dyn_stat = $vtp->vtp_trunk_dyn_stat($partial) || {};
-
-    my %i_vlans;
-    # Get access ports
-    foreach my $port (keys %$i_vlan) {
-        my $vlan = $i_vlan->{$port};
-        next unless defined $vlan;
-        
-        $i_vlans{$port} = $vlan;
-    }
-
-    # Get trunk ports
-    foreach my $port (keys %$port_vlan) {
-        my $vlan = $port_vlan->{$port};
-        next unless defined $vlan;
-        my $stat = $trunk_dyn_stat->{$port};
-        if ( defined $stat and $stat =~ /^trunking/ ) {
-            $i_vlans{$port} = $vlan;
-        }
-    }
-
-    # Check in CISCO-VLAN-IFTABLE-RELATION-MIB
-    # Is this only for Aironet???  If so, it needs
-    # to be removed from this class
-    
-    my $v_cvi_if = $vtp->v_cvi_if();
-    if ( defined $v_cvi_if ) {
-
-        # Translate vlan.physical_interface -> iid
-        #       to iid -> vlan
-        foreach my $i (keys %$v_cvi_if){
-            my ($vlan,$phys) = split(/\./,$i);
-            my $iid = $v_cvi_if->{$i};
-
-            $i_vlans{$iid} = $vlan;
-        }
-    }
-
-    return \%i_vlans;
-}
-
-sub i_vlan_membership {
-    my $vtp = shift;
-    my $partial = shift;
-
-    my $ports_vlans    = $vtp->vtp_trunk_vlans($partial) || {};
-    my $ports_vlans_2k = $vtp->vtp_trunk_vlans_2k($partial) || {};
-    my $ports_vlans_3k = $vtp->vtp_trunk_vlans_3k($partial) || {};
-    my $ports_vlans_4k = $vtp->vtp_trunk_vlans_4k($partial) || {};
-    my $voice_vlans    = $vtp->i_voice_vlan($partial) || {};
-    my $vtp_vlans      = $vtp->v_state();
-    my $i_vlan         = $vtp->i_vlan2($partial) || {};
-    my $trunk_dyn_stat = $vtp->vtp_trunk_dyn_stat($partial) || {};
-
-    my $i_vlan_membership = {};
-
-    # Get access ports
-    foreach my $port (keys %$i_vlan) {
-        my $vlan = $i_vlan->{$port};
-        next unless defined $vlan;
-        my $stat = $trunk_dyn_stat->{$port};
-        if ( defined $stat and $stat =~ /notTrunking/ ) {
-            push(@{$i_vlan_membership->{$port}}, $vlan);
-        }
-    }
-
-    # Get special voice VLANs (0 and 4096)
-    foreach my $port (keys %$voice_vlans) {
-        my $vlan = $voice_vlans->{$port};
-        next unless defined $vlan;
-        # Going to assume we would catch regular VLANs with the other methods
-        next unless ($vlan == 0 or $vlan == 4096);
-            push(@{$i_vlan_membership->{$port}}, $vlan);
-    }
-
-    # Get trunk ports
-
-    my %oper_vlans;
-    foreach my $iid (keys %$vtp_vlans) {
-        my $vlan = 0;
-        my $vtp_dom =0;
-        my $state = $vtp_vlans->{$iid};
-        next unless defined $state;
-        next if $state !~ /operational/;
-        if ($iid =~ /(\d+)\.(\d+)/ ) {
-            $vtp_dom = $1;
-            $vlan    = $2;
-        }
-        $oper_vlans{$vlan}++;
-    }
-
-    foreach my $port (keys %$ports_vlans) {
-        my $stat = $trunk_dyn_stat->{$port};
-        if ( defined $stat and $stat =~ /^trunking/ ) {
-            my $k = 0;
-            foreach my $list ("$ports_vlans->{$port}", "$ports_vlans_2k->{$port}",
-                          "$ports_vlans_3k->{$port}", "$ports_vlans_4k->{$port}") {
-                my $vlanlist = [split(//, unpack("B*", $list))];
-                my $offset = 1024 * $k;
-                foreach my $vlan (keys %oper_vlans) {            
-                    push(@{$i_vlan_membership->{$port}}, $vlan) if (@$vlanlist[$vlan]-$offset);
-                }
-                $k++;
-            }
-        }
-    }
-
-    return $i_vlan_membership;
-}
-
-sub set_i_pvid {
-    my $vtp = shift;
-    my ($vlan_id, $ifindex) = @_;
-
-    return undef unless ( $vtp->validate_vlan_param ($vlan_id, $ifindex) );
-
-    my $native_vlan = $vtp->vtp_trunk_native($ifindex);
-    if (defined $native_vlan) {
-
-        print "Changing native VLAN from $native_vlan->{$ifindex} to $vlan_id on IfIndex: $ifindex\n" if $vtp->debug();
-
-        my $rv = $vtp->set_vtp_trunk_native($vlan_id, $ifindex);
-        unless ($rv) {
-            $vtp->error_throw("Unable to change native VLAN to $vlan_id on IfIndex: $ifindex");
-            return undef;
-        }
-        return $rv;
-    }
-    $vtp->error_throw("Can't find ifIndex: $ifindex - Is it a trunk port?");
-    return undef;
-}
-
-sub set_i_vlan {
-    my $vtp = shift;
-    my ($vlan_id, $ifindex) = @_;
-
-    return undef unless ( $vtp->validate_vlan_param ($vlan_id, $ifindex) );
-
-    my $i_vlan = $vtp->i_vlan2($ifindex);
-    if (defined $i_vlan) {
-
-        print "Changing VLAN from $i_vlan->{$ifindex} to $vlan_id on IfIndex: $ifindex\n" if $vtp->debug();
-
-        my $rv = $vtp->set_i_vlan2($vlan_id, $ifindex);
-        unless ($rv) {
-            $vtp->error_throw("Unable to change VLAN to $vlan_id on IfIndex: $ifindex");
-            return undef;
-        }
-        return $rv;
-    }
-    $vtp->error_throw("Can't find ifIndex: $ifindex - Is it an access port?");
-    return undef;
-}
-
-sub set_add_i_vlan_tagged {
-    my $vtp = shift;
-    my ($vlan_id, $ifindex) = @_;
-
-    return undef unless ( $vtp->validate_vlan_param ($vlan_id, $ifindex) );
-
-    print "Adding VLAN: $vlan_id to ifIndex: $ifindex\n" if $vtp->debug();
-
-    my $trunk_serial = $vtp->load_vtp_trunk_set_serial();
-    my $trunk_members   = $vtp->vtp_trunk_vlans($ifindex);
-
-    unless (defined $trunk_members) {
-        $vtp->error_throw("Can't find ifIndex: $ifindex - Is it a trunk port?");
-        return undef;
-    }
-
-    my @member_list = split(//, unpack("B*", $trunk_members->{$ifindex}));
-    
-    print "Original vlan list for ifIndex: $ifindex: @member_list \n" if $vtp->debug();
-    $member_list[$vlan_id] = '1';
-    print "Modified vlan list for ifIndex: $ifindex: @member_list \n" if $vtp->debug();
-    my $new_list = pack("B*", join('', @member_list));
-    #Add VLAN to member list
-    my $list_rv = $vtp->set_vtp_trunk_vlans($new_list, $ifindex);
-    unless ($list_rv) {
-        $vtp->error_throw("Unable to add VLAN: $vlan_id to ifIndex: $ifindex member list");
-        return undef;
-    }
-    #Make sure no other SNMP manager was making modifications at the same time.
-    my $serial_rv = $vtp->set_vtp_trunk_set_serial($trunk_serial);
-    unless ($serial_rv) {
-        $vtp->error_throw("Unable to increment trunk set serial number - check configuration!");
-        return undef;
-    }
-    return 1;
-}
-
-sub set_remove_i_vlan_tagged {
-    my $vtp = shift;
-    my ($vlan_id, $ifindex) = @_;
-
-    return undef unless ( $vtp->validate_vlan_param ($vlan_id, $ifindex) );
-
-    print "Removing VLAN: $vlan_id from ifIndex: $ifindex\n" if $vtp->debug();
-
-    my $trunk_serial   = $vtp->load_vtp_trunk_set_serial();
-    my $trunk_members  = $vtp->vtp_trunk_vlans($ifindex);
-
-    unless (defined $trunk_members) {
-        $vtp->error_throw("Can't find ifIndex: $ifindex - Is it a trunk port?");
-        return undef;
-    }
-
-    my @member_list = split(//, unpack("B*", $trunk_members->{$ifindex}));
-    
-    print "Original vlan list for ifIndex: $ifindex: @member_list \n" if $vtp->debug();
-    $member_list[$vlan_id] = '0';
-    print "Modified vlan list for ifIndex: $ifindex: @member_list \n" if $vtp->debug();
-    my $new_list = pack("B*", join('', @member_list));
-    #Remove VLAN to member list
-    my $list_rv = $vtp->set_vtp_trunk_vlans($new_list, $ifindex);
-    unless ($list_rv) {
-        $vtp->error_throw("Error: Unable to remove VLAN: $vlan_id from ifIndex: $ifindex member list");
-        return undef;
-    }
-    #Make sure no other manager was making modifications at the same time.
-    my $serial_rv = $vtp->set_vtp_trunk_set_serial($trunk_serial);
-    unless ($serial_rv) {
-        $vtp->error_throw("Error: Unable to increment trunk set serial number - check configuration!");
-        return undef;
-    }
-    return 1;
-}
-
-#
-# These are internal methods and are not documented.  Do not use directly. 
-#
-sub validate_vlan_param {
-    my $vtp = shift;
-    my ($vlan_id, $ifindex) = @_;
-
-    # VID and ifIndex should both be numeric
-    unless ( defined $vlan_id and defined $ifindex and $vlan_id =~ /^\d+$/ and $ifindex =~ /^\d+$/ ) {
-        $vtp->error_throw("Invalid parameter");
-        return undef;
-    }
-    
-    # Check that ifIndex exists on device
-    my $index = $vtp->interfaces($ifindex);
-
-    unless ( exists $index->{$ifindex} ) {
-        $vtp->error_throw("ifIndex $ifindex does not exist");
-        return undef;
-    }
-
-    #Check that VLAN exists on device
-    my $vtp_vlans   = $vtp->v_state();
-    my $vlan_exists = 0;
-    
-    foreach my $iid (keys %$vtp_vlans) {
-        my $vlan = 0;
-        my $vtp_dom =0;
-        my $state = $vtp_vlans->{$iid};
-        next unless defined $state;
-        next if $state !~ /operational/;
-        if ($iid =~ /(\d+)\.(\d+)/ ) {
-            $vtp_dom = $1;
-            $vlan    = $2;
-        }
-        
-        $vlan_exists = 1 if ( $vlan_id eq $vlan );
-    }
-    unless ( $vlan_exists ) {
-        $vtp->error_throw("VLAN $vlan_id does not exist or is not operational");
-        return undef;
-    }
-
-    return 1;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::CiscoVTP - SNMP Interface to Cisco's VLAN Management MIBs
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $vtp = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class = $vtp->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::CiscoVTP is a subclass of SNMP::Info that provides 
-information about a Cisco device's VLAN and VTP Domain memebership.
-
-Use or create in a subclass of SNMP::Info.  Do not use directly.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-VTP-MIB
-
-=item CISCO-VLAN-MEMBERSHIP-MIB
-
-=item CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBALS
-
-=over
-
-=item $vtp->vtp_version()
-
-(B<vtpVersion>)
-
-=item $vtp->vtp_maxstore()
-
-(B<vtpMaxVlanStorage>)
-
-=item $vtp->vtp_notify()
-
-(B<vtpNotificationsEnabled>)
-
-=item $vtp->vtp_notify_create()
-
-(B<vtpVlanCreatedNotifEnabled>)
-
-=item $vtp->vtp_notify_delete()
-
-(B<vtpVlanDeletedNotifEnabled>)
-
-=item $vtp->vtp_trunk_set_serial()
-
-(B<vlanTrunkPortSetSerialNo>)
-
-=back
-
-=head1 TABLE METHODS
-
-Your device will only implement a subset of these methods.
-
-=over
-
-=item $vtp->i_vlan()
-
-Returns a mapping between ifIndex 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.
-
-  Example:
-  my $interfaces = $vtp->interfaces();
-  my $vlans      = $vtp->i_vlan_membership();
-  
-  foreach my $iid (sort keys %$interfaces) {
-    my $port = $interfaces->{$iid};
-    my $vlan = join(',', sort(@{$vlans->{$iid}}));
-    print "Port: $port VLAN: $vlan\n";
-  }
-
-=back
-
-=head2 VLAN Table (B<CISCO-VTP-MIB::vtpVlanTable>)
-
-See ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html
-for a good treaty of how to connect to the VLANs
-
-=over
-
-=item $vtp->v_index()
-
-(B<vtpVlanIndex>)
-
-=item $vtp->v_state()
-
-(B<vtpVlanState>)
-
-=item $vtp->v_type()
-
-(B<vtpVlanType>)
-
-=item $vtp->v_name()
-
-(B<vtpVlanName>)
-
-=item $vtp->v_mtu()
-
-(B<vtpVlanMtu>)
-
-=item $vtp->v_said()
-
-(B<vtpVlanDot10Said>)
-
-=item $vtp->v_ring()
-
-(B<vtpVlanRingNumber>)
-
-=item $vtp->v_bridge()
-
-(B<vtpVlanBridgeNumber>)
-
-=item $vtp->v_stp()
-
-(B<vtpVlanStpType>)
-
-=item $vtp->v_parent()
-
-(B<vtpVlanParentVlan>)
-
-=item $vtp->v_trans1()
-
-(B<vtpVlanTranslationalVlan1>)
-
-=item $vtp->v_trans2()
-
-(B<vtpVlanTranslationalVlan2>)
-
-=item $vtp->v_btype()
-
-(B<vtpVlanBridgeType>)
-
-=item $vtp->v_hop_are()
-
-(B<vtpVlanAreHopCount>)
-
-=item $vtp->v_hop_ste()
-
-(B<vtpVlanSteHopCount>)
-
-=item $vtp->v_crf()
-
-(B<vtpVlanIsCRFBackup>)
-
-=item $vtp->v_type_ext()
-
-(B<vtpVlanTypeExt>)
-
-=item $vtp->v_if()
-
-(B<vtpVlanIfIndex>)
-
-=back
-
-=head2 VLAN Membership Table (B<CISCO-VLAN-MEMBERSHIP-MIB::vmMembershipTable>)
-
-=over
-
-=item $vtp->i_vlan_type()
-
-Static, Dynamic, or multiVlan.  
-
-(B<vmVlanType>)
-
-=item $vtp->i_vlan2()
-
-The VLAN that an access port is assigned to.
-
-(B<vmVlan>)
-
-=item $vtp->i_vlan_stat()
-
-Inactive, active, shutdown.
-
-(B<vmPortStatus>)
-
-=item $vtp->i_vlan_1()
-
-Each bit represents a VLAN.  This is 0 through 1023
-
-(B<vmVlans>)
-
-=item $vtp->i_vlan_2()
-
-Each bit represents a VLAN.  This is 1024 through 2047
-
-(B<vmVlans2k>)
-
-=item $vtp->i_vlan_3()
-
-Each bit represents a VLAN.  This is 2048 through 3071
-
-(B<vmVlans3k>)
-
-=item $vtp->i_vlan_4()
-
-Each bit represents a VLAN.  This is 3072 through 4095
-
-(B<vmVlans4k>)
-
-=back
-
-=head2 VLAN Membership Voice VLAN Table (B<CISCO-VLAN-MEMBERSHIP-MIB::vmVoiceVlanTable>)
-
-=over
-
-=item $vtp->i_voice_vlan() 
-
-(B<vmVoiceVlanId>)
-
-=back
-
-=head2 Managment Domain Table (B<CISCO-VTP-MIB::managementDomainTable>)
-
-=over
-
-=item $vtp->vtp_d_index()
-
-(B<managementDomainIndex>)
-
-=item $vtp->vtp_d_name()
-
-(B<managementDomainName>)
-
-=item $vtp->vtp_d_mode()
-
-(B<managementDomainLocalMode>)
-
-=item $vtp->vtp_d_rev()
-
-(B<managementDomainConfigRevNumber>)
-
-=item $vtp->vtp_d_updater()
-
-(B<managementDomainLastUpdater>)
-
-=item $vtp->vtp_d_last()
-
-(B<managementDomainLastChange>)
-
-=item $vtp->vtp_d_status()
-
-(B<managementDomainRowStatus>)
-
-=item $vtp->vtp_d_tftp()
-
-(B<managementDomainTftpServer>)
-
-=item $vtp->vtp_d_tftp_path()
-
-(B<managementDomainTftpPathname>)
-
-=item $vtp->vtp_d_pruning()
-
-(B<managementDomainPruningState>)
-
-=item $vtp->vtp_d_ver()
-
-(B<managementDomainVersionInUse>)
-
-=back
-
-=head2 VLAN Trunk Port Table (B<CISCO-VTP-MIB::vlanTrunkPortTable>)
-
-=over
-
-=item $vtp->vtp_trunk_mgmt_dom()
-
-(B<vlanTrunkPortManagementDomain>)
-
-=item $vtp->vtp_trunk_encaps_t()
-
-(B<vlanTrunkPortEncapsulationType>)
-
-=item $vtp->vtp_trunk_vlans()
-
-(B<vlanTrunkPortVlansEnabled>)
-
-=item $vtp->vtp_trunk_vlans_2k()
-
-(B<vlanTrunkPortVlansEnabled2k>)
-
-=item $vtp->vtp_trunk_vlans_3k()
-
-(B<vlanTrunkPortVlansEnabled3k>)
-
-=item $vtp->vtp_trunk_vlans_4k()
-
-(B<vlanTrunkPortVlansEnabled4k>)
-
-=item $vtp->vtp_trunk_native()
-
-(B<vlanTrunkPortNativeVlan>)
-
-=item $vtp->i_pvid()
-
-(B<vlanTrunkPortNativeVlan>)
-
-=item $vtp->vtp_trunk_rstat()
-
-(B<vlanTrunkPortRowStatus>)
-
-=item $vtp->vtp_trunk_dyn()
-
-(B<vlanTrunkPortDynamicState>)
-
-=item $vtp->vtp_trunk_dyn_stat()
-
-(B<vlanTrunkPortDynamicStatus>)
-
-=item $vtp->vtp_trunk_vtp()
-
-(B<vlanTrunkPortVtpEnabled>)
-
-=item $vtp->vtp_trunk_encaps()
-
-(B<vlanTrunkPortEncapsulationOperType>)
-
-=back
-
-=head1 SET METHODS
-
-These are methods that provide SNMP set functionality for overridden methods or
-provide a simpler interface to complex set operations.  See
-L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set operations. 
-
-=over
-
-=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
-(non-trunk) ports.
-
-  Example:
-  my %if_map = reverse %{$vtp->interfaces()};
-  $vtp->set_i_vlan('2', $if_map{'FastEthernet0/1'}) 
-    or die "Couldn't change port VLAN. ",$vtp->error(1);
-
-=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.
-
-  Example:
-  my %if_map = reverse %{$vtp->interfaces()};
-  $vtp->set_i_pvid('2', $if_map{'FastEthernet0/1'}) 
-    or die "Couldn't change port default VLAN. ",$vtp->error(1);
-
-=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.
-
-  Example:
-  my %if_map = reverse %{$vtp->interfaces()};
-  $vtp->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) 
-    or die "Couldn't add port to egress list. ",$vtp->error(1);
-
-=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.
-
-  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);
-
-=cut

Info/Entity.pm

@@ -1,287 +0,0 @@
-# SNMP::Info::Entity
-# Max Baker
-#
-# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
-#
-# Copyright (c) 2003 Regents of the University of California
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Entity;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
-@SNMP::Info::Entity::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::Entity::EXPORT_OK = qw//;
-
-%MIBS    = ('ENTITY-MIB' => 'entPhysicalSerialNum');
-
-%GLOBALS = (
-           );
-
-%FUNCS   = (
-            'e_alias'   => 'entPhysicalAlias',
-            'e_class'   => 'entPhysicalClass',
-            'e_descr'   => 'entPhysicalDescr',
-            'e_fwver'   => 'entPhysicalFirmwareRev',
-            'e_fru'     => 'entPhysicalIsFRU',
-            'e_hwver'   => 'entPhysicalHardwareRev',
-            'e_id'      => 'entPhysicalAssetID',
-            'e_map'     => 'entAliasMappingIdentifier',
-            'e_model'   => 'entPhysicalModelName',
-            'e_name'    => 'entPhysicalName',
-            'e_parent'  => 'entPhysicalContainedIn',
-            'e_pos'     => 'entPhysicalParentRelPos',
-            'e_serial'  => 'entPhysicalSerialNum',
-            'e_swver'   => 'entPhysicalSoftwareRev',
-            'e_type'    => 'entPhysicalVendorType',
-            'e_vendor'  => 'entPhysicalMfgName',
-           );
-
-%MUNGE   = (
-            'e_type'    => \&munge_e_type,
-           );
-
-# entPhysicalIndex is not-accessible.  Create to facilitate emulation methods
-# in other classes
-
-sub e_index {
-    my $entity = shift;
-    my $partial = shift;
-
-    # Force use of MIB leaf to avoid inheritance issues in psuedo classes
-    my $e_descr  = $entity->entPhysicalDescr($partial);
-
-    return undef unless ($e_descr);
-    
-    my %e_index;
-
-    foreach my $iid (keys %$e_descr) {
-        $e_index{$iid} = $iid;
-    }
-    return \%e_index;
-}
-
-sub e_port {
-    my $entity = shift;
-    my $partial = shift;
-
-    my $e_map  = $entity->e_map($partial);
-
-    my %e_port;
-
-    foreach my $e_id (keys %$e_map) {
-        my $id = $e_id;
-        $id =~ s/\.0$//;
-
-        my $iid = $e_map->{$e_id};
-        $iid =~ s/.*\.//;
-
-        $e_port{$id} = $iid;
-    }
-
-    return \%e_port;
-}
-
-sub munge_e_type {
-    my $oid = shift;
-
-    my $name = &SNMP::translateObj($oid);
-    return $name if defined($name);
-    return $oid;
-}
-1;
-
-=head1 NAME
-
-SNMP::Info::Entity - SNMP Interface to data stored in ENTITY-MIB. RFC 2737
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $entity = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $entity->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-ENTITY-MIB is used by Layer 2 devices from HP,Aironet,Foundry,Cisco and more.
-
-See RFC 2737 for full details.
-
-Create or use a device subclass that inherit this class.  Do not use directly.
-
-For debugging purposes you can call this class directly as you would SNMP::Info
-
- my $entity = new SNMP::Info::Entity (...);
-
-=head2 Inherited Classes
-
-none.
-
-=head2 Required MIBs
-
-=over
-
-=item ENTITY-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBALS
-
-none.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Entity Table
-
-=over
-
-=item $entity->e_index()
-
-Index
-
-(C<entPhysicalIndex>)
-
-=item $entity->e_alias()
-
-Human entered, not usually used.
-
-(C<entPhysicalAlias>)
-
-=item $entity->e_class()
-
-Stack, Module, Container, Port ...
-
-(C<entPhysicalClass>)
-
-=item $entity->e_descr()
-
-Human Friendly
-
-(C<entPhysicalClass>)
-
-=item $entity->e_fwver()
-
-(C<entPhysicalFirmwareRev>)
-
-=item $entity->e_fru()
-
-BOOLEAN. Field Replaceable unit?
-
-(C<entPhysicalFRU>)
-
-=item $entity->e_hwver()
-
-(C<entPhysicalHardwareRev>)
-
-=item $entity->e_id()
-
-This is human entered and not normally used.
-
-(C<entPhysicalAssetID>)
-
-=item $entity->e_map()
-
-See MIB.
-
-(C<entAliasMappingIdentifier>)
-
-=item $entity->e_model()
-
-Model Name of Entity.
-
-(C<entPhysicalModelName>)
-
-=item $entity->e_name()
-
-More computer friendly name of entity.  Parse me.
-
-(C<entPhysicalName>)
-
-=item $entity->e_parent()
-
-0 if root.
-
-(C<entPhysicalContainedIn>)
-
-=item $entity->e_port()
-
-Maps EntityTable entries to the Interface Table (IfTable) using
-$entity->e_map()
-
-=item $entity->e_pos()
-
-The relative position among all entities sharing the same parent.
-
-(C<entPhysicalParentRelPos>)
-
-=item $entity->e_serial()
-
-(C<entPhysicalSerialNum>)
-
-=item $entity->e_swver()
-
-(C<entPhysicalSoftwareRev>)
-
-=item $entity->e_type()
-
-This is an OID.
-
-(C<entPhysicalVendorType>)
-
-=item $entity->e_vendor()
-
-Vendor of Module.
-
-(C<entPhysicalMfgName>)
-
-=back
-
-=cut

Info/EtherLike.pm

@@ -1,246 +0,0 @@
-# SNMP::Info::EtherLike
-# Max Baker
-#
-# Copyright (c) 2004 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 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::EtherLike;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
-@SNMP::Info::EtherLike::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::EtherLike::EXPORT_OK = qw//;
-
-%MIBS = (
-         'ETHERLIKE-MIB' => 'etherMIB'
-         );
-
-%GLOBALS = ();
-
-%FUNCS = (
-          # EtherLike StatsTable
-          'el_chipset'         => 'dot3StatsEtherChipSet',
-          'el_coll_excess'     => 'dot3StatsExcessiveCollisions',
-          'el_coll_late'       => 'dot3StatsLateCollisions',
-          'el_coll_mult'       => 'dot3StatsMultipleCollisionFrames',
-          'el_coll_single'     => 'dot3StatsSingleCollisionFrames',
-          'el_duplex'          => 'dot3StatsDuplexStatus',
-          'el_error_alignment' => 'dot3StatsAlignmentErrors',
-          'el_error_fcs'       => 'dot3StatsFCSErrors',
-          'el_error_cs'        => 'dot3StatsCarrierSenseErrors',
-          'el_error_frame'     => 'dot3StatsFrameTooLongs',
-          'el_error_mac_rec'   => 'dot3StatsInternalMacReceiveErrors',
-          'el_error_mac_xmit'  => 'dot3StatsInternalMacTransmitErrors',
-          'el_error_sqe'       => 'dot3StatsSQETestErrors',
-          'el_error_symbol'    => 'dot3StatsSymbolErrors',
-          'el_index'           => 'dot3StatsIndex',
-          'el_xmit_defer'      => 'dot3StatsDeferredTransmissions',
-          # Ethernet-like Collision Statistics Group
-          'el_coll_count'      => 'dot3CollCount',
-          'el_coll_freq'       => 'dot3CollFrequencies'
-          );
-
-%MUNGE = (
-          %SNMP::Info::MUNGE,
-          'el_duplex' => \&munge_el_duplex,
-         );
-
-sub munge_el_duplex {
-    my $duplex = shift;
-    return unless defined $duplex;
-
-    $duplex =~ s/Duplex$//;
-    return $duplex;
-}
-
-
-1;
-__END__
-
-
-=head1 NAME
-
-SNMP::Info::EtherLike - SNMP Interface to SNMP ETHERLIKE-MIB RFC 1398
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- my $el = new SNMP::Info ( 
-                             AutoSpecify => 1,
-                             Debug       => 1,
-                             DestHost    => 'router', 
-                             Community   => 'public',
-                             Version     => 2
-                           );
- 
- my $class = $cdp->class();
- print " Using device sub class : $class\n";
-
- # Find the duplex setting for a port on a device that implements ETHERLIKE-MIB
- my $interfaces = $el->interfaces();
- my $el_index   = $el->el_index();
- my $el_duplex  = $el->el_duplex(); 
-
- foreach my $el_port (keys %$el_duplex){
-    my $duplex = $el_duplex->{$el_port};
-    my $iid    = $el_index->{$el_port};
-    my $port   = $interfaces->{$iid};
-
-    print "PORT:$port set to duplex:$duplex\n";
- }
-
-=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.
-
-See RFC 1398 for more details.
-
-Use or create a subclass of SNMP::Info that inherits this one.  Do not use directly.
-
-=head2 Inherited Classes
-
-None.  
-
-=head2 Required MIBs
-
-=over
-
-=item ETHERLIKE-MIB
-
-=back
-
-MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
-
-=head1 GLOBALS
-
-These are methods that return scalar values from SNMP
-
-=over
-
-=item None
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 ETHERLIKE STATS TABLE (dot3StatsTable)
-
-=over
-
-=item $el->el_index()
-
-Returns reference to hash. Indexes Stats Table to the interface index (iid).
-
-(B<dot3StatsIndex>)
-
-=item $el->el_duplex()
-
-Returns reference to hash.  Indexes Stats Table to Duplex Status of port.
-
-(B<dot3StatsDuplexStatus>)
-
-=item $el->el_chipset()
-
-(B<dot3StatsEtherChipSet>)
-
-=item $el->el_coll_excess()
-
-(B<dot3StatsExcessiveCollisions>)
-
-=item $el->el_coll_late()
-
-(B<dot3StatsLateCollisions>)
-
-=item $el->el_coll_mult()
-
-(B<dot3StatsMultipleCollisionFrames>)
-
-=item $el->el_coll_single()
-
-(B<dot3StatsSingleCollisionFrames>)
-
-=item $el->el_error_alignment()
-
-(B<dot3StatsAlignmentErrors>)
-
-=item $el->el_error_fcs()
-
-(B<dot3StatsFCSErrors>)
-
-=item $el->el_error_cs()
-
-(B<dot3StatsCarrierSenseErrors>)
-
-=item $el->el_error_frame()
-
-(B<dot3StatsFrameTooLongs>)
-
-=item $el->el_error_mac_rec()
-
-(B<dot3StatsInternalMacReceiveErrors>)
-
-=item $el->el_error_mac_xmit()
-
-(B<dot3StatsInternalMacTransmitErrors>)
-
-=item $el->el_error_sqe()
-
-(B<dot3StatsSQETestErrors>)
-
-=item $el->el_error_symbol()
-
-(B<dot3StatsSymbolErrors>)
-
-=item $el->el_xmit_defer()
-
-(B<dot3StatsDeferredTransmissions>)
-
-=item $el->el_coll_count()
-
-(B<dot3CollCount>)
-
-=item $el->el_coll_freq()
-
-(B<dot3CollFrequencies>)
-
-=back
-
-=cut

Info/FDP.pm

@@ -1,393 +0,0 @@
-# SNMP::Info::FDP
-# Bruce Rodger
-# $Id$
-#
-# (c) 2004 Bruce Rodger, 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.
-#     * 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::FDP;
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-@SNMP::Info::FDP::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::FDP::EXPORT_OK = qw//;
-
-use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
-$VERSION = '1.07';
-
-%MIBS 	= (
-           'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun'
-           );
-
-%GLOBALS = (
-            # CDP-Compatibility
-            'cdp_interval' => 'snFdpGlobalMessageInterval',
-            'cdp_holdtime' => 'snFdpGlobalHoldTime',
-            'cdp_id'       => 'snFdpGlobalDeviceId',
-            #
-            'fdp_run'      => 'snFdpGlobalRun',
-            'fdp_interval' => 'snFdpGlobalMessageInterval',
-            'fdp_holdtime' => 'snFdpGlobalHoldTime',
-            'fdp_id'       => 'snFdpGlobalDeviceId',
-           );
-
-%FUNCS  = (
-            'c_index'        => 'snFdpCacheIfIndex',
-            'c_proto'        => 'snFdpCacheAddressType',
-            'c_ip'           => 'snFdpCacheAddress',
-            'c_ver'          => 'snFdpCacheVersion',
-            'c_id'           => 'snFdpCacheDeviceId',
-            'c_port'         => 'snFdpCacheDevicePort',
-            'c_platform'     => 'snFdpCachePlatform',
-            'c_capabilities' => 'snFdpCacheCapabilities',
-            'c_domain'       => 'snFdpCacheVTPMgmtDomain',
-            'c_vlan'         => 'snFdpCacheNativeVLAN',
-            'c_duplex'       => 'snFdpCacheDuplex',
-          );
-
-%MUNGE = (
-          'c_capabilities' => \&munge_caps,
-          'c_ip'           => \&SNMP::Info::munge_ip
-         );
-
-
-sub munge_caps {
-    my $caps = shift;
-    return undef unless defined $caps;
-
-    my $bits = substr(unpack("B*",$caps),-7);
-    return $bits;
-}
-
-sub cdp_run {
-    my $fdp = shift;
-    my $fdp_run = $fdp->fdp_run();
-
-    # if fdp_run isn't implemented on device, assume FDP is on
-    return $fdp_run if defined $fdp_run;
-    return 1;
-}
-
-sub hasFDP {
-    my $fdp = shift;
-
-    my $ver = $fdp->{_version};
-    #my $ver = $fdp->fdp_ver;
-
-    # SNMP v1 clients dont have the globals
-    if (defined $ver and $ver == 1){
-        my $fdp_ip = $fdp->fdp_ip();
-        # See if anything in fdp cache, if so we have fdp
-        return 1 if (defined $fdp_ip and scalar(keys %$fdp_ip)) ;
-        return undef;
-    }
-    
-    return $fdp->fdp_run();
-}
-
-sub c_if {
-    my $fdp  = shift;
-
-    # See if by some miracle Cisco implemented the fdpCacheIfIndex entry
-    my $fdp_index     = $fdp->fdp_index();
-    return $fdp_index if defined $fdp_index;
-
-    # Nope, didn't think so. Now we fake it.
-    my $fdp_ip = $fdp->c_ip();
-    unless (defined $fdp_ip){
-        $fdp->error_throw("SNMP::Info::FDP:fdp_if() - Device doesn't have fdp_ip() data.  Can't fake fdp_index()");
-        return undef;
-    }
-
-    my %fdp_if;
-    foreach my $key (keys %$fdp_ip){
-      next unless defined $key;
-      my $iid = $key;
-      # Truncate .1 from fdp cache entry
-      $iid =~ s/\.\d+$//;
-      $fdp_if{$key} = $iid;
-    }
-
-    return \%fdp_if;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::FDP - SNMP Interface to Foundry Discovery Protocol (FDP) using SNMP
-
-=head1 AUTHOR
-
-Bruce Rodger, Max Baker
-
-=head1 SYNOPSIS
-
- my $fdp = new SNMP::Info ( 
-                             AutoSpecify => 1,
-                             Debug       => 1,
-                             DestHost    => 'router', 
-                             Community   => 'public',
-                             Version     => 2
-                           );
-
- my $class = $fdp->class();
- print " Using device sub class : $class\n";
-
- $hasfdp   = $fdp->hasFDP() ? 'yes' : 'no';
-
- # Print out a map of device ports with FDP neighbors:
- my $interfaces = $fdp->interfaces();
- my $fdp_if       = $fdp->fdp_if();
- my $fdp_ip       = $fdp->fdp_ip();
- my $fdp_port     = $fdp->fdp_port();
-
- foreach my $fdp_key (keys %$fdp_ip){
-    my $iid           = $fdp_if->{$fdp_key};
-    my $port          = $interfaces->{$iid};
-    my $neighbor      = $fdp_ip->{$fdp_key};
-    my $neighbor_port = $fdp_port->{$fdp_key};
-    print "Port : $port connected to $neighbor / $neighbor_port\n";
- }
-
-=head1 DESCRIPTION
-
-SNMP::Info::FDP is a subclass of SNMP::Info that provides an object oriented 
-interface to FDP information through SNMP.
-
-FDP is a Layer 2 protocol that supplies topology information of
-devices that also speak FDP, mostly switches and routers.  It has
-similar functionality to Cisco's CDP, and the SNMP interface is
-virtually identical.  FDP is implemented in Foundry devices, including
-the Bigiron and Fastiron range.
-
-Create or use a device subclass that inherits this class.  Do not use directly.
-
-Each device implements a subset of the global and cache entries. 
-Check the return value to see if that data is held by the device.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item FOUNDRY-SN-SWITCH-GROUP-MIB
-
-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
-
-=over
-
-=item  $fdp->hasFDP()
-
-Is FDP is active in this device?  
-
-Accounts for SNMP version 1 devices which may have FDP but not fdp_run()
-
-=item $fdp->fdp_run()
-
-Is FDP enabled on this device?  
-
-(B<fdpGlobalRun>)
-
-=item $fdp->fdp_interval()
-
-Interval in seconds at which FDP messages are generated.
-
-(B<fdpGlobalMessageInterval>)
-
-=item $fdp->fdp_holdtime()
-
-Time in seconds that FDP messages are kept. 
-
-(B<fdpGlobalHoldTime>)
-
-=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().
-
-(B<fdpGlobalDeviceId>)
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 FDP CACHE ENTRIES
-
-=over
-
-=item $fdp->fdp_capabilities()
-
-Returns Device Functional Capabilities.  Results are munged into an ascii
-binary string, 7 digits long, MSB.  Each digit represents a bit from the
-table below.
-
-From L<http://www.cisco.com/univercd/cc/td/doc/product/lan/trsrb/frames.htm#18843>:
-
-(Bit) - Description
-
-=over
-
-=item (0x40) - Provides level 1 functionality.
-
-=item (0x20) - The bridge or switch does not forward IGMP Report packets on nonrouter ports.
-
-=item (0x10) - Sends and receives packets for at least one network layer protocol. If the device is routing the protocol, this bit should not be set.
-
-=item (0x08) - Performs level 2 switching. The difference between this bit and bit 0x02 is that a switch does not run the Spanning-Tree Protocol. This device is assumed to be deployed in a physical loop-free topology.
-
-=item (0x04) - Performs level 2 source-route bridging. A source-route bridge would set both this bit and bit 0x02.
-
-=item (0x02) - Performs level 2 transparent bridging.
-
-=item (0x01) - Performs level 3 routing for at least one network layer protocol.
-
-=back
-
-Thanks to Martin Lorensen C<martin -at- lorensen.dk> for a pointer to this information.
-
-(B<fdpCacheCapabilities>)
-
-=item $fdp->fdp_domain()
-
-The CDP version of this returns remote VTP Management Domain as defined in CISCO-VTP-MIB::managementDomainName
-
-(B<fdpCacheVTPMgmtDomain>)
-
-=item $fdp->fdp_duplex() 
-
-Returns the port duplex status from remote devices.
-
-(B<fdpCacheDuplex>)
-
-=item $fdp->fdp_id()
-
-Returns remote device id string
-
-(B<fdpCacheDeviceId>)
-
-=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. 
-
-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();
-  return $fdp_index if defined $fdp_index;
-
-  # if not, let's fake it
-  my $fdp_ip       = $device->fdp_ip();
-    
-  my %fdp_if
-  foreach my $key (keys %$fdp_ip){
-      $iid = $key;
-      ## Truncate off .1 from fdp response
-      $iid =~ s/\.\d+$//;
-      $fdp_if{$key} = $iid;
-  }
- 
-  return \%fdp_if;
-
-
-=item $fdp->fdp_index()
-
-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.
-
-See fdp_if() entry.
-
-(B<fdpCacheIfIndex>)
-
-=item  $fdp->fdp_ip()
-
-Returns remote IP address
-
-(B<fdpCacheAddress>)
-
-=item $fdp->fdp_platform() 
-
-Returns remote platform id 
-
-(B<fdpCachePlatform>)
-
-=item $fdp->fdp_port()
-
-Returns remote port ID
-
-(B<fdpDevicePort>)
-
-=item  $fdp->fdp_proto()
-
-Returns remote address type received.  Usually IP.
-
-(B<fdpCacheAddressType>)
-
-=item $fdp->fdp_ver() 
-
-Returns remote hardware version
-
-(B<fdpCacheVersion>)
-
-=item $fdp->fdp_vlan()
-
-Returns the remote interface native VLAN.
-
-(B<fdpCacheNativeVLAN>)
-
-=back
-
-=cut

Info/IEEE802dot11.pm

@@ -1,397 +0,0 @@
-# SNMP::Info::IEEE802dot11
-# Eric Miller
-# $Id$
-#
-# Copyright (c) 2006 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 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::IEEE802dot11;
-$VERSION = '1.07';
-use strict;
-
-use Exporter;
-
-@SNMP::Info::IEEE802dot11::ISA = qw/Exporter/;
-@SNMP::Info::IEEE802dot11::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
-
-%MIBS    = (
-            'IEEE802dot11-MIB'     => 'dot11DesiredSSID',
-            );
-
-%GLOBALS = (
-            );
-
-%FUNCS   = (
-            # dot11PhyOFDMTable
-            'dot11_cur_freq'  => 'dot11CurrentFrequency',
-            # dot11PhyDSSSTable
-            'dot11_cur_ch'    => 'dot11CurrentChannel',
-            # dot11PhyOperationTable
-            'dot11_phy_type'  => 'dot11PHYType',
-            'dot11_reg_dom'   => 'dot11CurrentRegDomain',
-            # dot11ResourceInfoTable
-            'dot11_prod_ver'  => 'dot11manufacturerProductVersion',
-            'dot11_prod_name' => 'dot11manufacturerProductName',
-            'dot11_man_name'  => 'dot11manufacturerName',
-            # dot11OperationTable
-            'dot11_mac'       => 'dot11MACAddress',
-            # dot11StationConfigTable
-            'dot11_bss_type'  => 'dot11DesiredBSSType',
-            'i_ssidlist'      => 'dot11DesiredSSID',
-            'dot11_pwr_mode'  => 'dot11PowerManagementMode',
-            'dot11_sta_id'    => 'dot11StationID',
-            # dot11PhyTxPowerTable
-            'dot11_cur_tx_pwr'     => 'dot11CurrentTxPowerLevel',
-            'dot11_tx_pwr_level_1' => 'dot11TxPowerLevel1',
-            'dot11_tx_pwr_level_2' => 'dot11TxPowerLevel2',
-            'dot11_tx_pwr_level_3' => 'dot11TxPowerLevel3',
-            'dot11_tx_pwr_level_4' => 'dot11TxPowerLevel4',
-            'dot11_tx_pwr_level_5' => 'dot11TxPowerLevel5',
-            'dot11_tx_pwr_level_6' => 'dot11TxPowerLevel6',
-            'dot11_tx_pwr_level_7' => 'dot11TxPowerLevel7',
-            'dot11_tx_pwr_level_8' => 'dot11TxPowerLevel8',
-            );
-
-%MUNGE   = (
-            'dot11_mac'    => \&SNMP::Info::munge_mac,
-            'dot11_sta_id' => \&SNMP::Info::munge_mac,
-            );
-
-sub vendor {
-    my $dot11 = shift;
-
-    my $names = $dot11->dot11_man_name();
-    
-    foreach my $iid (keys %$names){
-        my $vendor = $names->{$iid};
-        next unless defined $vendor;
-        if ( $vendor =~ /^(\S+)/ ) {
-            return lc($1);
-        }
-    }
-    
-    return undef;
-}
-
-sub model {
-    my $dot11 = shift;
-
-    my $names = $dot11->dot11_prod_name();
-    
-    foreach my $iid (keys %$names){
-        my $prod = $names->{$iid};
-        next unless defined $prod;
-        return lc($prod);
-        }
-    return undef;
-}
-
-sub os_ver {
-    my $dot11 = shift;
-
-    my $versions = $dot11->dot11_prod_ver();
-    
-    foreach my $iid (keys %$versions){
-        my $ver = $versions->{$iid};
-        next unless defined $ver;
-        if ( $ver =~ /([\d\.]+)/ ) {
-            return $1;
-        }
-    }
-    
-    return undef;
-}
-
-sub i_80211channel {
-    my $dot11 = shift;
-
-    my $phy_type = $dot11->dot11_phy_type() || {};
-    my $cur_freq = $dot11->dot11_cur_freq() || {};
-    my $cur_ch   = $dot11->dot11_cur_ch() || {};
-
-    my %i_80211channel;
-    foreach my $iid (keys %$phy_type){
-        my $type = $phy_type->{$iid};
-        next unless defined $type;
-        if ($type =~ /dsss/) {
-            my $ch = $cur_ch->{$iid};
-            next unless defined $ch;
-            $i_80211channel{$iid} = $ch;
-        }
-        elsif ($type =~ /ofdm/) {
-            my $ch = $cur_freq->{$iid};
-            next unless defined $ch;
-            $i_80211channel{$iid} = $ch;
-        }
-        else {
-            next;
-        }
-    }
-
-    return \%i_80211channel;
-}
-
-sub dot11_cur_tx_pwr_mw {
-    my $dot11 = shift;
-    my $partial = shift;
-    my $cur = $dot11->dot11_cur_tx_pwr($partial);
-    my $dot11_cur_tx_pwr_mw = {};
-    foreach my $idx (keys %$cur) {
-        my $pwr = $cur->{$idx};
-        if ($pwr >= 1 && $pwr <= 8) {
-            my $mw = eval "\$dot11->dot11_tx_pwr_level_$pwr(\$idx)";
-            $dot11_cur_tx_pwr_mw->{$idx} = $mw->{$idx};
-        } else {
-            next;
-        }
-    }
-    return $dot11_cur_tx_pwr_mw;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-SNMP::Info::IEEE802dot11 - SNMP Interface to data from IEEE802dot11-MIB
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
-    my $dot11 = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-
-    or die "Can't connect to DestHost.\n";
-
-    my $class = $dot11->class();
-    print " Using device sub class : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::IEEE802dot11 is a subclass of SNMP::Info that provides an interface
-to C<IEEE802dot11-MIB>.  This MIB is used in standards based 802.11 wireless
-devices.
-
-Use or create a subclass of SNMP::Info that inherits this one.
-Do not use directly.
-
-=head2 Inherited Classes
-
-=over
-
-None.
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item IEEE802dot11-MIB
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $dot11->vendor()
-
-Trys 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
-of the first instance found.
-
-=item $dot11->os_ver()
-
-Trys to discover the operating system version from dot11_prod_ver() - returns
-string of numeric and decimals in the first instance found.
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=over
-
-=item $dot11->i_ssidlist()
-
-Returns reference to hash.  SSID's recognized by the radio interface.
-
-(B<dot11DesiredSSID>)
-
-=item $dot11->i_80211channel()
-
-Returns reference to hash.  Current operating frequency channel of the radio
-interface.
-
-=item $dot11->dot11_cur_tx_pwr_mw()
-
-Returns reference to hash.  Current transmit power, in milliwats, of the radio
-interface.
-
-=back
-
-=head2 Dot11 Phy OFDM Table  (B<dot11PhyOFDMTable>)
-
-=over
-
-=item $dot11->dot11_cur_freq()
-
-(B<dot11CurrentFrequency>)
-
-=back
-
-=head2 Dot11 Phy DSSS Table  (B<dot11PhyDSSSTable>)
-
-=over
-
-=item $dot11->dot11_cur_ch()
-
-(B<dot11CurrentChannel>)
-
-=back
-
-=head2 Dot11 Phy Operation Table  (B<dot11PhyOperationTable>)
-
-=over
-
-=item $dot11->dot11_phy_type()
-
-(B<dot11PHYType>)
-
-=item $dot11->dot11_reg_dom()
-
-(B<dot11CurrentRegDomain>)
-
-=back
-
-=head2 Dot11 Resource Information Table  (B<dot11ResourceInfoTable>)
-
-=over
-
-=item $dot11->dot11_prod_ver()
-
-(B<dot11manufacturerProductVersion>)
-
-=item $dot11->dot11_prod_name()
-
-(B<dot11manufacturerProductName>)
-
-=item $dot11->dot11_man_name()
-
-(B<dot11manufacturerName>)
-
-=back
-
-=head2 Dot11 Operation Table  (B<dot11OperationTable>)
-
-=over
-
-=item $dot11->dot11_mac()
-
-(B<dot11MACAddress>)
-
-=back
-
-=head2 Dot11 Station Configuration Table  (B<dot11StationConfigTable>)
-
-=over
-
-=item $dot11->dot11_bss_type()
-
-(B<dot11DesiredBSSType>)
-
-=item $dot11->dot11_pwr_mode()
-
-(B<dot11PowerManagementMode>)
-
-=item $dot11->dot11_sta_id()
-
-(B<dot11StationID>)
-
-=back
-
-=head2 Dot11 Transmission Power Table  (B<dot11PhyTxPowerTable>)
-
-=over
-
-=item $dot11->dot11_cur_tx_pwr()
-
-(B<dot11CurrentTxPowerLevel>)
-
-=item $dot11->dot11_tx_pwr_level_1()
-
-(B<dot11TxPowerLevel1>)
-
-=item $dot11->dot11_tx_pwr_level_2()
-
-(B<dot11TxPowerLevel2>)
-
-=item $dot11->dot11_tx_pwr_level_3()
-
-(B<dot11TxPowerLevel3>)
-
-=item $dot11->dot11_tx_pwr_level_4()
-
-(B<dot11TxPowerLevel4>)
-
-=item $dot11->dot11_tx_pwr_level_5()
-
-(B<dot11TxPowerLevel5>)
-
-=item $dot11->dot11_tx_pwr_level_6()
-
-(B<dot11TxPowerLevel6>)
-
-=item $dot11->dot11_tx_pwr_level_7()
-
-(B<dot11TxPowerLevel7>)
-
-=item $dot11->dot11_tx_pwr_level_8()
-
-(B<dot11TxPowerLevel8>)
-
-=back
-
-=cut

Info/LLDP.pm

@@ -1,508 +0,0 @@
-# SNMP::Info::LLDP
-#
-# Eric Miller
-#
-# Copyright (c) 2007 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.
-#
-# 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$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
- 
-@SNMP::Info::LLDP::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::LLDP::EXPORT_OK = qw//;
-
-use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
-
-%MIBS    = (
-            'LLDP-MIB'          => 'lldpLocSysCapEnabled',
-            'LLDP-EXT-DOT1-MIB' => 'lldpXdot1MIB',
-            'LLDP-EXT-DOT3-MIB' => 'lldpXdot3MIB',            
-            );
-
-%GLOBALS = (
-            'lldp_sysname'   => 'lldpLocSysName',
-            'lldp_sysdesc'   => 'lldpLocSysDesc',
-            'lldp_sys_cap'   => 'lldpLocSysCapEnabled',
-           );
-
-%FUNCS  = (
-           # LLDP-MIB::lldpLocManAddrTable
-           'lldp_lman_addr'     => 'lldpLocManAddrIfId',
-           # LLDP-MIB::lldpRemTable
-           'lldp_rem_id_type'   => 'lldpRemChassisIdSubtype',
-           'lldp_rem_id'        => 'lldpRemChassisId',
-           'lldp_rem_pid_type'  => 'lldpRemPortIdSubtype',
-           'lldp_rem_pid'       => 'lldpRemPortId',
-           'lldp_rem_desc'      => 'lldpRemPortDesc',
-           'lldp_rem_sysname'   => 'lldpRemSysName',
-           'lldp_rem_sysdesc'   => 'lldpRemSysDesc',
-           'lldp_rem_sys_cap'   => 'lldpRemSysCapEnabled',
-           # LLDP-MIB::lldpRemManAddrTable
-           'lldp_rman_addr'     => 'lldpRemManAddrIfSubtype',
-          );
-
-
-%MUNGE = (
-          'lldp_sysdesc'        => \&munge_null,
-          'lldp_sysname'        => \&munge_null,
-          'lldp_rem_sysname'    => \&munge_null,
-          'lldp_rem_sysdesc'    => \&munge_null,
-          'lldp_rem_port_desc'  => \&munge_null,
-          'lldp_sys_cap'        => \&munge_caps,
-          'lldp_rem_sys_cap'    => \&munge_caps,
-         );
-
-sub munge_null {
-    my $text = shift || return;
-    
-    $text =~ s/\0//g;
-    return $text;
-}
-
-sub munge_caps {
-    my $caps = shift;
-    return undef unless defined $caps;
-
-    my $bits = unpack("b*",$caps);
-    return $bits;
-}
-
-sub hasLLDP {
-    my $lldp = shift;
-
-    # We may be have LLDP, but nothing in lldpRemoteSystemsData Tables
-    # so we could be running LLDP but not return any useful information
-    my $lldp_cap = $lldp->lldp_sys_cap();
-
-    return 1 if defined $lldp_cap;
-    return undef;
-}
-
-sub lldp_if {
-    my $lldp    = shift;
-    my $partial = shift;
-
-    my $addr = $lldp->lldp_rem_pid($partial) || {};
-    
-    my %lldp_if;
-    foreach my $key (keys %$addr) {
-        my @aOID = split ('\.',$key);
-	my $port = $aOID[1];
-	$lldp_if{$key} = $port;
-    }
-    return \%lldp_if;
-}
-
-sub lldp_ip {
-    my $lldp = shift;
-    my $partial = shift;
-
-    my $rman_addr = $lldp->lldp_rman_addr($partial) || {};
-    
-    my %lldp_ip;    
-    foreach my $key (keys %$rman_addr) {
-        my($index, $proto, $addr) = _lldp_addr_index($key);
-        next unless defined $index;
-        next unless $proto == 1;
-        $lldp_ip{$index} = $addr;
-    }
-    return \%lldp_ip;
-}
-
-sub lldp_addr {
-    my $lldp = shift;
-    my $partial = shift;
-
-    my $rman_addr = $lldp->lldp_rman_addr($partial) || {};
-    
-    my %lldp_ip;    
-    foreach my $key (keys %$rman_addr) {
-        my($index, $proto, $addr) = _lldp_addr_index($key);
-        next unless defined $index;
-        $lldp_ip{$index} = $addr;
-    }
-    return \%lldp_ip;
-}
-
-sub lldp_port {
-    my $lldp = shift;
-    my $partial = shift;
-
-    my $pdesc  = $lldp->lldp_rem_desc($partial) || {};
-    my $pid    = $lldp->lldp_rem_pid($partial) || {};
-    my $ptype  = $lldp->lldp_rem_pid_type($partial) || {};
-
-    my %lldp_port;    
-    foreach my $key (sort keys %$pid) {
-        my $port = $pdesc->{$key};
-	unless ($port) {
-            $port = $pid->{$key};
-            next unless $port;
-	    my $type = $ptype->{$key};
-            next unless $type;
-            # May need to format other types in the future, i.e. Network address
-            if ($type =~ /mac/) {
-                $port = join(':',map { sprintf "%02x",$_ } unpack('C*',$port));
-            }
-        }
-
-        # Nortel lldpRemPortDesc doesn't match ifDescr, but we can still
-        # figure out slot.port based upon lldpRemPortDesc 
-        if ( $port =~ /^(Unit\s+(\d+)\s+)?Port\s+(\d+)$/ ) {
-            $port = defined $1 ? "$2.$3" : "$3";
-        }
-
-        $lldp_port{$key} = $port;
-    }
-    return \%lldp_port;
-}
-
-sub lldp_id {
-    my $lldp = shift;
-    my $partial = shift;
-    
-    my $ch_type = $lldp->lldp_rem_id_type($partial) || {};
-    my $ch = $lldp->lldp_rem_id($partial) || {};
-
-    my %lldp_id;    
-    foreach my $key (keys %$ch) {
-	my $id = $ch->{$key};
-        next unless $id;
-	my $type = $ch_type->{$key};
-        next unless $type;
-        # May need to format other types in the future
-        if ($type =~ /mac/) {
-            $id = join(':',map { sprintf "%02x",$_ } unpack('C*',$id));
-        }
-        $lldp_id{$key} = $id;
-    }
-    return \%lldp_id;
-}
-
-#sub root_ip {
-#    my $lldp = shift;
-#
-#    my $man_addr = $lldp->lldp_lman_addr() || {};
-#
-#    foreach my $key (keys %$man_addr) {
-#        my @oids   = split(/\./, $key);
-#        my $proto  = shift(@oids);
-#        my $length = shift(@oids);
-#        # IPv4
-#        if ($proto == 1) {
-#            my $addr = join('.',@oids);
-#            return $addr if (defined $addr and $lldp->snmp_connect_ip($addr));
-#        }
-#    }
-#    return undef;
-#}
-
-# Break up the lldpRemManAddrTable INDEX into common index, protocol,
-# and address.
-sub _lldp_addr_index {
-    my $idx = shift;
-    my @oids   = split(/\./, $idx);
-    my $index  = join('.', splice(@oids, 0, 3));
-    my $proto  = shift(@oids);
-    my $length = shift(@oids);
-    # IPv4
-    if ($proto == 1) {
-        return ($index, $proto, join('.',@oids));
-    }
-    # MAC
-    elsif ($proto == 6) {
-        return ($index, $proto, join(':',map { sprintf "%02x",$_ } @oids));
-    }
-    # TODO - Need to handle other protocols, i.e. IPv6
-    else {
-        return undef;
-    }
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::LLDP - SNMP Interface to the Link Layer Discovery Protocol (LLDP)
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- my $lldp = new SNMP::Info ( 
-                             AutoSpecify => 1,
-                             Debug       => 1,
-                             DestHost    => 'router', 
-                             Community   => 'public',
-                             Version     => 2
-                           );
-
- my $class = $lldp->class();
- print " Using device sub class : $class\n";
-
- $haslldp   = $lldp->hasLLDP() ? 'yes' : 'no';
-
- # Print out a map of device ports with LLDP neighbors:
- my $interfaces    = $lldp->interfaces();
- my $lldp_if       = $lldp->lldp_if();
- my $lldp_ip       = $lldp->lldp_ip();
- my $lldp_port     = $lldp->lldp_port();
-
- foreach my $lldp_key (keys %$lldp_ip){
-    my $iid           = $lldp_if->{$lldp_key};
-    my $port          = $interfaces->{$iid};
-    my $neighbor      = $lldp_ip->{$lldp_key};
-    my $neighbor_port = $lldp_port->{$lldp_key};
-    print "Port : $port connected to $neighbor / $neighbor_port\n";
- }
-
-=head1 DESCRIPTION
-
-SNMP::Info::LLDP is a subclass of SNMP::Info that provides an object oriented 
-interface to LLDP information through SNMP.
-
-LLDP is a Layer 2 protocol that allows a network device to advertise its
-identity and capabilities on the local network providing topology information.
-The protocol is defined in the IEEE standard 802.1AB.
-
-Create or use a device subclass that inherits this class.  Do not use directly.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item LLDP-MIB
-
-=item LLDP-EXT-DOT1-MIB
-
-=item LLDP-EXT-DOT3-MIB  
-
-=back
-
-=head1 GLOBAL METHODS
-
-These are methods that return scalar values from SNMP
-
-=over
-
-=item $lldp->hasLLDP()
-
-Is LLDP is active in this device?  
-
-Note:  LLDP may be active, but nothing in B<lldpRemoteSystemsData> 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<lldpLocSysName> object should have the
-same value of B<sysName> object.
-
-Nulls are removed before the value is returned. 
-
-(B<lldpLocSysName>)
-
-=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<lldpLocSysDesc> object should have
-the same value of B<sysDesc> object.
- 
-Nulls are removed before the value is returned.
-
-(B<lldpLocSysDesc>)
-
-=item  $lldp->lldp_sys_cap() 
-
-Returns which system capabilities are enabled on the local system.  Results
-are munged into an ascii binary string, LSB.  Each digit represents a bit
-from the table below:
-
-=over
-
-=item Bit 'other(0)' indicates that the system has capabilities other than
-those listed below.
-
-=item Bit 'repeater(1)' indicates that the system has repeater capability.
-
-=item Bit 'bridge(2)' indicates that the system has bridge capability.
-
-=item Bit 'wlanAccessPoint(3)' indicates that the system has WLAN access
-point capability.
-
-=item Bit 'router(4)' indicates that the system has router capability.
-
-=item Bit 'telephone(5)' indicates that the system has telephone capability.
-
-=item Bit 'docsisCableDevice(6)' indicates that the system has DOCSIS Cable
-Device capability (IETF RFC 2669 & 2670).
-
-=item Bit 'stationOnly(7)' indicates that the system has only station
-capability and nothing else."
-
-=back
-
-(B<lldpLocSysCapEnabled>)
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=over
-
-=item $lldp->lldp_id()
-
-Returns the string value used to identify the chassis component	associated
-with the remote system.
-
-(B<lldpRemChassisId>)
-
-=item $lldp->lldp_if()
-
-Returns the mapping to the SNMP Interface Table.
-
-=item  $lldp->lldp_ip()
-
-Returns remote IPv4 address.  Returns undef for all other address types, use
-lldp_addr if you want any return address type.
-
-=item  $lldp->lldp_addr()
-
-Returns remote address.  Type may be any IANA Address Family Number.  Currently
-only returns IPv4 or MAC addresses.
-
-=item $lldp->lldp_port()
-
-Returns remote port ID
-
-=back
-
-=head2 LLDP Remote Table (B<lldpRemTable>)
-
-=over
-
-=item $lldp->lldp_rem_id_type()
-
-Returns the type of encoding used to identify the chassis associated with
-the remote system.
-
-(B<lldpRemChassisIdSubtype>)
-
-=item $lldp->lldp_rem_id()
-
-Returns the string value used to identify the chassis component	associated
-with the remote system.
-
-(B<lldpRemChassisId>)
-
-=item $lldp->lldp_rem_pid_type()
-
-Returns the type of port identifier encoding used in the associated
-B<lldpRemPortId> object.
-
-(B<lldpRemPortIdSubtype>)
-
-=item $lldp->lldp_rem_pid()
-
-Returns the string value used to identify the port component associated with
-the remote system.
-
-(B<lldpRemPortId>)
-
-=item $lldp->lldp_rem_desc()
-
-Returns the string value used to identify the description of the given port
-associated with the remote system.
-
-Nulls are removed before the value is returned. 
-
-(B<lldpRemPortDesc>)
-
-=item $lldp->lldp_rem_sysname()
-
-Returns the string value used to identify the system name of the remote system.
-
-Nulls are removed before the value is returned. 
-
-(B<lldpRemSysName>)
-
-=item $lldp->lldp_rem_sysdesc()
-
-Returns the string value used to identify the system description of the
-remote system.
-
-Nulls are removed before the value is returned. 
-
-(B<lldpRemSysDesc>)
-
-=item  $lldp->lldp_rem_sys_cap() 
-
-Returns which system capabilities are enabled on the local system.  Results
-are munged into an ascii binary string, LSB.  Each digit
-represents a bit from the table below:
-
-=over
-
-=item Bit 'other(0)' indicates that the system has capabilities other than
-those listed below.
-
-=item Bit 'repeater(1)' indicates that the system has repeater capability.
-
-=item Bit 'bridge(2)' indicates that the system has bridge capability.
-
-=item Bit 'wlanAccessPoint(3)' indicates that the system has WLAN access
-point capability.
-
-=item Bit 'router(4)' indicates that the system has router capability.
-
-=item Bit 'telephone(5)' indicates that the system has telephone capability.
-
-=item Bit 'docsisCableDevice(6)' indicates that the system has DOCSIS Cable
-Device capability (IETF RFC 2669 & 2670).
-
-=item Bit 'stationOnly(7)' indicates that the system has only station
-capability and nothing else."
-
-=back
-
-(B<lldpRemSysCapEnabled>)
-
-=back
-
-=cut

Info/Layer1/Cyclades.pm

@@ -1,441 +0,0 @@
-# SNMP::Info::Layer1::Cyclades
-# Eric Miller
-# $Id$
-#
-# Copyright (c) 2006 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 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::Layer1::Cyclades;
-$VERSION = '1.07';
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer1;
-
-@SNMP::Info::Layer1::Cyclades::ISA = qw/SNMP::Info::Layer1 Exporter/;
-@SNMP::Info::Layer1::Cyclades::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/;
-
-%MIBS    = (
-            %SNMP::Info::Layer1::MIBS,
-            'CYCLADES-ACS-SYS-MIB'   => 'cyACSversion',
-            'CYCLADES-ACS-CONF-MIB'  => 'cyEthIPaddr',
-            'CYCLADES-ACS-INFO-MIB'  => 'cyISPortTty',
-            );
-
-%GLOBALS = (
-            # CYCLADES-ACS-SYS-MIB
-            %SNMP::Info::Layer1::GLOBALS,
-            'os_ver'     => 'cyACSversion',
-            'cy_model'   => 'cyACSpname',
-            'serial'     => 'cyACSDevId',
-            'root_ip'    => 'cyEthIPaddr',
-            'ps1_status' => 'cyACSPw1',
-            'ps2_status' => 'cyACSPw2',
-            );
-
-%FUNCS   = (
-            %SNMP::Info::Layer1::FUNCS,
-            # CYCLADES-ACS-INFO-MIB::cyInfoSerialTable
-            'cy_port_tty'    => 'cyISPortTty',
-            'cy_port_name'   => 'cyISPortName',
-            'cy_port_speed'  => 'cyISPortSpeed',
-            'cy_port_cd'     => 'cyISPortSigCD',
-            # CYCLADES-ACS-CONF-MIB::cySerialPortTable
-            'cy_port_socket' => 'cySPortSocketPort',
-            );
-
-%MUNGE   = (
-            %SNMP::Info::Layer1::MUNGE,
-            );
-
-# These devices don't have a FDB and we probably don't want to poll for ARP
-# cache so turn off reported L2/L3.
-sub layers {
-    return '01000001';
-}
-
-sub os {
-    return 'cyclades';
-}
-
-sub vendor {
-    return 'cyclades';
-}
-
-sub model {
-    my $cyclades = shift;
-
-    my $model = $cyclades->cy_model();
-
-    return undef unless defined $model;
-
-    return lc($model);
-}
-
-# Extend interface methods to include serial ports
-#
-# Partials don't really help in this class, but implemented
-# for consistency
-
-sub i_index {
-    my $cyclades = shift;
-    my $partial  = shift;
-
-    my $orig_index = $cyclades->orig_i_index($partial) || {};
-    my $cy_index   = $cyclades->cy_port_socket() || {};
-
-    my %i_index;
-    foreach my $iid (keys %$orig_index){
-        my $index = $orig_index->{$iid};
-        next unless defined $index;
-
-        $i_index{$iid} = $index;
-    }
-
-    # Use alternative labeling system for the serial port, listening socket
-    # to avoid conflicts with ifIndex.
-    foreach my $iid (keys %$cy_index){
-        my $index = $cy_index->{$iid};
-        next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
-
-        $i_index{$index} = $index;
-    }
-    
-    return \%i_index;
-}
-
-sub interfaces {
-    my $cyclades = shift;
-    my $partial  = shift;
-
-    my $i_descr   = $cyclades->orig_i_description($partial) || {};
-    my $cy_index  = $cyclades->cy_port_socket() || {};
-    my $cy_p_tty  = $cyclades->cy_port_tty() || {};
-
-    my %if;
-    foreach my $iid (keys %$i_descr){
-        my $descr = $i_descr->{$iid};
-        next unless defined $descr;
-    
-        $if{$iid} = $descr;
-    }
-
-    foreach my $iid (keys %$cy_p_tty){
-        my $index = $cy_index->{$iid};
-        next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);        
-        my $name = $cy_p_tty->{$iid};
-        next unless defined $name;
-    
-        $if{$index} = $name;
-    }
-
-    return \%if;
-}
-
-sub i_speed {
-    my $cyclades = shift;
-    my $partial  = shift;
-
-    my $i_speed     = $cyclades->orig_i_speed($partial) || {};
-    my $cy_index    = $cyclades->cy_port_socket() || {};
-    my $cy_p_speed  = $cyclades->cy_port_speed() || {};
-
-    my %i_speed;
-    foreach my $iid (keys %$i_speed){
-        my $speed = $i_speed->{$iid};
-        next unless defined $speed;
-    
-        $i_speed{$iid} = $speed;
-    }
-
-    foreach my $iid (keys %$cy_p_speed){
-        my $index = $cy_index->{$iid};
-        next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);        
-        my $speed = $cy_p_speed->{$iid};
-        next unless defined $speed;
-    
-        $i_speed{$index} = $speed;
-    }
-
-    return \%i_speed;
-}
-
-sub i_up {
-    my $cyclades = shift;
-    my $partial  = shift;
-
-    my $i_up     = $cyclades->orig_i_up($partial) || {};
-    my $cy_index = $cyclades->cy_port_socket() || {};
-    my $cy_p_up  = $cyclades->cy_port_cd() || {};
-
-    my %i_up;
-    foreach my $iid (keys %$i_up){
-        my $up = $i_up->{$iid};
-        next unless defined $up;
-    
-        $i_up{$iid} = $up;
-    }
-
-    foreach my $iid (keys %$cy_p_up){
-        my $index = $cy_index->{$iid};
-        next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);        
-        my $up = $cy_p_up->{$iid};
-        next unless defined $up;
-    
-        $i_up{$index} = $up;
-    }
-
-    return \%i_up;
-}
-
-sub i_description {
-    my $cyclades = shift;
-    my $partial  = shift;
-
-    my $i_desc    = $cyclades->orig_i_description($partial) || {};
-    my $cy_index  = $cyclades->cy_port_socket() || {};
-    my $cy_p_desc = $cyclades->cy_port_name() || {};
-
-    my %descr;
-    foreach my $iid (keys %$i_desc){
-        my $desc = $i_desc->{$iid};
-        next unless defined $desc;
-    
-        $descr{$iid} = $desc;
-    }
-
-    foreach my $iid (keys %$cy_p_desc){
-        my $index = $cy_index->{$iid};
-        next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);        
-        my $desc = $cy_p_desc->{$iid};
-        next unless defined $desc;
-    
-        $descr{$index} = $desc;
-    }
-
-    return \%descr;
-}
-
-sub i_name {
-    my $cyclades = shift;
-    my $partial  = shift;
-
-    my $i_name    = $cyclades->orig_i_name($partial) || {};
-    my $cy_index  = $cyclades->cy_port_socket() || {};
-    my $cy_p_desc = $cyclades->cy_port_name() || {};
-
-    my %i_name;
-    foreach my $iid (keys %$i_name){
-        my $name = $i_name->{$iid};
-        next unless defined $name;
-    
-        $i_name{$iid} = $name;
-    }
-
-    foreach my $iid (keys %$cy_p_desc){
-        my $index = $cy_index->{$iid};
-        next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);        
-        my $name = $cy_p_desc->{$iid};
-        next unless defined $name;
-    
-        $i_name{$index} = $name;
-    }
-
-    return \%i_name;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer1::Cyclades - SNMP Interface to Cyclades terminal servers
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
-    #Let SNMP::Info determine the correct subclass for you.
-
-    my $cyclades = new SNMP::Info(
-                        AutoSpecify => 1,
-                        Debug       => 1,
-                        # These arguments are passed directly to SNMP::Session
-                        DestHost    => 'myswitch',
-                        Community   => 'public',
-                        Version     => 2
-                        ) 
-
-    or die "Can't connect to DestHost.\n";
-
-    my $class = $cyclades->class();
-    print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Provides abstraction to the configuration information obtainable from a 
-Cyclades 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. 
-
-my $cyclades = new SNMP::Info::Layer1::Cyclades(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer1
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item CYCLADES-ACS-SYS-MIB
-
-=item CYCLADES-ACS-CONF-MIB
-
-=item CYCLADES-ACS-INFO-MIB
-
-=back
-
-=head2 Inherited MIBs
-
-See L<SNMP::Info::Layer1/"Required MIBs"> for its MIB requirements.
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $cyclades->os_ver()
-
-(B<cyACSversion>)
-
-=item $cyclades->serial()
-
-(B<cyACSDevId>)
-
-=item $cyclades->root_ip()
-
-(B<cyEthIPaddr>)
-
-=item $cyclades->ps1_status()
-
-(B<cyACSPw1>)
-
-=item $cyclades->ps2_status()
-
-(B<cyACSPw2>)
-
-=back
-
-=head2 Overrides
-
-=over
-
-=item $cyclades->layers()
-
-Returns 01000001.  These devices don't have a FDB and we probably don't want to
-poll for an ARP cache so turn off reported Layer 2 and Layer 3.
-
-=item $cyclades->vendor()
-
-Returns 'cyclades'
-
-=item $cyclades->os()
-
-Returns 'cyclades'
-
-=item $cyclades->model()
-
-Returns lower case (B<cyACSpname>)
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer1
-
-See L<SNMP::Info::Layer1/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $cyclades->i_index()
-
-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<cySPortSocketPort> to avoid conflicts with B<ifIndex>.  
-
-=item $cyclades->interfaces()
-
-Returns reference to map of IIDs to physical ports.  Extended to include
-serial ports, B<cyISPortTty>.
-
-=item $cyclades->i_speed()
-
-Returns interface speed.  Extended to include serial ports, B<cyISPortSpeed>. 
-
-=item $cyclades->i_up()
-
-Returns link status for each port.  Extended to include serial ports,
-B<cyISPortSigCD>.
-
-=item $cyclades->i_description()
-
-Returns description of each port.  Extended to include serial ports,
-B<cyISPortName>.
-
-=item $cyclades->i_name()
-
-Returns name of each port.  Extended to include serial ports, B<cyISPortName>.
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer1
-
-See L<SNMP::Info::Layer1/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Airespace.pm

@@ -1,211 +0,0 @@
-# SNMP::Info::Layer2::Airespace
-# Eric Miller
-# $Id$
-#
-# Copyright (c) 2007 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 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::Layer2::Airespace;
-$VERSION = '1.07';
-use strict;
-
-use Exporter;
-use SNMP::Info::Bridge;
-use SNMP::Info::CDP;
-use SNMP::Info::Airespace;
-
-@SNMP::Info::Layer2::Airespace::ISA = qw/SNMP::Info::Airespace SNMP::Info::CDP SNMP::Info::Bridge Exporter/;
-@SNMP::Info::Layer2::Airespace::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
-
-%MIBS    = (
-            %SNMP::Info::MIBS,
-            %SNMP::Info::Bridge::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            %SNMP::Info::Airespace::MIBS,
-            );
-
-%GLOBALS = (
-            %SNMP::Info::GLOBALS,
-            %SNMP::Info::Bridge::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::Airespace::GLOBALS,
-            );
-
-%FUNCS   = (
-            %SNMP::Info::FUNCS,
-            %SNMP::Info::Bridge::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::Airespace::FUNCS,
-            );
-
-%MUNGE   = (
-          %SNMP::Info::MUNGE,
-          %SNMP::Info::Bridge::MUNGE,
-          %SNMP::Info::CDP::MUNGE,
-          %SNMP::Info::Airespace::MUNGE,
-            );
-
-sub os {
-    return 'cisco';
-}
-
-sub vendor {
-    return 'cisco';
-}
-
-sub model {
-    my $airespace = shift;
-    my $model = $airespace->airespace_model();
-    return undef unless defined $model;
-
-    return $model;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Airespace - SNMP Interface to Cisco (Airespace) Wireless
-Controllers
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
-    #Let SNMP::Info determine the correct subclass for you.
-
-    my $airespace = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-
-    or die "Can't connect to DestHost.\n";
-
-    my $class = $airespace->class();
-    print " Using device sub class : $class\n";
-
-=head1 DESCRIPTION
-
-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. 
-
-my $airespace = new SNMP::Info::Layer2::Airespace(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Airespace
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::Bridge
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::Airespace/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::Bridge/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $airespace->vendor()
-
-Returns 'cisco'
-
-=item $airespace->os()
-
-Returns 'cisco'
-
-=item $airespace->model()
-
-(B<agentInventoryMachineModel>)
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::Airespace
-
-See documentation in L<SNMP::Info::Airespace/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Bridge
-
-See documentation in L<SNMP::Info::Bridge/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item None
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Airespace
-
-See documentation in L<SNMP::Info::Airespace/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Bridge
-
-See documentation in L<SNMP::Info::Bridge/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Aironet.pm

@@ -1,265 +0,0 @@
-# SNMP::Info::Layer2::Aironet
-# Max Baker
-#
-# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
-#
-# Copyright (c) 2003 Regents of the University of California
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer2::Aironet;
-$VERSION = '1.07';
-# $Id$
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer2;
-use SNMP::Info::Entity;
-use SNMP::Info::EtherLike;
-use SNMP::Info::CiscoStats;
-use SNMP::Info::CiscoVTP;
-use SNMP::Info::CDP;
-
-@SNMP::Info::Layer2::Aironet::ISA = qw/SNMP::Info::Layer2 SNMP::Info::Entity SNMP::Info::EtherLike 
-                                       SNMP::Info::CiscoStats SNMP::Info::CiscoVTP SNMP::Info::CDP Exporter/;
-@SNMP::Info::Layer2::Aironet::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
-
-%GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-            %SNMP::Info::Entity::GLOBALS,
-            %SNMP::Info::EtherLike::GLOBALS,
-            %SNMP::Info::CiscoStats::GLOBALS,
-            %SNMP::Info::CiscoVTP::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            'serial' => 'entPhysicalSerialNum.1',
-            'descr'  => 'sysDescr'
-            );
-
-%FUNCS   = (%SNMP::Info::Layer2::FUNCS,
-            %SNMP::Info::Entity::FUNCS,
-            %SNMP::Info::EtherLike::FUNCS,
-            %SNMP::Info::CiscoStats::FUNCS,
-            %SNMP::Info::CiscoVTP::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            'i_ssidlist' => 'cd11IfAuxSsid',
-            'i_ssidbcast' => 'cd11IfAuxSsidBroadcastSsid',
-            'i_80211channel' => 'cd11IfPhyDsssCurrentChannel',
-            );
-
-%MIBS    = (
-            %SNMP::Info::Layer2::MIBS,
-            %SNMP::Info::Entity::MIBS,
-            %SNMP::Info::EtherLike::MIBS,
-            %SNMP::Info::CiscoStats::MIBS,
-            %SNMP::Info::CiscoVTP::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            'CISCO-DOT11-IF-MIB' => 'cd11IfAuxSsid',
-            );
-
-%MUNGE   = (%SNMP::Info::Layer2::MUNGE,
-            %SNMP::Info::Entity::MUNGE,
-            %SNMP::Info::EtherLike::MUNGE,
-            %SNMP::Info::CiscoStats::MUNGE,
-            %SNMP::Info::CiscoVTP::MUNGE,
-            %SNMP::Info::CDP::MUNGE,
-            );
-
-
-sub vendor {
-    # Sorry, but it's true.
-    return 'cisco';
-}
-
-sub interfaces {
-    my $aironet = shift;
-    my $partial = shift;
-
-    my $i_description = $aironet->i_description($partial);
-
-    return $i_description;
-}
-
-# Tag on e_descr.1
-sub description {
-    my $aironet = shift;
-    my $descr = $aironet->descr();
-    my $e_descr = $aironet->e_descr();
-
-    $descr = "$e_descr->{1}  $descr" if defined $e_descr->{1};
-
-    return $descr;
-}
-
-# Fetch duplex from EtherLike
-sub i_duplex {
-    my $aironet = shift;
-    my $partial = shift;
-
-    my $el_duplex = $aironet->el_duplex($partial);
-
-    my %i_duplex;
-    foreach my $d (keys %$el_duplex){
-        my $val = $el_duplex->{$d};
-        next unless defined $val;
-        $i_duplex{$d} = 'full' if $val =~ /full/i;
-        $i_duplex{$d} = 'half' if $val =~ /half/i;
-    }
-
-    return \%i_duplex;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Aironet - SNMP Interface to Cisco Aironet devices running IOS.
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $aironet = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $aironet->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Provides interface to SNMP Data available on newer Aironet devices running Cisco IOS.
-
-Note there are two classes for Aironet devices :
-
-=over
-
-=item SNMP::Info::Layer3::Aironet
-
-This class is for devices running Aironet software (older)
-
-=item SNMP::Info::Layer2::Aironet
-
-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. 
-
-my $aironet = new SNMP::Info::Layer2::Aironet(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer2
-
-=item SNMP::Info::Entity
-
-=item SNMP::Info::EtherLike
-
-=item SNMP::Info::CiscoVTP
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes
-
-MIBs required by the inherited classes listed above.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $aironet->discription()
-
-Adds info from method e_descr() from SNMP::Info::Entity
-
-=item $aironet->vendor()
-
-    Returns 'cisco' :)
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Entity
-
-See documentation in L<SNMP::Info::Entity/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::EtherLike
-
-See documentation in L<SNMP::Info::EtherLike/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-=head2 Overrides
-
-=over
-
-=item $aironet->interfaces()
-
-Uses the i_description() field.
-
-=item $aironet->i_duplex()
-
-Crosses information from SNMP::Info::EtherLike to get duplex info for interfaces.
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Entity
-
-See documentation in L<SNMP::Info::Entity/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::EtherLike
-
-See documentation in L<SNMP::Info::EtherLike/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Aruba.pm

@@ -1,548 +0,0 @@
-# SNMP::Info::Layer2::Aruba
-# Eric Miller
-# $Id$
-#
-# Copyright (c) 2005 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 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::Layer2::Aruba;
-$VERSION = '1.07';
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer2;
-
-@SNMP::Info::Layer2::Aruba::ISA = qw/SNMP::Info::Layer2 Exporter/;
-@SNMP::Info::Layer2::Aruba::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
-
-%MIBS    = (
-            %SNMP::Info::Layer2::MIBS,           
-            'WLSX-SWITCH-MIB'  => 'wlsxHostname',
-            'WLSR-AP-MIB'      => 'wlsrHideSSID',
-            );
-
-%GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-            );
-
-%FUNCS   = (
-            %SNMP::Info::Layer2::FUNCS,
-            # WLSX-SWITCH-MIB::wlsxSwitchAccessPointTable
-            # Table index leafs do not return information
-            # therefore unable to use apBSSID.  We extract
-            # the information from the IID instead.
-            'aruba_ap_name'      => 'apLocation',
-            'aruba_ap_ip'        => 'apIpAddress',
-            'aruba_ap_essid'     => 'apESSID',
-            'aruba_ap_ssidbcast' => 'wlsrHideSSID',
-            # WLSR-AP-MIB::wlsrConfigTable
-            'aruba_ap_channel'   => 'apCurrentChannel',
-            # WLSX-SWITCH-MIB::wlsxSwitchStationMgmtTable
-            # Table index leafs do not return information
-            # therefore unable to use staAccessPointBSSID
-            # or staPhyAddress.  We extract the information from
-            # the IID instead.
-            #'fw_port'             => 'staAccessPointBSSID',
-            #'fw_mac'              => 'staPhyAddress',
-            'fw_user'             => 'staUserName',
-            );
-
-%MUNGE   = (
-           %SNMP::Info::Layer2::MUNGE,
-            );
-
-sub layers {
-    return '00000011';
-}
-
-sub os {
-    return 'airos';
-}
-
-sub vendor {
-    return 'aruba';
-}
-
-sub os_ver {
-    my $aruba = shift;
-    my $descr = $aruba->description();
-    return undef unless defined $descr;
-
-    if ($descr =~ m/Version\s+(\d+\.\d+\.\d+\.\d+)/){
-        return $1;
-    }
-
-    return undef;
-}
-
-sub model {
-    my $aruba = shift;
-    my $id = $aruba->id();
-    return undef unless defined $id;
-    my $model = &SNMP::translateObj($id);
-    return $id unless defined $model;
-
-    return $model;
-}
-
-# Thin APs do not support ifMIB requirement
-
-sub i_index {
-    my $aruba = shift;
-    my $partial = shift;
-
-    my $i_index   = $aruba->orig_i_index($partial) || {};
-    my $ap_index  = $aruba->aruba_ap_name($partial) || {};
-    
-    my %if_index;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        $if_index{$iid} = $index;
-    }
-
-    # Get Attached APs as Interfaces
-    foreach my $ap_id (keys %$ap_index){
-        # Convert the 0.254.123.456 index entry to a MAC address.
-        my $mac = join(':',map {sprintf("%02x",$_)} split(/\./,$ap_id));
-
-        $if_index{$ap_id} = $mac;
-    }
-    return \%if_index;
-}
-
-sub interfaces {
-    my $aruba  = shift;
-    my $partial = shift;
-
-    my $i_index    = $aruba->i_index($partial) || {};
-    my $i_descr    = $aruba->i_description($partial) || {};
-
-    my %if;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        if ($index =~ /^\d+$/ ) {
-        # Replace the Index with the ifDescr field.
-          my $port = $i_descr->{$iid};
-          next unless defined $port;
-          $if{$iid} = $port;
-        }
-
-        elsif ($index =~ /(?:[0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}/) {
-          $if{$index} = $index;
-        }           
-
-        else {
-            next;
-        }
-    }
-    return \%if;
-}
-
-sub i_name {
-    my $aruba  = shift;
-    my $partial = shift;
-
-    my $i_index    = $aruba->i_index($partial) || {};
-    my $i_name2    = $aruba->orig_i_name($partial) || {};
-    my $ap_name    = $aruba->aruba_ap_name($partial) || {};
-    
-    my %i_name;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        if ($index =~ /^\d+$/ ) {
-          my $name = $i_name2->{$iid};
-          next unless defined $name;
-          $i_name{$index} = $name;
-        }
-
-        elsif ($index =~ /(?:[0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}/) {
-          my $name = $ap_name->{$iid};
-          next unless defined $name;
-          $i_name{$index} = $name;
-        }           
-        else {
-            next;
-        }
-    }
-  return \%i_name;
-}
-
-sub i_ssidlist {
-    my $aruba  = shift;
-    my $partial = shift;
-
-    my $i_index    = $aruba->i_index($partial) || {};
-    my $ap_ssid    = $aruba->aruba_ap_essid($partial) || {};
-    
-    my %i_ssid;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        if ($index =~ /(?:[0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}/) {
-          my $ssid = $ap_ssid->{$iid};
-          next unless defined $ssid;
-          $i_ssid{$index} = $ssid;
-        }           
-        else {
-            next;
-        }
-    }
-  return \%i_ssid;
-}
-
-sub i_80211channel {
-    my $aruba  = shift;
-    my $partial = shift;
-
-    my $i_index  = $aruba->i_index($partial) || {};
-    my $ap_ch    = $aruba->aruba_ap_channel($partial) || {};
-    
-    my %i_ch;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        if ($index =~ /(?:[0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}/) {
-          my $ch = $ap_ch->{$iid};
-          next unless defined $ch;
-          $i_ch{$index} = $ch;
-        }           
-        else {
-            next;
-        }
-    }
-  return \%i_ch;
-}
-
-sub i_ssidbcast {
-    my $aruba  = shift;
-    my $partial = shift;
-
-    my $i_index  = $aruba->i_index($partial) || {};
-    my $ap_bc    = $aruba->aruba_ap_ssidbcast($partial) || {};
-    
-    my %i_bc;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        if ($index =~ /(?:[0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}/) {
-          my $bc = $ap_bc->{$iid};
-          next unless defined $bc;
-          $bc = ($bc ? 0 : 1);
-          $i_bc{$index} = $bc;
-        }           
-        else {
-            next;
-        }
-    }
-  return \%i_bc;
-}
-
-
-# Wireless switches do not support the standard Bridge MIB
-sub bp_index {
-    my $aruba = shift;
-    my $partial = shift;
-
-    my $i_index   = $aruba->orig_i_index($partial) || {};
-    my $ap_index  = $aruba->aruba_ap_name($partial) || {};
-    
-    my %bp_index;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-
-        $bp_index{$iid} = $index;
-    }
-
-    # Get Attached APs as Interfaces
-    foreach my $ap_id (keys %$ap_index){
-        # Convert the 0.254.123.456 index entry to a MAC address.
-        my $mac = join(':',map {sprintf("%02x",$_)} split(/\./,$ap_id));
-
-        $bp_index{$mac} = $mac;
-    }
-    return \%bp_index;
-}
-
-sub fw_port {
-    my $aruba = shift;
-    my $partial = shift;
-
-    my $fw_idx = $aruba->fw_user($partial) || {};
-
-    my %fw_port;
-    foreach my $iid (keys %$fw_idx){
-      if ($iid =~ /(\d+\.\d+\.\d+\.\d+\.\d+\.\d+).(\d+\.\d+\.\d+\.\d+\.\d+\.\d+)/) {
-        my $port = join(':',map {sprintf("%02x",$_)} split(/\./,$2));
-        $fw_port{$iid} = $port;
-      }
-      else {
-        next;
-      }
-    }
-    return \%fw_port;
-}
-
-sub fw_mac {
-    my $aruba = shift;
-    my $partial = shift;
-
-    my $fw_idx = $aruba->fw_user($partial) || {};
-
-    my %fw_mac;
-    foreach my $iid (keys %$fw_idx){
-      if ($iid =~ /(\d+\.\d+\.\d+\.\d+\.\d+\.\d+).(\d+\.\d+\.\d+\.\d+\.\d+\.\d+)/) {
-        my $mac = join(':',map {sprintf("%02x",$_)} split(/\./,$1));
-        $fw_mac{$iid} = $mac;
-      }
-      else {
-        next;
-      }
-    }
-    return \%fw_mac;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Aruba - SNMP Interface to Aruba wireless switches
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
-    my $aruba = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-
-    or die "Can't connect to DestHost.\n";
-
-    my $class = $aruba->class();
-    print " Using device sub class : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info::Layer2::Aruba is a subclass of SNMP::Info that provides an interface
-to Aruba wireless switches.  The Aruba platform utilizes intelligent wireless
-switches which control thin access points.  The thin access points themselves
-are unable to be polled for end station information.
-
-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. 
-
- my $aruba = new SNMP::Info::Layer2::Aruba(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer2
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item WLSX-SWITCH-MIB
-
-=item WLSR-AP-MIB
-
-=back
-
-=head2 Inherited MIBs
-
-See L<SNMP::Info::Layer2/"Required MIBs"> for its MIB requirements.
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $aruba->model()
-
-Returns model type.  Cross references $aruba->id() with product IDs in the 
-Aruba MIB.
-
-=item $aruba->vendor()
-
-Returns 'aruba'
-
-=item $aruba->os()
-
-Returns 'airos'
-
-=item $aruba->os_ver()
-
-Returns the software version extracted from B<sysDescr>
-
-=back
-
-=head2 Overrides
-
-=over
-
-=item $aruba->layers()
-
-Returns 00000011.  Class emulates Layer 2 functionality for Thin APs through
-proprietary MIBs.
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer2
-
-See L<SNMP::Info::Layer2/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $aruba->i_index()
-
-Returns reference to map of IIDs to Interface index. 
-
-Extends ifIndex to support thin APs as device interfaces.
-
-=item $aruba->interfaces()
-
-Returns reference to map of IIDs to ports.  Thin APs are implemented as device 
-interfaces.  The thin AP MAC address is used as the port identifier.
-
-=item $aruba->i_name()
-
-Interface name.  Returns (B<ifName>) for Ethernet interfaces and (B<apLocation>)
-for thin AP interfaces.
-
-=item $aruba->bp_index()
-
-Simulates bridge MIB by returning reference to a hash containing the index for
-both the keys and values.
-
-=item $aruba->fw_port()
-
-(B<staAccessPointBSSID>) as extracted from the IID.
-
-=item $aruba->fw_mac()
-
-(B<staPhyAddress>) as extracted from the IID.
-
-=item $aruba->i_ssidlist()
-
-Returns reference to hash.  SSID's recognized by the radio interface.
-
-(B<apESSID>)
-
-=item $aruba->i_ssidbcast()
-
-Returns reference to hash.  Indicates whether the SSID is broadcast, true or false.
-
-(B<wlsrHideSSID>)
-
-=item $aruba->i_80211channel()
-
-Returns reference to hash.  Current operating frequency channel of the radio
-interface.
-
-(B<apCurrentChannel>)
-
-=back
-
-=head2 Aruba Switch AP Table  (B<wlsxSwitchAccessPointTable>)
-
-=over
-
-=item $aruba->aruba_ap_name()
-
-(B<apLocation>)
-
-=item $aruba->aruba_ap_ip()
-
-(B<apIpAddress>)
-
-=item $aruba->aruba_ap_essid()
-
-(B<apESSID>)
-
-=item $aruba->aruba_ap_ssidbcast()
-
-(B<wlsrHideSSID>)
-
-=back
-
-=head2 Aruba Switch Station Management Table (B<wlsxSwitchStationMgmtTable>)
-
-=over
-
-=item $aruba->fw_user()
-
-(B<staUserName>)
-
-=back
-
-=head2 Aruba Wireless AP Configuration Table (B<wlsrConfigTable>)
-
-=over
-
-=item $aruba->aruba_ap_channel()
-
-(B<apCurrentChannel>)
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer2
-
-See L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Bay.pm

@@ -1,474 +0,0 @@
-# SNMP::Info::Layer2::Bay
-# Max Baker 
-# This module depricated.  See Layer2::BayStack
-#
-# Copyright (c) 2004 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 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer2::Bay;
-$VERSION = '1.07';
-# $Id$
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer2;
-
-@SNMP::Info::Layer2::Bay::ISA = qw/SNMP::Info::Layer2 Exporter/;
-@SNMP::Info::Layer2::Bay::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
-
-# Set for No CDP
-%GLOBALS = ( %SNMP::Info::Layer2::GLOBALS,
-             'cdp_id'  => 's5EnMsTopIpAddr',
-             'cdp_run' => 's5EnMsTopStatus',
-           );
-
-%FUNCS   = (%SNMP::Info::Layer2::FUNCS,
-            'imac2'      => 'ifPhysAddress',
-            # S5-ETH-MULTISEG-TOPOLOGY-MIB::s5EnMsTopNmmTable
-            'bay_topo_slot'     => 's5EnMsTopNmmSlot',
-            'bay_topo_port'     => 's5EnMsTopNmmPort',
-            'bay_topo_ip'       => 's5EnMsTopNmmIpAddr',
-            'bay_topo_seg'      => 's5EnMsTopNmmSegId',
-            'bay_topo_mac'      => 's5EnMsTopNmmMacAddr',
-            'bay_topo_platform' => 's5EnMsTopNmmChassisType',
-            'bay_topo_localseg' => 's5EnMsTopNmmLocalSeg',
-            );
-
-%MIBS    = (
-            %SNMP::Info::Layer2::MIBS,
-            'SYNOPTICS-ROOT-MIB'           => 'synoptics',
-            'S5-ETH-MULTISEG-TOPOLOGY-MIB' => 's5EnMsTop'
-           );
-
-delete $MIBS{'CISCO-CDP-MIB'};
-# 450's report full duplex as speed = 20mbps?!
-$SNMP::Info::SPEED_MAP{20_000_000} = '10 Mbps';
-$SNMP::Info::SPEED_MAP{200_000_000} = '100 Mbps';
-
-%MUNGE   = (%SNMP::Info::Layer2::MUNGE,
-            'i_mac2' => \&SNMP::Info::munge_mac ,
-            );
-
-sub os {
-    return 'bay';
-}
-
-sub os_ver {
-    my $bay = shift;
-    my $descr = $bay->description();
-    return undef unless defined $descr;
-
-    # 303 / 304
-    if ($descr =~ m/Rev: \d+\.\d+\.\d+\.\d+-(\d+\.\d+\.\d+\.\d+)/){
-        return $1;
-    }
-
-    # 450
-    if ($descr =~ m/SW:v(\d+\.\d+\.\d+\.\d+)/){
-        return $1;
-    }
-    return undef;
-}
-
-sub os_bin {
-    my $bay = shift;
-    my $descr = $bay->description();
-    return undef unless defined $descr;
-
-    # 303 / 304
-    if ($descr =~ m/Rev: \d+\.(\d+\.\d+\.\d+)-\d+\.\d+\.\d+\.\d+/){
-        return $1;
-    }
-
-    # 450
-    if ($descr =~ m/FW:v(\d+\.\d+\.\d+\.\d+)/){
-        return $1;
-    }
-    return undef;
-}
-
-sub vendor {
-    # or nortel, or synopsis?
-    return 'bay';
-}
-
-sub i_ignore {
-    my $bay = shift;
-    my $descr = $bay->description();
-
-    my $i_type = $bay->i_type();
-
-    my %i_ignore;
-    foreach my $if (keys %$i_type){
-        my $type = $i_type->{$if};  
-        $i_ignore{$if}++ if $type =~ /(loopback|propvirtual|cpu)/i;
-    }
-
-    return \%i_ignore;
-}
-
-sub interfaces {
-    my $bay = shift;
-    my $i_index = $bay->i_index();
-
-    return $i_index;
-}
-
-sub i_mac { 
-    my $bay = shift;
-    my $i_mac = $bay->i_mac2();
-
-    # Bay 303's with a hw rev < 2.11.4.5 report the mac as all zeros
-    foreach my $iid (keys %$i_mac){
-        my $mac = $i_mac->{$iid};
-        delete $i_mac->{$iid} if $mac eq '00:00:00:00:00:00';
-    }
-    return $i_mac;
-}
-
-
-sub model {
-    my $bay = shift;
-    my $id = $bay->id();
-    return undef unless defined $id;
-    my $model = &SNMP::translateObj($id);
-    return $id unless defined $model;
-    $model =~ s/^sreg-//i;
-
-    my $descr = $bay->description();
-
-    return '303' if ($descr =~ /\D303\D/);
-    return '304' if ($descr =~ /\D304\D/);
-    return '450' if ($model =~ /BayStack450/);
-    return $model;
-}
-
-# Hack in some CDP type stuff
-
-sub c_if {
-    my $bay = shift;
-    my $bay_topo_port = $bay->bay_topo_port();
-
-    my %c_if;
-    foreach my $entry (keys %$bay_topo_port){
-        my $port = $bay_topo_port->{$entry};
-        next unless defined $port;
-        next if $port == 0;
-        $c_if{"$port.1"} = $port;
-    }
-    return \%c_if;
-}
-
-sub c_ip {
-    my $bay = shift;
-    my $bay_topo_ip   = $bay->bay_topo_ip();
-    my $bay_topo_port = $bay->bay_topo_port();
-    my $ip = $bay->cdp_ip();
-    
-    # Count the number of devices seen on each port.
-    #   more than one device seen means connected to a non-bay
-    #   device, but other bay devices are squawking further away.
-    my %ip_port;
-    foreach my $entry (keys %$bay_topo_ip){
-        my $port = $bay_topo_port->{$entry};
-        next unless defined $port;
-        next if ($port =~ /^[\d\.]+$/ and $port == 0);
-        my $ip   = $bay_topo_ip->{$entry};
-        push(@{$ip_port{$port}},$ip);
-    }
-
-    my %c_ip;
-    foreach my $port (keys %ip_port){
-        my $ips = $ip_port{$port};
-        if (scalar @$ips == 1) {
-            $c_ip{"$port.1"} = $ips->[0];
-        } else {
-            $c_ip{"$port.1"} = $ips;
-        }
-    }
-
-    return \%c_ip;
-}
-
-sub c_port {
-    my $bay = shift;
-    my $bay_topo_port = $bay->bay_topo_port();
-    my $bay_topo_seg = $bay->bay_topo_seg();
-
-    my %c_port;
-    foreach my $entry (keys %$bay_topo_seg){
-        my $port = $bay_topo_port->{$entry};
-        next unless defined $port;
-        next if $port == 0;
-
-        # For fake remotes (multiple IPs for a c_ip), use first found
-        next if defined $c_port{"$port.1"};
-
-        my $seg  = $bay_topo_seg->{$entry};
-
-        # Segment id is (256 * remote slot_num) + (remote_port)
-        my $remote_port = $seg % 256;
-    
-        $c_port{"$port.1"} = $remote_port;
-    }
-
-    return \%c_port;
-}
-
-sub c_platform {
-    my $bay = shift;
-    my $bay_topo_port     = $bay->bay_topo_port();
-    my $bay_topo_platform = $bay->bay_topo_platform();
-
-
-    my %c_platform;
-    foreach my $entry (keys %$bay_topo_platform){
-        my $port = $bay_topo_port->{$entry} || 0;
-        next if $port == 0;
-
-        # For fake remotes (multiple IPs for a c_ip), use first found
-        next if defined $c_platform{"$port.1"};
-
-        my $platform  = $bay_topo_platform->{$entry};
-
-        $c_platform{"$port.1"} = $platform;
-    }
-
-    return \%c_platform;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Bay - SNMP Interface to old Bay Network BayStack Switches
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
-This module is Depricated.  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. 
-
- my $bay = new SNMP::Info::Layer2::Bay(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer2
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item SYNOPTICS-ROOT-MIB
-
-=item S5-ETH-MULTISEG-TOPOLOGY-MIB
-
-=item Inherited classes
-
-MIBs required by L<SNMP::Info::Layer2/"Required MIBs"> 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
-
-=over
-
-=item $bay->vendor()
-
-Returns 'bay' :)
-
-=item $bay->model()
-
-Cross references $bay->id() to the SYNOPTICS-MIB 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
-
-=item $bay->cdp_id()
-
-Returns the IP that the device is sending out for its Nmm topology info.
-
-(B<s5EnMsTopIpAddr>)
-
-=item $bay->cdp_run()
-
-Returns if the S5-ETH-MULTISEG-TOPOLOGY info is on for this device. 
-
-(B<s5EnMsTopStatus>)
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $bay->interfaces()
-
-Returns reference to map of IIDs to physical ports. 
-
-Currently simply returns the B<ifIndex>
-
-=item $bay->i_ignore()
-
-Returns reference to hash of IIDs to ignore.
-
-Simply calls the SNMP::Info::Layer2::i_ignore() fn for this.
-
-=item $bay->i_mac()
-
-Returns the B<ifPhysAddress> table entries. 
-
-Removes all entries matching '00:00:00:00:00:00' -- Certain 
-older revisions of Bay 303 and 304 firmware report all zeros
-for each port mac.
-
-=back
-
-=head2 Psuedo CDP information
-
-All entries with port=0 are local and ignored.
-
-=over
-
-=item $bay->c_if()
-
-Returns referenece to hash.  Key: port.1 Value: port (iid)
-
-=item $bay->c_ip()
-
-Returns referenece 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.
-
-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. 
-
-Use the data from the Layer2 Topology Table below to dig deeper.
-
-=item $bay->port()
-
-Returns reference to hash. Key: port.1 Value: port
-
-=item $bay->platform()
-
-Returns reference to hash. Key: port.1 Value: Remote Device Type
-
-=back
-
-=head2 Layer2 Topology info (s5EnMsTopNmmTable)
-
-=over
-
-=item $bay->bay_topo_slot()
-
-Returns reference to hash.  Key: Table entry, Value:slot number
-
-(B<s5EnMsTopNmmSlot>)
-
-=item $bay->bay_topo_port()
-
-Returns reference to hash.  Key: Table entry, Value:Port Number (interface iid)
-
-(B<s5EnMsTopNmmPort>)
-
-=item $bay->bay_topo_ip()
-
-Returns reference to hash.  Key: Table entry, Value:Remote IP address of entry
-
-(B<s5EnMsTopNmmIpAddr>)
-
-=item $bay->bay_topo_seg()
-
-Returns reference to hash.  Key: Table entry, Value:Remote Segment ID
-
-(B<s5EnMsTopNmmSegId>)
-
-=item $bay->bay_topo_mac
-(B<s5EnMsTopNmmMacAddr>)
-
-Returns reference to hash.  Key: Table entry, Value:Remote MAC address
-
-=item $bay->bay_topo_platform
-
-Returns reference to hash.  Key: Table entry, Value:Remote Device Type
-
-(B<s5EnMsTopNmmChassisType>)
-
-=item $bay->bay_topo_localseg
-
-Returns reference to hash.  Key: Table entry, Value:Boolean, if bay_topo_seg() is local
-
-(B<s5EnMsTopNmmLocalSeg>)
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Baystack.pm

@@ -1,741 +0,0 @@
-# SNMP::Info::Layer2::Baystack
-# Eric Miller
-#
-# Copyright (c) 2004-6 Max Baker changes from version 0.8 and beyond.
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer2::Baystack;
-$VERSION = '1.07';
-
-# $Id$
-use strict;
-
-use Exporter;
-use SNMP::Info::SONMP;
-use SNMP::Info::NortelStack;
-use SNMP::Info::RapidCity;
-use SNMP::Info::LLDP;
-use SNMP::Info::Layer3;
-
-@SNMP::Info::Layer2::Baystack::ISA = qw/SNMP::Info::SONMP SNMP::Info::NortelStack
-                                      SNMP::Info::RapidCity SNMP::Info::LLDP
-                                      SNMP::Info::Layer3 Exporter/;
-@SNMP::Info::Layer2::Baystack::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
-
-%MIBS    = (
-            %SNMP::Info::Layer3::MIBS,
-            %SNMP::Info::LLDP::MIBS,
-            %SNMP::Info::RapidCity::MIBS,
-            %SNMP::Info::NortelStack::MIBS,
-            %SNMP::Info::SONMP::MIBS,
-           );
-
-%GLOBALS = ( 
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::LLDP::GLOBALS,
-            %SNMP::Info::RapidCity::GLOBALS,
-            %SNMP::Info::NortelStack::GLOBALS,
-            %SNMP::Info::SONMP::GLOBALS,
-           );
-
-%FUNCS   = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::LLDP::FUNCS,
-            %SNMP::Info::RapidCity::FUNCS,
-            %SNMP::Info::NortelStack::FUNCS,
-            %SNMP::Info::SONMP::FUNCS,
-            );
-
-# 450's report full duplex as speed = 20mbps?!
-$SNMP::Info::SPEED_MAP{20_000_000} = '10 Mbps';
-$SNMP::Info::SPEED_MAP{200_000_000} = '100 Mbps';
-$SNMP::Info::SPEED_MAP{2_000_000_000} = '1.0 Gbps';
-
-%MUNGE   = (
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::LLDP::MUNGE,
-            %SNMP::Info::RapidCity::MUNGE,
-            %SNMP::Info::NortelStack::MUNGE,
-            %SNMP::Info::SONMP::MUNGE,
-            );
-
-sub os {
-    my $baystack = shift;
-    my $descr = $baystack->description();
-    my $model = $baystack->model();
-
-    if ((defined $model and $model =~ /(325|420|425|470|460|BPS|2500|3510|4524|4526|4548|4550|5510|5520|5530)/) and (defined $descr and $descr =~ m/SW:v[3-5]/i)) {
-       return 'boss';
-    }
-    if ((defined $descr and $descr =~ /Business Ethernet Switch.*SW:v/i)) {
-       return 'bes';
-    }
-    return 'baystack';
-}
-
-sub os_bin {
-    my $baystack = shift;
-    my $descr = $baystack->description();
-    return undef unless defined $descr;
-
-    # 303 / 304
-    if ($descr =~ m/Rev: \d+\.(\d+\.\d+\.\d+)-\d+\.\d+\.\d+\.\d+/){
-        return $1;
-    }
-
-    # 450
-    if ($descr =~ m/FW:V(\d+\.\d+)/){
-        return $1;
-    }
-
-    if ($descr =~ m/FW:(\d+\.\d+\.\d+\.\d+)/i){
-        return $1;
-    }
-    return undef;
-}
-
-sub vendor {
-    return 'nortel';
-}
-
-sub model {
-    my $baystack = shift;
-    my $id = $baystack->id();
-    return undef unless defined $id;
-    my $model = &SNMP::translateObj($id);
-    return $id unless defined $model;
-
-    my $descr = $baystack->description();
-
-    return '303' if (defined $descr and $descr =~ /\D303\D/);
-    return '304' if (defined $descr and $descr =~ /\D304\D/);
-    return 'BPS' if ($model =~ /BPS2000/i);
-    return $2 if ($model =~ /(ES|ERS|BayStack|EthernetRoutingSwitch|EthernetSwitch)-?(\d+)/);
-    
-    return $model;
-}
-
-sub interfaces {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $i_index = $baystack->i_index($partial) || {};
-    my $index_factor = $baystack->index_factor();
-    my $slot_offset = $baystack->slot_offset();
-    
-    my %if;
-    foreach my $iid (keys %$i_index){
-        my $index = $i_index->{$iid};
-        next unless defined $index;
-        # Ignore cascade ports
-        next if $index > 513;
-
-        my $port = ($index % $index_factor);
-        my $slot = (int($index / $index_factor)) + $slot_offset;
-
-        my $slotport = "$slot.$port";
-        $if{$iid} = $slotport;
-    }
-    return \%if;
-}
-
-sub i_mac { 
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $i_mac = $baystack->orig_i_mac($partial) || {};
-
-    my %i_mac;
-    # Baystack 303's with a hw rev < 2.11.4.5 report the mac as all zeros
-    foreach my $iid (keys %$i_mac){
-        my $mac = $i_mac->{$iid};
-        next unless defined $mac;
-        next if $mac eq '00:00:00:00:00:00';
-        $i_mac{$iid}=$mac;
-    }
-    return \%i_mac;
-}
-
-sub i_name {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $i_index = $baystack->i_index($partial) || {};
-    my $i_alias = $baystack->i_alias($partial) || {};
-    my $i_name2  = $baystack->orig_i_name($partial) || {};
-
-    my %i_name;
-    foreach my $iid (keys %$i_name2){
-        my $name = $i_name2->{$iid};
-        my $alias = $i_alias->{$iid};
-        $i_name{$iid} = (defined $alias and $alias !~ /^\s*$/) ?
-                        $alias : 
-                        $name;
-    }
-
-    return \%i_name;
-}
-
-sub index_factor {
-    my $baystack   = shift;
-    my $model   = $baystack->model();
-    my $os      = $baystack->os();
-    my $op_mode = $baystack->ns_op_mode();
-    
-    $op_mode = 'pure' unless defined $op_mode;
-
-    my $index_factor = 32;
-    $index_factor = 64 if ((defined $model and $model =~ /(470)/) or ($os =~ m/(boss|bes)/) and ($op_mode eq 'pure'));
-    
-    return $index_factor;
-}
-
-#  Use SONMP and/or LLDP
-
-sub hasCDP {
-    my $baystack = shift;
-
-    return $baystack->hasLLDP() || $baystack->SUPER::hasCDP();
-}
-
-sub c_ip {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $cdp  = $baystack->SUPER::c_ip($partial) || {};
-    my $lldp = $baystack->lldp_ip($partial) || {};
-
-    my %c_ip;
-    foreach my $iid (keys %$cdp){
-        my $ip = $cdp->{$iid};
-        next unless defined $ip;
-
-        $c_ip{$iid} = $ip;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $ip = $lldp->{$iid};
-        next unless defined $ip;
-
-        $c_ip{$iid} = $ip;
-    }
-    return \%c_ip;
-}
-
-sub c_if {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $lldp = $baystack->lldp_if($partial) || {};;
-    my $cdp  = $baystack->SUPER::c_if($partial) || {};
-    
-    my %c_if;
-    foreach my $iid (keys %$cdp){
-        my $if = $cdp->{$iid};
-        next unless defined $if;
-
-        $c_if{$iid} = $if;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $if = $lldp->{$iid};
-        next unless defined $if;
-
-        $c_if{$iid} = $if;
-    }
-    return \%c_if;
-}
-
-sub c_port {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $lldp = $baystack->lldp_port($partial) || {};
-    my $cdp  = $baystack->SUPER::c_port($partial) || {};
-    
-    my %c_port;
-    foreach my $iid (keys %$cdp){
-        my $port = $cdp->{$iid};
-        next unless defined $port;
-
-        $c_port{$iid} = $port;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $port = $lldp->{$iid};
-        next unless defined $port;
-
-        $c_port{$iid} = $port;
-    }
-    return \%c_port;
-}
-
-sub c_id {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $lldp = $baystack->lldp_id($partial) || {};
-    my $cdp  = $baystack->SUPER::c_id($partial) || {};
-
-    my %c_id;
-    foreach my $iid (keys %$cdp){
-        my $id = $cdp->{$iid};
-        next unless defined $id;
-
-        $c_id{$iid} = $id;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $id = $lldp->{$iid};
-        next unless defined $id;
-
-        $c_id{$iid} = $id;
-    }
-    return \%c_id;
-}
-
-sub c_platform {
-    my $baystack = shift;
-    my $partial = shift;
-
-    my $lldp = $baystack->lldp_rem_sysdesc($partial) || {};
-    my $cdp  = $baystack->SUPER::c_platform($partial) || {};
-
-    my %c_platform;
-    foreach my $iid (keys %$cdp){
-        my $platform = $cdp->{$iid};
-        next unless defined $platform;
-
-        $c_platform{$iid} = $platform;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $platform = $lldp->{$iid};
-        next unless defined $platform;
-
-        $c_platform{$iid} = $platform;
-    }
-    return \%c_platform;
-}
-
-# Newer devices support ENTITY-MIB, use if available otherwise use proprietary
-# methods.
-
-sub e_index {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_index($partial) || $stack->ns_e_index($partial);
-}
-
-sub e_class {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_class($partial) || $stack->ns_e_class($partial);
-}
-
-sub e_descr {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_descr($partial) || $stack->ns_e_descr($partial);
-}
-
-sub e_name {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_name($partial) || $stack->ns_e_name($partial);
-}
-
-sub e_fwver {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_fwver($partial) || $stack->ns_e_fwver($partial);
-}
-
-sub e_hwver {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_hwver($partial) || $stack->ns_e_hwver($partial);
-}
-
-sub e_parent {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_parent($partial) || $stack->ns_e_parent($partial);
-}
-
-sub e_pos {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_pos($partial) || $stack->ns_e_pos($partial);
-}
-
-sub e_serial {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_serial($partial) || $stack->ns_e_serial($partial);
-}
-
-sub e_swver {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_swver($partial) || $stack->ns_e_swver($partial);
-}
-
-sub e_type {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_type($partial) || $stack->ns_e_type($partial);
-}
-
-sub e_vendor {
-    my $stack   = shift;
-    my $partial = shift;
-
-    return $stack->SUPER::e_vendor($partial) || $stack->ns_e_vendor($partial);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Baystack - SNMP Interface to Nortel Ethernet (Baystack) Switches
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you.
- my $baystack = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-  or die "Can't connect to DestHost.\n";
-
- my $class = $baystack->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-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. 
-
-my $baystack = new SNMP::Info::Layer2::Baystack(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::SONMP
-
-=item SNMP::Info::NortelStack
-
-=item SNMP::Info::RapidCity
-
-=item SNMP::Info::LLDP
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=back
-
-=head2 Inherited MIBs
-
-See L<SNMP::Info::SONMP/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::NortelStack/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::RapidCity/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::LLDP/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its MIB requirements.
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $baystack->vendor()
-
-Returns 'nortel'
-
-=item $baystack->model()
-
-Cross references $baystack->id() to the SYNOPTICS-MIB 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.
-
-=item $baystack->os()
-
-Returns 'baystack' or 'boss' depending on software version.
-
-=item $baystack->os_bin()
-
-Returns the firmware version extracted from B<sysDescr>.
-
-=back
-
-=head2 Overrides
-
-=over
-
-=item  $baystack->index_factor()
-
-Required by SNMP::Info::SONMP.  Number representing the number of ports
-reserved per slot within the device MIB.
-
-Index factor on the Baystack switches are determined by the formula: Index
-Factor = 64 if (model = 470 or (os eq 'boss' and operating in pure mode))
-or else Index factor = 32.
-
-Returns either 32 or 64 based upon the formula.
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::SONMP
-
-See L<SNMP::Info::SONMP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::NortelStack
-
-See L<SNMP::Info::NortelStack/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::RapidCity
-
-See L<SNMP::Info::RapidCity/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::LLDP
-
-See documentation in L<SNMP::Info::LLDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $baystack->interfaces()
-
-Returns reference to the map between IID and physical Port.
-
-  Slot and port numbers on the Baystack switches are determined by the formula:
-  
-  port = (Interface index % Index factor)
-  slot = (int(Interface index / Index factor)) + Slot offset
- 
-  The physical port name is returned as slot.port.
-
-=item $baystack->i_ignore()
-
-Returns reference to hash of IIDs to ignore.
-
-=item $baystack->i_mac()
-
-Returns the B<ifPhysAddress> 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.
-
-=back
-
-=head2 ENTITY-MIB Information
-
-For older devices which do not support ENTITY-MIB, these methods emulate
-Physical Table methods using S5-CHASSIS-MIB.  See
-L<SNMP::Info::NortelStack/"TABLE METHODS"> for details on ns_e_* methods.
-
-=over
-
-=item $baystack->e_index() 
-
-If the device doesn't support B<entPhysicalDescr>, this will try ns_e_index().
-Note that this is based on B<entPhysicalDescr> due to implementation
-details of SNMP::Info::Entity::e_index().
-
-=item $baystack->e_class() 
-
-If the device doesn't support B<entPhysicalClass>, this will try ns_e_class().
-
-=item $baystack->e_descr() 
-
-If the device doesn't support B<entPhysicalDescr>, this will try ns_e_descr().
-
-=item $baystack->e_fwver() 
-
-If the device doesn't support B<entPhysicalFirmwareRev>, this will try
-ns_e_fwver().
-
-=item $baystack->e_hwver() 
-
-If the device doesn't support B<entPhysicalHardwareRev>, this will try
-ns_e_hwver().
-
-=item $baystack->e_parent() 
-
-If the device doesn't support B<entPhysicalContainedIn>, this will try
-ns_e_parent().
-
-=item $baystack->e_pos() 
-
-If the device doesn't support B<entPhysicalParentRelPos>, this will try
-ns_e_pos().
-
-=item $baystack->e_serial() 
-
-If the device doesn't support B<entPhysicalSerialNum>, this will try
-ns_e_serial().
-
-=item $baystack->e_swver() 
-
-If the device doesn't support B<entPhysicalSoftwareRev>, this will try
-ns_e_swver().
-
-=item $baystack->e_type() 
-
-If the device doesn't support B<entPhysicalVendorType>, this will try
-ns_e_type().
-
-=item $baystack->e_vendor() 
-
-If the device doesn't support B<entPhysicalMfgName>, this will try
-ns_e_vendor().
-
-=back
-
-=head2 Topology information
-
-Based upon the software version devices may support SynOptics Network
-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.
-
-=over
-
-=item $baystack->hasCDP()
-
-Returns true if the device is running either SONMP or LLDP.
-
-=item $baystack->c_if()
-
-Returns reference to hash.  Key: iid Value: local device port (interfaces)
-
-=item $baystack->c_ip()
-
-Returns reference to hash.  Key: iid Value: remote IPv4 address
-
-If multiple entries exist with the same local port, c_if(), with the same IPv4
-address, c_ip(), it may be a duplicate entry.
-
-If multiple entries exist with the same local port, c_if(), with different IPv4
-addresses, c_ip(), there is either a non-SONMP/LLDP 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.
-
-=item $baystack->c_port()
-
-Returns reference to hash. Key: iid Value: remote port (interfaces)
-
-=item $baystack->c_id()
-
-Returns reference to hash. Key: iid Value: string value used to identify the
-chassis component associated with the remote system.
-
-=item $baystack->c_platform()
-
-Returns reference to hash.  Key: iid Value: Remote Device Type
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::SONMP
-
-See L<SNMP::Info::SONMP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::NortelStack
-
-See L<SNMP::Info::NortelStack/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::RapidCity
-
-See L<SNMP::Info::RapidCity/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::LLDP
-
-See documentation in L<SNMP::Info::LLDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Catalyst.pm

@@ -1,371 +0,0 @@
-# SNMP::Info::Layer2::Catalyst
-# Max Baker
-#
-# Copyright (c) 2002,2003 Regents of the University of California
-# Copyright (c) 2003,2004 Max Baker changes from version 0.8 and beyond
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer2::Catalyst;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::CiscoStack;
-use SNMP::Info::CiscoVTP;
-use SNMP::Info::CDP;
-use SNMP::Info::CiscoStats;
-use SNMP::Info::CiscoPortSecurity;
-use SNMP::Info::Layer2;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-@SNMP::Info::Layer2::Catalyst::ISA = qw/SNMP::Info::CiscoStack SNMP::Info::CiscoVTP 
-                                        SNMP::Info::CDP SNMP::Info::CiscoStats
-                                        SNMP::Info::CiscoPortSecurity
-                                        SNMP::Info::Layer2 Exporter/;
-@SNMP::Info::Layer2::Catalyst::EXPORT_OK = qw//;
-
-%MIBS =    (
-            %SNMP::Info::Layer2::MIBS,
-            %SNMP::Info::CiscoPortSecurity::MIBS,
-            %SNMP::Info::CiscoStats::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            %SNMP::Info::CiscoVTP::MIBS,
-            %SNMP::Info::CiscoStack::MIBS,
-            );
-
-%GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-            %SNMP::Info::CiscoPortSecurity::GLOBALS,
-            %SNMP::Info::CiscoStats::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::CiscoVTP::GLOBALS,
-            %SNMP::Info::CiscoStack::GLOBALS,
-            );
-
-%FUNCS =   (
-            %SNMP::Info::Layer2::FUNCS,
-            %SNMP::Info::CiscoPortSecurity::FUNCS,
-            %SNMP::Info::CiscoStats::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::CiscoVTP::FUNCS,
-            %SNMP::Info::CiscoStack::FUNCS,
-           );
-
-%MUNGE =   (
-            %SNMP::Info::Layer2::MUNGE,
-            %SNMP::Info::CiscoPortSecurity::MUNGE,
-            %SNMP::Info::CiscoStats::MUNGE,
-            %SNMP::Info::CDP::MUNGE,
-            %SNMP::Info::CiscoVTP::MUNGE,
-            %SNMP::Info::CiscoStack::MUNGE,
-            );
-
-# Overidden Methods
-
-# i_physical sets a hash entry as true if the iid is a physical port
-sub i_physical {
-    my $cat = shift;
-
-    my $p_port = $cat->p_port();
-
-    my %i_physical;
-    foreach my $port (keys %$p_port) {
-        my $iid = $p_port->{$port};
-        $i_physical{$iid} = 1;  
-    }
-    return \%i_physical;
-}
-
-sub vendor {
-    return 'cisco';
-}
-
-sub os {
-    return 'catalyst';
-}
-
-sub os_ver {
-    my $cat = shift;
-    my $os_ver = $cat->SUPER::os_ver();
-    return $os_ver if defined $os_ver;
-
-    my $m_swver = $cat->m_swver();
-    return undef unless defined $m_swver;
-
-    # assume .1 entry is the chassis and the sw version we want.
-    return $m_swver->{1} if defined $m_swver->{1};
-    return undef;
-}
-
-# Workaround for incomplete bp_index
-sub bp_index {
-    my $cat = shift;
-    my $p_index = $cat->p_port();
-    my $b_index = $cat->p_oidx();
-
-    my %bp_index;
-    foreach my $iid (keys %$p_index){
-        my $ifidx = $p_index->{$iid};
-        next unless defined $ifidx;
-        my $bpidx = $b_index->{$iid}||0;
-
-        $bp_index{$bpidx} = $ifidx;
-    }
-    return \%bp_index;
-}
-
-sub cisco_comm_indexing {
-    1;
-}
-
-sub interfaces {
-    my $cat = shift;
-    my $partial = shift;
-
-    my $i_index    = $cat->i_index($partial);
-    my $portnames  = $cat->p_port() || {};
-    my %portmap    = reverse %$portnames;
-
-    my %interfaces = ();
-    foreach my $iid (keys %$i_index) {
-        next unless defined $iid;
-        my $if   = $i_index->{$iid};
-        my $port = $portmap{$iid};
-        $interfaces{$iid} = $port || $if;
-    }
-    return \%interfaces;
-}
-
-sub i_name {
-    my $cat = shift; 	 
-    my $partial = shift;
-
-    my $p_port = $cat->p_port() || {};
-    my $p_name = $cat->p_name() || {};
-
-    my %i_name;
-    foreach my $port (keys %$p_name) {
-        my $iid = $p_port->{$port};
-        next unless defined $iid;
-        next if (defined $partial and $iid !~ /^$partial$/);
-        $i_name{$iid} = $p_name->{$port};
-    }
-    return \%i_name; 
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Catalyst - SNMP Interface to Cisco Catalyst devices
-running Catalyst OS.
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $cat = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $cat->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-SNMP::Info subclass to provide information for Cisco Catalyst series switches
-running CatOS.
-
-This class includes the Catalyst 2920, 4000, 5000, 6000 (hybrid mode) families.
-
-This subclass is not for all devices that have the name Catalyst.  Note that
-some Catalyst switches run IOS, like the 2900 and 3550 families.  Cisco
-Catalyst 1900 switches use their own MIB and have a separate subclass.  Use
-the method above to have SNMP::Info determine the appropriate subclass before
-using this class directly.
-
-See SNMP::Info::device_type() for specifics.
-
-Note:  Some older Catalyst switches will only talk SNMP version 1.  Some
-newer ones will not return all their data if connected via 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. 
-
- my $cat = new SNMP::Info::Layer2::Catalyst(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::CiscoStack
-
-=item SNMP::Info::CiscoVTP
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::CiscoStats
-
-=item SNMP::Info::CiscoPortSecurity
-
-=item SNMP::Info::Layer2
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::CiscoStack/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoVTP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStats/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPortSecurity/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::Layer2/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-These MIBs are found in the standard v2 MIBs from Cisco.
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $cat->os()
-
-Returns 'catalyst'
-
-=item $cat->os_ver()
-
-Tries to use the value from SNMP::Info::CiscoStats->os_ver() and if it fails 
-it grabs $cat->m_swver()->{1} and uses that.
-
-=item $cat->vendor()
-
-Returns 'cisco'
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::CiscoStack
-
-See documentation in L<SNMP::Info::CiscoStack/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $cat->interfaces()
-
-Returns the map between SNMP Interface Identifier (iid) and physical port name. 
-
-=item $cat->i_name()
-
-Returns reference to hash of iid to human set name. 
-
-B<portName>
-
-=item $cat->bp_index()
-
-Returns reference to hash of bridge port table entries map back to interface
-identifier (iid)
-
-Crosses (B<portCrossIndex>) to (B<portIfIndex>) since some devices seem to have
-problems with BRIDGE-MIB
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::CiscoStack
-
-See documentation in L<SNMP::Info::CiscoStack/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"TABLE METHODS"> for
-details.
-
-=head2 Table Methods imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Foundry.pm

@@ -1,287 +0,0 @@
-# SNMP::Info::Layer2::Foundry - SNMP Interface to Foundry Switches
-#
-# Copyright (c) 2005 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.
-#     * 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::Layer2::Foundry;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer2;
-use SNMP::Info::FDP;
-use SNMP::Info::EtherLike;
-use SNMP::Info::MAU;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
-
-@SNMP::Info::Layer2::Foundry::ISA = qw/SNMP::Info::Layer2 SNMP::Info::FDP SNMP::Info::EtherLike
-                                       SNMP::Info::MAU    Exporter/;
-@SNMP::Info::Layer2::Foundry::EXPORT_OK = qw//;
-
-%MIBS =    ( %SNMP::Info::Layer2::MIBS,
-             %SNMP::Info::FDP::MIBS,
-             %SNMP::Info::EtherLike::MIBS,
-             %SNMP::Info::MAU::MIBS,
-             'FOUNDRY-SN-ROOT-MIB' => 'foundry',
-           );
-
-%GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-            %SNMP::Info::FDP::GLOBALS,
-            %SNMP::Info::EtherLike::GLOBALS,
-            %SNMP::Info::MAU::GLOBALS,
-           );
-
-%FUNCS   = (
-            %SNMP::Info::Layer2::FUNCS,
-            %SNMP::Info::FDP::FUNCS,
-            %SNMP::Info::EtherLike::FUNCS,
-            %SNMP::Info::MAU::FUNCS,
-            'test'    => 'dot1dStpPortState',
-           );
-
-%MUNGE = (
-            %SNMP::Info::Layer2::MUNGE,
-            %SNMP::Info::FDP::MUNGE,
-            %SNMP::Info::EtherLike::MUNGE,
-            %SNMP::Info::MAU::MUNGE,
-         );
-
-
-# Method OverRides
-
-#sub bulkwalk_no { 1;}
-
-*SNMP::Info::Layer2::Foundry::i_duplex       = \&SNMP::Info::MAU::mau_i_duplex;
-*SNMP::Info::Layer2::Foundry::i_duplex_admin = \&SNMP::Info::MAU::mau_i_duplex_admin;
-*SNMP::Info::Layer2::Foundry::i_vlan         = \&SNMP::Info::Bridge::qb_i_vlan_t;
-
-# todo doc these
-
-sub os_ver {
-    my $foundry = shift;
-
-    my $e_name = $foundry->e_name();
-
-    # find entity table entry for "stackmanaget.1"
-    my $unit_iid = undef;
-    foreach my $e (keys %$e_name){
-        my $name = $e_name->{$e} || '';
-        $unit_iid = $e if $name eq 'stackmanaget.1';
-    }
-    
-    # Default to OID method if no dice.
-    unless (defined $unit_iid){
-        return $foundry->SUPER::model();
-    }
-
-    # Find Model Name
-    my $e_fwver = $foundry->e_fwver();
-    if (defined $e_fwver->{$unit_iid}){
-        return $e_fwver->{$unit_iid};
-    }
-
-    # Not found in ENTITY-MIB, go up a level.
-    return $foundry->SUPER::os_ver();
-}
-
-sub model {
-    my $foundry = shift;
-
-    my $e_name = $foundry->e_name();
-
-    # find entity table entry for "unit.1"
-    my $unit_iid = undef;
-    foreach my $e (keys %$e_name){
-        my $name = $e_name->{$e} || '';
-        $unit_iid = $e if $name eq 'unit.1';
-    }
-    
-    # Default to OID method if no dice.
-    unless (defined $unit_iid){
-        return $foundry->SUPER::model();
-    }
-
-    # Find Model Name
-    my $e_model = $foundry->e_model();
-    if (defined $e_model->{$unit_iid}){
-        return $e_model->{$unit_iid};
-    }
-
-    # Not found in ENTITY-MIB, go up a level.
-    return $foundry->SUPER::model();
-    
-}
-
-sub serial {
-    my $foundry = shift;
-
-    my $e_name = $foundry->e_name();
-
-    # find entity table entry for "unit.1"
-    my $unit_iid = undef;
-    foreach my $e (keys %$e_name){
-        my $name = $e_name->{$e} || '';
-        $unit_iid = $e if $name eq 'unit.1';
-    }
-    return undef unless defined $unit_iid;
-
-    # Look up serial of found entry.
-    my $e_serial = $foundry->e_serial();
-    return $e_serial->{$unit_iid} if defined $e_serial->{$unit_iid};
-
-    return $foundry->SUPER::serial();
-}
-
-sub interfaces {
-    my $foundry = shift;
-    my $i_descr = $foundry->i_description;
-    my $i_name  = $foundry->i_name;
-
-    # use ifName only if it is in portn 
-    #   format.  For EdgeIrons
-    # else use ifDescr
-    foreach my $iid (keys %$i_name){
-        my $name = $i_name->{$iid};
-        next unless defined $name;
-        $i_descr->{$iid} = $name 
-            if $name =~ /^port\d+/i;
-    }
-
-    return $i_descr;
-}
-
-sub i_ignore {
-    my $foundry = shift;
-    my $i_type = $foundry->i_type();
-
-    my %i_ignore = ();
-
-    foreach my $iid (keys %$i_type){
-        my $type = $i_type->{$iid} || '';
-        $i_ignore{$iid}++ 
-            # 33 is the console port
-            if $type =~ /(loopback|propvirtual|other|cpu|33)/i;
-    }
-    return \%i_ignore;
-}
-
-
-sub os { 
-    return 'foundry';
-}
-
-sub vendor {
-    return 'foundry';
-}
-
-# this hangs on a edgeiron24g
-# TODO: check by devicetype and deferr to SUPER if not bad device
-sub stp_p_state { undef; }
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Foundry - SNMP Interface to Foundry FastIron Network Devices
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
-This module is Deprecated.  Please use Layer3::Foundry instead.
-
-=head1 DESCRIPTION
-
-This module provides support for Foundry EdgeIron Switches
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer2
-
-=item SNMP::Info::FDP
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item FOUNDRY-SN-ROOT-MIB
-
-=item Inherited Classes' MIBs
-
-See classes listed above for their required MIBs.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item todo
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::FDP
-
-See documentation in L<SNMP::Info::FDP/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item todo2
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::FDP
-
-See documentation in L<SNMP::Info::FDP/"TABLE METHODS"> for details.
-
-=cut

Info/Layer2/Netgear.pm

@@ -1,183 +0,0 @@
-# SNMP::Info::Layer2::Netgear
-# Bill Fenner and Zoltan Erszenyi
-#
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer2::Netgear;
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer2;
-
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/;
-
-$VERSION = '1.07';
-@SNMP::Info::Layer2::Netgear::ISA = qw/SNMP::Info::Layer2 Exporter/;
-@SNMP::Info::Layer2::Netgear::EXPORT_OK = qw//;
-
-%MIBS    = (
-            %SNMP::Info::Layer2::MIBS,
-           );
-
-%GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-           );
-
-%FUNCS   = (
-	    %SNMP::Info::Layer2::FUNCS,
-           );
-
-%MUNGE   = (
-	    %SNMP::Info::Layer2::MUNGE,
-           );
-
-sub vendor {
-    return 'netgear';
-}
-
-sub os {
-    return 'netgear';
-}
-
-# Wish the OID-based method worked, but netgear scatters
-# the sysObjectID values across all the device MIBs, and
-# makes the device MIBs state secrets.
-# They seem to set sysDescr to the model number, though,
-# so we'll use that.
-sub model {
-    my $netgear = shift;
-    return $netgear->description();
-}
-
-#
-# This is model-dependent.  Some netgear brand devices don't implement
-# the bridge MIB forwarding table, so we use the Q-BRIDGE-MIB forwarding
-# table.  Fall back to the orig functions if the qb versions don't
-# return anything.
-sub fw_mac {
-    my $netgear = shift;
-    my $ret = $netgear->qb_fw_mac();
-    $ret = $netgear->orig_fw_mac() if (!defined($ret));
-    return $ret;
-}
-
-sub fw_port {
-    my $netgear = shift;
-    my $ret = $netgear->qb_fw_port();
-    $ret = $netgear->orig_fw_port() if (!defined($ret));
-    return $ret;
-}
-
-1;
-  
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer2::Netgear - SNMP Interface to Netgear switches
-
-=head1 AUTHOR
-
-Bill Fenner and Zoltan Erszenyi
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $netgear = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $netgear->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Provides abstraction to the configuration information obtainable from a 
-Netgear device through SNMP. See inherited classes' documentation for 
-inherited methods.
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer2
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-MIBs listed in L<SNMP::Info::Layer2/"Required MIBs"> and its inherited classes.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=head2 Overrides
-
-=over
-
-=item $netgear->vendor()
-
-Returns 'netgear'
-
-=item $netgear->os()
-
-Returns 'netgear' 
-
-=item $netgear->model()
-
-Returns description()
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of
-a reference to a hash.
-
-=head2 Table Methods imported from SNMP::Info::Layer2
-
-See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/AlteonAD.pm

@@ -1,418 +0,0 @@
-# SNMP::Info::Layer3::AlteonAD
-# Eric Miller
-# $Id$
-#
-# Copyright (c) 2004 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.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::AlteonAD;
-$VERSION = '1.07';
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-use SNMP::Info::Layer3;
-use SNMP::Info::Bridge;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE /;
-
-@SNMP::Info::Layer3::AlteonAD::ISA = qw/SNMP::Info SNMP::Info::Layer3 SNMP::Info::Bridge Exporter/;
-@SNMP::Info::Layer3::AlteonAD::EXPORT_OK = qw//;
-
-%MIBS = (
-          %SNMP::Info::MIBS,
-          %SNMP::Info::Layer3::MIBS,
-          %SNMP::Info::Bridge::MIBS,
-          'ALTEON-TIGON-SWITCH-MIB' => 'agSoftwareVersion',
-          'ALTEON-TS-PHYSICAL-MIB'  => 'agPortTableMaxEnt',
-          'ALTEON-TS-NETWORK-MIB'   => 'agPortTableMaxEnt',
-        );
-
-%GLOBALS = (
-            %SNMP::Info::GLOBALS,
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::Bridge::GLOBALS,
-            'sw_ver'           => 'agSoftwareVersion',
-            'tftp_action'  => 'agTftpAction',
-            'tftp_host'    => 'agTftpServer',
-            'tftp_file'    => 'agTftpCfgFileName',
-            'tftp_result'  => 'agTftpLastActionStatus',
-           );
-
-%FUNCS = (
-            %SNMP::Info::FUNCS,
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::Bridge::FUNCS,
-            # From agPortCurCfgTable
-            'ag_p_cfg_idx'        => 'agPortCurCfgIndx',
-            'ag_p_cfg_pref'       => 'agPortCurCfgPrefLink',
-            'ag_p_cfg_pvid'       => 'agPortCurCfgPVID',
-            'ag_p_cfg_fe_auto'    => 'agPortCurCfgFastEthAutoNeg',
-            'ag_p_cfg_fe_mode'    => 'agPortCurCfgFastEthMode',
-            'ag_p_cfg_ge_auto'    => 'agPortCurCfgGigEthAutoNeg',
-            'ag_p_cfg_name'       => 'agPortCurCfgPortName',
-            # From portInfoTable
-            'p_info_idx'     => 'portInfoIndx',
-            'p_info_mode'    => 'portInfoMode',
-            # From portInfoTable
-            'ip_cfg_vlan'     => 'ipCurCfgIntfVlan',
-         );
-         
-%MUNGE = (
-            %SNMP::Info::MUNGE,
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::Bridge::MUNGE,
-         );
-
-sub model {
-    my $alteon = shift;
-    my $desc = $alteon->description();
-    return undef unless defined $desc;
-
-    return 'AD2' if ($desc =~ /AD2/);
-    return 'AD3' if ($desc =~ /AD3/);
-    return 'AD4' if ($desc =~ /AD4/);
-    return '180' if ($desc =~ /180/);
-    return '183' if ($desc =~ /183/);
-    return '184' if ($desc =~ /184/);
-    
-    return $desc;
-}
-
-sub vendor {
-    return 'nortel';
-}
-
-sub os {
-    return 'webos';
-}
-
-sub os_ver {
-    my $alteon = shift;
-    my $version = $alteon->sw_ver();
-    return undef unless defined $version;
-
-    return $version;
-}
-
-sub interfaces {
-    my $alteon = shift;
-    my $interfaces = $alteon->i_index();
-    my $descriptions = $alteon->i_description();
-
-    my %interfaces = ();
-    foreach my $iid (keys %$interfaces){
-        my $desc = $descriptions->{$iid};
-        next unless defined $desc;
-
-        if ($desc =~ /(^net\d+)/) {
-            $desc  = $1;
-        }
-        elsif (($iid > 256) and ($iid < 266)) {
-            $desc = ($iid % 256);
-        }
-        $interfaces{$iid} = $desc;
-    }
-    return \%interfaces;
-}
-
-sub i_duplex {
-    my $alteon = shift;
-    
-    my $p_mode = $alteon->p_info_mode();
-    
-    my %i_duplex;
-    foreach my $if (keys %$p_mode){
-        my $duplex = $p_mode->{$if};
-        next unless defined $duplex; 
-    
-        $duplex = 'half' if $duplex =~ /half/i;
-        $duplex = 'full' if $duplex =~ /full/i;
-        
-        my $idx = $if + 256;
-        
-        $i_duplex{$idx}=$duplex; 
-    }
-    return \%i_duplex;
-}
-
-sub i_duplex_admin {
-    my $alteon = shift;
-
-    my $ag_pref = $alteon->ag_p_cfg_pref();
-    my $ag_fe_auto = $alteon->ag_p_cfg_fe_auto();
-    my $ag_fe_mode = $alteon->ag_p_cfg_fe_mode();
-    my $ag_ge_auto = $alteon->ag_p_cfg_ge_auto();
- 
-    my %i_duplex_admin;
-    foreach my $if (keys %$ag_pref){
-        my $pref = $ag_pref->{$if};
-        next unless defined $pref;
-        
-        my $string = 'other';        
-        if ($pref =~ /gigabit/i) {
-            my $ge_auto = $ag_ge_auto->{$if};
-            $string = 'full' if ($ge_auto =~ /off/i);
-            $string = 'auto' if ($ge_auto =~ /on/i);
-        }
-        elsif ($pref =~ /fast/i) {
-            my $fe_auto = $ag_fe_auto->{$if};
-            my $fe_mode = $ag_fe_mode->{$if};
-            $string = 'half' if ($fe_mode =~ /half/i and $fe_auto =~ /off/i);
-            $string = 'full' if ($fe_mode =~ /full/i and $fe_auto =~ /off/i);
-            $string = 'auto' if $fe_auto =~ /on/i;
-        }
-        my $idx = $if + 256;
-        
-        $i_duplex_admin{$idx}=$string; 
-    }
-    return \%i_duplex_admin;
-}
-
-sub i_vlan {
-    my $alteon = shift;
-
-    my $ag_vlans  = $alteon->ag_p_cfg_pvid();
-    my $ip_vlans  = $alteon->ip_cfg_vlan();
-
-
-    my %i_vlan;
-    foreach my $if (keys %$ip_vlans){
-        my $ip_vlanid = $ip_vlans->{$if};
-        next unless defined $ip_vlanid;
-        
-        $i_vlan{$if}=$ip_vlanid; 
-    }
-    foreach my $if (keys %$ag_vlans){
-        my $ag_vlanid = $ag_vlans->{$if};
-        next unless defined $ag_vlanid;
-        
-        my $idx = $if + 256;   
-        $i_vlan{$idx}=$ag_vlanid; 
-    }
-    return \%i_vlan;
-}
-
-sub i_name {
-    my $alteon = shift;
-    my $p_name = $alteon->ag_p_cfg_name();
-
-    my %i_name;
-    foreach my $iid (keys %$p_name){
-        my $name = $p_name->{$iid};
-        next unless defined $name;
-        my $idx = $iid + 256;
-        $i_name{$idx} = $name;
-    }
-    return \%i_name;
-}
-
-# Bridge MIB does not map Bridge Port to ifIndex correctly
-sub bp_index {
-    my $alteon = shift;
-    my $b_index = $alteon->orig_bp_index();
-
-    my %bp_index;
-    foreach my $iid (keys %$b_index){
-        my $port = $b_index->{$iid};
-        next unless defined $port;
-        $port = $port + 256;
-
-        $bp_index{$iid} = $port;
-    }
-    return \%bp_index;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::AlteonAD - Perl5 Interface to Nortel Networks' Alteon Ace
-Director Series Layer 2-7 Switches.
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $alteon = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $alteon->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Abstraction subclass for Layer 2-7 load balancing switches running Nortel Networks'
-Alteon Web OS Traffic Control Software.
-
-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(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info
-
-=item SNMP::Info::Bridge
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item ALTEON-TIGON-SWITCH-MIB
-
-=item ALTEON-TS-PHYSICAL-MIB
-
-=item ALTEON-TS-NETWORK-MIB
-
-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, Alteon,
-Alteon Web OS Traffic Control Software, Software.  Filter on mibs and download
-the latest version's archive.
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::Bridge/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $alteon->model()
-
-Returns the model extracted from B<sysDescr>
-
-=item $alteon->vendor()
-
-Returns 'nortel'
-
-=item $alteon->os()
-
-Returns 'webos'
-
-=item $alteon->os_ver()
-
-Returns the software version reported by B<agSoftwareVersion>
-
-=item $alteon->tftp_action()
-
-(B<agTftpAction>)
-
-=item $alteon->tftp_host()
-
-(B<agTftpServer>)
-
-=item $alteon->tftp_file()
-
-(B<agTftpCfgFileName>)
-
-=item $alteon->tftp_result()
-
-(B<agTftpLastActionStatus>)
-
-=back
-
-=head2 Globals imported from SNMP::Info
-
-See documentation in L<SNMP::Info/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Bridge
-
-See documentation in L<SNMP::Info::Bridge/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $alteon->interfaces()
-
-Returns reference to the map between IID and physical port.
-
-Utilizes description for network interfaces.  Ports are determined by
-formula (ifIndex mod 256).
-
-=item $alteon->i_duplex()
-
-Returns reference to hash.  Maps port operational duplexes to IIDs.
-
-=item $alteon->i_duplex_admin()
-
-Returns reference to hash.  Maps port admin duplexes to IIDs.
-
-=item $alteon->i_vlan()
-
-Returns reference to hash.  Maps port VLAN ID to IIDs.
-
-=item $alteon->i_name()
-
-Maps (B<agPortCurCfgPortName>) to port and returns the human set port name if exists.
-
-=item $alteon->bp_index()
-
-Returns a mapping between ifIndex and the Bridge Table.
-
-=back
-
-=head2 Table Methods imported from SNMP::Info
-
-See documentation in L<SNMP::Info/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Bridge
-
-See documentation in L<SNMP::Info::Bridge/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/C3550.pm

@@ -1,440 +0,0 @@
-# SNMP::Info::Layer3::C3550
-# Max Baker
-#
-# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
-# Copyright (c) 2003, Regents of the University of California
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::C3550;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::CiscoVTP;
-use SNMP::Info::CiscoStack;
-use SNMP::Info::CDP;
-use SNMP::Info::CiscoStats;
-use SNMP::Info::CiscoImage;
-use SNMP::Info::CiscoPortSecurity;
-use SNMP::Info::CiscoPower;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-@SNMP::Info::Layer3::C3550::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CiscoStack 
-                                     SNMP::Info::CDP SNMP::Info::CiscoStats
-                                     SNMP::Info::CiscoPortSecurity
-                                     SNMP::Info::CiscoImage SNMP::Info::CiscoPower
-                                     SNMP::Info::Layer3
-                                     Exporter/;
-@SNMP::Info::Layer3::C3550::EXPORT_OK = qw//;
-
-%MIBS =    (
-            %SNMP::Info::Layer3::MIBS,
-            %SNMP::Info::CiscoPower::MIBS,
-            %SNMP::Info::CiscoPortSecurity::MIBS,
-            %SNMP::Info::CiscoImage::MIBS,
-            %SNMP::Info::CiscoStats::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            %SNMP::Info::CiscoStack::MIBS,
-            %SNMP::Info::CiscoVTP::MIBS,
-           );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::CiscoPower::GLOBALS,
-            %SNMP::Info::CiscoPortSecurity::GLOBALS,
-            %SNMP::Info::CiscoImage::GLOBALS,
-            %SNMP::Info::CiscoStats::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::CiscoStack::GLOBALS,
-            %SNMP::Info::CiscoVTP::GLOBALS,
-            'ports2'      => 'ifNumber',
-           );
-
-%FUNCS = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::CiscoPower::FUNCS,
-            %SNMP::Info::CiscoPortSecurity::FUNCS,
-            %SNMP::Info::CiscoImage::FUNCS,
-            %SNMP::Info::CiscoStats::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::CiscoStack::FUNCS,
-            %SNMP::Info::CiscoVTP::FUNCS,
-         );
-
-%MUNGE = (
-            # Inherit all the built in munging
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::CiscoPower::MUNGE,
-            %SNMP::Info::CiscoPortSecurity::MUNGE,
-            %SNMP::Info::CiscoImage::MUNGE,
-            %SNMP::Info::CiscoStats::MUNGE,
-            %SNMP::Info::CDP::MUNGE,
-            %SNMP::Info::CiscoStack::MUNGE,
-            %SNMP::Info::CiscoVTP::MUNGE,
-         );
-
-sub vendor {
-    return 'cisco';
-}
-
-sub model {
-    my $c3550 = shift;
-    my $id = $c3550->id();
-    my $model = &SNMP::translateObj($id) || $id;
-    $model =~ s/^catalyst//;
-
-    # turn 355048 into 3550-48
-    if ($model =~ /^(35\d\d)(\d\d(T|G)?)$/) {
-        $model = "$1-$2";
-    }
-    return $model;
-}
-
-# Ports is encoded into the model number
-sub ports {
-    my $c3550 = shift;
-
-    my $ports2 = $c3550->ports2();    
-
-    my $id = $c3550->id();
-    my $model = &SNMP::translateObj($id);
-    if ($model =~ /(12|24|48)(C|T|TS|G|TS-E|TS-S|T-E)?$/) {
-        return $1;
-    }
-    return $ports2;
-}
-
-#  Verions prior to 12.1(22)EA1a use the older CiscoStack method
-#  Newer versions use the ETHERLIKE-MIB to report operational duplex.
-#  See http://www.ciscosystems.com/en/US/products/hw/switches/ps646/prod_release_note09186a00802a08ee.html
-
-sub i_duplex {
-    my $c3550 = shift;
-    my $partial = shift;
-
-    my $el_duplex = $c3550->el_duplex($partial);
-
-    # Newer software     
-    if (defined $el_duplex and scalar(keys %$el_duplex)){
-        my %i_duplex;
-        foreach my $el_port (keys %$el_duplex){
-            my $duplex = $el_duplex->{$el_port};
-            next unless defined $duplex;
-
-            $i_duplex{$el_port} = 'half' if $duplex =~ /half/i;
-            $i_duplex{$el_port} = 'full' if $duplex =~ /full/i;
-        }
-        return \%i_duplex;
-    }
-    # Fall back to CiscoStack method
-    else {
-        return $c3550->SUPER::i_duplex($partial);
-    }
-}
-
-# Software >= 12.1(22)EA1a uses portDuplex as admin setting
-
-sub i_duplex_admin {
-    my $c3550 = shift;
-    my $partial = shift;
-
-    my $el_duplex = $c3550->el_duplex($partial);
-
-    # Newer software     
-    if (defined $el_duplex and scalar(keys %$el_duplex)){
-        my $p_port   = $c3550->p_port()   || {};
-        my $p_duplex = $c3550->p_duplex() || {};
-        
-        my $i_duplex_admin = {};
-        foreach my $port (keys %$p_duplex) {
-            my $iid = $p_port->{$port};
-            next unless defined $iid;
-            next if (defined $partial and $iid !~ /^$partial$/);
-            
-            $i_duplex_admin->{$iid} = $p_duplex->{$port};
-        }
-        return $i_duplex_admin;
-    }
-    # Fall back to CiscoStack method
-    else {
-        return $c3550->SUPER::i_duplex_admin($partial);
-    }    
-}
-
-sub set_i_duplex_admin {
-    # map a textual duplex to an integer one the switch understands
-    my %duplexes = qw/half 1 full 2 auto 4/;
-
-    my $c3550 = shift;
-    my ($duplex, $iid) = @_;
-
-    my $el_duplex = $c3550->el_duplex($iid);
-
-    # Auto duplex only supported on newer software
-    if (defined $el_duplex and scalar(keys %$el_duplex)){
-        my $p_port  = $c3550->p_port() || {};
-        my %reverse_p_port = reverse %$p_port;
-
-       $duplex = lc($duplex);
-
-       return 0 unless defined $duplexes{$duplex};
-
-       $iid = $reverse_p_port{$iid};
-
-       return $c3550->set_p_duplex($duplexes{$duplex}, $iid);
-    }
-    else {
-        $c3550->SUPER::set_i_duplex_admin;
-    }
-}
-
-sub cisco_comm_indexing {
-    1;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::C3550 - SNMP Interface to Cisco Catalyst 3550 Layer 2/3
-Switches running IOS
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $c3550 = new SNMP::Info(
-                        AutoSpecify => 1,
-                        Debug       => 1,
-                        # These arguments are passed directly to SNMP::Session
-                        DestHost    => 'myswitch',
-                        Community   => 'public',
-                        Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $c3550->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Abstraction subclass for Cisco Catalyst 3550 Layer 2/3 Switches.  
-
-These devices run IOS but have some of the same charactersitics as the
-Catalyst WS-C family (5xxx,6xxx).  For example, forwarding tables are held in
-VLANs, and extened interface information is gleened from CISCO-SWITCH-MIB.
-
-For speed or debugging purposes you can call the subclass directly, but not
-after determining a more specific class using the method above. 
-
- my $c3550 = new SNMP::Info::Layer3::C3550(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer3
-
-=item SNMP::Info::CiscoPower
-
-=item SNMP::Info::CiscoPortSecurity
-
-=item SNMP::Info::CiscoVTP
-
-=item SNMP::Info::CiscoStack
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::CiscoStats
-
-=item SNMP::Info::CiscoImage
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPower/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPortSecurity/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoVTP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStack/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStats/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoImage/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $c3550->vendor()
-
-    Returns 'cisco'
-
-=item $c3550->model()
-
-Will take the translated model number and try to format it better.
-
- 355048 -> 3550-48
- 355012G -> 3550-12G
-
-=item $c3550->ports()
-
-Trys to cull the number of ports from the model number.
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoPower
-
-See documentation in L<SNMP::Info::CiscoPower/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CiscoStack
-
-See documentation in L<SNMP::Info::CiscoStack/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $c3550->i_duplex()
-
-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().
-
-See L<SNMP::Info::Etherlike> for el_duplex() method and
-L<SNMP::Info::CiscoStack> for its i_duplex() method.
-
-=item $c3550->i_duplex_admin()
-
-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().
-
-See L<SNMP::Info::CiscoStack> 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.
-
-Speed choices are 'auto', 'half', 'full'.
-
-Crosses $c3550->p_port() with $c3550->p_duplex() to utilize port ifIndex.
-
-    Example:
-    my %if_map = reverse %{$c3550->interfaces()};
-    $c3550->set_i_duplex_admin('auto', $if_map{'FastEthernet0/1'}) 
-        or die "Couldn't change port duplex. ",$c3550->error(1);
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPower
-
-See documentation in L<SNMP::Info::CiscoPower/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStack
-
-See documentation in L<SNMP::Info::CiscoStack/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/C4000.pm

@@ -1,283 +0,0 @@
-# SNMP::Info::Layer3::C4000
-# Bill Fenner
-#
-# Copyright (c) 2006 Bill Fenner
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the Author, nor 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::C4000;
-# $Id$
-
-use strict;
-
-use Exporter;
-
-use SNMP::Info::CiscoVTP;
-use SNMP::Info::CDP;
-use SNMP::Info::CiscoStats;
-use SNMP::Info::CiscoImage;
-use SNMP::Info::CiscoPortSecurity;
-use SNMP::Info::CiscoConfig;
-use SNMP::Info::MAU;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-$VERSION = '1.07';
-@SNMP::Info::Layer3::C4000::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP
-                                    SNMP::Info::CiscoStats SNMP::Info::CiscoImage
-                                    SNMP::Info::CiscoPortSecurity
-                                    SNMP::Info::CiscoConfig SNMP::Info::MAU 
-                                    SNMP::Info::Layer3 Exporter/;
-@SNMP::Info::Layer3::C4000::EXPORT_OK = qw//;
-
-%MIBS =    ( 
-            %SNMP::Info::Layer3::MIBS,
-            %SNMP::Info::MAU::MIBS,
-            %SNMP::Info::CiscoConfig::MIBS,
-            %SNMP::Info::CiscoPortSecurity::MIBS,
-            %SNMP::Info::CiscoImage::MIBS,
-            %SNMP::Info::CiscoStats::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            %SNMP::Info::CiscoVTP::MIBS,
-            'CISCO-ENVMON-MIB' => 'ciscoEnvMonMIB',
-           );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::MAU::GLOBALS,
-            %SNMP::Info::CiscoConfig::GLOBALS,
-            %SNMP::Info::CiscoPortSecurity::GLOBALS,
-            %SNMP::Info::CiscoImage::GLOBALS,
-            %SNMP::Info::CiscoStats::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::CiscoVTP::GLOBALS,
-	    'ps1_type' => 'ciscoEnvMonSupplyStatusDescr.1',
-	    'ps1_status' => 'ciscoEnvMonSupplyState.1',
-	    'ps2_type' => 'ciscoEnvMonSupplyStatusDescr.2',
-	    'ps2_status' => 'ciscoEnvMonSupplyState.2',
-           );
-
-%FUNCS = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::MAU::FUNCS,
-            %SNMP::Info::CiscoConfig::FUNCS,
-            %SNMP::Info::CiscoPortSecurity::FUNCS,
-            %SNMP::Info::CiscoImage::FUNCS,
-            %SNMP::Info::CiscoStats::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::CiscoVTP::FUNCS,
-            'fan_state' => 'ciscoEnvMonFanState',
-            'fan_descr' => 'ciscoEnvMonFanStatusDescr',
-         );
-
-%MUNGE = (
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::MAU::MUNGE,
-            %SNMP::Info::CiscoConfig::MUNGE,
-            %SNMP::Info::CiscoPortSecurity::MUNGE,
-            %SNMP::Info::CiscoImage::MUNGE,
-            %SNMP::Info::CiscoStats::MUNGE,
-            %SNMP::Info::CDP::MUNGE,
-            %SNMP::Info::CiscoVTP::MUNGE,
-         );
-
-# Override Inheritance for these specific methods
-# use MAU-MIB for admin. duplex and admin. speed
-*SNMP::Info::Layer3::C4000::i_duplex_admin = \&SNMP::Info::MAU::mau_i_duplex_admin;
-*SNMP::Info::Layer3::C4000::i_speed_admin = \&SNMP::Info::MAU::mau_i_speed_admin;
-
-sub fan {
-    my $c4000 = shift;
-    my $fan_state = $c4000->fan_state();
-    my $fan_descr = $c4000->fan_descr();
-    my $ret = "";
-    my $s = "";
-    foreach my $i (sort {$a <=> $b} keys %$fan_state) {
-	$ret .= $s . $fan_descr->{$i} . ": " . $fan_state->{$i};
-	$s = ", ";
-    }
-    return undef if ($s eq "");
-    $ret;
-}
-
-sub cisco_comm_indexing { 1; }
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::C4000 - SNMP Interface to Cisco Catalyst 4000 Layer 2/3
-Switches running IOS
-
-=head1 AUTHOR
-
-Bill Fenner
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $c4000 = new SNMP::Info(
-                        AutoSpecify => 1,
-                        Debug       => 1,
-                        # These arguments are passed directly to SNMP::Session
-                        DestHost    => 'myswitch',
-                        Community   => 'public',
-                        Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $c4000->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Abstraction subclass for Cisco Catalyst 4000 Layer 2/3 Switches.  
-
-For speed or debugging purposes you can call the subclass directly, but not
-after determining a more specific class using the method above. 
-
- my $c4000 = new SNMP::Info::Layer3::C4000(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::CiscoVTP
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::CiscoStats
-
-=item SNMP::Info::CiscoImage
-
-=item SNMP::Info::CiscoPortSecurity
-
-=item SNMP::Info::CiscoConfig
-
-=item SNMP::Info::MAU
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::CiscoVTP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStats/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoImage/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPortSecurity/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoConfig/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::MAU/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=head2 Global Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoConfig
-
-See documentation in L<SNMP::Info::CiscoConfig/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::MAU
-
-See documentation in L<SNMP::Info::MAU/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Table Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoConfig
-
-See documentation in L<SNMP::Info::CiscoConfig/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::MAU
-
-See documentation in L<SNMP::Info::MAU/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/C6500.pm

@@ -1,415 +0,0 @@
-# SNMP::Info::Layer3::C6500
-# Max Baker
-#
-# Copyright (c) 2003,2004,2005 Max Baker
-# All rights reserved.
-# 
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the Author, nor 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::C6500;
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::CiscoVTP;
-use SNMP::Info::CiscoStack;
-use SNMP::Info::CDP;
-use SNMP::Info::CiscoStats;
-use SNMP::Info::CiscoImage;
-use SNMP::Info::CiscoPortSecurity;
-use SNMP::Info::CiscoConfig;
-use SNMP::Info::CiscoPower;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-$VERSION = '1.07';
-@SNMP::Info::Layer3::C6500::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CiscoStack 
-                                    SNMP::Info::CDP SNMP::Info::CiscoStats 
-                                    SNMP::Info::CiscoImage 
-                                    SNMP::Info::CiscoPortSecurity
-                                    SNMP::Info::CiscoConfig
-                                    SNMP::Info::CiscoPower
-                                    SNMP::Info::Layer3
-                                    Exporter/;
-@SNMP::Info::Layer3::C6500::EXPORT_OK = qw//;
-
-%MIBS =    (
-            %SNMP::Info::Layer3::MIBS,
-            %SNMP::Info::CiscoPower::MIBS,
-            %SNMP::Info::CiscoConfig::MIBS,
-            %SNMP::Info::CiscoPortSecurity::MIBS,
-            %SNMP::Info::CiscoImage::MIBS,
-            %SNMP::Info::CiscoStats::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            %SNMP::Info::CiscoStack::MIBS,
-            %SNMP::Info::CiscoVTP::MIBS,
-           );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::CiscoPower::GLOBALS,
-            %SNMP::Info::CiscoConfig::GLOBALS,
-            %SNMP::Info::CiscoPortSecurity::GLOBALS,
-            %SNMP::Info::CiscoImage::GLOBALS,
-            %SNMP::Info::CiscoStats::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::CiscoStack::GLOBALS,
-            %SNMP::Info::CiscoVTP::GLOBALS,
-           );
-
-%FUNCS = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::CiscoPower::FUNCS,
-            %SNMP::Info::CiscoConfig::FUNCS,
-            %SNMP::Info::CiscoPortSecurity::FUNCS,
-            %SNMP::Info::CiscoImage::FUNCS,
-            %SNMP::Info::CiscoStats::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::CiscoStack::FUNCS,
-            %SNMP::Info::CiscoVTP::FUNCS,
-         );
-
-%MUNGE = (
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::CiscoPower::MUNGE,
-            %SNMP::Info::CiscoConfig::MUNGE,
-            %SNMP::Info::CiscoPortSecurity::MUNGE,
-            %SNMP::Info::CiscoImage::MUNGE,
-            %SNMP::Info::CiscoStats::MUNGE,
-            %SNMP::Info::CDP::MUNGE,
-            %SNMP::Info::CiscoStack::MUNGE,
-            %SNMP::Info::CiscoVTP::MUNGE,
-         );
-
-sub vendor {
-    return 'cisco';
-}
-
-sub cisco_comm_indexing { 1; }
-
-#  Newer versions use the ETHERLIKE-MIB to report operational duplex.
-
-sub i_duplex {
-    my $c6500 = shift;
-    my $partial = shift;
-
-    my $el_duplex = $c6500->el_duplex($partial);
-
-    # Newer software     
-    if (defined $el_duplex and scalar(keys %$el_duplex)){
-        my %i_duplex;
-        foreach my $el_port (keys %$el_duplex){
-            my $duplex = $el_duplex->{$el_port};
-            next unless defined $duplex;
-
-            $i_duplex{$el_port} = 'half' if $duplex =~ /half/i;
-            $i_duplex{$el_port} = 'full' if $duplex =~ /full/i;
-        }
-        return \%i_duplex;
-    }
-    # Fall back to CiscoStack method
-    else {
-        return $c6500->SUPER::i_duplex($partial);
-    }
-}
-
-# Newer software uses portDuplex as admin setting
-
-sub i_duplex_admin {
-    my $c6500 = shift;
-    my $partial = shift;
-
-    my $el_duplex = $c6500->el_duplex($partial);
-
-    # Newer software     
-    if (defined $el_duplex and scalar(keys %$el_duplex)){
-        my $p_port   = $c6500->p_port()   || {};
-        my $p_duplex = $c6500->p_duplex() || {};
-        
-        my $i_duplex_admin = {};
-        foreach my $port (keys %$p_duplex) {
-            my $iid = $p_port->{$port};
-            next unless defined $iid;
-            next if (defined $partial and $iid !~ /^$partial$/);
-            
-            $i_duplex_admin->{$iid} = $p_duplex->{$port};
-        }
-        return $i_duplex_admin;
-    }
-    # Fall back to CiscoStack method
-    else {
-        return $c6500->SUPER::i_duplex_admin($partial);
-    }    
-}
-
-sub set_i_duplex_admin {
-    # map a textual duplex to an integer one the switch understands
-    my %duplexes = qw/half 1 full 2 auto 4/;
-
-    my $c6500 = shift;
-    my ($duplex, $iid) = @_;
-
-    my $el_duplex = $c6500->el_duplex($iid);
-
-    # Auto duplex only supported on newer software
-    if (defined $el_duplex and scalar(keys %$el_duplex)){
-        my $p_port  = $c6500->p_port() || {};
-        my %reverse_p_port = reverse %$p_port;
-
-       $duplex = lc($duplex);
-
-       return 0 unless defined $duplexes{$duplex};
-
-       $iid = $reverse_p_port{$iid};
-
-       return $c6500->set_p_duplex($duplexes{$duplex}, $iid);
-    }
-    else {
-        $c6500->SUPER::set_i_duplex_admin;
-    }
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::C6500 - SNMP Interface to Cisco Catalyst 6500 Layer 2/3
-Switches running IOS and/or CatOS
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $c6500 = new SNMP::Info(
-                        AutoSpecify => 1,
-                        Debug       => 1,
-                        # These arguments are passed directly to SNMP::Session
-                        DestHost    => 'myswitch',
-                        Community   => 'public',
-                        Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $c6500->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Abstraction subclass for Cisco Catalyst 6500 Layer 2/3 Switches.  
-
-These devices run IOS but have some of the same charactersitics 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.
-
-For speed or debugging purposes you can call the subclass directly, but not
-after determining a more specific class using the method above. 
-
- my $c6500 = new SNMP::Info::Layer3::C6500(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::CiscoVTP
-
-=item SNMP::Info::CiscoStack
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::CiscoStats
-
-=item SNMP::Info::CiscoImage
-
-=item SNMP::Info::CiscoPortSecurity
-
-=item SNMP::Info::CiscoConfig
-
-=item SNMP::Info::CiscoPower
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::CiscoVTP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStack/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStats/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoImage/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPortSecurity/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoConfig/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPower/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $c6500->vendor()
-
-    Returns 'cisco'
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::CiscoStack
-
-See documentation in L<SNMP::Info::CiscoStack/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoConfig
-
-See documentation in L<SNMP::Info::CiscoConfig/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoPower
-
-See documentation in L<SNMP::Info::CiscoPower/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $c6500->i_duplex()
-
-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().
-
-See L<SNMP::Info::Etherlike> for el_duplex() method and
-L<SNMP::Info::CiscoStack> for its i_duplex() method.
-
-=item $c6500->i_duplex_admin()
-
-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().
-
-See L<SNMP::Info::CiscoStack> 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.
-
-Speed choices are 'auto', 'half', 'full'.
-
-Crosses $c6500->p_port() with $c6500->p_duplex() to utilize port ifIndex.
-
-    Example:
-    my %if_map = reverse %{$c6500->interfaces()};
-    $c6500->set_i_duplex_admin('auto', $if_map{'FastEthernet0/1'}) 
-        or die "Couldn't change port duplex. ",$c6500->error(1);
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStack
-
-See documentation in L<SNMP::Info::CiscoStack/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPortSecurity
-
-See documentation in L<SNMP::Info::CiscoPortSecurity/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoConfig
-
-See documentation in L<SNMP::Info::CiscoConfig/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPower
-
-See documentation in L<SNMP::Info::CiscoPower/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut
-

Info/Layer3/Cisco.pm

@@ -1,313 +0,0 @@
-# SNMP::Info::Layer3::Cisco
-# Max Baker
-#
-# Copyright (c) 2004 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.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::Cisco;
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::CiscoVTP;
-use SNMP::Info::CDP;
-use SNMP::Info::CiscoStats;
-use SNMP::Info::CiscoImage;
-use SNMP::Info::CiscoRTT;
-use SNMP::Info::CiscoQOS;
-use SNMP::Info::CiscoConfig;
-use SNMP::Info::CiscoPower;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-$VERSION = '1.07';
-@SNMP::Info::Layer3::Cisco::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP
-                                    SNMP::Info::CiscoStats SNMP::Info::CiscoImage 
-                                    SNMP::Info::CiscoRTT  SNMP::Info::CiscoQOS
-                                    SNMP::Info::CiscoConfig SNMP::Info::CiscoPower
-                                    SNMP::Info::Layer3
-                                    Exporter/;
-@SNMP::Info::Layer3::Cisco::EXPORT_OK = qw//;
-
-%MIBS = (
-            %SNMP::Info::Layer3::MIBS,
-            %SNMP::Info::CiscoPower::MIBS,
-            %SNMP::Info::CiscoConfig::MIBS,
-            %SNMP::Info::CiscoQOS::MIBS,
-            %SNMP::Info::CiscoRTT::MIBS,
-            %SNMP::Info::CiscoImage::MIBS,
-            %SNMP::Info::CiscoStats::MIBS,
-            %SNMP::Info::CDP::MIBS,
-            %SNMP::Info::CiscoVTP::MIBS,
-            'CISCO-EIGRP-MIB' => 'cEigrpAsRouterId',
-        );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::CiscoPower::GLOBALS,
-            %SNMP::Info::CiscoConfig::GLOBALS,
-            %SNMP::Info::CiscoQOS::GLOBALS,
-            %SNMP::Info::CiscoRTT::GLOBALS,
-            %SNMP::Info::CiscoImage::GLOBALS,
-            %SNMP::Info::CiscoStats::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::CiscoVTP::GLOBALS,
-            'eigrp_id'     => 'cEigrpAsRouterId',
-           );
-
-%FUNCS = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::CiscoPower::FUNCS,
-            %SNMP::Info::CiscoConfig::FUNCS,
-            %SNMP::Info::CiscoQOS::FUNCS,
-            %SNMP::Info::CiscoRTT::FUNCS,
-            %SNMP::Info::CiscoImage::FUNCS,
-            %SNMP::Info::CiscoStats::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::CiscoVTP::FUNCS,
-            # EIGRP
-            'eigrp_peers' => 'cEigrpPeerAddr',
-         );
-
-%MUNGE = (
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::CiscoPower::MUNGE,
-            %SNMP::Info::CiscoConfig::MUNGE,
-            %SNMP::Info::CiscoQOS::MUNGE,
-            %SNMP::Info::CiscoRTT::MUNGE,
-            %SNMP::Info::CiscoImage::MUNGE,
-            %SNMP::Info::CiscoStats::MUNGE,
-            %SNMP::Info::CDP::MUNGE,
-            %SNMP::Info::CiscoVTP::MUNGE,
-            'eigrp_peers' => \&SNMP::Info::munge_ip,
-         );
-
-sub i_vlan {
-	my ($cisco) = shift;
-	my ($partial) = shift;
-
-	my ($i_type) = $cisco->i_type($partial);
-	my ($i_descr) = $cisco->i_description($partial);
-	my %i_vlan;
-
-	foreach my $idx (keys %$i_descr) {
-		if ($i_type->{$idx} eq 'l2vlan' || $i_type->{$idx} eq 135) {
-			if ($i_descr->{$idx} =~ /\.(\d+)$/) {
-				$i_vlan{$idx} = $1;
-			}
-		}
-	}
-	\%i_vlan;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Cisco - SNMP Interface to L3 and L2+L3 IOS Cisco Device
-that are not covered in other classes.
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $cisco = new SNMP::Info(
-                        AutoSpecify => 1,
-                        Debug       => 1,
-                        # These arguments are passed directly to SNMP::Session
-                        DestHost    => 'myswitch',
-                        Community   => 'public',
-                        Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $cisco->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Subclass for Generic Cisco Routers running IOS
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::CiscoVTP
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::CiscoStats
-
-=item SNMP::Info::CiscoImage
-
-=item SNMP::Info::CiscoRTT
-
-=item SNMP::Info::CiscoQOS
-
-=item SNMP::Info::CiscoConfig
-
-=item SNMP::Info::Power
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item CISCO-EIGRP-MIB
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::CiscoVTP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoStats/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoImage/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoRTT/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoQOS/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoConfig/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::CiscoPower/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $cisco->vendor()
-
-    Returns 'cisco'
-
-=item $cisco->eigrp_id()
-
-(B<cEigrpAsRouterId>)
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoRTT
-
-See documentation in L<SNMP::Info::CiscoRTT/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoQOS
-
-See documentation in L<SNMP::Info::CiscoQOS/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoConfig
-
-See documentation in L<SNMP::Info::CiscoConfig/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CiscoPower
-
-See documentation in L<SNMP::Info::CiscoPower/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=over
-
-=item $cisco->eigrp_peers()
-
-Returns EIGRP peer IP addresses
-
-(B<cEigrpPeerAddr>)
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::CiscoVTP
-
-See documentation in L<SNMP::Info::CiscoVTP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoStats
-
-See documentation in L<SNMP::Info::CiscoStats/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoImage
-
-See documentation in L<SNMP::Info::CiscoImage/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoRTT
-
-See documentation in L<SNMP::Info::CiscoRTT/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoQOS
-
-See documentation in L<SNMP::Info::CiscoQOS/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoConfig
-
-See documentation in L<SNMP::Info::CiscoConfig/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CiscoPower
-
-See documentation in L<SNMP::Info::CiscoPower/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/Dell.pm

@@ -1,374 +0,0 @@
-# SNMP::Info::Layer3::Dell - SNMP Interface to Dell devices
-# Eric Miller
-#
-# Copyright (c) 2006 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 University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::Dell;
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
-
-$VERSION = '1.07';
-
-@SNMP::Info::Layer3::Dell::ISA = qw/SNMP::Info::Layer3 Exporter/;
-@SNMP::Info::Layer3::Dell::EXPORT_OK = qw//;
-
-%MIBS = ( %SNMP::Info::Layer3::MIBS,
-          'RADLAN-Physicaldescription-MIB'   => 'rlPhdStackReorder',
-          'RADLAN-rlInterfaces'              => 'rlIfNumOfLoopbackPorts',
-          'RADLAN-HWENVIROMENT'              => 'rlEnvPhysicalDescription',
-          'Dell-Vendor-MIB'                  => 'productIdentificationVersion',
-        );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            'os_ver'        => 'productIdentificationVersion',
-            'dell_id_name'  => 'productIdentificationDisplayName',
-           );
-
-%FUNCS   = (
-            %SNMP::Info::Layer3::FUNCS,
-            # RADLAN-rlInterfaces:swIfTable
-            'dell_duplex_admin' => 'swIfDuplexAdminMode',
-            'dell_duplex'       => 'swIfDuplexOperMode',
-            'dell_tag_mode'     => 'swIfTaggedMode',
-            'dell_i_type'            => 'swIfType',
-            'dell_fc_admin'     => 'swIfFlowControlMode',
-            'dell_speed_admin'  => 'swIfSpeedAdminMode',
-            'dell_auto'         => 'swIfSpeedDuplexAutoNegotiation',
-            'dell_fc'           => 'swIfOperFlowControlMode',
-            # RADLAN-Physicaldescription-MIB:rlPhdUnitGenParamTable
-            'dell_unit'      => 'rlPhdUnitGenParamStackUnit',
-            'dell_sw_ver'    => 'rlPhdUnitGenParamSoftwareVersion',           
-            'dell_fw_ver'    => 'rlPhdUnitGenParamFirmwareVersion',
-            'dell_hw_ver'    => 'rlPhdUnitGenParamHardwareVersion',
-            'dell_serial_no' => 'rlPhdUnitGenParamSerialNum',
-            'dell_asset_no'  => 'rlPhdUnitGenParamAssetTag',
-            # RADLAN-COPY-MIB:rlCopyTable
-            'dell_cp_idx'     => 'rlCopyIndex',
-            'dell_cp_sloc'    => 'rlCopySourceLocation',           
-            'dell_cp_sip'     => 'rlCopySourceIpAddress',
-            'dell_cp_sunit'   => 'rlCopySourceUnitNumber',
-            'dell_cp_sfile'   => 'rlCopySourceFileName',
-            'dell_cp_stype'   => 'rlCopySourceFileType',
-            'dell_cp_dloc'    => 'rlCopyDestinationLocation',
-            'dell_cp_dip'     => 'rlCopyDestinationIpAddress',           
-            'dell_cp_dunit'   => 'rlCopyDestinationUnitNumber',
-            'dell_cp_dfile'   => 'rlCopyDestinationFileName',
-            'dell_cp_dtype'   => 'rlCopyDestinationFileType',
-            'dell_cp_state'   => 'rlCopyOperationState',
-            'dell_cp_bkgnd'   => 'rlCopyInBackground',
-            'dell_cp_rstatus' => 'rlCopyRowStatus',
-            # RADLAN-HWENVIROMENT:rlEnvMonSupplyStatusTable
-            'dell_pwr_src'    => 'rlEnvMonSupplySource',
-            'dell_pwr_state'  => 'rlEnvMonSupplyState',           
-            'dell_pwr_desc'   => 'rlEnvMonSupplyStatusDescr',
-            # RADLAN-HWENVIROMENT:rlEnvMonFanStatusTable
-            'dell_fan_state' => 'rlEnvMonFanState',
-            'dell_fan_desc'  => 'rlEnvMonFanStatusDescr',
-           );
-
-
-%MUNGE = (
-            %SNMP::Info::Layer3::MUNGE,
-         );
-
-# Method OverRides
-
-sub bulkwalk_no { 1; }
-
-sub model {
-    my $dell = shift;
-
-    my $name = $dell->dell_id_name();
-    
-    if ($name =~ m/(\d+)/){
-        return $1;
-    }
-
-    return undef;
-}
-
-sub vendor {
-
-    return 'dell';
-}
-
-sub os {
-
-    return 'dell';
-}
-
-sub serial {
-    my $dell    = shift;
-
-    my $numbers = $dell->dell_serial_no();
-    
-    foreach my $key (keys %$numbers){
-        my $serial = $numbers->{$key};  
-        return $serial if (defined $serial and $serial !~ /^\s*$/);
-        next;
-    }
-
-    return undef;
-}
-
-# Descriptions are all the same, so use name instead
-sub interfaces {
-    my $dell = shift;
-    my $partial = shift;
-
-    my $interfaces = $dell->i_index($partial) || {};
-    my $names = $dell->orig_i_name($partial) || {};
-
-    my %interfaces = ();
-    foreach my $iid (keys %$interfaces){
-        my $name = $names->{$iid};
-        next unless defined $name;
-
-        $interfaces{$iid} = $name;
-    }
-    
-    return \%interfaces;
-}
-
-sub i_duplex_admin {
-    my $dell = shift;
-    my $partial = shift;
-    
-    my $interfaces  = $dell->interfaces($partial) || {};
-    my $dell_duplex = $dell->dell_duplex_admin($partial) || {};
-    my $dell_auto   = $dell->dell_auto($partial) || {};
- 
-    my %i_duplex_admin;
-    foreach my $if (keys %$interfaces){
-        my $duplex = $dell_duplex->{$if};
-        next unless defined $duplex;
-        my $auto = $dell_auto->{$if}||'false';
-    
-        $duplex = 'half' if ($duplex =~ /half/i and $auto =~ /false/i);
-        $duplex = 'full' if ($duplex =~ /half/i and $auto =~ /false/i);
-        $duplex = 'auto' if $auto =~ /true/i;
-        $i_duplex_admin{$if}=$duplex; 
-    }
-    return \%i_duplex_admin;
-}
-
-# Normal BRIDGE-MIB not working?  Use Q-BRIDGE-MIB for macsuck
-sub fw_mac {
-    my $dell = shift;
-    my $partial = shift;
-
-    return $dell->qb_fw_mac($partial);
-}
-
-sub fw_port {
-    my $dell = shift;
-    my $partial = shift;
-
-    return $dell->qb_fw_port($partial);
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Dell - SNMP Interface to Dell Power Connect Network Devices
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $dell = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 1
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class = $dell->class();
-
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Provides abstraction to the configuration information obtainable from an 
-Dell Power Connect 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. 
-
-my $dell = new SNMP::Info::Layer3::Dell(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Dell-Vendor-MIB
-
-=item RADLAN-Physicaldescription-MIB
-
-=item RADLAN-rlInterfaces
-
-=item RADLAN-HWENVIROMENT
-
-=item Inherited Classes' MIBs
-
-See classes listed above for their required MIBs.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $dell->os_ver()
-
-(B<productIdentificationVersion>)
-
-=item $dell->dell_id_name()
-
-(B<productIdentificationDisplayName>)
-
-=item $dell->model()
-
-Returns model type.  Returns numeric from (B<productIdentificationDisplayName>).
-
-=item $dell->vendor()
-
-Returns dell
-
-=item $dell->os()
-
-Returns dell
-
-=back
-
-=head2 Overrides
-
-=over
-
-=item $dell->bulkwalk_no
-
-Return C<1>.  Bulkwalk is currently turned off for this class.
-
-=item $dell->serial()
-
-Returns serial number. (B<rlPhdUnitGenParamSerialNum>)
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 RADLAN Interface Table (B<swIfTable>)
-
-=over
-
-=item $dell->dell_duplex_admin()
-
-(B<swIfDuplexAdminMode>)
-
-=item $dell->dell_duplex()
-
-(B<swIfDuplexOperMode>)
-
-=item $dell->dell_tag_mode()
-
-(B<swIfTaggedMode>)
-
-=item $dell->dell_i_type()
-
-(B<swIfType>)
-
-=item $dell->dell_fc_admin()
-
-(B<swIfFlowControlMode>)
-
-=item $dell->dell_speed_admin()
-
-(B<swIfSpeedAdminMode>)
-
-=item $dell->dell_auto()
-
-(B<swIfSpeedDuplexAutoNegotiation>)
-
-=item $dell->dell_fc()
-
-(B<swIfOperFlowControlMode>)
-
-=back
-
-=head2 Overrides
-
-=over
-
-=item $dell->interfaces()
-
-Returns the map between SNMP Interface Identifier (iid) and physical port name.
-Uses name instead of description since descriptions are not unique.
-
-Only returns those iids that have a name listed in $l3->i_name()
-
-=item $dell->i_duplex_admin()
-
-Returns reference to hash of iid to current link administrative duplex setting.
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/Enterasys.pm

@@ -1,506 +0,0 @@
-# SNMP::Info::Layer3::Enterasys - SNMP Interface to Enterasys devices
-# Eric Miller
-#
-# Copyright (c) 2007 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.
-# 
-# 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;
-
-use Exporter;
-use SNMP::Info::MAU;
-use SNMP::Info::LLDP;
-use SNMP::Info::CDP;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
-
-$VERSION = '1.07';
-
-@SNMP::Info::Layer3::Enterasys::ISA = qw/SNMP::Info::MAU SNMP::Info::LLDP
-                                        SNMP::Info::CDP SNMP::Info::Layer3
-                                        Exporter/;
-@SNMP::Info::Layer3::Enterasys::EXPORT_OK = qw//;
-
-%MIBS = (
-         %SNMP::Info::Layer3::MIBS,
-         %SNMP::Info::CDP::MIBS,
-         %SNMP::Info::LLDP::MIBS,
-         %SNMP::Info::MAU::MIBS,
-         'ENTERASYS-OIDS-MIB' => 'etsysOidDevice',
-        );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::CDP::GLOBALS,
-            %SNMP::Info::LLDP::GLOBALS,
-            %SNMP::Info::MAU::GLOBALS,
-            'mac'            => 'dot1dBaseBridgeAddress',
-           );
-
-%FUNCS   = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::CDP::FUNCS,
-            %SNMP::Info::LLDP::FUNCS,
-            %SNMP::Info::MAU::FUNCS,
-           );
-
-%MUNGE = (
-          %SNMP::Info::Layer3::MUNGE,
-          %SNMP::Info::CDP::MUNGE,
-          %SNMP::Info::LLDP::MUNGE,
-          %SNMP::Info::MAU::MUNGE,
-         );
-
-sub model {
-    my $enterasys = shift;
-    my $id = $enterasys->id();
-    
-    unless (defined $id){
-        print " SNMP::Info::Layer3::Enterasys::model() - Device does not support sysObjectID\n" if $enterasys->debug(); 
-        return undef;
-    }
-    
-    my $model = &SNMP::translateObj($id);
-
-    $model =~ s/^etsysOidDev//i;
-    $model =~ s/^etsysOidPhy//i;
-    return $id unless defined $model;
-
-    return $model;
-}
-
-sub vendor {
-    return 'enterasys';
-}
-
-sub os {
-    return 'enterasys';
-}
-
-sub os_ver {
-    my $enterasys = shift;
-    my $descr = $enterasys->description();
-    return undef unless defined $descr;
-
-    if ($descr =~ m/\bRev ([\d.]*)/){
-        return $1;
-    }
-
-    return undef;
-}
-
-# Use ifName as it is used for CDP and LLDP.
-sub interfaces {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    #  We need the original ifName, SUPER:: would give us a method definition
-    #  in a higher class, we could use orig_ but just call the MIB leaf since
-    #  that's what we really want anyway.
-    return $enterasys->ifName($partial) || $enterasys->i_description($partial);
-}
-
-sub i_ignore {
-    my $enterasys = shift;
-    my $partial = shift;
-    
-    my $interfaces = $enterasys->i_type($partial) || {};
-
-    my %i_ignore;
-    foreach my $if (keys %$interfaces) {
-        if ($interfaces->{$if} =~ /(rs232|tunnel|loopback|\blo\b|null)/i){
-            $i_ignore{$if}++;
-        }
-    }
-    return \%i_ignore;
-}
-
-sub i_duplex {
-    my $enterasys = shift;
-    my $partial = shift;
-    
-    return $enterasys->mau_i_duplex($partial);
-}
-
-sub i_duplex_admin {
-    my $enterasys = shift;
-    my $partial = shift;
-    
-    return $enterasys->mau_i_duplex_admin($partial);
-}
-
-# Normal BRIDGE-MIB has issues on some devices, duplicates and
-# non-increasing oids, Use Q-BRIDGE-MIB for macsuck
-sub fw_mac {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    return $enterasys->qb_fw_mac($partial);
-}
-
-sub fw_port {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    return $enterasys->qb_fw_port($partial);
-}
-
-#  Use CDP and/or LLDP
-
-sub hasCDP {
-    my $enterasys = shift;
-
-    return $enterasys->hasLLDP() || $enterasys->SUPER::hasCDP();
-}
-
-sub c_ip {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    my $cdp  = $enterasys->SUPER::c_ip($partial) || {};
-    my $lldp = $enterasys->lldp_ip($partial) || {};
-
-    my %c_ip;
-    foreach my $iid (keys %$cdp){
-        my $ip = $cdp->{$iid};
-        next unless defined $ip;
-
-        $c_ip{$iid} = $ip;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $ip = $lldp->{$iid};
-        next unless defined $ip;
-
-        $c_ip{$iid} = $ip;
-    }
-    return \%c_ip;
-}
-
-sub c_if {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    my $lldp = $enterasys->lldp_if($partial) || {};;
-    my $cdp  = $enterasys->SUPER::c_if($partial) || {};
-    
-    my %c_if;
-    foreach my $iid (keys %$cdp){
-        my $if = $cdp->{$iid};
-        next unless defined $if;
-
-        $c_if{$iid} = $if;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $if = $lldp->{$iid};
-        next unless defined $if;
-
-        $c_if{$iid} = $if;
-    }
-    return \%c_if;
-}
-
-sub c_port {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    my $lldp = $enterasys->lldp_port($partial) || {};
-    my $cdp  = $enterasys->SUPER::c_port($partial) || {};
-    
-    my %c_port;
-    foreach my $iid (keys %$cdp){
-        my $port = $cdp->{$iid};
-        next unless defined $port;
-
-        $c_port{$iid} = $port;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $port = $lldp->{$iid};
-        next unless defined $port;
-
-        $c_port{$iid} = $port;
-    }
-    return \%c_port;
-}
-
-sub c_id {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    my $lldp = $enterasys->lldp_id($partial) || {};
-    my $cdp  = $enterasys->SUPER::c_id($partial) || {};
-
-    my %c_id;
-    foreach my $iid (keys %$cdp){
-        my $id = $cdp->{$iid};
-        next unless defined $id;
-
-        $c_id{$iid} = $id;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $id = $lldp->{$iid};
-        next unless defined $id;
-
-        $c_id{$iid} = $id;
-    }
-    return \%c_id;
-}
-
-sub c_platform {
-    my $enterasys = shift;
-    my $partial = shift;
-
-    my $lldp = $enterasys->lldp_rem_sysdesc($partial) || {};
-    my $cdp  = $enterasys->SUPER::c_platform($partial) || {};
-
-    my %c_platform;
-    foreach my $iid (keys %$cdp){
-        my $platform = $cdp->{$iid};
-        next unless defined $platform;
-
-        $c_platform{$iid} = $platform;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $platform = $lldp->{$iid};
-        next unless defined $platform;
-
-        $c_platform{$iid} = $platform;
-    }
-    return \%c_platform;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Enterasys - SNMP Interface to Enterasys Network Devices
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $enterasys = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 1
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class = $enterasys->class();
-
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Provides abstraction to the configuration information obtainable from an 
-Enterasys 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. 
-
-my $enterasys = new SNMP::Info::Layer3::Enterasys(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::MAU
-
-=item SNMP::Info::LLDP
-
-=item SNMP::Info::CDP
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item ENTERASYS-OIDS-MIB
-
-=back
-
-=head2 Inherited MIBs
-
-See L<SNMP::Info::MAU/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::LLDP/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::CDP/"Required MIBs"> for its MIB requirements.
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its MIB requirements.
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $enterasys->model()
-
-Returns model type.  Checks $enterasys->id() against the ENTERASYS-OIDS-MIB.
-
-=item $enterasys->vendor()
-
-Returns enterasys
-
-=item $enterasys->os()
-
-Returns enterasys
-
-=item $enterasys->mac()
-
-Returns base mac
-
-(B<dot1dBaseBridgeAddress>)
-
-=back
-
-=head2 Overrides
-
-=over
-
-=back
-
-=head2 Globals imported from SNMP::Info::MAU
-
-See documentation in L<SNMP::Info::MAU/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::LLDP
-
-See documentation in L<SNMP::Info::LLDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $enterasys->i_ignore()
-
-Returns reference to hash.  Creates a key for each IID that should be ignored.
-
-Currently looks for rs232, tunnel,loopback,lo,null from $enterasys->interfaces()
-
-=item $enterasys->i_duplex()
-
-See documentation for mau_i_duplex() in L<SNMP::Info::MAU/"TABLE METHODS">.
-
-=item $enterasys->i_duplex_admin()
-
-See documentation for mau_i_duplex_admin() in L<SNMP::Info::MAU/"TABLE METHODS">.
-
-=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 (LLDP), or all.  This module currently supports CDP 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.
-
-=over
-
-=item $enterasys->hasCDP()
-
-Returns true if the device is running either CDP or LLDP.
-
-=item $enterasys->c_if()
-
-Returns reference to hash.  Key: iid Value: local device port (interfaces)
-
-=item $enterasys->c_ip()
-
-Returns reference to hash.  Key: iid Value: remote IPv4 address
-
-If multiple entries exist with the same local port, c_if(), with the same IPv4
-address, c_ip(), it may be a duplicate entry.
-
-If multiple entries exist with the same local port, c_if(), with different IPv4
-addresses, c_ip(), there is either a non-CDP/LLDP 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.
-
-=item $enterasys->c_port()
-
-Returns reference to hash. Key: iid Value: remote port (interfaces)
-
-=item $enterasys->c_id()
-
-Returns reference to hash. Key: iid Value: string value used to identify the
-chassis component associated with the remote system.
-
-=item $enterasys->c_platform()
-
-Returns reference to hash.  Key: iid Value: Remote Device Type
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::MAU
-
-See documentation in L<SNMP::Info::MAU/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::LLDP
-
-See documentation in L<SNMP::Info::LLDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::CDP
-
-See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/Extreme.pm

@@ -1,702 +0,0 @@
-# SNMP::Info::Layer3::Extreme - SNMP Interface to Extreme devices
-# Eric Miller
-# Bill Fenner
-#
-# Copyright (c) 2005 Eric Miller
-#
-# 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.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::Extreme;
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer3;
-use SNMP::Info::MAU;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
-
-$VERSION = '1.07';
-
-@SNMP::Info::Layer3::Extreme::ISA = qw/SNMP::Info::Layer3 SNMP::Info::MAU Exporter/;
-@SNMP::Info::Layer3::Extreme::EXPORT_OK = qw//;
-
-%MIBS = ( %SNMP::Info::Layer3::MIBS,
-          %SNMP::Info::MAU::MIBS,
-          'EXTREME-BASE-MIB'   => 'extremeAgent',
-          'EXTREME-SYSTEM-MIB' => 'extremeSystem',
-          'EXTREME-FDB-MIB'    => 'extremeSystem',
-          'EXTREME-VLAN-MIB'   => 'extremeVlan',
-        );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::MAU::GLOBALS,
-            'serial1'        => 'extremeSystemID.0',
-            'temp'           => 'extremeCurrentTemperature',
-            'ps1_status_old' => 'extremePrimaryPowerOperational.0',
-            'ps1_status_new' => 'extremePowerSupplyStatus.1',
-            'ps2_status_old' => 'extremeRedundantPowerStatus.0',
-            'ps2_status_new' => 'extremePowerSupplyStatus.2',
-            'mac'            => 'dot1dBaseBridgeAddress',
-           );
-
-%FUNCS   = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::MAU::FUNCS,
-            'fan_state'         => 'extremeFanOperational',
-            # EXTREME-FDB-MIB:extremeFdbMacFdbTable
-            'ex_fw_mac'         => 'extremeFdbMacFdbMacAddress',
-            'ex_fw_port'        => 'extremeFdbMacFdbPortIfIndex',
-            'ex_fw_status'      => 'extremeFdbMacFdbStatus',
-            # EXTREME-VLAN-MIB:extremeVlanIfTable
-            'ex_vlan_descr'     => 'extremeVlanIfDescr',
-            'ex_vlan_global_id' => 'extremeVlanIfGlobalIdentifier',
-            # EXTREME-VLAN-MIB:extremeVlanEncapsIfTable
-            'ex_vlan_encap_tag' => 'extremeVlanEncapsIfTag',
-           );
-
-%MUNGE = (
-            # Inherit all the built in munging
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::MAU::MUNGE,
-            'ex_fw_mac' => \&SNMP::Info::munge_mac,
-            'ps1_status_old' => \&munge_true_ok,
-            'ps1_status_new' => \&munge_power_stat,
-            'ps2_status_old' => \&munge_power_stat,
-            'ps2_status_new' => \&munge_power_stat,
-            'fan_state' => \&munge_true_ok,
-         );
-
-# Method OverRides
-
-*SNMP::Info::Layer3::Extreme::i_duplex       = \&SNMP::Info::MAU::mau_i_duplex;
-*SNMP::Info::Layer3::Extreme::i_duplex_admin = \&SNMP::Info::MAU::mau_i_duplex_admin;
-
-sub model {
-    my $extreme = shift;
-    my $id = $extreme->id();
-    
-    unless (defined $id){
-        print " SNMP::Info::Layer3::Extreme::model() - Device does not support sysObjectID\n" if $extreme->debug(); 
-        return undef;
-    }
-    
-    my $model = &SNMP::translateObj($id);
-
-    return $id unless defined $model;
-
-    return $model;
-}
-
-sub vendor {
-    return 'extreme';
-}
-
-sub os {
-    return 'extreme';
-}
-
-sub os_ver {
-    my $extreme = shift;
-    my $descr = $extreme->description();
-    return undef unless defined $descr;
-
-    if ($descr =~ m/Version ([\d.]*)/){
-        return $1;
-    }
-
-    return undef;
-}
-
-#
-# ifName is a nice concise port name on Extreme devices.
-# Layer3.pm defaults to i_description, which is verbose
-# and has spaces.  However, ifName has the IP address
-# assigned for router interfaces, so we use ifDescr
-# for those.
-sub interfaces {
-    my $extreme = shift;
-    my $partial = shift;
-    my $i_name = $extreme->orig_i_name($partial);
-    my $i_description = $extreme->orig_i_description($partial);
-    my $interfaces = {};
-    foreach my $idx (keys %$i_name) {
-        if ($i_name->{$idx} =~ /\([0-9.]+\)/) {
-            $interfaces->{$idx} = $i_description->{$idx};
-        } else {
-            $interfaces->{$idx} = $i_name->{$idx};
-        }
-    }
-    return $interfaces;
-}
-
-#
-# Ignore VLAN meta-interfaces and loopback
-sub i_ignore {
-    my $extreme = shift;
-    my $partial = shift;
-    
-    my $i_description = $extreme->i_description($partial) || {};
-
-    my %i_ignore;
-    foreach my $if (keys %$i_description) {
-        if ($i_description->{$if} =~ /^(802.1Q Encapsulation Tag \d+|VLAN \d+|lo\d+)/i){
-            $i_ignore{$if}++;
-        }
-    }
-    return \%i_ignore;
-}
-
-# When we use the extreme_fw_* objects, we're not using BRIDGE-MIB.
-# Either way, Extreme uses a 1:1 mapping of bridge interface ID to
-# ifIndex.
-sub bp_index {
-    my $extreme = shift;
-    my $if_index = $extreme->i_index();
-
-    my %bp_index;
-    foreach my $iid (keys %$if_index){
-        $bp_index{$iid} = $iid;
-    }
-    return \%bp_index;
-}
-
-sub munge_true_ok {
-    my $val = shift;
-    return undef unless defined($val);
-    return "OK" if ($val eq 'true');
-    return "Not OK" if ($val eq 'false');
-    return $val;
-}
-
-sub munge_power_stat {
-    my $val = shift;
-    return undef unless defined($val);
-    $val =~ s/^present//;
-    $val =~ s/^not/Not /i;
-    return $val;
-}
-
-sub ps1_status {
-    my $extreme = shift;
-    my $ps1_status = $extreme->ps1_status_new();
-    return $ps1_status || $extreme->ps1_status_old();
-}
-
-sub ps2_status {
-    my $extreme = shift;
-    my $ps2_status = $extreme->ps2_status_new();
-    return $ps2_status || $extreme->ps2_status_old();
-}
-
-sub fan {
-    my $extreme = shift;
-    my $fan_state = $extreme->fan_state();
-    my $ret = "";
-    my $s = "";
-    foreach my $i (sort {$a <=> $b} keys %$fan_state) {
-        $ret .= $s . $i . ": " . $fan_state->{$i};
-        $s = ", ";
-    }
-    return undef if ($s eq "");
-    $ret;
-}
-
-# Newer versions of the Extreme firmware have vendor-specific tables
-# for this; those are ex_fw_*().  Older firmware versions don't have
-# these tables, so we use the BRIDGE-MIB tables.
-sub fw_mac {
-    my $extreme = shift;
-    my $fw_mac = $extreme->ex_fw_mac;
-    return $fw_mac if defined($fw_mac);
-    return $extreme->orig_fw_mac();
-}
-
-sub fw_port {
-    my $extreme = shift;
-    my $fw_port = $extreme->ex_fw_port;
-    return $fw_port if defined($fw_port);
-    return $extreme->orig_fw_port();
-}
-
-sub fw_status {
-    my $extreme = shift;
-    my $fw_status = $extreme->ex_fw_status;
-    return $fw_status if defined($fw_status);
-    return $extreme->orig_fw_status();
-}
-
-# Mapping the virtual VLAN interfaces:
-# The virtual VLAN interfaces in extremeVlanIfTable
-#  are the higher layer above the interfaces that are
-#  untagged, and also above an interface in
-#  extremeVlanEncapsIfTable that does the encapsulation.
-# Note that it's possible to have a VLAN defined that
-#  does not have a tag, if it has all native interfaces.
-#  To represent this, we use a negative version of the
-#  internal VLAN ID (the deprecated extremeVlanIfGlobalIdentifier)
-sub _if2tag {
-    my $extreme = shift;
-    my $partial = shift;
-    my $stack = shift || $extreme->ifStackStatus($partial);
-    my $encap_tag = $extreme->ex_vlan_encap_tag();
-    my $vlan_descr = $extreme->ex_vlan_descr();
-
-    my $stackmap = {};
-    foreach my $idx (keys %$stack) {
-        my ($higher, $lower) = split(/\./, $idx);
-        $stackmap->{$higher}->{$lower} = $stack->{$idx};
-    }
-
-    my %if2tag = ();
-    my $missed = 0;
-    foreach my $if (keys %$vlan_descr) {
-        $if2tag{$if} = -1;
-        foreach my $tagif (keys %$encap_tag) {
-            if (defined($stackmap->{$if}->{$tagif}) && $stackmap->{$if}->{$tagif} eq 'active') {
-                $if2tag{$if} = $encap_tag->{$tagif};
-            }
-        }
-        if ($if2tag{$if} == -1) {
-            $missed++;
-        }
-    }
-    if ($missed) {
-        my $global_id = $extreme->ex_vlan_global_id();
-        foreach my $if (keys %if2tag) {
-            $if2tag{$if} = -$global_id->{$if} if ($if2tag{$if} == -1 && defined($global_id->{$if}));
-        }
-    }
-    \%if2tag;
-}
-
-# No partial support in v_name or v_index, because the obivous partial
-# is the VLAN ID and the index here is the ifIndex of
-# the VLAN interface.
-sub v_name {
-    my $extreme = shift;
-    return $extreme->ex_vlan_descr();
-}
-
-sub v_index {
-    my $extreme = shift;
-    return $extreme->_if2tag();
-}
-
-sub i_vlan {
-    my $extreme = shift;
-    my $partial = shift;
-    my $stack = $extreme->ifStackStatus($partial);
-    my $encap_tag = $extreme->ex_vlan_encap_tag();
-    my $vlan_descr = $extreme->ex_vlan_descr();
-    my $stackmap = {};
-    foreach my $idx (keys %$stack) {
-        my ($higher, $lower) = split(/\./, $idx);
-        $stackmap->{$higher}->{$lower} = $stack->{$idx};
-    }
-    my $if2tag = $extreme->_if2tag($partial, $stack);
-    #
-    # Now that we've done all that mapping work, we can map the
-    #   ifStack indexes.
-    my %i_vlan = ();
-    foreach my $if (keys %$if2tag) {
-        foreach my $lowif (keys %{$stackmap->{$if}}) {
-            $i_vlan{$lowif} = $if2tag->{$if};
-        }
-    }
-    return \%i_vlan;
-}
-
-sub i_vlan_membership {
-    my $extreme = shift;
-    my $partial = shift;
-    my $stack = $extreme->ifStackStatus($partial);
-    my $encap_tag = $extreme->ex_vlan_encap_tag();
-    my $vlan_descr = $extreme->ex_vlan_descr();
-    my $stackmap = {};
-    foreach my $idx (keys %$stack) {
-        my ($higher, $lower) = split(/\./, $idx);
-        $stackmap->{$higher}->{$lower} = $stack->{$idx};
-    }
-    my $if2tag = $extreme->_if2tag($partial, $stack);
-    #
-    # Now that we've done all that mapping work, we can map the
-    #   ifStack indexes.
-    my %i_vlan_membership = ();
-    foreach my $if (keys %$if2tag) {
-        foreach my $lowif (keys %{$stackmap->{$if}}) {
-	    push(@{$i_vlan_membership{$lowif}}, $if2tag->{$if});
-        }
-    }
-    #
-    # Now add all the tagged ports.
-    foreach my $if (keys %$encap_tag) {
-        foreach my $lowif (keys %{$stackmap->{$if}}) {
-	    push(@{$i_vlan_membership{$lowif}}, $encap_tag->{$if});
-        }
-    }
-    return \%i_vlan_membership;
-}
-
-# VLAN management.
-# See extreme-vlan.mib for a detailed description of
-# Extreme's use of ifStackTable and EXTREME-VLAN-MIB.
-
-sub set_i_vlan {
-    my $extreme = shift;
-    return $extreme->_extreme_set_i_vlan(0, @_);
-}
-
-sub set_i_pvid {
-    my $extreme = shift;
-    return $extreme->_extreme_set_i_vlan(1, @_);
-}
-
-# set_i_vlan implicitly turns off any encapsulation
-# set_i_pvid retains any encapsulation
-# otherwise they do the same: set the unencapsulated
-# vlan ID.
-# First arg to _set_i_vlan is whether or not to turn
-# off any encapsulation.
-sub _extreme_set_i_vlan {
-    my $extreme = shift;
-    my ($is_pvid, $vlan_id, $ifindex) = @_;
-    my $encap_tag = $extreme->ex_vlan_encap_tag();
-    # The inverted stack MIB would make this easier, since
-    # we need to find the vlan interface
-    # that's stacked above $ifindex.
-    my $cur_stack = $extreme->ifStackStatus();
-    #
-    # create inverted stack
-    my $invstack;
-    foreach my $idx (keys %$cur_stack) {
-        my ($higher, $lower) = split(/\./, $idx);
-        $invstack->{$lower}->{$higher} = $cur_stack->{$idx};
-    }
-    # create vlan tag -> encap interface map
-    my %encapif = reverse %$encap_tag;
-    # now find encap interface from tag
-    my $encapidx = $encapif{$vlan_id};
-    if (!defined($encapidx)) {
-        $extreme->error_throw("can't map $vlan_id to encapsulation interface");
-        return undef;
-    }
-    # now find vlan interface stacked above encap
-    my @abovevlan =  keys %{$invstack->{$encapidx}};
-    if (@abovevlan != 1) {
-        $extreme->error_throw("can't map encap interface $encapidx for $vlan_id to encapsulation interface");
-        return undef;
-    }
-    my $vlanidx = $abovevlan[0];
-    my $rv;
-    # Delete old VLAN mapping
-    foreach my $oldidx (keys %{$invstack->{$ifindex}}) {
-        if ($is_pvid && defined($encap_tag->{$oldidx})) {
-            next;       # Don't delete tagged mappings
-        }
-        $rv = $extreme->set_ifStackStatus("destroy", $oldidx . "." . $ifindex);
-        unless ($rv) {
-            $extreme->error_throw("Unable to remove $ifindex from old VLAN index $oldidx");
-            return undef;
-        }
-    }
-    # Add new VLAN mapping
-    $rv = $extreme->set_ifStackStatus("createAndGo", $vlanidx . "." . $ifindex);
-    unless ($rv) {
-        $extreme->error_throw("Unable to add new VLAN index $vlanidx to ifIndex $ifindex");
-        return undef;
-    }
-    # XXX invalidate cache of ifstack?
-    # XXX Info.pm library function for this?
-    # XXX set_ should do invalidation?
-    # $store = $extreme->store(); delete $store->{ifStackStatus}; $extreme->store($store);
-    # $extreme->{_ifStackStatus} = 0;
-    return $rv;
-}
-
-sub set_remove_i_vlan_tagged {
-    my $extreme = shift;
-    my ($vlan_id, $ifindex) = @_;
-    my $encap_tag = $extreme->ex_vlan_encap_tag();
-    # create vlan tag -> encap interface map
-    my %encapif = reverse %$encap_tag;
-    # now find encap interface from tag
-    my $encapidx = $encapif{$vlan_id};
-    if (!defined($encapidx)) {
-        $extreme->error_throw("can't map $vlan_id to encapsulation interface");
-        return undef;
-    }
-    my $rv = $extreme->set_ifStackStatus("destroy", $encapidx . "." . $ifindex);
-    unless ($rv) {
-        $extreme->error_throw("Unable to delete VLAN encap ifIndex $encapidx for VLAN $vlan_id from ifIndex $ifindex");
-        return undef;
-    }
-    # invalidate cache of ifstack?
-    return $rv;
-}
-
-sub set_add_i_vlan_tagged {
-    my $extreme = shift;
-    my ($vlan_id, $ifindex) = @_;
-    my $encap_tag = $extreme->ex_vlan_encap_tag();
-    # create vlan tag -> encap interface map
-    my %encapif = reverse %$encap_tag;
-    # now find encap interface from tag
-    my $encapidx = $encapif{$vlan_id};
-    if (!defined($encapidx)) {
-        $extreme->error_throw("can't map $vlan_id to encapsulation interface");
-        return undef;
-    }
-    my $rv = $extreme->set_ifStackStatus("createAndGo", $encapidx . "." . $ifindex);
-    unless ($rv) {
-        $extreme->error_throw("Unable to add VLAN encap ifIndex $encapidx for VLAN $vlan_id to ifIndex $ifindex");
-        return undef;
-    }
-    # invalidate cache of ifstack?
-    return $rv;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Extreme - Perl5 Interface to Extreme Network Devices
-
-=head1 AUTHOR
-
-Eric Miller, Bill Fenner
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $extreme = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 1
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $extreme->class();
-
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-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. 
-
-my $extreme = new SNMP::Info::Layer3::Extreme(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer3
-
-=item SNMP::Info::MAU
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item EXTREME-BASE-MIB
-
-=item EXTREME-SYSTEM-MIB
-
-=item EXTREME-FDB-MIB
-
-=item EXTREME-VLAN-MIB
-
-=item Inherited Classes' MIBs
-
-See classes listed above for their required MIBs.
-
-=back
-
-=head1 GLOBALS
-
-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.
-
-=item $extreme->vendor()
-
-Returns extreme
-
-=item $extreme->os()
-
-Returns extreme
-
-=item $extreme->serial()
-
-Returns serial number
-
-(B<extremeSystemID>)
-
-=item $extreme->temp()
-
-Returns system temperature
-
-(B<extremeCurrentTemperature>)
-
-=item $extreme->ps1_status()
-
-Returns status of power supply 1
-
-(B<extremePowerSupplyStatus.1>)
-
-=item $extreme->fan()
-
-Returns fan status
-
-(B<extremeFanOperational.1>)
-
-=item $extreme->mac()
-
-Returns base mac
-
-(B<dot1dBaseBridgeAddress>)
-
-=back
-
-=head2 Overrides
-
-=over
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head2 Globals imported from SNMP::Info::MAU
-
-See documentation in L<SNMP::Info::MAU/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $extreme->fw_mac()
-
-(B<extremeFdbMacFdbMacAddress>)
-
-=item $extreme->fw_port()
-
-(B<extremeFdbMacFdbPortIfIndex>)
-
-=item $extreme->fw_status()
-
-(B<extremeFdbMacFdbStatus>)
-
-=item $extreme->i_vlan()
-
-Returns a mapping between ifIndex and the VLAN.
-
-=item $stack->bp_index()
-
-Returns reference to hash of bridge port table entries map back to interface identifier (iid)
-
-Returns (B<ifIndex>) for both key and value since we're using EXTREME-FDB-MIB
-rather than BRIDGE-MIB.
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::MAU
-
-See documentation in L<SNMP::Info::MAU/"TABLE METHODS"> for details.
-
-=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
-(non-trunk) ports.
-
-  Example:
-  my %if_map = reverse %{$extreme->interfaces()};
-  $extreme->set_i_vlan('2', $if_map{'FastEthernet0/1'}) 
-    or die "Couldn't change port VLAN. ",$extreme->error(1);
-
-=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.
-
-  Example:
-  my %if_map = reverse %{$extreme->interfaces()};
-  $extreme->set_i_pvid('2', $if_map{'FastEthernet0/1'}) 
-    or die "Couldn't change port default VLAN. ",$extreme->error(1);
-
-=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.
-
-  Example:
-  my %if_map = reverse %{$extreme->interfaces()};
-  $extreme->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) 
-    or die "Couldn't add port to egress list. ",$extreme->error(1);
-
-=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.
-
-  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);
-
-=cut

Info/Layer3/Foundry.pm

@@ -1,657 +0,0 @@
-# SNMP::Info::Layer3::Foundry - SNMP Interface to Foundry devices
-# Max Baker
-#
-# Copyright (c) 2004,2005 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 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::Foundry;
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer3;
-use SNMP::Info::FDP;
-use SNMP::Info::LLDP;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
-
-$VERSION = '1.07';
-
-@SNMP::Info::Layer3::Foundry::ISA = qw/SNMP::Info::FDP SNMP::Info::LLDP
-                                       SNMP::Info::Layer3 Exporter/;
-@SNMP::Info::Layer3::Foundry::EXPORT_OK = qw//;
-
-%MIBS = ( %SNMP::Info::Layer3::MIBS,
-          %SNMP::Info::LLDP::MIBS,
-          %SNMP::Info::FDP::MIBS,
-          'FOUNDRY-SN-ROOT-MIB'         => 'foundry',
-          'FOUNDRY-SN-AGENT-MIB'        => 'snChasPwrSupplyDescription',
-          'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snSwGroupOperMode',
-        );
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-            %SNMP::Info::LLDP::GLOBALS,
-            %SNMP::Info::FDP::GLOBALS,
-            'mac'        => 'ifPhysAddress.1',
-            'chassis'    => 'entPhysicalDescr.1',
-            'temp'       => 'snChasActualTemperature',
-            'ps1_type'   => 'snChasPwrSupplyDescription.1',
-            'ps1_status' => 'snChasPwrSupplyOperStatus.1',
-            'fan'        => 'snChasFanOperStatus.1',
-
-           );
-
-%FUNCS   = (
-            %SNMP::Info::Layer3::FUNCS,
-            %SNMP::Info::LLDP::FUNCS,
-            %SNMP::Info::FDP::FUNCS,
-            # FOUNDRY-SN-SWITCH-GROUP-MIB
-            # snSwPortInfoTable - Switch Port Information Group
-            'sw_index'    => 'snSwPortIfIndex',
-            'sw_duplex'   => 'snSwPortInfoChnMode',
-            'sw_type'     => 'snSwPortInfoMediaType',
-            'sw_speed'    => 'snSwPortInfoSpeed',
-           );
-
-%MUNGE = (
-            %SNMP::Info::Layer3::MUNGE,
-            %SNMP::Info::LLDP::MUNGE,
-            %SNMP::Info::FDP::MUNGE,
-         );
-
-sub i_ignore {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $interfaces = $foundry->interfaces($partial) || {};
-
-    my %i_ignore;
-    foreach my $if (keys %$interfaces) {
-        if ($interfaces->{$if} =~ /(tunnel|loopback|\blo\b|lb|null)/i){
-            $i_ignore{$if}++;
-        }
-    }
-    return \%i_ignore;
-}
-
-sub i_duplex {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $sw_index = $foundry->sw_index($partial);
-    my $sw_duplex= $foundry->sw_duplex($partial);
-
-    unless (defined $sw_index and defined $sw_duplex){
-       return $foundry->SUPER::i_duplex(); 
-    }
-    
-    my %i_duplex;
-    foreach my $sw_port (keys %$sw_duplex){
-        my $iid = $sw_index->{$sw_port};
-        my $duplex = $sw_duplex->{$sw_port};
-        next if $duplex =~ /none/i;
-        $i_duplex{$iid} = 'half' if $duplex =~ /half/i;
-        $i_duplex{$iid} = 'full' if $duplex =~ /full/i;
-    }
-    return \%i_duplex;
-}
-
-sub model {
-    my $foundry = shift;
-    my $id = $foundry->id();
-    my $model = &SNMP::translateObj($id);
-
-    # EdgeIron
-    if ($id =~ /\.1991\.1\.[45]\./) {
-
-        my $e_name = $foundry->e_name();
-
-        # Find entity table entry for "unit.1"
-        my $unit_iid = undef;
-        foreach my $e (keys %$e_name){
-            my $name = $e_name->{$e} || '';
-            $unit_iid = $e if $name eq 'unit.1';
-        }
-
-        # Find Model Name
-        my $e_model = $foundry->e_model();
-        if (defined $e_model->{$unit_iid}){
-            return $e_model->{$unit_iid};
-        }
-    }
-    
-    return $id unless defined $model;
-    
-    $model =~ s/^sn//;
-
-    return $model;
-}
-
-sub os { 
-    return 'foundry';
-}
-
-sub vendor {
-    return 'foundry';
-}
-
-sub os_ver {
-    my $foundry = shift;
-
-    return $foundry->snAgImgVer() if ( defined $foundry->snAgImgVer() );
-
-    # Some older ones don't have this value,so we cull it from the description
-    my $descr = $foundry->description();
-    if ($descr =~ m/Version (\d\S*)/) {
-        return $1;
-    }
-
-    # EdgeIron
-    my $e_name = $foundry->e_name();
-
-    # find entity table entry for "stackmanaget.1"
-    my $unit_iid = undef;
-    foreach my $e (keys %$e_name){
-        my $name = $e_name->{$e} || '';
-        $unit_iid = $e if $name eq 'stackmanaget.1';
-    }
-
-    if (defined $unit_iid){
-
-        # Find Model Name
-        my $e_fwver = $foundry->e_fwver();
-        if (defined $e_fwver->{$unit_iid}){
-            return $e_fwver->{$unit_iid};
-        }
-    }
-
-    # Last resort
-    return $foundry->SUPER::os_ver();
-
-}
-
-sub serial {
-    my $foundry = shift;
-
-    # Return chassis serial number if available
-    return $foundry->snChasSerNum() if ( $foundry->snChasSerNum() );
-
-    # If no chassis serial use first module serial
-    my $mod_serials = $foundry->snAgentConfigModuleSerialNumber();
-
-    foreach my $mod (sort keys %$mod_serials){
-        my $serial = $mod_serials->{$mod} || '';
-        next unless defined $serial;
-        return $serial;
-    }
-
-    # EdgeIron
-    my $e_name = $foundry->e_name();
-
-    # find entity table entry for "unit.1"
-    my $unit_iid = undef;
-    foreach my $e (keys %$e_name){
-        my $name = $e_name->{$e} || '';
-        $unit_iid = $e if $name eq 'unit.1';
-    }
-
-    if (defined $unit_iid) {
-        # Look up serial of found entry.
-        my $e_serial = $foundry->e_serial();
-        return $e_serial->{$unit_iid} if defined $e_serial->{$unit_iid};
-    }
-
-    # Last resort
-    return $foundry->SUPER::serial();
-}
-
-sub interfaces {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $i_descr = $foundry->i_description($partial) || {};
-    my $i_name  = $foundry->i_name($partial) || {};
-
-    # Use ifName for EdgeIrons else use ifDescr
-    foreach my $iid (keys %$i_name){
-        my $name = $i_name->{$iid};
-        next unless defined $name;
-        $i_descr->{$iid} = $name 
-            if $name =~ /^port\d+/i;
-    }
-    
-    return $i_descr;
-}
-
-# Reported hangs on a EdgeIron 24G
-sub stp_p_state {
-    my $foundry = shift;  
-    my $partial = shift;
-
-    my $descr = $foundry->description();
-    if ($descr =~ m/\bEdgeIron 24G\b/) {
-        return undef;
-    }
-
-    return $foundry->SUPER::stp_p_state($partial) || {};
-
-}
-
-#  Use FDP and/or LLDP
-
-sub hasCDP {
-    my $foundry = shift;
-
-    return $foundry->hasLLDP() || $foundry->SUPER::hasCDP();
-}
-
-sub c_ip {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $cdp  = $foundry->SUPER::c_ip($partial) || {};
-    my $lldp = $foundry->lldp_ip($partial) || {};
-
-    my %c_ip;
-    foreach my $iid (keys %$cdp){
-        my $ip = $cdp->{$iid};
-        next unless defined $ip;
-
-        $c_ip{$iid} = $ip;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $ip = $lldp->{$iid};
-        next unless defined $ip;
-
-        $c_ip{$iid} = $ip;
-    }
-    return \%c_ip;
-}
-
-sub c_if {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $lldp = $foundry->lldp_if($partial) || {};;
-    my $cdp  = $foundry->SUPER::c_if($partial) || {};
-    
-    my %c_if;
-    foreach my $iid (keys %$cdp){
-        my $if = $cdp->{$iid};
-        next unless defined $if;
-
-        $c_if{$iid} = $if;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $if = $lldp->{$iid};
-        next unless defined $if;
-
-        $c_if{$iid} = $if;
-    }
-    return \%c_if;
-}
-
-sub c_port {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $lldp = $foundry->lldp_port($partial) || {};
-    my $cdp  = $foundry->SUPER::c_port($partial) || {};
-    
-    my %c_port;
-    foreach my $iid (keys %$cdp){
-        my $port = $cdp->{$iid};
-        next unless defined $port;
-
-        $c_port{$iid} = $port;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $port = $lldp->{$iid};
-        next unless defined $port;
-
-        $c_port{$iid} = $port;
-    }
-    return \%c_port;
-}
-
-sub c_id {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $lldp = $foundry->lldp_id($partial) || {};
-    my $cdp  = $foundry->SUPER::c_id($partial) || {};
-
-    my %c_id;
-    foreach my $iid (keys %$cdp){
-        my $id = $cdp->{$iid};
-        next unless defined $id;
-
-        $c_id{$iid} = $id;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $id = $lldp->{$iid};
-        next unless defined $id;
-
-        $c_id{$iid} = $id;
-    }
-    return \%c_id;
-}
-
-sub c_platform {
-    my $foundry = shift;
-    my $partial = shift;
-
-    my $lldp = $foundry->lldp_rem_sysdesc($partial) || {};
-    my $cdp  = $foundry->SUPER::c_platform($partial) || {};
-
-    my %c_platform;
-    foreach my $iid (keys %$cdp){
-        my $platform = $cdp->{$iid};
-        next unless defined $platform;
-
-        $c_platform{$iid} = $platform;
-    }
-
-    foreach my $iid (keys %$lldp){
-        my $platform = $lldp->{$iid};
-        next unless defined $platform;
-
-        $c_platform{$iid} = $platform;
-    }
-    return \%c_platform;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Foundry - SNMP Interface to Foundry Network Devices
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $foundry = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 1
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class = $foundry->class();
-
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Abstraction subclass for Foundry Networks devices.
-
-For speed or debugging purposes you can call the subclass directly, but not
-after determining a more specific class using the method above.
-
- my $foundry = new SNMP::Info::Layer3::Foundry(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer3;
-
-=item SNMP::Info::FDP;
-
-=item SNMP::Info::LLDP;
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item FOUNDRY-SN-ROOT-MIB
-
-=item FOUNDRY-SN-AGENT-MIB
-
-=item FOUNDRY-SN-SWITCH-GROUP-MIB
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::FDP/"Required MIBs"> for its own MIB requirements.
-
-See L<SNMP::Info::LLDP/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $foundry->model()
-
-Returns model type.  Checks $foundry->id() against the FOUNDRY-SN-ROOT-MIB
-and removes 'sn'.  EdgeIron models determined through ENTITY-MIB.  
-
-=item $foundry->vendor()
-
-Returns 'foundry'
-
-=item $foundry->os()
-
-Returns 'foundry'
-
-=item $foundry->os_ver()
-
-Returns the software version
-
-=item $foundry->mac()
-
-Returns MAC Address of root port.
-
-(B<ifPhysAddress.1>)
-
-=item $foundry->chassis()
-
-Returns Chassis type.
-
-(B<entPhysicalDescr.1>)
-
-=item $foundry->serial()
-
-Returns serial number of device.
-
-=item $foundry->temp()
-
-Returns the chassis temperature
-
-(B<snChasActualTemperature>)
-
-=item $foundry->ps1_type()
-
-Returns the Description for the power supply
-
-(B<snChasPwrSupplyDescription.1>)
-
-=item $foundry->ps1_status()
-
-Returns the status of the power supply.
-
-(B<snChasPwrSupplyOperStatus.1>)
-
-=item $foundry->fan()
-
-Returns the status of the chassis fan.
-
-(B<snChasFanOperStatus.1>)
-
-=back
-
-=head2 Global Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::FDP
-
-See documentation in L<SNMP::Info::FDP/"GLOBALS"> for details.
-
-=head2 Global Methods imported from SNMP::Info::LLDP
-
-See documentation in L<SNMP::Info::LLDP/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Overrides
-
-=over
-
-=item $foundry->interfaces()
-
-Returns reference to hash of interface names to iids.
-
-=item $foundry->i_ignore()
-
-Returns reference to hash of interfaces to be ignored.
-
-Ignores interfaces with descriptions of  tunnel,loopback,null 
-
-=item $foundry->i_duplex()
-
-Returns reference to hash of interface link duplex status. 
-
-Crosses $foundry->sw_duplex() with $foundry->sw_index()
-
-=back
-
-=head2 Foundry Switch Port Information Table (B<snSwPortIfTable>)
-
-=over
-
-=item $foundry->sw_index()
-
-Returns reference to hash.  Maps Table to Interface IID. 
-
-(B<snSwPortIfIndex>)
-
-=item $foundry->sw_duplex()
-
-Returns reference to hash.   Current duplex status for switch ports. 
-
-(B<snSwPortInfoChnMode>)
-
-=item $foundry->sw_type()
-
-Returns reference to hash.  Current Port Type .
-
-(B<snSwPortInfoMediaType>)
-
-=item $foundry->sw_speed()
-
-Returns reference to hash.  Current Port Speed. 
-
-(B<snSwPortInfoSpeed>)
-
-=back
-
-=head2 Topology information
-
-Based upon the software version devices may support Foundry Discovery
-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.
-
-=over
-
-=item $foundry->hasCDP()
-
-Returns true if the device is running either FDP or LLDP.
-
-=item $foundry->c_if()
-
-Returns reference to hash.  Key: iid Value: local device port (interfaces)
-
-=item $foundry->c_ip()
-
-Returns reference to hash.  Key: iid Value: remote IPv4 address
-
-If multiple entries exist with the same local port, c_if(), with the same IPv4
-address, c_ip(), it may be a duplicate entry.
-
-If multiple entries exist with the same local port, c_if(), with different IPv4
-addresses, c_ip(), there is either a non-FDP/LLDP 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.
-
-=item $foundry->c_port()
-
-Returns reference to hash. Key: iid Value: remote port (interfaces)
-
-=item $foundry->c_id()
-
-Returns reference to hash. Key: iid Value: string value used to identify the
-chassis component associated with the remote system.
-
-=item $foundry->c_platform()
-
-Returns reference to hash.  Key: iid Value: Remote Device Type
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::FDP
-
-See documentation in L<SNMP::Info::FDP/"TABLE METHODS"> for details.
-
-=head2 Table Methods imported from SNMP::Info::LLDP
-
-See documentation in L<SNMP::Info::LLDP/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/Juniper.pm

@@ -1,214 +0,0 @@
-# SNMP::Info::Layer3::Juniper
-# 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.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::Juniper;
-# $Id$
-
-use Exporter;
-use SNMP::Info::Layer3;
-
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
-$VERSION = '1.07';
-@SNMP::Info::Layer3::Juniper::ISA = qw/SNMP::Info::Layer3 Exporter/;
-@SNMP::Info::Layer3::Juniper::EXPORT_OK = qw//;
-
-%MIBS = (
-            %SNMP::Info::Layer3::MIBS,  
-	    'JUNIPER-CHASSIS-DEFINES-MIB' => 'jnxChassisDefines',
-	    'JUNIPER-MIB' => 'jnxBoxAnatomy',
-	);
-
-%GLOBALS = (
-            %SNMP::Info::Layer3::GLOBALS,
-	    'serial' => 'jnxBoxSerialNo.0',
-	   );
-
-%FUNCS = (
-            %SNMP::Info::Layer3::FUNCS,
-	 );
-
-%MUNGE = (
-            %SNMP::Info::Layer3::MUNGE,
-	 );
-
-sub vendor {
-	return 'juniper';
-}
-
-sub os {
-	return 'junos';
-}
-
-sub os_ver {
-    my $juniper = shift;
-    my $descr = $juniper->description();
-    return undef unless defined $descr;
-
-    if ($descr =~ m/kernel JUNOS (\S+)/) {
-	return $1;
-    }
-    return undef;
-}
-
-sub model {
-    my $l3 = shift;
-    my $id = $l3->id();
-    
-    unless (defined $id){
-        print " SNMP::Info::Layer3::Juniper::model() - Device does not support sysObjectID\n" if $l3->debug(); 
-        return undef;
-    }
-    
-    my $model = &SNMP::translateObj($id);
-
-    return $id unless defined $model;
-
-    $model =~ s/^jnxProductName//i;
-    return $model;
-}
-
-# Override the fancy Layer3.pm serial function
-sub serial {
-    my $juniper = shift;
-    return $juniper->orig_serial();
-}
-
-sub i_vlan {
-	my ($juniper) = shift;
-	my ($partial) = shift;
-
-	my ($i_type) = $juniper->i_type($partial);
-	my ($i_descr) = $juniper->i_description($partial);
-	my %i_vlan;
-
-	foreach my $idx (keys %$i_descr) {
-		if ($i_type->{$idx} eq 'l2vlan' || $i_type->{$idx} eq 135) {
-			if ($i_descr->{$idx} =~ /\.(\d+)$/) {
-				$i_vlan{$idx} = $1;
-			}
-		}
-	}
-	\%i_vlan;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Juniper - SNMP Interface to L3 Juniper Devices
-
-=head1 AUTHOR
-
-Bill Fenner
-
-=head1 SYNOPSIS
-
- # Let SNMP::Info determine the correct subclass for you. 
- my $juniper = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myrouter',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-    or die "Can't connect to DestHost.\n";
-
- my $class      = $juniper->class();
- print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Subclass for Generic Juniper Routers running JUNOS
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item Inherited Classes' MIBs
-
-See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $juniper->vendor()
-
-    Returns 'juniper'
-
-=item $juniper->os()
-
-    Returns 'junos'
-
-=item $juniper->os_ver()
-
-    Returns the software version extracted from sysDescr.
-
-=item $juniper->model()
-
-    Returns the model from sysObjectID, with jnxProductName
-    removed from the beginning.
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=over
-
-=item $juniper->i_vlan()
-
-Returns the list of interfaces whose ifType is l2vlan(135), and
-the VLAN ID extracted from the interface description.
-
-=back
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut

Info/Layer3/Netscreen.pm

@@ -1,211 +0,0 @@
-# SNMP::Info::Layer3::Netscreen
-# Kent Hamilton
-# $Id$
-#
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::Layer3::Netscreen;
-$VERSION = '1.07';
-use strict;
-
-use Exporter;
-use SNMP::Info::Layer3;
-
-@SNMP::Info::Layer3::Netscreen::ISA = qw/SNMP::Info::Layer3 Exporter/;
-@SNMP::Info::Layer3::Netscreen::EXPORT_OK = qw//;
-
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
- 
-%MIBS    = ( 
-	     %SNMP::Info::Layer3::MIBS,
-	     'NETSCREEN-SMI'             => 'netscreenSetting',
-             'NETSCREEN-PRODUCTS-MIB'    => 'netscreenGeneric',
-	     'NETSCREEN-INTERFACE-MIB'   => 'nsIfIndex',
-             'NETSCREEN-SET-GEN-MIB'     => 'nsSetGenSwVer',
-           );
-
-%GLOBALS = (
-             %SNMP::Info::Layer3::GLOBALS,
-	     'os_version'   =>  'nsSetGenSwVer',
-           );
-
-%FUNCS   = (
-             %SNMP::Info::Layer3::FUNCS,
-           );
-
-%MUNGE   = (
-             %SNMP::Info::Layer3::MUNGE,
-           );
-
-sub layers {
-	return '01001100';
-}
-
-sub vendor {
-    return 'netscreen';
-}
-
-sub os {
-    return 'screenos';
-}
-
-sub os_ver {
-    my $netscreen = shift;
-
-    my $descr = $netscreen->description();
-    if ( $descr =~ m/version (\d\S*) \(SN: /) {
-      return $1;
-    }
-    return undef;
-}
-
-sub serial {
-    my $netscreen = shift;
-
-    my $e_serial = $netscreen->e_serial() || {};
-
-    my $serial = $e_serial->{1} || undef;
-
-    return $1 if (defined $serial and $serial =~ /(\d+)/);
-    my $descr = $netscreen->description();
-    if ( $descr =~ m/version .*\(SN: (\d\S*),/) {
-        return $1;
-    }
-    return undef;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-SNMP::Info::Layer3::Netscreen - SNMP Interface to Juniper Netscreen Devices
-
-=head1 AUTHOR
-
-Kent Hamilton
-
-=head1 SYNOPSIS
-
-    #Let SNMP::Info determine the correct subclass for you.
-
-    my $netscreen = new SNMP::Info(
-                          AutoSpecify => 1,
-                          Debug       => 1,
-                          # These arguments are passed directly on to SNMP::Session
-                          DestHost    => 'myswitch',
-                          Community   => 'public',
-                          Version     => 2
-                        ) 
-
-    or die "Can't connect to DestHost.\n";
-
-    my $class = $netscreen->class();
-    print "SNMP::Info determined this device to fall under subclass : $class\n";
-
-=head1 DESCRIPTION
-
-Provides abstraction to the configuration information obtainable from a 
-Netscreen device through SNMP. See inherited classes' documentation for 
-inherited methods.
-
-my $netscreen = new SNMP::Info::Layer3::Netscreen(...);
-
-=head2 Inherited Classes
-
-=over
-
-=item SNMP::Info::Layer3
-
-=back
-
-=head2 Required MIBs
-
-=over
-
-=item NETSCREEN-SMI
-
-=item NETSCREEN-PRODUCTS-MIB
-
-=item NETSCREEN-INTERFACE-MIB
-
-=item NETSCREEN-SET-GEN-MIB
-
-=item Inherited Classes
-
-See L<SNMP::Info::Layer3/"Required MIBs"> and its inherited classes.
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item $netscreen->vendor()
-
-Returns 'netscreen'
-
-=item $netscreen->os()
-
-Returns 'screenos'
-
-=item $netscreen->os_ver()
-
-Extracts the OS version from the description string.
-
-=item $netscreen->serial()
-
-Returns serial number..
-
-=back
-
-=head2 Overrides
-
-=over
-
-=item $netscreen->layers()
-
-Returns 01001100.  Device doesn't report layers properly, modified to reflect 
-Layer3 functionality.
-
-=back
-
-=head2 Globals imported from SNMP::Info::Layer3
-
-See L<SNMP::Info::Layer3/"GLOBALS"> for details.
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Table Methods imported from SNMP::Info::Layer3
-
-See L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
-
-=cut
-

Info/MAU.pm

@@ -1,459 +0,0 @@
-# SNMP::Info::MAU - Media Access Unit - RFC 2668
-# Max Baker
-#
-# Copyright (c) 2004,2005 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 
-# modification, are permitted provided that the following conditions are met:
-# 
-#     * Redistributions of source code must retain the above copyright notice,
-#       this list of conditions and the following disclaimer.
-#     * Redistributions in binary form must reproduce the above copyright notice,
-#       this list of conditions and the following disclaimer in the documentation
-#       and/or other materials provided with the distribution.
-#     * Neither the name of the University of California, Santa Cruz nor the 
-#       names of its contributors may be used to endorse or promote products 
-#       derived from this software without specific prior written permission.
-# 
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
-# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-package SNMP::Info::MAU;
-$VERSION = '1.07';
-# $Id$
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
-@SNMP::Info::MAU::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::MAU::EXPORT_OK = qw//;
-
-%MIBS = ('MAU-MIB' => 'mauMod');
-
-%GLOBALS = (
-           );
-
-%FUNCS = (
-          # Interface MAU Table
-          'mau_index'    => 'ifMauIfIndex',
-          'mau_link'     => 'ifMauType',
-          'mau_status'   => 'ifMauStatus',
-          'mau_up'       => 'ifMauMediaAvailable',
-          'mau_type'     => 'ifMauTypeList',
-          'mau_type_admin'     => 'ifMauDefaultType',
-          # Interface Auto-Negotiation Table
-          'mau_auto'     => 'ifMauAutoNegSupported',
-          'mau_autostat' => 'ifMauAutoNegAdminStatus',
-          'mau_autosent' => 'ifMauAutoNegCapAdvertised',
-          'mau_autorec'  => 'ifMauAutoNegCapReceived',
-          );
-
-%MUNGE = (
-          # Inherit all the built in munging
-          %SNMP::Info::MUNGE,
-          # Add ones for our class
-          'mau_type' => \&munge_int2bin,
-          'mau_autosent' => \&munge_int2bin,
-          'mau_autorec' => \&munge_int2bin,
-         );
-
-
-sub munge_int2bin {
-    my $int = shift;
-    return undef unless defined $int;
-    return unpack("B32", pack("N", $int));
-}
-
-sub _isfullduplex{
-    my $mau = shift;
-    my $mautype = shift;
-
-    my @full_types = qw/11 13 16 18 20/;
-    foreach my $type ( @full_types ) {
-        return 1 if (substr($mautype,32-$type,1) eq '1')
-    }
-    return 0;
-}
-
-sub _ishalfduplex{
-    my $mau = shift;
-    my $mautype = shift;
-
-    my @half_types = qw/10 12 15 17 19/;
-    foreach my $type ( @half_types ) {
-        return 1 if (substr($mautype,32-$type,1) eq '1')
-    }
-    return 0;
-}
-
-my %_mau_i_speed_map = (
- '10' => '10 Mbps',
- '100' => '100 Mbps',
- '1000' => '1.0 Gbps',
- '10Gig' => '10 Gbps',
-);
-
-sub mau_i_speed_admin {
-    my $mau = shift;
-
-    my $mau_index = $mau->mau_index();
-    my $mau_type_admin = $mau->mau_type_admin();
-
-    my %i_speed_admin;
-    foreach my $mau_port (keys %$mau_type_admin){
-        my $iid = $mau_index->{$mau_port};
-        next unless defined $iid;
-
-        my $type_adminoid = $mau_type_admin->{$mau_port};
-        my $type_admin = &SNMP::translateObj($type_adminoid);
-        next unless defined $type_admin;
-
-	if ($type_adminoid eq '.0.0') {
-		$i_speed_admin{$iid} = 'auto';
-	} elsif ($type_admin =~ /^dot3MauType(.*)Base/ && $_mau_i_speed_map{$1}) {
-		$i_speed_admin{$iid} = $_mau_i_speed_map{$1};
-	}
-    }
-    return \%i_speed_admin;
-}
-
-sub mau_i_duplex {
-    my $mau = shift;
-
-    my $mau_index = $mau->mau_index();
-    my $mau_link = $mau->mau_link();
-
-    my %i_duplex;
-    foreach my $mau_port (keys %$mau_link){
-        my $iid = $mau_index->{$mau_port};
-        next unless defined $iid;
-
-        my $linkoid = $mau_link->{$mau_port};
-        my $link = &SNMP::translateObj($linkoid);
-        next unless defined $link;
-
-        my $duplex = undef;
-
-        if ($link =~ /fd$/i) {
-            $duplex = 'full';
-        } elsif ($link =~ /hd$/i){
-            $duplex = 'half';
-        }
-
-        $i_duplex{$iid} = $duplex if defined $duplex;
-    }
-    return \%i_duplex;
-}
-
-sub mau_i_duplex_admin {
-    my $mau = shift;
-    my $partial = shift;
-
-    my $mau_index = $mau->mau_index();
-    my %rev_mau_index = reverse %$mau_index;
-    my $mau_autostat = defined $partial ? $mau->mau_autostat($rev_mau_index{$partial}) : $mau->mau_autostat();
-    my $mau_type_admin = defined $partial ? $mau->mau_type_admin($rev_mau_index{$partial}) : $mau->mau_type_admin();
-
-    # Older HP4000's don't implement ifMauDefaultType, but we can
-    # figure out from ifMauAutoNegCapAdvertised what we'd like.
-    if (!defined($mau_type_admin)) {
-        if (defined($mau_index)) {
-            return mau_i_duplex_admin_old($mau,$mau_index,$mau_autostat);
-        } else {
-            return undef;
-        }
-    }
-
-    my %i_duplex_admin;
-    foreach my $mau_port (keys %$mau_type_admin){
-        my $iid = $mau_index->{$mau_port};
-        next unless defined $iid;
-
-        my $autostat = $mau_autostat->{$mau_port};
-        if (defined $autostat and $autostat =~ /enabled/i){
-            $i_duplex_admin{$iid} = 'auto';
-            next;
-        } 
-
-        my $type_adminoid = $mau_type_admin->{$mau_port};
-        my $type_admin = &SNMP::translateObj($type_adminoid);
-        next unless defined $type_admin;
-
-        my $duplex = undef;
-
-        if ($type_admin =~ /fd$/i) {
-            $duplex = 'full';
-        } elsif ($type_admin =~ /hd$/i){
-            $duplex = 'half';
-        } elsif ($type_admin eq 'zeroDotZero') {
-            $duplex = 'auto';
-        }
-
-        $i_duplex_admin{$iid} = $duplex if defined $duplex;
-    }
-    return \%i_duplex_admin;
-}
-
-sub mau_i_duplex_admin_old {
-    my $mau = shift;
-    my $mau_index = shift;
-    my $mau_autostat = shift;
-
-    my $interfaces   = $mau->interfaces();
-    my $mau_autosent = $mau->mau_autosent();
-
-    my %mau_reverse = reverse %$mau_index;
-
-    my %i_duplex_admin;
-    foreach my $iid (keys %$interfaces){
-        my $mau_index = $mau_reverse{$iid};
-        next unless defined $mau_index;
-
-        my $autostat = $mau_autostat->{$mau_index};
-        
-        # HP25xx has this value
-        if (defined $autostat and $autostat =~ /enabled/i){
-            $i_duplex_admin{$iid} = 'auto';
-            next;
-        } 
-        
-        my $type = $mau_autosent->{$mau_index};
-    
-        next unless defined $type;
-
-        if ($type == 0) {
-            $i_duplex_admin{$iid} = 'none';
-            next;
-        }
-
-        my $full = $mau->_isfullduplex($type);
-        my $half = $mau->_ishalfduplex($type);
-
-        if ($full and !$half){
-            $i_duplex_admin{$iid} = 'full';
-        } elsif ($half) {
-            $i_duplex_admin{$iid} = 'half';
-        } 
-    } 
-    
-    return \%i_duplex_admin;
-}
-
-1;
-__END__
-
-
-=head1 NAME
-
-SNMP::Info::MAU - SNMP Interface to Medium Access Unit (MAU) MIB (RFC 2668)
-via SNMP
-
-=head1 AUTHOR
-
-Max Baker
-
-=head1 SYNOPSIS
-
- my $mau = new SNMP::Info ( 
-                             AutoSpecify => 1,
-                             Debug       => 1,
-                             DestHost    => 'hpswitch', 
-                             Community   => 'public',
-                             Version     => 2
-                           );
- 
- my $class = $mau->class();
- print " Using device sub class : $class\n";
-
-=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
-devices like HP Switches.  MAU = Media Access Unit.
-
-The MAU table contains link and duplex info for the port itself and the device
-connected to that port.
-
-Normally you use or create a subclass of SNMP::Info that inherits this one.  Do
-not use directly.
-
-For debugging purposes call the class directly as you would SNMP::Info
-
- my $mau = new SNMP::Info::MAU(...);
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item MAU-MIB
-
-=back
-
-=head1 GLOBALS
-
-These are methods that return scalar value from SNMP
-
-=over
-
-=item None
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-
-=over
-
-=item $mau->mau_i_duplex()
-
-Parses mau_index and mau_link to return the duplex information for
-interfaces.
-
-=item $mau->mau_i_duplex_admin()
-
-Parses C<mac_index>,C<mau_autostat>,C<mau_type_admin> in
-order to find the admin duplex setting for all the interfaces.
-
-Returns either (auto,full,half).
-
-=item $mau->mau_i_duplex_admin_old()
-
-Called by mau_i_duplex_admin() if C<mau_type_admin> is empty.
-Parses C<mau_index>,C<mau_autostat>,C<mau_autosent> in
-order to find the admin duplex setting for all the interfaces.
-
-Returns either (auto,none,full,half).
-
-=back
-
-=head2 MAU INTERFACE TABLE METHODS
-
-=over
-
-=item $mau->mau_index() -  Returns a list of interfaces
-and their index in the MAU IF Table.
-
-(B<ifMauIfIndex>)
-
-=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<ifMauType>)
-
-=item $mau->mau_status() - Returns the admin link condition as 
-
-    1 - other
-    2 - unknown
-    3 - operational
-    4 - standby
-    5 - shutdown
-    6 - reset
-
-Use 5 and !5 to see if the link is up or down on the admin side.
-
-(B<ifMauStatus>)
-
-=item $mau->mau_up() -  Returns the current link condition
-
- (B<ifMauMediaAvailable>)
-
-=item $mau->mau_type() - Returns a 32bit string reporting the capabilities
-of the port from a MAU POV. 
-
-  Directly from the MAU-MIB : 
-          Bit   Capability
-            0      other or unknown
-            1      AUI
-            2      10BASE-5
-            3      FOIRL
-            4      10BASE-2
-            5      10BASE-T duplex mode unknown
-            6      10BASE-FP
-            7      10BASE-FB
-            8      10BASE-FL duplex mode unknown
-            9      10BROAD36
-           10      10BASE-T  half duplex mode
-           11      10BASE-T  full duplex mode
-           12      10BASE-FL half duplex mode
-           13      10BASE-FL full duplex mode
-           14      100BASE-T4
-           15      100BASE-TX half duplex mode
-           16      100BASE-TX full duplex mode
-           17      100BASE-FX half duplex mode
-           18      100BASE-FX full duplex mode
-           19      100BASE-T2 half duplex mode
-           20      100BASE-T2 full duplex mode
-
-(B<ifMauTypeList>)
-
-=item $mau->mau_type_admin()
-
-(C<ifMauDefaultType>)
-
-=item $mau->mau_auto() - Returns status of auto-negotiation mode for ports.
-
-(B<ifMauAutoNegAdminStatus>)
-
-=item $mau->mau_autostat()
-
-(C<ifMauAutoNegAdminStatus>)
-
-=item $mau->mau_autosent() - Returns a 32 bit bit-string representing the
-capabilities we are broadcasting on that port 
-
-    Uses the same decoder as $mau->mau_type().
-
-(B<ifMauAutoNegCapAdvertised>)
-
-
-=item $mau->mau_autorec() - Returns a 32 bit bit-string representing the 
-capabilities of the device on the other end. 
-
-    Uses the same decoder as $mau->mau_type().
-
-(B<ifMauAutoNegCapReceived>)
-
-=back
-
-=head1 Utility Functions
-
-=over 
-
-=item munge_int2bin() - Unpacks an integer into a 32bit bit string.
-
-=item $mau->_isfullduplex(bitstring)
-
-    Boolean. Checks to see if any of the full_duplex types from mau_type() are
-    high.  Currently bits 11,13,16,18,20.
-
-=item $mau->_ishalfduplex(bitstring)
-    
-    Boolean.  Checks to see if any of the half_duplex types from mau_type() are
-    high.  Currently bits 10,12,15,17,19.
-
-=back
-
-=cut

Info/SONMP.pm

@@ -1,408 +0,0 @@
-# SNMP::Info::SONMP
-# Eric Miller
-# $Id$
-#
-# Copyright (c) 2004 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.
-#     * 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::SONMP;
-$VERSION = '1.07';
-
-use strict;
-
-use Exporter;
-use SNMP::Info;
-
-@SNMP::Info::SONMP::ISA = qw/SNMP::Info Exporter/;
-@SNMP::Info::SONMP::EXPORT_OK = qw//;
-
-use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
-
-%MIBS    = (
-            'SYNOPTICS-ROOT-MIB' => 'synoptics',
-            'S5-ETH-MULTISEG-TOPOLOGY-MIB' => 's5EnMsTop',
-            );
-
-%GLOBALS = (
-            'cdp_id'  => 's5EnMsTopIpAddr',
-            'cdp_run' => 's5EnMsTopStatus',
-            );
-
-%FUNCS  = (
-            # From S5-ETH-MULTISEG-TOPOLOGY-MIB::TopNmmTable
-            'sonmp_topo_slot'     => 's5EnMsTopNmmSlot',
-            'sonmp_topo_port'     => 's5EnMsTopNmmPort',
-            'sonmp_topo_ip'       => 's5EnMsTopNmmIpAddr',
-            'sonmp_topo_seg'      => 's5EnMsTopNmmSegId',
-            'sonmp_topo_mac'      => 's5EnMsTopNmmMacAddr',
-            'sonmp_topo_platform' => 's5EnMsTopNmmChassisType',
-            'sonmp_topo_localseg' => 's5EnMsTopNmmLocalSeg',
-          );
-
-%MUNGE = (
-         'sonmp_topo_mac'           => \&SNMP::Info::munge_mac
-         );
-
-sub index_factor {
-    return 32;
-}
-
-sub slot_offset {
-    return 1;
-}
-
-sub port_offset {
-    return 0;
-}
-
-sub hasCDP {
-    my $sonmp = shift;
-    return $sonmp->cdp_run();
-}
-
-sub c_if {
-    my $sonmp = shift;
-    my $partial = shift;
-
-    my $sonmp_topo_port = $sonmp->sonmp_topo_port($partial) || {};
-    my $sonmp_topo_slot = $sonmp->sonmp_topo_slot($partial) || {};
-    my $index_factor = $sonmp->index_factor();
-    my $slot_offset = $sonmp->slot_offset();
-    my $port_offset = $sonmp->port_offset();
-    my $model = $sonmp->model();
-
-    my %c_if;
-    foreach my $entry (keys %$sonmp_topo_port){
-        my $port = $sonmp_topo_port->{$entry};
-        next unless defined $port;
-        next if $port == 0;
-        my $slot = $sonmp_topo_slot->{$entry} || 0;
-
-        if ($model eq 'Baystack Hub') {
-        my $comidx = $slot;
-            if (! ($comidx % 5)) {
-               $slot = ($slot / 5);
-            } elsif ($comidx =~ /[16]$/) {
-               $slot = int($slot/5);
-               $port = 25;          
-            } elsif ($comidx =~ /[27]$/) {
-               $slot = int($slot/5);
-               $port = 26;          
-            }
-        }
-
-        my $index = (($slot-$slot_offset)*$index_factor) + ($port-$port_offset);
-        
-        $c_if{$entry} = $index;
-    }
-    return \%c_if;
-}
-
-sub c_ip {
-    my $sonmp = shift;
-    my $partial = shift;
-
-    my $sonmp_topo_port = $sonmp->sonmp_topo_port($partial) || {};
-    my $sonmp_topo_ip   = $sonmp->sonmp_topo_ip($partial) || {};
-
-    my %c_ip;
-    foreach my $entry (keys %$sonmp_topo_ip){
-        my $port = $sonmp_topo_port->{$entry};
-        next unless defined $port;
-        next if $port == 0;
-        
-        my $ip = $sonmp_topo_ip->{$entry};
-        $c_ip{$entry} = $ip;
-    }
-    return \%c_ip;
-}
-
-sub c_port {
-    my $sonmp = shift;
-    my $partial = shift;
-
-    my $sonmp_topo_port = $sonmp->sonmp_topo_port($partial) || {};
-    my $sonmp_topo_seg = $sonmp->sonmp_topo_seg($partial) || {};
-    my $sonmp_topo_platform = $sonmp->sonmp_topo_platform($partial) || {};
-
-    my %c_port;
-    foreach my $entry (keys %$sonmp_topo_seg){
-        my $port = $sonmp_topo_port->{$entry};
-        next unless defined $port;
-        next if $port == 0;
-
-        my $seg  = $sonmp_topo_seg->{$entry};
-        my $platform = $sonmp_topo_platform->{$entry};
-        # AP-222x Series does not adhere to port numbering
-        if ($platform =~ /AccessPoint/i) {
-            $c_port{$entry} = 'dp0';
-        }
-        # BayHubs send the lower three bytes of the MAC not the slot/port        
-        elsif ($seg > 4000) {
-            $c_port{$entry} = 'unknown';
-        }
-        else {
-            # Segment id is (256 * remote slot_num) + (remote_port)
-            my $remote_port = $seg % 256;
-            my $remote_slot = int($seg / 256);
-    
-           $c_port{$entry} = "$remote_slot.$remote_port";
-        }
-    }
-    return \%c_port;
-}
-
-sub c_platform {
-    my $sonmp = shift;
-    my $partial = shift;
-
-    my $sonmp_topo_port = $sonmp->sonmp_topo_port($partial) || {};
-    my $sonmp_topo_platform = $sonmp->sonmp_topo_platform($partial) || {};
-
-    my %c_platform;
-    foreach my $entry (keys %$sonmp_topo_platform){
-        my $port = $sonmp_topo_port->{$entry};
-        next unless defined $port;
-        next if $port == 0;
-
-        my $platform  = $sonmp_topo_platform->{$entry};
-
-        $c_platform{$entry} = $platform;
-    }
-    return \%c_platform;
-}
-
-sub mac {
-    my $sonmp = shift;
-
-    my $sonmp_topo_port = $sonmp->sonmp_topo_port();
-    my $sonmp_topo_mac = $sonmp->sonmp_topo_mac();
-    
-    foreach my $entry (keys %$sonmp_topo_port){
-        my $port = $sonmp_topo_port->{$entry};
-        next unless $port == 0;
-        my $mac = $sonmp_topo_mac->{$entry};
-        return $mac;
-    }
-    # Topology turned off, not supported.
-    return undef;
-}
-
-1;
-__END__
-
-=head1 NAME
-
-SNMP::Info::SONMP - SNMP Interface to SynOptics Network Management Protocol (SONMP)
-
-=head1 AUTHOR
-
-Eric Miller
-
-=head1 SYNOPSIS
-
- my $sonmp = new SNMP::Info ( 
-                             AutoSpecify => 1,
-                             Debug       => 1,
-                             DestHost    => 'router', 
-                             Community   => 'public',
-                             Version     => 2
-                           );
-
- my $class = $sonmp->class();
- print " Using device sub class : $class\n";
-
- $hascdp   = $sonmp->hasCDP() ? 'yes' : 'no';
-
- # Print out a map of device ports with CDP neighbors:
- my $interfaces = $sonmp->interfaces();
- my $c_if       = $sonmp->c_if();
- my $c_ip       = $sonmp->c_ip();
- my $c_port     = $sonmp->c_port();
-
- foreach my $cdp_key (keys %$c_ip){
-    my $iid           = $c_if->{$cdp_key};
-    my $port          = $interfaces->{$iid};
-    my $neighbor      = $c_ip->{$cdp_key};
-    my $neighbor_port = $c_port->{$cdp_key};
-    print "Port : $port connected to $neighbor / $neighbor_port\n";
- }
-
-=head1 DESCRIPTION
-
-SNMP::Info::SONMP is a subclass of SNMP::Info that provides an object oriented 
-interface to the SynOptics Network Management Protocol (SONMP) information
-through SNMP.
-
-SONMP is a Layer 2 protocol that supplies topology information of devices that
-also speak SONMP, mostly switches and hubs.  SONMP is implemented in SynOptics,
-Bay, and Nortel devices.  SONMP has been rebranded by Bay then Nortel and is
-know by several different names, most recently Nortel Discovery Protocol (NDP).
-
-Create or use a device subclass that inherits this class.  Do not use directly.
-
-Each device implements a subset of the global and cache entries. 
-Check the return value to see if that data is held by the device.
-
-=head2 Inherited Classes
-
-None.
-
-=head2 Required MIBs
-
-=over
-
-=item SYNOPTICS-ROOT-MIB
-
-=item S5-ETH-MULTISEG-TOPOLOGY-MIB
-
-=back
-
-=head1 GLOBAL METHODS
-
-These are methods that return scalar values from SNMP
-
-=over
-
-=item  $sonmp->index_factor()
-
-Returns a number representing the number of ports reserved per slot or switch
-within the device MIB.  Defaults to 32.
-
-=item $sonmp->slot_offset()
-
-Returns the offset if slot numbering does not start at 0.  Defaults to 1.
-
-=item $sonmp->port_offset()
-
-Returns the offset if port numbering does not start at 0.  Defaults to 0. 
-
-=item  $cdp->hasCDP()
-
-Is SONMP is active in this device?
-
-=item $sonmp->cdp_id()
-
-Returns the IP that the device is sending out for its Nmm topology info.
-
-(B<s5EnMsTopIpAddr>)
-
-=item $sonmp->cdp_run()
-
-Returns true if SONMP is on for this device. 
-
-(B<s5EnMsTopStatus>)
-
-=item $sonmp->mac()
-
-Returns MAC of the advertised IP address of the device. 
-
-=back
-
-=head1 TABLE METHODS
-
-These are methods that return tables of information in the form of a reference
-to a hash.
-
-=head2 Layer2 Topology info (B<s5EnMsTopNmmTable>)
-
-=over
-
-=item $sonmp->sonmp_topo_slot()
-
-Returns reference to hash.  Key: Table entry, Value:slot number
-
-(B<s5EnMsTopNmmSlot>)
-
-=item $sonmp->sonmp_topo_port()
-
-Returns reference to hash.  Key: Table entry, Value:Port Number (interface iid)
-
-(B<s5EnMsTopNmmPort>)
-
-=item $sonmp->sonmp_topo_ip()
-
-Returns reference to hash.  Key: Table entry, Value:Remote IP address of entry
-
-(B<s5EnMsTopNmmIpAddr>)
-
-=item $sonmp->sonmp_topo_seg()
-
-Returns reference to hash.  Key: Table entry, Value:Remote Segment ID
-
-(B<s5EnMsTopNmmSegId>)
-
-=item $sonmp->sonmp_topo_mac()
-
-(B<s5EnMsTopNmmMacAddr>)
-
-Returns reference to hash.  Key: Table entry, Value:Remote MAC address
-
-=item $sonmp->sonmp_topo_platform
-
-Returns reference to hash.  Key: Table entry, Value:Remote Device Type
-
-(B<s5EnMsTopNmmChassisType>)
-
-=item $sonmp->sonmp_topo_localseg
-
-Returns reference to hash.  Key: Table entry, Value: Boolean, if bay_topo_seg()
-is local.
-
-(B<s5EnMsTopNmmLocalSeg>)
-
-=back
-
-=head2 Psuedo CDP information
-
-All entries with port=0 are local and ignored.
-
-=over
-
-=item $sonmp->c_if()
-
-Returns reference to hash.  Key: IID, Value: Local port (interfaces)
-
-=item $sonmp->c_ip()
-
-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
-more devices or multiple devices which are not directly connected.  
-
-Use the data from the Layer2 Topology Table below to dig deeper.
-
-=item $sonmp->c_port()
-
-Returns reference to hash. Key: IID, Value: Remote port (interfaces)
-
-=item $sonmp->c_platform()
-
-Returns reference to hash. Key: IID, Value: Remote device type
-
-=back
-
-=cut

LICENSE

@@ -1,5 +1,5 @@
 All code from version 0.7 on
-Copyright (c) 2003,2004 Max Baker
+Copyright (c) 2003-2016 Max Baker and SNMP::Info Developers
 All rights reserved.
 
 Original Code

MANIFEST

@@ -1,78 +1,282 @@
-ChangeLog
-COPYRIGHT
-DeviceMatrix.txt
-Info.pm
-Info/Airespace.pm
-Info/Bridge.pm
-Info/CDP.pm
-Info/CiscoConfig.pm
-Info/CiscoImage.pm
-Info/CiscoPortSecurity.pm
-Info/CiscoPower.pm
-Info/CiscoQOS.pm
-Info/CiscoRTT.pm
-Info/CiscoStack.pm
-Info/CiscoStats.pm
-Info/CiscoVTP.pm
-Info/Entity.pm
-Info/EtherLike.pm
-Info/FDP.pm
-Info/IEEE802dot11.pm
-Info/Layer1.pm
-Info/Layer1/Allied.pm
-Info/Layer1/Asante.pm
-Info/Layer1/Bayhub.pm
-Info/Layer1/Cyclades.pm
-Info/Layer1/S3000.pm
-Info/Layer2.pm
-Info/Layer2/Airespace.pm
-Info/Layer2/Aironet.pm
-Info/Layer2/Allied.pm
-Info/Layer2/Aruba.pm
-Info/Layer2/Bay.pm
-Info/Layer2/Baystack.pm
-Info/Layer2/C1900.pm
-Info/Layer2/C2900.pm
-Info/Layer2/Catalyst.pm
-Info/Layer2/Centillion.pm
-Info/Layer2/Cisco.pm
-Info/Layer2/Foundry.pm
-Info/Layer2/HP.pm
-Info/Layer2/N2270.pm
-Info/Layer2/NAP222x.pm
-Info/Layer2/Netgear.pm
-Info/Layer2/Orinoco.pm
-Info/Layer2/ZyXEL_DSLAM.pm
-Info/Layer3.pm
-Info/Layer3/Aironet.pm
-Info/Layer3/AlteonAD.pm
-Info/Layer3/BayRS.pm
-Info/Layer3/C3550.pm
-Info/Layer3/C4000.pm
-Info/Layer3/C6500.pm
-Info/Layer3/Cisco.pm
-Info/Layer3/Contivity.pm
-Info/Layer3/Dell.pm
-Info/Layer3/Enterasys.pm
-Info/Layer3/Extreme.pm
-Info/Layer3/Foundry.pm
-Info/Layer3/Juniper.pm
-Info/Layer3/Microsoft.pm
-Info/Layer3/N1600.pm
-Info/Layer3/Netscreen.pm
-Info/Layer3/NetSNMP.pm
-Info/Layer3/Passport.pm
-Info/Layer3/Sun.pm
-Info/LLDP.pm
-Info/MAU.pm
-Info/NortelStack.pm
-Info/PowerEthernet.pm
-Info/RapidCity.pm
-Info/SONMP.pm
-Makefile.PL
+.perltidyrc
+Build.PL
+Changes
+contrib/DEVELOP
+contrib/util/docmunge
+contrib/util/make_dev_matrix.pl
+contrib/util/make_snmpdata.pl
+contrib/util/push_ver
+contrib/util/run_test
+contrib/util/test_class.pl
+contrib/util/test_class_mocked.pl
+lib/SNMP/Info.pm
+lib/SNMP/Info/AdslLine.pm
+lib/SNMP/Info/Aggregate.pm
+lib/SNMP/Info/Airespace.pm
+lib/SNMP/Info/AMAP.pm
+lib/SNMP/Info/Bridge.pm
+lib/SNMP/Info/CDP.pm
+lib/SNMP/Info/CiscoAgg.pm
+lib/SNMP/Info/CiscoConfig.pm
+lib/SNMP/Info/CiscoPortSecurity.pm
+lib/SNMP/Info/CiscoPower.pm
+lib/SNMP/Info/CiscoQOS.pm
+lib/SNMP/Info/CiscoRTT.pm
+lib/SNMP/Info/CiscoStack.pm
+lib/SNMP/Info/CiscoStats.pm
+lib/SNMP/Info/CiscoStpExtensions.pm
+lib/SNMP/Info/CiscoVTP.pm
+lib/SNMP/Info/EDP.pm
+lib/SNMP/Info/Entity.pm
+lib/SNMP/Info/EtherLike.pm
+lib/SNMP/Info/FDP.pm
+lib/SNMP/Info/IEEE802dot11.pm
+lib/SNMP/Info/IEEE802dot3ad.pm
+lib/SNMP/Info/IPv6.pm
+lib/SNMP/Info/Layer1.pm
+lib/SNMP/Info/Layer1/Allied.pm
+lib/SNMP/Info/Layer1/Asante.pm
+lib/SNMP/Info/Layer1/Bayhub.pm
+lib/SNMP/Info/Layer1/Cyclades.pm
+lib/SNMP/Info/Layer1/S3000.pm
+lib/SNMP/Info/Layer2.pm
+lib/SNMP/Info/Layer2/3Com.pm
+lib/SNMP/Info/Layer2/Adtran.pm
+lib/SNMP/Info/Layer2/Aerohive.pm
+lib/SNMP/Info/Layer2/Airespace.pm
+lib/SNMP/Info/Layer2/Aironet.pm
+lib/SNMP/Info/Layer2/Allied.pm
+lib/SNMP/Info/Layer2/Atmedia.pm
+lib/SNMP/Info/Layer2/Baystack.pm
+lib/SNMP/Info/Layer2/C1900.pm
+lib/SNMP/Info/Layer2/C2900.pm
+lib/SNMP/Info/Layer2/Catalyst.pm
+lib/SNMP/Info/Layer2/Centillion.pm
+lib/SNMP/Info/Layer2/Cisco.pm
+lib/SNMP/Info/Layer2/CiscoSB.pm
+lib/SNMP/Info/Layer2/HP.pm
+lib/SNMP/Info/Layer2/HP4000.pm
+lib/SNMP/Info/Layer2/HPVC.pm
+lib/SNMP/Info/Layer2/Kentrox.pm
+lib/SNMP/Info/Layer2/N2270.pm
+lib/SNMP/Info/Layer2/NAP222x.pm
+lib/SNMP/Info/Layer2/Netgear.pm
+lib/SNMP/Info/Layer2/Nexans.pm
+lib/SNMP/Info/Layer2/NWSS2300.pm
+lib/SNMP/Info/Layer2/Orinoco.pm
+lib/SNMP/Info/Layer2/Sixnet.pm
+lib/SNMP/Info/Layer2/Trapeze.pm
+lib/SNMP/Info/Layer2/Ubiquiti.pm
+lib/SNMP/Info/Layer2/ZyXEL_DSLAM.pm
+lib/SNMP/Info/Layer3.pm
+lib/SNMP/Info/Layer3/Aironet.pm
+lib/SNMP/Info/Layer3/AlcatelLucent.pm
+lib/SNMP/Info/Layer3/AlteonAD.pm
+lib/SNMP/Info/Layer3/Altiga.pm
+lib/SNMP/Info/Layer3/Arista.pm
+lib/SNMP/Info/Layer3/Aruba.pm
+lib/SNMP/Info/Layer3/BayRS.pm
+lib/SNMP/Info/Layer3/BlueCoatSG.pm
+lib/SNMP/Info/Layer3/C3550.pm
+lib/SNMP/Info/Layer3/C4000.pm
+lib/SNMP/Info/Layer3/C6500.pm
+lib/SNMP/Info/Layer3/CheckPoint.pm
+lib/SNMP/Info/Layer3/Cisco.pm
+lib/SNMP/Info/Layer3/CiscoASA.pm
+lib/SNMP/Info/Layer3/CiscoFWSM.pm
+lib/SNMP/Info/Layer3/CiscoSwitch.pm
+lib/SNMP/Info/Layer3/Contivity.pm
+lib/SNMP/Info/Layer3/Cumulus.pm
+lib/SNMP/Info/Layer3/Dell.pm
+lib/SNMP/Info/Layer3/DLink.pm
+lib/SNMP/Info/Layer3/Enterasys.pm
+lib/SNMP/Info/Layer3/ERX.pm
+lib/SNMP/Info/Layer3/Extreme.pm
+lib/SNMP/Info/Layer3/F5.pm
+lib/SNMP/Info/Layer3/Force10.pm
+lib/SNMP/Info/Layer3/Fortinet.pm
+lib/SNMP/Info/Layer3/Foundry.pm
+lib/SNMP/Info/Layer3/Genua.pm
+lib/SNMP/Info/Layer3/H3C.pm
+lib/SNMP/Info/Layer3/HP9300.pm
+lib/SNMP/Info/Layer3/Huawei.pm
+lib/SNMP/Info/Layer3/IBMGbTor.pm
+lib/SNMP/Info/Layer3/Juniper.pm
+lib/SNMP/Info/Layer3/Lantronix.pm
+lib/SNMP/Info/Layer3/Microsoft.pm
+lib/SNMP/Info/Layer3/Mikrotik.pm
+lib/SNMP/Info/Layer3/N1600.pm
+lib/SNMP/Info/Layer3/Netscreen.pm
+lib/SNMP/Info/Layer3/NetSNMP.pm
+lib/SNMP/Info/Layer3/Nexus.pm
+lib/SNMP/Info/Layer3/OneAccess.pm
+lib/SNMP/Info/Layer3/PacketFront.pm
+lib/SNMP/Info/Layer3/PaloAlto.pm
+lib/SNMP/Info/Layer3/Passport.pm
+lib/SNMP/Info/Layer3/Pf.pm
+lib/SNMP/Info/Layer3/Pica8.pm
+lib/SNMP/Info/Layer3/SonicWALL.pm
+lib/SNMP/Info/Layer3/Steelhead.pm
+lib/SNMP/Info/Layer3/Sun.pm
+lib/SNMP/Info/Layer3/Tasman.pm
+lib/SNMP/Info/Layer3/Timetra.pm
+lib/SNMP/Info/Layer3/VMware.pm
+lib/SNMP/Info/Layer3/VyOS.pm
+lib/SNMP/Info/Layer7.pm
+lib/SNMP/Info/Layer7/APC.pm
+lib/SNMP/Info/Layer7/Arbor.pm
+lib/SNMP/Info/Layer7/CiscoIPS.pm
+lib/SNMP/Info/Layer7/Gigamon.pm
+lib/SNMP/Info/Layer7/Liebert.pm
+lib/SNMP/Info/Layer7/Neoteris.pm
+lib/SNMP/Info/Layer7/Netscaler.pm
+lib/SNMP/Info/LLDP.pm
+lib/SNMP/Info/MAU.pm
+lib/SNMP/Info/MRO.pm
+lib/SNMP/Info/NortelStack.pm
+lib/SNMP/Info/PowerEthernet.pm
+lib/SNMP/Info/RapidCity.pm
+lib/SNMP/Info/SONMP.pm
+LICENSE
 MANIFEST			This list of files
+META.json
+META.yml
 README
-t/docmunge
-t/make_dev_matrix.pl
-t/prereq.t
-t/test_class.pl
+t/00_load.t
+xt/.perltidyrc
+xt/00_local_distribution.t
+xt/00_local_docininfo.t
+xt/00_local_perlcritic.t
+xt/00_local_pod-coverage.t
+xt/00_local_pod.t
+xt/00_local_prereq.t
+xt/00_local_spelling.t
+xt/00_local_versionsync.t
+xt/10_remote_snmplabs.t
+xt/20_run.t
+xt/lib/My/Test/Class.pm
+xt/lib/Test/SNMP/Info.pm
+xt/lib/Test/SNMP/Info/AdslLine.pm
+xt/lib/Test/SNMP/Info/Aggregate.pm
+xt/lib/Test/SNMP/Info/Airespace.pm
+xt/lib/Test/SNMP/Info/AMAP.pm
+xt/lib/Test/SNMP/Info/Bridge.pm
+xt/lib/Test/SNMP/Info/CDP.pm
+xt/lib/Test/SNMP/Info/CiscoAgg.pm
+xt/lib/Test/SNMP/Info/CiscoConfig.pm
+xt/lib/Test/SNMP/Info/CiscoPortSecurity.pm
+xt/lib/Test/SNMP/Info/CiscoPower.pm
+xt/lib/Test/SNMP/Info/CiscoQOS.pm
+xt/lib/Test/SNMP/Info/CiscoRTT.pm
+xt/lib/Test/SNMP/Info/CiscoStats.pm
+xt/lib/Test/SNMP/Info/CiscoStpExtensions.pm
+xt/lib/Test/SNMP/Info/CiscoVTP.pm
+xt/lib/Test/SNMP/Info/EDP.pm
+xt/lib/Test/SNMP/Info/Entity.pm
+xt/lib/Test/SNMP/Info/EtherLike.pm
+xt/lib/Test/SNMP/Info/FDP.pm
+xt/lib/Test/SNMP/Info/IEEE802dot11.pm
+xt/lib/Test/SNMP/Info/IEEE802dot3ad.pm
+xt/lib/Test/SNMP/Info/IPv6.pm
+xt/lib/Test/SNMP/Info/Layer1.pm
+xt/lib/Test/SNMP/Info/Layer1/Allied.pm
+xt/lib/Test/SNMP/Info/Layer1/Asante.pm
+xt/lib/Test/SNMP/Info/Layer1/Bayhub.pm
+xt/lib/Test/SNMP/Info/Layer1/Cyclades.pm
+xt/lib/Test/SNMP/Info/Layer1/S3000.pm
+xt/lib/Test/SNMP/Info/Layer2.pm
+xt/lib/Test/SNMP/Info/Layer2/3Com.pm
+xt/lib/Test/SNMP/Info/Layer2/Aerohive.pm
+xt/lib/Test/SNMP/Info/Layer2/Airespace.pm
+xt/lib/Test/SNMP/Info/Layer2/Aironet.pm
+xt/lib/Test/SNMP/Info/Layer2/Allied.pm
+xt/lib/Test/SNMP/Info/Layer2/Atmedia.pm
+xt/lib/Test/SNMP/Info/Layer2/Baystack.pm
+xt/lib/Test/SNMP/Info/Layer2/C1900.pm
+xt/lib/Test/SNMP/Info/Layer2/C2900.pm
+xt/lib/Test/SNMP/Info/Layer2/Catalyst.pm
+xt/lib/Test/SNMP/Info/Layer2/Centillion.pm
+xt/lib/Test/SNMP/Info/Layer2/Cisco.pm
+xt/lib/Test/SNMP/Info/Layer2/CiscoSB.pm
+xt/lib/Test/SNMP/Info/Layer2/HP.pm
+xt/lib/Test/SNMP/Info/Layer2/HP4000.pm
+xt/lib/Test/SNMP/Info/Layer2/HPVC.pm
+xt/lib/Test/SNMP/Info/Layer2/Kentrox.pm
+xt/lib/Test/SNMP/Info/Layer2/N2270.pm
+xt/lib/Test/SNMP/Info/Layer2/NAP222x.pm
+xt/lib/Test/SNMP/Info/Layer2/Netgear.pm
+xt/lib/Test/SNMP/Info/Layer2/Nexans.pm
+xt/lib/Test/SNMP/Info/Layer2/NWSS2300.pm
+xt/lib/Test/SNMP/Info/Layer2/Orinoco.pm
+xt/lib/Test/SNMP/Info/Layer2/Sixnet.pm
+xt/lib/Test/SNMP/Info/Layer2/Trapeze.pm
+xt/lib/Test/SNMP/Info/Layer2/Ubiquiti.pm
+xt/lib/Test/SNMP/Info/Layer2/ZyXEL_DSLAM.pm
+xt/lib/Test/SNMP/Info/Layer3.pm
+xt/lib/Test/SNMP/Info/Layer3/Aironet.pm
+xt/lib/Test/SNMP/Info/Layer3/AlcatelLucent.pm
+xt/lib/Test/SNMP/Info/Layer3/AlteonAD.pm
+xt/lib/Test/SNMP/Info/Layer3/Altiga.pm
+xt/lib/Test/SNMP/Info/Layer3/Arista.pm
+xt/lib/Test/SNMP/Info/Layer3/Aruba.pm
+xt/lib/Test/SNMP/Info/Layer3/BayRS.pm
+xt/lib/Test/SNMP/Info/Layer3/BlueCoatSG.pm
+xt/lib/Test/SNMP/Info/Layer3/C3550.pm
+xt/lib/Test/SNMP/Info/Layer3/C4000.pm
+xt/lib/Test/SNMP/Info/Layer3/C6500.pm
+xt/lib/Test/SNMP/Info/Layer3/CheckPoint.pm
+xt/lib/Test/SNMP/Info/Layer3/Cisco.pm
+xt/lib/Test/SNMP/Info/Layer3/CiscoASA.pm
+xt/lib/Test/SNMP/Info/Layer3/CiscoFWSM.pm
+xt/lib/Test/SNMP/Info/Layer3/CiscoSwitch.pm
+xt/lib/Test/SNMP/Info/Layer3/Contivity.pm
+xt/lib/Test/SNMP/Info/Layer3/Cumulus.pm
+xt/lib/Test/SNMP/Info/Layer3/Dell.pm
+xt/lib/Test/SNMP/Info/Layer3/DLink.pm
+xt/lib/Test/SNMP/Info/Layer3/Enterasys.pm
+xt/lib/Test/SNMP/Info/Layer3/ERX.pm
+xt/lib/Test/SNMP/Info/Layer3/Extreme.pm
+xt/lib/Test/SNMP/Info/Layer3/F5.pm
+xt/lib/Test/SNMP/Info/Layer3/Force10.pm
+xt/lib/Test/SNMP/Info/Layer3/Fortinet.pm
+xt/lib/Test/SNMP/Info/Layer3/Foundry.pm
+xt/lib/Test/SNMP/Info/Layer3/Genua.pm
+xt/lib/Test/SNMP/Info/Layer3/H3C.pm
+xt/lib/Test/SNMP/Info/Layer3/HP9300.pm
+xt/lib/Test/SNMP/Info/Layer3/Huawei.pm
+xt/lib/Test/SNMP/Info/Layer3/IBMGbTor.pm
+xt/lib/Test/SNMP/Info/Layer3/Juniper.pm
+xt/lib/Test/SNMP/Info/Layer3/Lantronix.pm
+xt/lib/Test/SNMP/Info/Layer3/Microsoft.pm
+xt/lib/Test/SNMP/Info/Layer3/Mikrotik.pm
+xt/lib/Test/SNMP/Info/Layer3/N1600.pm
+xt/lib/Test/SNMP/Info/Layer3/Netscreen.pm
+xt/lib/Test/SNMP/Info/Layer3/NetSNMP.pm
+xt/lib/Test/SNMP/Info/Layer3/Nexus.pm
+xt/lib/Test/SNMP/Info/Layer3/OneAccess.pm
+xt/lib/Test/SNMP/Info/Layer3/PacketFront.pm
+xt/lib/Test/SNMP/Info/Layer3/PaloAlto.pm
+xt/lib/Test/SNMP/Info/Layer3/Passport.pm
+xt/lib/Test/SNMP/Info/Layer3/Pf.pm
+xt/lib/Test/SNMP/Info/Layer3/Pica8.pm
+xt/lib/Test/SNMP/Info/Layer3/SonicWALL.pm
+xt/lib/Test/SNMP/Info/Layer3/Steelhead.pm
+xt/lib/Test/SNMP/Info/Layer3/Sun.pm
+xt/lib/Test/SNMP/Info/Layer3/Tasman.pm
+xt/lib/Test/SNMP/Info/Layer3/Timetra.pm
+xt/lib/Test/SNMP/Info/Layer3/VMware.pm
+xt/lib/Test/SNMP/Info/Layer3/VyOS.pm
+xt/lib/Test/SNMP/Info/Layer7.pm
+xt/lib/Test/SNMP/Info/Layer7/APC.pm
+xt/lib/Test/SNMP/Info/Layer7/Arbor.pm
+xt/lib/Test/SNMP/Info/Layer7/CiscoIPS.pm
+xt/lib/Test/SNMP/Info/Layer7/Gigamon.pm
+xt/lib/Test/SNMP/Info/Layer7/Liebert.pm
+xt/lib/Test/SNMP/Info/Layer7/Neoteris.pm
+xt/lib/Test/SNMP/Info/Layer7/Netscaler.pm
+xt/lib/Test/SNMP/Info/LLDP.pm
+xt/lib/Test/SNMP/Info/MAU.pm
+xt/lib/Test/SNMP/Info/NortelStack.pm
+xt/lib/Test/SNMP/Info/PowerEthernet.pm
+xt/lib/Test/SNMP/Info/RapidCity.pm
+xt/lib/Test/SNMP/Info/SONMP.pm

MANIFEST.SKIP

@@ -0,0 +1,70 @@
+\.bak$
+\.pid$
+\.swp$
+
+^SNMP-Info-
+
+^MANIFEST\.
+
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$         # 6.18 through 6.25 generated this
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+ 
+# Avoid MYMETA files
+^MYMETA\.
+
+.github
+.travis
+README.md
+
+# Avoid Komodo project file
+\.komodoproject$

META.json

@@ -0,0 +1,581 @@
+{
+   "abstract" : "OO Interface to Network devices and MIBs through SNMP",
+   "author" : [
+      "Eric A. Miller <emiller@cpan.org>"
+   ],
+   "dynamic_config" : 1,
+   "generated_by" : "Module::Build version 0.4224",
+   "license" : [
+      "bsd"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+      "version" : 2
+   },
+   "name" : "SNMP-Info",
+   "prereqs" : {
+      "configure" : {
+         "requires" : {
+            "Module::Build" : "0.42"
+         }
+      },
+      "runtime" : {
+         "recommends" : {
+            "Class::ISA" : "0",
+            "File::Slurp" : "0",
+            "Module::Info" : "0",
+            "Module::Load" : "0",
+            "PPI" : "0"
+         },
+         "requires" : {
+            "Math::BigInt" : "0",
+            "NetAddr::IP" : "4.068",
+            "SNMP" : "0"
+         }
+      },
+      "test" : {
+         "requires" : {
+            "Class::Inspector" : "0",
+            "File::Find" : "0",
+            "File::Slurper" : "0",
+            "Path::Class" : "0",
+            "Test::Class::Most" : "0",
+            "Test::Distribution" : "0",
+            "Test::Exception" : "0.43",
+            "Test::MockObject::Extends" : "0",
+            "Test::More" : "0.88"
+         }
+      }
+   },
+   "provides" : {
+      "SNMP::Info" : {
+         "file" : "lib/SNMP/Info.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::AMAP" : {
+         "file" : "lib/SNMP/Info/AMAP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::AdslLine" : {
+         "file" : "lib/SNMP/Info/AdslLine.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Aggregate" : {
+         "file" : "lib/SNMP/Info/Aggregate.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Airespace" : {
+         "file" : "lib/SNMP/Info/Airespace.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Bridge" : {
+         "file" : "lib/SNMP/Info/Bridge.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CDP" : {
+         "file" : "lib/SNMP/Info/CDP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoAgg" : {
+         "file" : "lib/SNMP/Info/CiscoAgg.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoConfig" : {
+         "file" : "lib/SNMP/Info/CiscoConfig.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoPortSecurity" : {
+         "file" : "lib/SNMP/Info/CiscoPortSecurity.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoPower" : {
+         "file" : "lib/SNMP/Info/CiscoPower.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoQOS" : {
+         "file" : "lib/SNMP/Info/CiscoQOS.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoRTT" : {
+         "file" : "lib/SNMP/Info/CiscoRTT.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoStack" : {
+         "file" : "lib/SNMP/Info/CiscoStack.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoStats" : {
+         "file" : "lib/SNMP/Info/CiscoStats.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoStpExtensions" : {
+         "file" : "lib/SNMP/Info/CiscoStpExtensions.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::CiscoVTP" : {
+         "file" : "lib/SNMP/Info/CiscoVTP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::EDP" : {
+         "file" : "lib/SNMP/Info/EDP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Entity" : {
+         "file" : "lib/SNMP/Info/Entity.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::EtherLike" : {
+         "file" : "lib/SNMP/Info/EtherLike.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::FDP" : {
+         "file" : "lib/SNMP/Info/FDP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::IEEE802dot11" : {
+         "file" : "lib/SNMP/Info/IEEE802dot11.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::IEEE802dot3ad" : {
+         "file" : "lib/SNMP/Info/IEEE802dot3ad.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::IPv6" : {
+         "file" : "lib/SNMP/Info/IPv6.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::LLDP" : {
+         "file" : "lib/SNMP/Info/LLDP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer1" : {
+         "file" : "lib/SNMP/Info/Layer1.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer1::Allied" : {
+         "file" : "lib/SNMP/Info/Layer1/Allied.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer1::Asante" : {
+         "file" : "lib/SNMP/Info/Layer1/Asante.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer1::Bayhub" : {
+         "file" : "lib/SNMP/Info/Layer1/Bayhub.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer1::Cyclades" : {
+         "file" : "lib/SNMP/Info/Layer1/Cyclades.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer1::S3000" : {
+         "file" : "lib/SNMP/Info/Layer1/S3000.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2" : {
+         "file" : "lib/SNMP/Info/Layer2.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::3Com" : {
+         "file" : "lib/SNMP/Info/Layer2/3Com.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Adtran" : {
+         "file" : "lib/SNMP/Info/Layer2/Adtran.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Aerohive" : {
+         "file" : "lib/SNMP/Info/Layer2/Aerohive.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Airespace" : {
+         "file" : "lib/SNMP/Info/Layer2/Airespace.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Aironet" : {
+         "file" : "lib/SNMP/Info/Layer2/Aironet.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Allied" : {
+         "file" : "lib/SNMP/Info/Layer2/Allied.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Atmedia" : {
+         "file" : "lib/SNMP/Info/Layer2/Atmedia.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Baystack" : {
+         "file" : "lib/SNMP/Info/Layer2/Baystack.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::C1900" : {
+         "file" : "lib/SNMP/Info/Layer2/C1900.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::C2900" : {
+         "file" : "lib/SNMP/Info/Layer2/C2900.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Catalyst" : {
+         "file" : "lib/SNMP/Info/Layer2/Catalyst.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Centillion" : {
+         "file" : "lib/SNMP/Info/Layer2/Centillion.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Cisco" : {
+         "file" : "lib/SNMP/Info/Layer2/Cisco.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::CiscoSB" : {
+         "file" : "lib/SNMP/Info/Layer2/CiscoSB.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::HP" : {
+         "file" : "lib/SNMP/Info/Layer2/HP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::HP4000" : {
+         "file" : "lib/SNMP/Info/Layer2/HP4000.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::HPVC" : {
+         "file" : "lib/SNMP/Info/Layer2/HPVC.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Kentrox" : {
+         "file" : "lib/SNMP/Info/Layer2/Kentrox.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::N2270" : {
+         "file" : "lib/SNMP/Info/Layer2/N2270.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::NAP222x" : {
+         "file" : "lib/SNMP/Info/Layer2/NAP222x.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::NWSS2300" : {
+         "file" : "lib/SNMP/Info/Layer2/NWSS2300.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Netgear" : {
+         "file" : "lib/SNMP/Info/Layer2/Netgear.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Nexans" : {
+         "file" : "lib/SNMP/Info/Layer2/Nexans.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Orinoco" : {
+         "file" : "lib/SNMP/Info/Layer2/Orinoco.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Sixnet" : {
+         "file" : "lib/SNMP/Info/Layer2/Sixnet.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Trapeze" : {
+         "file" : "lib/SNMP/Info/Layer2/Trapeze.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::Ubiquiti" : {
+         "file" : "lib/SNMP/Info/Layer2/Ubiquiti.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer2::ZyXEL_DSLAM" : {
+         "file" : "lib/SNMP/Info/Layer2/ZyXEL_DSLAM.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3" : {
+         "file" : "lib/SNMP/Info/Layer3.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Aironet" : {
+         "file" : "lib/SNMP/Info/Layer3/Aironet.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::AlcatelLucent" : {
+         "file" : "lib/SNMP/Info/Layer3/AlcatelLucent.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::AlteonAD" : {
+         "file" : "lib/SNMP/Info/Layer3/AlteonAD.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Altiga" : {
+         "file" : "lib/SNMP/Info/Layer3/Altiga.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Arista" : {
+         "file" : "lib/SNMP/Info/Layer3/Arista.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Aruba" : {
+         "file" : "lib/SNMP/Info/Layer3/Aruba.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::BayRS" : {
+         "file" : "lib/SNMP/Info/Layer3/BayRS.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::BlueCoatSG" : {
+         "file" : "lib/SNMP/Info/Layer3/BlueCoatSG.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::C3550" : {
+         "file" : "lib/SNMP/Info/Layer3/C3550.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::C4000" : {
+         "file" : "lib/SNMP/Info/Layer3/C4000.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::C6500" : {
+         "file" : "lib/SNMP/Info/Layer3/C6500.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::CheckPoint" : {
+         "file" : "lib/SNMP/Info/Layer3/CheckPoint.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Cisco" : {
+         "file" : "lib/SNMP/Info/Layer3/Cisco.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::CiscoASA" : {
+         "file" : "lib/SNMP/Info/Layer3/CiscoASA.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::CiscoFWSM" : {
+         "file" : "lib/SNMP/Info/Layer3/CiscoFWSM.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::CiscoSwitch" : {
+         "file" : "lib/SNMP/Info/Layer3/CiscoSwitch.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Contivity" : {
+         "file" : "lib/SNMP/Info/Layer3/Contivity.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Cumulus" : {
+         "file" : "lib/SNMP/Info/Layer3/Cumulus.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::DLink" : {
+         "file" : "lib/SNMP/Info/Layer3/DLink.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Dell" : {
+         "file" : "lib/SNMP/Info/Layer3/Dell.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::ERX" : {
+         "file" : "lib/SNMP/Info/Layer3/ERX.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Enterasys" : {
+         "file" : "lib/SNMP/Info/Layer3/Enterasys.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Extreme" : {
+         "file" : "lib/SNMP/Info/Layer3/Extreme.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::F5" : {
+         "file" : "lib/SNMP/Info/Layer3/F5.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Force10" : {
+         "file" : "lib/SNMP/Info/Layer3/Force10.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Fortinet" : {
+         "file" : "lib/SNMP/Info/Layer3/Fortinet.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Foundry" : {
+         "file" : "lib/SNMP/Info/Layer3/Foundry.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Genua" : {
+         "file" : "lib/SNMP/Info/Layer3/Genua.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::H3C" : {
+         "file" : "lib/SNMP/Info/Layer3/H3C.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::HP9300" : {
+         "file" : "lib/SNMP/Info/Layer3/HP9300.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Huawei" : {
+         "file" : "lib/SNMP/Info/Layer3/Huawei.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::IBMGbTor" : {
+         "file" : "lib/SNMP/Info/Layer3/IBMGbTor.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Juniper" : {
+         "file" : "lib/SNMP/Info/Layer3/Juniper.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Lantronix" : {
+         "file" : "lib/SNMP/Info/Layer3/Lantronix.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Microsoft" : {
+         "file" : "lib/SNMP/Info/Layer3/Microsoft.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Mikrotik" : {
+         "file" : "lib/SNMP/Info/Layer3/Mikrotik.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::N1600" : {
+         "file" : "lib/SNMP/Info/Layer3/N1600.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::NetSNMP" : {
+         "file" : "lib/SNMP/Info/Layer3/NetSNMP.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Netscreen" : {
+         "file" : "lib/SNMP/Info/Layer3/Netscreen.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Nexus" : {
+         "file" : "lib/SNMP/Info/Layer3/Nexus.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::OneAccess" : {
+         "file" : "lib/SNMP/Info/Layer3/OneAccess.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::PacketFront" : {
+         "file" : "lib/SNMP/Info/Layer3/PacketFront.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::PaloAlto" : {
+         "file" : "lib/SNMP/Info/Layer3/PaloAlto.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Passport" : {
+         "file" : "lib/SNMP/Info/Layer3/Passport.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Pf" : {
+         "file" : "lib/SNMP/Info/Layer3/Pf.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Pica8" : {
+         "file" : "lib/SNMP/Info/Layer3/Pica8.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::SonicWALL" : {
+         "file" : "lib/SNMP/Info/Layer3/SonicWALL.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Steelhead" : {
+         "file" : "lib/SNMP/Info/Layer3/Steelhead.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Sun" : {
+         "file" : "lib/SNMP/Info/Layer3/Sun.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Tasman" : {
+         "file" : "lib/SNMP/Info/Layer3/Tasman.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::Timetra" : {
+         "file" : "lib/SNMP/Info/Layer3/Timetra.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::VMware" : {
+         "file" : "lib/SNMP/Info/Layer3/VMware.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer3::VyOS" : {
+         "file" : "lib/SNMP/Info/Layer3/VyOS.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7" : {
+         "file" : "lib/SNMP/Info/Layer7.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::APC" : {
+         "file" : "lib/SNMP/Info/Layer7/APC.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::Arbor" : {
+         "file" : "lib/SNMP/Info/Layer7/Arbor.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::CiscoIPS" : {
+         "file" : "lib/SNMP/Info/Layer7/CiscoIPS.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::Gigamon" : {
+         "file" : "lib/SNMP/Info/Layer7/Gigamon.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::Liebert" : {
+         "file" : "lib/SNMP/Info/Layer7/Liebert.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::Neoteris" : {
+         "file" : "lib/SNMP/Info/Layer7/Neoteris.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::Layer7::Netscaler" : {
+         "file" : "lib/SNMP/Info/Layer7/Netscaler.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::MAU" : {
+         "file" : "lib/SNMP/Info/MAU.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::MRO" : {
+         "file" : "lib/SNMP/Info/MRO.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::NortelStack" : {
+         "file" : "lib/SNMP/Info/NortelStack.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::PowerEthernet" : {
+         "file" : "lib/SNMP/Info/PowerEthernet.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::RapidCity" : {
+         "file" : "lib/SNMP/Info/RapidCity.pm",
+         "version" : "3.61"
+      },
+      "SNMP::Info::SONMP" : {
+         "file" : "lib/SNMP/Info/SONMP.pm",
+         "version" : "3.61"
+      }
+   },
+   "release_status" : "stable",
+   "resources" : {
+      "bugtracker" : {
+         "web" : "https://github.com/netdisco/snmp-info/issues"
+      },
+      "homepage" : "http://netdisco.org/",
+      "license" : [
+         "http://opensource.org/licenses/bsd-license.php"
+      ],
+      "repository" : {
+         "url" : "https://github.com/netdisco/snmp-info"
+      },
+      "x_IRC" : "irc://irc.freenode.org/#netdisco",
+      "x_MailingList" : "https://lists.sourceforge.net/lists/listinfo/snmp-info-users"
+   },
+   "version" : "3.61",
+   "x_serialization_backend" : "JSON::PP version 2.97001"
+}

META.yml

@@ -0,0 +1,427 @@
+---
+abstract: 'OO Interface to Network devices and MIBs through SNMP'
+author:
+  - 'Eric A. Miller <emiller@cpan.org>'
+build_requires:
+  Class::Inspector: '0'
+  File::Find: '0'
+  File::Slurper: '0'
+  Path::Class: '0'
+  Test::Class::Most: '0'
+  Test::Distribution: '0'
+  Test::Exception: '0.43'
+  Test::MockObject::Extends: '0'
+  Test::More: '0.88'
+configure_requires:
+  Module::Build: '0.42'
+dynamic_config: 1
+generated_by: 'Module::Build version 0.4224, CPAN::Meta::Converter version 2.150010'
+license: bsd
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: '1.4'
+name: SNMP-Info
+provides:
+  SNMP::Info:
+    file: lib/SNMP/Info.pm
+    version: '3.61'
+  SNMP::Info::AMAP:
+    file: lib/SNMP/Info/AMAP.pm
+    version: '3.61'
+  SNMP::Info::AdslLine:
+    file: lib/SNMP/Info/AdslLine.pm
+    version: '3.61'
+  SNMP::Info::Aggregate:
+    file: lib/SNMP/Info/Aggregate.pm
+    version: '3.61'
+  SNMP::Info::Airespace:
+    file: lib/SNMP/Info/Airespace.pm
+    version: '3.61'
+  SNMP::Info::Bridge:
+    file: lib/SNMP/Info/Bridge.pm
+    version: '3.61'
+  SNMP::Info::CDP:
+    file: lib/SNMP/Info/CDP.pm
+    version: '3.61'
+  SNMP::Info::CiscoAgg:
+    file: lib/SNMP/Info/CiscoAgg.pm
+    version: '3.61'
+  SNMP::Info::CiscoConfig:
+    file: lib/SNMP/Info/CiscoConfig.pm
+    version: '3.61'
+  SNMP::Info::CiscoPortSecurity:
+    file: lib/SNMP/Info/CiscoPortSecurity.pm
+    version: '3.61'
+  SNMP::Info::CiscoPower:
+    file: lib/SNMP/Info/CiscoPower.pm
+    version: '3.61'
+  SNMP::Info::CiscoQOS:
+    file: lib/SNMP/Info/CiscoQOS.pm
+    version: '3.61'
+  SNMP::Info::CiscoRTT:
+    file: lib/SNMP/Info/CiscoRTT.pm
+    version: '3.61'
+  SNMP::Info::CiscoStack:
+    file: lib/SNMP/Info/CiscoStack.pm
+    version: '3.61'
+  SNMP::Info::CiscoStats:
+    file: lib/SNMP/Info/CiscoStats.pm
+    version: '3.61'
+  SNMP::Info::CiscoStpExtensions:
+    file: lib/SNMP/Info/CiscoStpExtensions.pm
+    version: '3.61'
+  SNMP::Info::CiscoVTP:
+    file: lib/SNMP/Info/CiscoVTP.pm
+    version: '3.61'
+  SNMP::Info::EDP:
+    file: lib/SNMP/Info/EDP.pm
+    version: '3.61'
+  SNMP::Info::Entity:
+    file: lib/SNMP/Info/Entity.pm
+    version: '3.61'
+  SNMP::Info::EtherLike:
+    file: lib/SNMP/Info/EtherLike.pm
+    version: '3.61'
+  SNMP::Info::FDP:
+    file: lib/SNMP/Info/FDP.pm
+    version: '3.61'
+  SNMP::Info::IEEE802dot11:
+    file: lib/SNMP/Info/IEEE802dot11.pm
+    version: '3.61'
+  SNMP::Info::IEEE802dot3ad:
+    file: lib/SNMP/Info/IEEE802dot3ad.pm
+    version: '3.61'
+  SNMP::Info::IPv6:
+    file: lib/SNMP/Info/IPv6.pm
+    version: '3.61'
+  SNMP::Info::LLDP:
+    file: lib/SNMP/Info/LLDP.pm
+    version: '3.61'
+  SNMP::Info::Layer1:
+    file: lib/SNMP/Info/Layer1.pm
+    version: '3.61'
+  SNMP::Info::Layer1::Allied:
+    file: lib/SNMP/Info/Layer1/Allied.pm
+    version: '3.61'
+  SNMP::Info::Layer1::Asante:
+    file: lib/SNMP/Info/Layer1/Asante.pm
+    version: '3.61'
+  SNMP::Info::Layer1::Bayhub:
+    file: lib/SNMP/Info/Layer1/Bayhub.pm
+    version: '3.61'
+  SNMP::Info::Layer1::Cyclades:
+    file: lib/SNMP/Info/Layer1/Cyclades.pm
+    version: '3.61'
+  SNMP::Info::Layer1::S3000:
+    file: lib/SNMP/Info/Layer1/S3000.pm
+    version: '3.61'
+  SNMP::Info::Layer2:
+    file: lib/SNMP/Info/Layer2.pm
+    version: '3.61'
+  SNMP::Info::Layer2::3Com:
+    file: lib/SNMP/Info/Layer2/3Com.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Adtran:
+    file: lib/SNMP/Info/Layer2/Adtran.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Aerohive:
+    file: lib/SNMP/Info/Layer2/Aerohive.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Airespace:
+    file: lib/SNMP/Info/Layer2/Airespace.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Aironet:
+    file: lib/SNMP/Info/Layer2/Aironet.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Allied:
+    file: lib/SNMP/Info/Layer2/Allied.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Atmedia:
+    file: lib/SNMP/Info/Layer2/Atmedia.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Baystack:
+    file: lib/SNMP/Info/Layer2/Baystack.pm
+    version: '3.61'
+  SNMP::Info::Layer2::C1900:
+    file: lib/SNMP/Info/Layer2/C1900.pm
+    version: '3.61'
+  SNMP::Info::Layer2::C2900:
+    file: lib/SNMP/Info/Layer2/C2900.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Catalyst:
+    file: lib/SNMP/Info/Layer2/Catalyst.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Centillion:
+    file: lib/SNMP/Info/Layer2/Centillion.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Cisco:
+    file: lib/SNMP/Info/Layer2/Cisco.pm
+    version: '3.61'
+  SNMP::Info::Layer2::CiscoSB:
+    file: lib/SNMP/Info/Layer2/CiscoSB.pm
+    version: '3.61'
+  SNMP::Info::Layer2::HP:
+    file: lib/SNMP/Info/Layer2/HP.pm
+    version: '3.61'
+  SNMP::Info::Layer2::HP4000:
+    file: lib/SNMP/Info/Layer2/HP4000.pm
+    version: '3.61'
+  SNMP::Info::Layer2::HPVC:
+    file: lib/SNMP/Info/Layer2/HPVC.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Kentrox:
+    file: lib/SNMP/Info/Layer2/Kentrox.pm
+    version: '3.61'
+  SNMP::Info::Layer2::N2270:
+    file: lib/SNMP/Info/Layer2/N2270.pm
+    version: '3.61'
+  SNMP::Info::Layer2::NAP222x:
+    file: lib/SNMP/Info/Layer2/NAP222x.pm
+    version: '3.61'
+  SNMP::Info::Layer2::NWSS2300:
+    file: lib/SNMP/Info/Layer2/NWSS2300.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Netgear:
+    file: lib/SNMP/Info/Layer2/Netgear.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Nexans:
+    file: lib/SNMP/Info/Layer2/Nexans.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Orinoco:
+    file: lib/SNMP/Info/Layer2/Orinoco.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Sixnet:
+    file: lib/SNMP/Info/Layer2/Sixnet.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Trapeze:
+    file: lib/SNMP/Info/Layer2/Trapeze.pm
+    version: '3.61'
+  SNMP::Info::Layer2::Ubiquiti:
+    file: lib/SNMP/Info/Layer2/Ubiquiti.pm
+    version: '3.61'
+  SNMP::Info::Layer2::ZyXEL_DSLAM:
+    file: lib/SNMP/Info/Layer2/ZyXEL_DSLAM.pm
+    version: '3.61'
+  SNMP::Info::Layer3:
+    file: lib/SNMP/Info/Layer3.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Aironet:
+    file: lib/SNMP/Info/Layer3/Aironet.pm
+    version: '3.61'
+  SNMP::Info::Layer3::AlcatelLucent:
+    file: lib/SNMP/Info/Layer3/AlcatelLucent.pm
+    version: '3.61'
+  SNMP::Info::Layer3::AlteonAD:
+    file: lib/SNMP/Info/Layer3/AlteonAD.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Altiga:
+    file: lib/SNMP/Info/Layer3/Altiga.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Arista:
+    file: lib/SNMP/Info/Layer3/Arista.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Aruba:
+    file: lib/SNMP/Info/Layer3/Aruba.pm
+    version: '3.61'
+  SNMP::Info::Layer3::BayRS:
+    file: lib/SNMP/Info/Layer3/BayRS.pm
+    version: '3.61'
+  SNMP::Info::Layer3::BlueCoatSG:
+    file: lib/SNMP/Info/Layer3/BlueCoatSG.pm
+    version: '3.61'
+  SNMP::Info::Layer3::C3550:
+    file: lib/SNMP/Info/Layer3/C3550.pm
+    version: '3.61'
+  SNMP::Info::Layer3::C4000:
+    file: lib/SNMP/Info/Layer3/C4000.pm
+    version: '3.61'
+  SNMP::Info::Layer3::C6500:
+    file: lib/SNMP/Info/Layer3/C6500.pm
+    version: '3.61'
+  SNMP::Info::Layer3::CheckPoint:
+    file: lib/SNMP/Info/Layer3/CheckPoint.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Cisco:
+    file: lib/SNMP/Info/Layer3/Cisco.pm
+    version: '3.61'
+  SNMP::Info::Layer3::CiscoASA:
+    file: lib/SNMP/Info/Layer3/CiscoASA.pm
+    version: '3.61'
+  SNMP::Info::Layer3::CiscoFWSM:
+    file: lib/SNMP/Info/Layer3/CiscoFWSM.pm
+    version: '3.61'
+  SNMP::Info::Layer3::CiscoSwitch:
+    file: lib/SNMP/Info/Layer3/CiscoSwitch.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Contivity:
+    file: lib/SNMP/Info/Layer3/Contivity.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Cumulus:
+    file: lib/SNMP/Info/Layer3/Cumulus.pm
+    version: '3.61'
+  SNMP::Info::Layer3::DLink:
+    file: lib/SNMP/Info/Layer3/DLink.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Dell:
+    file: lib/SNMP/Info/Layer3/Dell.pm
+    version: '3.61'
+  SNMP::Info::Layer3::ERX:
+    file: lib/SNMP/Info/Layer3/ERX.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Enterasys:
+    file: lib/SNMP/Info/Layer3/Enterasys.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Extreme:
+    file: lib/SNMP/Info/Layer3/Extreme.pm
+    version: '3.61'
+  SNMP::Info::Layer3::F5:
+    file: lib/SNMP/Info/Layer3/F5.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Force10:
+    file: lib/SNMP/Info/Layer3/Force10.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Fortinet:
+    file: lib/SNMP/Info/Layer3/Fortinet.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Foundry:
+    file: lib/SNMP/Info/Layer3/Foundry.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Genua:
+    file: lib/SNMP/Info/Layer3/Genua.pm
+    version: '3.61'
+  SNMP::Info::Layer3::H3C:
+    file: lib/SNMP/Info/Layer3/H3C.pm
+    version: '3.61'
+  SNMP::Info::Layer3::HP9300:
+    file: lib/SNMP/Info/Layer3/HP9300.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Huawei:
+    file: lib/SNMP/Info/Layer3/Huawei.pm
+    version: '3.61'
+  SNMP::Info::Layer3::IBMGbTor:
+    file: lib/SNMP/Info/Layer3/IBMGbTor.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Juniper:
+    file: lib/SNMP/Info/Layer3/Juniper.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Lantronix:
+    file: lib/SNMP/Info/Layer3/Lantronix.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Microsoft:
+    file: lib/SNMP/Info/Layer3/Microsoft.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Mikrotik:
+    file: lib/SNMP/Info/Layer3/Mikrotik.pm
+    version: '3.61'
+  SNMP::Info::Layer3::N1600:
+    file: lib/SNMP/Info/Layer3/N1600.pm
+    version: '3.61'
+  SNMP::Info::Layer3::NetSNMP:
+    file: lib/SNMP/Info/Layer3/NetSNMP.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Netscreen:
+    file: lib/SNMP/Info/Layer3/Netscreen.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Nexus:
+    file: lib/SNMP/Info/Layer3/Nexus.pm
+    version: '3.61'
+  SNMP::Info::Layer3::OneAccess:
+    file: lib/SNMP/Info/Layer3/OneAccess.pm
+    version: '3.61'
+  SNMP::Info::Layer3::PacketFront:
+    file: lib/SNMP/Info/Layer3/PacketFront.pm
+    version: '3.61'
+  SNMP::Info::Layer3::PaloAlto:
+    file: lib/SNMP/Info/Layer3/PaloAlto.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Passport:
+    file: lib/SNMP/Info/Layer3/Passport.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Pf:
+    file: lib/SNMP/Info/Layer3/Pf.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Pica8:
+    file: lib/SNMP/Info/Layer3/Pica8.pm
+    version: '3.61'
+  SNMP::Info::Layer3::SonicWALL:
+    file: lib/SNMP/Info/Layer3/SonicWALL.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Steelhead:
+    file: lib/SNMP/Info/Layer3/Steelhead.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Sun:
+    file: lib/SNMP/Info/Layer3/Sun.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Tasman:
+    file: lib/SNMP/Info/Layer3/Tasman.pm
+    version: '3.61'
+  SNMP::Info::Layer3::Timetra:
+    file: lib/SNMP/Info/Layer3/Timetra.pm
+    version: '3.61'
+  SNMP::Info::Layer3::VMware:
+    file: lib/SNMP/Info/Layer3/VMware.pm
+    version: '3.61'
+  SNMP::Info::Layer3::VyOS:
+    file: lib/SNMP/Info/Layer3/VyOS.pm
+    version: '3.61'
+  SNMP::Info::Layer7:
+    file: lib/SNMP/Info/Layer7.pm
+    version: '3.61'
+  SNMP::Info::Layer7::APC:
+    file: lib/SNMP/Info/Layer7/APC.pm
+    version: '3.61'
+  SNMP::Info::Layer7::Arbor:
+    file: lib/SNMP/Info/Layer7/Arbor.pm
+    version: '3.61'
+  SNMP::Info::Layer7::CiscoIPS:
+    file: lib/SNMP/Info/Layer7/CiscoIPS.pm
+    version: '3.61'
+  SNMP::Info::Layer7::Gigamon:
+    file: lib/SNMP/Info/Layer7/Gigamon.pm
+    version: '3.61'
+  SNMP::Info::Layer7::Liebert:
+    file: lib/SNMP/Info/Layer7/Liebert.pm
+    version: '3.61'
+  SNMP::Info::Layer7::Neoteris:
+    file: lib/SNMP/Info/Layer7/Neoteris.pm
+    version: '3.61'
+  SNMP::Info::Layer7::Netscaler:
+    file: lib/SNMP/Info/Layer7/Netscaler.pm
+    version: '3.61'
+  SNMP::Info::MAU:
+    file: lib/SNMP/Info/MAU.pm
+    version: '3.61'
+  SNMP::Info::MRO:
+    file: lib/SNMP/Info/MRO.pm
+    version: '3.61'
+  SNMP::Info::NortelStack:
+    file: lib/SNMP/Info/NortelStack.pm
+    version: '3.61'
+  SNMP::Info::PowerEthernet:
+    file: lib/SNMP/Info/PowerEthernet.pm
+    version: '3.61'
+  SNMP::Info::RapidCity:
+    file: lib/SNMP/Info/RapidCity.pm
+    version: '3.61'
+  SNMP::Info::SONMP:
+    file: lib/SNMP/Info/SONMP.pm
+    version: '3.61'
+recommends:
+  Class::ISA: '0'
+  File::Slurp: '0'
+  Module::Info: '0'
+  Module::Load: '0'
+  PPI: '0'
+requires:
+  Math::BigInt: '0'
+  NetAddr::IP: '4.068'
+  SNMP: '0'
+resources:
+  IRC: irc://irc.freenode.org/#netdisco
+  MailingList: https://lists.sourceforge.net/lists/listinfo/snmp-info-users
+  bugtracker: https://github.com/netdisco/snmp-info/issues
+  homepage: http://netdisco.org/
+  license: http://opensource.org/licenses/bsd-license.php
+  repository: https://github.com/netdisco/snmp-info
+version: '3.61'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL

@@ -1,26 +0,0 @@
-# SNMP::Info -  Makefile.PL
-# $Id$
-
-use ExtUtils::MakeMaker;
-WriteMakefile(
-    'NAME'               => 'SNMP::Info',
-    'VERSION_FROM'       => 'Info.pm',
-    'PREREQ_PM'          => {
-                                'Math::BigInt' => 0
-                                # SNMP not available on CPAN . 
-                                # Install with net-snmp.sourceforge.net
-                                # 'SNMP' => '4'
-                            },
-    ($] >= 5.005 ?    
-          (ABSTRACT_FROM => 'Info.pm', 
-           AUTHOR        => 'Max Baker <max@warped.org>')
-                 : () 
-    ),
-    'PMLIBDIRS'          => ['Info','$(BASEEXT)'],
-             );
-
-sub MY::postamble { "
-.PHONY: readme
-readme: README
-README: Info.pm
-	pod2text -l Info.pm > README" }

contrib/DEVELOP

@@ -0,0 +1,28 @@
+SNMP::Info Developer Guidelines
+
+Coding Guidelines:
+    - tab-width of 4, no tab characters
+    - keep POD documentation up-to-date
+    - always update ChangeLog before committing
+    - check-in required mibs to netdisco-mibs and release new package if needed
+
+Release and Testing Instructions: 
+    - Please see misc/RELEASE in Netdisco
+      ( http://netdisco.cvs.sourceforge.net/viewvc/netdisco/misc/RELEASE?view=markup )
+      and follow all testing and release guidelines
+
+FAQ:
+    - Do I have to update the version number and timestamp in modified files before committing? 
+    -> No.  These are RCS tags that are automatically updated by CVS when you commit
+
+    - Should I add changes at the top of the ChangeLog?
+    -> Yes. The changelog is created one commit at a time.  If there isn't a
+        section for the current version, then add one at the top and put your
+        changes after.  You can leave the date field for the release empty (). 
+
+    - What should I change the $VERSION to?
+    -> If you are the first person to get to a file after a release, update it
+       to either  release++ or "release++ dash cvs".   
+       Example: File is marked 2.01, change it to 2.02-cvs with your new changes.
+       Example: File is marked 2.02-cvs,  no change until packaging for release when the -cvs is removed.
+       TODO: Is there still an odd/even scheme as introduced by Eric?

contrib/util/make_dev_matrix.pl

@@ -40,6 +40,7 @@ if ($@) {
     $gvds->graph()->as_png($DevPNG);
 }
 
+print "Creating $DevHTML\n";
 open (HTML, "> $DevHTML") or die "Can't open $DevHTML. $!\n";
 $old_fh = select(HTML);
 &html_head;
@@ -250,22 +251,13 @@ sub html_tail {
 [<SPAN CLASS="family">Family Attribute</SPAN>]
 [<SPAN CLASS="vendor">Vendor Attribute</SPAN>]
 <h1>Attribute Key</h1>
-A value of <B>-</B> signifies the information is not specified and can
+A value of <B>-</B> signifies the information is not specified and can not
 be assumed working.
 <TABLE BORDER=1>
 <TR>
     <TD>Arpnip</TD>
     <TD>Ability to collect ARP tables for MAC to IP translation.</TD>
 </TR>
-<TR>
-    <TD>CDP</TD>
-    <TD>Cisco Discovery Protocol usable.
-        <UL>
-            <LI><tt>Yes</tt> - Has CDP information through CISCO-CDP-MIB
-            <LI><tt>Proprietary</tt> means the device has its own L2 Discovery Protocol.
-        </UL>
-    </TD>
-</TR>
 <TR>
     <TD>Class</TD>
     <TD>SNMP::Info Class the the device currently uses.  Devices using more generic
@@ -305,6 +297,16 @@ be assumed working.
         switch port when doing a Macsuck.
     </TD>
 </TR>
+<TR>
+    <TD>Topo</TD>
+    <TD>Ability to get Layer 2 Topology Information from device if the
+        protocol is enabled.  SNMP::Info supports querying Link Layer
+        Discovery Protocol (LLDP), Cisco Discovery Protocol (CDP),
+        SynOptics/Bay/Nortel/Avaya Network Management Protocol (SONMP),
+        Foundry/Brocade Discovery Protocol (FDP), Extreme Discovery
+        Protocol (EDP), and Alcatel Mapping Adjacency Protocol (AMAP). 
+    </TD>
+</TR>
 <TR>
     <TD>Ver</TD>
     <TD>SNMP Protocol Version the device has to use.</TD>

contrib/util/make_snmpdata.pl

@@ -0,0 +1,207 @@
+#!/usr/bin/perl
+#
+# make_snmpdata.pl
+#
+# Copyright (c) 2012 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.
+#     * 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.
+
+use strict;
+use warnings;
+use Carp;
+use Getopt::Long;
+use Pod::Usage;
+use SNMP;
+
+local $| = 1;
+
+my $mibdirs = ['/usr/local/share/snmp/mibs'];
+my $comm    = 'public';
+my $ver     = '2c';
+my $dev;
+my $ignore = 0;
+my $help   = 0;
+
+GetOptions(
+    'community=s' => \$comm,
+    'device=s'    => \$dev,
+    'ignore'      => \$ignore,
+    'mibdir=s'   => \$mibdirs,
+    'version'     => \$ver,
+    'help|?'      => sub { pod2usage(2); },
+) or pod2usage(2);
+
+unless ( defined $dev && $ver =~ /[1|2c]/ ) {
+    pod2usage(1);
+}
+
+local $ENV{'SNMPCONFPATH'} = ''        if $ignore;
+local $ENV{'MIBDIRS'}      = "$mibdirs" if $ignore;
+
+SNMP::addMibDirs($mibdirs);
+
+# Connect to Device
+my $sess = SNMP::Session->new(
+    'UseEnums'       => 1,
+    'RetryNoSuch'    => 1,
+    'DestHost'       => $dev,
+    'Community'      => $comm,
+    'Version'        => $ver,
+    'UseSprintValue' => 1
+);
+
+my $sysdescr = $sess->get('sysDescr.0');
+unless ( defined $sysdescr ) {
+    die "Couldn't connect to $dev via snmp.\n";
+}
+
+SNMP::loadModules(@ARGV);
+
+# Create a hash of MIB Modules for which we want results 
+my %mib_hash = map {$_ => 1} @ARGV;
+# Add the common MIB Modules we always want
+my @common_mibs = ('SNMPv2-MIB', 'IF-MIB');
+foreach my $mib (@common_mibs) {
+    $mib_hash{$mib} = 1;
+}
+
+foreach my $key ( sort( keys %SNMP::MIB ) ) {
+    my $module = $SNMP::MIB{$key}{moduleID} || '';
+    # IMPORTS pulls in many modules we don't want to walk
+    # Only walk those we've specified
+    next unless (defined $mib_hash{$module});
+    my $access = $SNMP::MIB{$key}{'access'} || '';
+    next unless ( $access =~ /Read|Create/x );
+
+    my $label = SNMP::translateObj( $key, 0, 1 ) || '';
+    snmpwalk($label);
+}
+
+sub snmpwalk {
+    return unless defined $sess;
+    my $label    = shift;
+    my $var      = SNMP::Varbind->new( [$label] );
+    my $e        = 0;
+    my $last_iid = '';
+    my %seen     = ();
+    while ( !$e ) {
+        $sess->getnext($var);
+        $e = $sess->{ErrorNum};
+
+        return if $var->[0] ne $label;
+        my $iid = $var->[1];
+        my $val = $var->[2];
+        return unless defined $iid;
+
+        # Check to see if we've already seen this IID (looping)
+        if ( defined $seen{$iid} and $seen{$iid} ) {
+            warn "Looping on $label iid:$iid.  Skipped.\n";
+            return;
+        }
+        else { $seen{$iid}++; }
+
+        # why is it looping?
+        return if $last_iid eq $iid;
+        $last_iid = $iid;
+
+        my $line = "$label.$iid = $val";
+        print "$line\n";
+    }
+    return;
+}
+
+__END__
+
+=head1 NAME
+
+make_snmpdata.pl - Tool to get SNMP data for the SNMP::Info testing framework
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+make_snmpdata.pl [options] MIB-MODULE-1 MIB-MODULE-2
+
+Options:
+
+    -community SNMP Community
+    -device    IP Address to query
+    -ignore    Ignore Net-SNMP configuration file
+    -mibdir    Directory containing MIB Files
+    -version   SNMP version to use
+    -help      Brief help message
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-community>
+
+SNMP Community, either 1 or 2c.  Defaults to version 2c
+
+-community 2c
+
+=item B<-device>
+
+IP Address to query for the SNMP data.  No default and a mandatory option.
+
+-device 127.0.0.1
+
+=item B<-ignore >
+
+Ignore Net-SNMP configuration file snmp.conf.  If this used mibdirs must be
+provided
+
+-ignore
+
+=item B<-mibdir>
+
+Directory containing MIB Files.  Mutiple directories should be separated by a
+colon ':'.  Defaults to /usr/local/share/snmp/mibs.
+
+-mibdir /usr/local/share/snmp/mibs/rfc:/usr/local/share/snmp/mibs/net-snmp
+
+=item B<-version>
+
+SNMP version to use.  Only version 1 and 2c are supported.  Defaults to 2c
+
+-version 2c
+
+=item B<-help>
+
+Print help message and exits.
+
+=back
+
+=head1 DESCRIPTION
+
+B<make_snmpdata.pl> will gather SNMP data by walking specified MIB files and
+output the data to a file which can be used by the SNMP::Info testing
+framework.
+
+=cut

contrib/util/push_ver

@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+# $Id$
+
+use File::Glob qw/bsd_glob/;
+
+my @pms = glob_rec("./lib");
+
+$new_version = shift @ARGV || die "missing new version\n";
+
+foreach my $p (@pms) {
+    print "$p\n";
+
+    rename($p,"$p.orig");
+    open (O,"<$p.orig") or die;
+    open (P,">$p") or die "Can't open $p for write. $!\n";
+
+    while (<O>) {
+        s/^\s*\$VERSION\s+=\s*'[^']+'\s*;/\$VERSION = '$new_version';/;
+        s/^SNMP::Info - Version [\d.]+$/SNMP::Info - Version $new_version/;
+        print P;
+    }
+
+    close O;
+    close P or die "Can't write $p. $!\n";
+    unlink("$p.orig");
+    #last;
+}
+
+sub glob_rec {
+    my $dir = shift;
+
+    my @files = bsd_glob("$dir/*");
+
+    my @pms;
+
+    foreach my $f (@files) {
+        next if $f eq '\.$';
+        
+        if (-d $f) {
+            push @pms, glob_rec($f);
+            next;
+        }
+
+        push @pms,$f if $f =~ /.pm$/;
+    }
+
+    return @pms;
+}

contrib/util/run_test

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+# Run this from ../
+/usr/local/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/$1

contrib/util/test_class.pl

@@ -0,0 +1,346 @@
+#!/usr/bin/perl
+#
+# test_class.pl
+#
+# Copyright (c) 2013 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.
+#     * 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.
+
+use strict;
+use warnings;
+use Carp;
+use Getopt::Long;
+use Pod::Usage;
+use SNMP::Info;
+
+my $EMPTY = q{};
+
+# Default Values
+my $class  = $EMPTY;
+my @dump   = ();
+my $debug  = 0;
+my $cache  = 0;
+my $device = '';
+my $comm   = '';
+my $ver    = 2;
+my $ignore = 0;
+my $help   = 0;
+my $nobulk = 0;
+my $mibdirs;
+my %dumped;
+
+GetOptions(
+    'c|class=s'  => \$class,
+    'd|dev=s'    => \$device,
+    's|comm=s'   => \$comm,
+    'v|ver=i'    => \$ver,
+    'i|ignore'   => \$ignore,
+    'p|print=s'  => \@dump,
+    'm|mibdir=s' => \$mibdirs,
+    'n|nobulk'   => \$nobulk,
+    'x|debug+'   => \$debug,
+    'k|cache'    => \$cache,
+    'h|?|help'   => sub { pod2usage(1); },
+);
+
+unless ( $device and $comm ) {
+    pod2usage(2);
+}
+
+if ( $ignore && !defined $mibdirs ) {
+    print "mibdirs must be provided if ignoring snmp.conf \n\n";
+    pod2usage(1);
+}
+
+local $ENV{'SNMPCONFPATH'} = $EMPTY     if $ignore;
+local $ENV{'MIBDIRS'}      = "$mibdirs" if $ignore;
+
+if ( defined $mibdirs ) {
+    SNMP::addMibDirs($mibdirs);
+}
+
+$class = $class ? "SNMP::Info::$class" : 'SNMP::Info';
+
+( my $mod = "$class.pm" )
+    =~ s{::}{/}xg;    # SNMP::Info::Layer3 => SNMP/Info/Layer3.pm
+if ( !eval { require $mod; 1; } ) {
+    croak "Could not load $class. Error Message: $@\n";
+}
+
+my $class_ver = $class->VERSION();
+
+print
+    "Class $class ($class_ver) loaded from SNMP::Info $SNMP::Info::VERSION.\n";
+
+if ( scalar @dump ) { print 'Dumping : ', join( q{,}, @dump ), "\n" }
+
+my %args = ();
+if ($nobulk) {
+    $args{BulkWalk} = 0;
+}
+
+my $dev = $class->new(
+    'AutoSpecify' => 0,
+    'AutoVerBack' => 0,
+    'Debug'       => $debug,
+    'Version'     => $ver,
+    'DestHost'    => $device,
+    'Community'   => $comm,
+    %args
+) or die "\n";
+
+print "Connected to $device.\n";
+print 'Detected Class: ', $dev->device_type(), "\n";
+print "Using    Class: $class (-c to change)\n";
+
+my $layers = $dev->layers();
+my $descr  = $dev->description();
+
+if ( !defined $layers || !defined $descr ) {
+    die
+	"Are you sure you got the right community string and version?\nCan't fetch layers or description.\n";
+}
+
+print "\nFetching base info...\n\n";
+
+my @base_fns = qw/vendor model os os_ver description contact location
+    layers mac serial/;
+
+foreach my $fn (@base_fns) {
+    test_global( $dev, $fn );
+}
+
+print "\nFetching interface info...\n\n";
+
+my @fns = qw/interfaces i_type i_ignore i_description i_mtu i_speed i_mac i_up
+    i_up_admin i_name i_duplex i_duplex_admin i_stp_state
+    i_vlan i_pvid i_lastchange/;
+
+foreach my $fn (@fns) {
+    test_fn( $dev, $fn );
+}
+
+print "\nFetching VLAN info...\n\n";
+
+my @vlan = qw/v_index v_name/;
+
+foreach my $fn (@vlan) {
+    test_fn( $dev, $fn );
+}
+
+print "\nFetching topology info...\n\n";
+
+my @topo = qw/c_if c_ip c_port c_id c_platform/;
+
+foreach my $fn (@topo) {
+    test_fn( $dev, $fn );
+}
+
+print "\nFetching module info...\n\n";
+
+my @modules = qw/e_descr e_type e_parent e_name e_class e_pos e_hwver
+    e_fwver e_swver e_model e_serial e_fru/;
+
+foreach my $fn (@modules) {
+    test_fn( $dev, $fn );
+}
+
+foreach my $fn (@dump) {
+    if ( !$dumped{$fn} ) { test_fn( $dev, $fn ) }
+}
+
+if ($cache) {
+    eval {
+        require Data::Printer;
+    } && eval {
+        print "\nDumping cache...\n\n";
+        Data::Printer::p $dev;
+    };
+}
+
+#--------------------------------
+
+sub test_global {
+    my $info   = shift;
+    my $method = shift;
+
+    my $value = $info->$method();
+
+    if ( !defined $value ) {
+	printf "%-20s Does not exist.\n", $method;
+	return 0;
+    }
+    $value =~ s/[[:cntrl:]]+/ /gx;
+    if ( length $value > 60 ) {
+	$value = substr $value, 0, 60;
+	$value .= '...';
+    }
+    printf "%-20s %s \n", $method, $value;
+    return 1;
+}
+
+sub test_fn {
+    my $info   = shift;
+    my $method = shift;
+
+    my $results = $info->$method();
+
+    # If accidentally called on a global, pass it along nicely.
+    if ( defined $results && !ref $results ) {
+	return test_global( $dev, $method );
+    }
+    if ( !defined $results && !scalar keys %{$results} ) {
+	printf "%-20s Empty Results.\n", $method;
+	return 0;
+    }
+
+    printf "%-20s %d rows.\n", $method, scalar keys %{$results};
+    if ( grep {/^$method$/x} @dump ) {
+	$dumped{$method} = 1;
+	foreach my $iid ( keys %{$results} ) {
+	    print "  $iid : ";
+	    if ( ref( $results->{$iid} ) eq 'ARRAY' ) {
+		print '[ ', join( ', ', @{ $results->{$iid} } ), ' ]';
+	    }
+	    else {
+		print $results->{$iid};
+	    }
+	    print "\n";
+	}
+    }
+    return 1;
+}
+
+__END__
+
+=head1 NAME
+
+test_class.pl - Test a device against an SNMP::Info class.
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+test_class.pl [options]
+
+Options:
+
+    -c|class    SNMP::Info class to use, Layer2::Catalyst    
+    -d|dev      Device
+    -s|comm     SNMP community
+    -v|ver      SNMP version
+    -p|print    Print values 
+    -i|ignore   Ignore Net-SNMP configuration file
+    -m|mibdir   Directory containing MIB Files
+    -n|nobulk   Disable bulkwalk
+    -x|debug    Debugging flag
+    -k|cache    Dump cache (requires Data::Printer to be installed)
+    -h|?|help   Brief help message
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-class>
+
+Specific SNMP::Info class to use.  Defaults to SNMP::Info if no specific
+class provided.
+
+-class Layer2::Catalyst
+
+=item B<-dev>
+
+Device to test against.  No default and a mandatory option.
+
+-dev 1.2.3.4
+
+=item B<-comm>
+
+SNMP community string.  No default and a mandatory option.
+
+-comm public
+
+=item B<-ver>
+
+SNMP version. Default 2.
+
+-ver 1
+
+=item B<-print>
+
+Print values of a class method rather than summarizing.  May be repeated
+multiple times. 
+
+-print i_description -print i_type
+
+=item B<-ignore >
+
+Ignore Net-SNMP configuration file snmp.conf.  If this used mibdirs must be
+provided.
+
+-ignore
+
+=item B<-mibdir>
+
+Directory containing MIB Files.  Multiple directories should be separated by a
+colon ':'. 
+
+-mibdir /usr/local/share/snmp/mibs/rfc:/usr/local/share/snmp/mibs/net-snmp
+
+=item B<-nobulk >
+
+Disable SNMP bulkwalk. Default bulkwalk is on and utilized with version 2.
+
+-nobulk
+
+=item B<-debug>
+
+Turns on SNMP::Info debug.
+
+-debug
+
+=item B<-cache>
+
+Dumps the table and leaf cache at the end of running. Requires that the
+L<Data::Printer> module be installed, otherwise does nothing.
+
+-cache
+
+=item B<-help>
+
+Print help message and exits.
+
+=back
+
+=head1 DESCRIPTION
+
+B<test_class.pl> will test a device against a specfied SNMP::Info class.
+This allows debugging and testing of live devices to include validating
+device support with existing classes.
+
+=cut

contrib/util/test_class_mocked.pl

@@ -0,0 +1,454 @@
+#!/usr/bin/env perl
+#
+# test_class_mocked.pl
+#
+# Copyright (c) 2012 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.
+#     * 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.
+
+use strict;
+use warnings;
+use Carp;
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+use File::Slurp qw(slurp);
+use Getopt::Long;
+use Pod::Usage;
+use SNMP::Info;
+use Test::MockObject::Extends;
+
+my $EMPTY = q{};
+
+# Default Values
+my $class = $EMPTY;
+my @dump  = ();
+my $debug = 0;
+my $mibdirs;
+my $ignore = 0;
+my $help   = 0;
+my $file;
+my %dumped;
+
+GetOptions(
+    'c|class=s'  => \$class,
+    'i|ignore'   => \$ignore,
+    'p|print=s'  => \@dump,
+    'x|debug+'   => \$debug,
+    'm|mibdir=s' => \$mibdirs,
+    'file=s'     => \$file,
+    'h|?|help'   => sub { pod2usage(1); },
+);
+
+if ( !$file ) {
+    pod2usage(1);
+}
+
+if ( $ignore && !defined $mibdirs ) {
+    print "mibdirs must be provided if ignoring snmp.conf \n\n";
+    pod2usage(1);
+}
+
+local $ENV{'SNMPCONFPATH'} = $EMPTY     if $ignore;
+local $ENV{'MIBDIRS'}      = "$mibdirs" if $ignore;
+
+if ( defined $mibdirs ) {
+    SNMP::addMibDirs($mibdirs);
+}
+
+$class = $class ? "SNMP::Info::$class" : 'SNMP::Info';
+
+( my $mod = "$class.pm" )
+    =~ s{::}{/}g;    # SNMP::Info::Layer3 => SNMP/Info/Layer3.pm
+if ( !eval { require $mod; 1; } ) {
+    croak "Could not load $class. Error Message: $@\n";
+}
+
+my $class_ver = $class->VERSION();
+
+print
+    "Class $class ($class_ver) loaded from SNMP::Info $SNMP::Info::VERSION.\n";
+
+if ( scalar @dump ) { print 'Dumping : ', join( q{,}, @dump ), "\n" }
+
+my $mocked = create_mock_session();
+
+my $dev = $class->new(
+    'AutoSpecify' => 0,
+    'BulkWalk'    => 0,
+    'Debug'       => $debug,
+    'Session'     => $mocked,
+) or die "\n";
+
+print 'Detected Class: ', $dev->device_type(), "\n";
+print "Using    Class: $class (-c to change)\n";
+
+my $layers = $dev->layers();
+my $descr  = $dev->description();
+
+if ( !defined $layers || !defined $descr ) {
+    die "Are you sure you specified a file created with make_snmpdata.pl ?\n";
+}
+
+print "\nFetching base info...\n\n";
+
+my @base_fns = qw/vendor model os os_ver description contact location
+    layers mac serial/;
+
+foreach my $fn (@base_fns) {
+    test_global( $dev, $fn );
+}
+
+print "\nFetching interface info...\n\n";
+
+my @fns = qw/interfaces i_type i_ignore i_description i_mtu i_speed i_mac i_up
+    i_up_admin i_name i_duplex i_duplex_admin i_stp_state
+    i_vlan i_pvid i_lastchange/;
+
+foreach my $fn (@fns) {
+    test_fn( $dev, $fn );
+}
+
+print "\nFetching VLAN info...\n\n";
+
+my @vlan = qw/v_index v_name/;
+
+foreach my $fn (@vlan) {
+    test_fn( $dev, $fn );
+}
+
+print "\nFetching topology info...\n\n";
+
+my @topo = qw/c_if c_ip c_port c_id c_platform/;
+
+foreach my $fn (@topo) {
+    test_fn( $dev, $fn );
+}
+
+print "\nFetching module info...\n\n";
+
+my @modules = qw/e_descr e_type e_parent e_name e_class e_pos e_hwver
+                e_fwver e_swver e_model e_serial e_fru/;
+
+foreach my $fn (@modules) {
+    test_fn( $dev, $fn );
+}
+
+foreach my $fn (@dump) {
+    if ( !$dumped{$fn} ) { test_fn( $dev, $fn ) }
+}
+
+#--------------------------------
+
+sub load_snmpdata {
+    my $data_file = shift;
+
+    my @lines = slurp($data_file);
+
+    my $snmp_data = {};
+    foreach my $line (@lines) {
+	next if !$line;
+	next if ( $line =~ /^#/ );
+	if ( $line =~ /^(\S+::\w+)[.]?(\S+)*\s=\s(.*)$/ ) {
+	    my ( $leaf, $iid, $val ) = ( $1, $2, $3 );
+	    next if !$leaf;
+	    $iid ||= 0;
+	    $val =~ s/\"//g;
+	    $snmp_data->{$leaf}->{$iid} = $val;
+	}
+    }
+    return $snmp_data;
+}
+
+sub create_mock_session {
+
+    my $snmp_data = load_snmpdata($file);
+
+    my $session = SNMP::Session->new(
+	UseEnums    => 1,
+	RetryNoSuch => 1,
+	Data        => $snmp_data,
+	DestHost    => '127.0.0.1',
+	Community   => 'public',
+	Version     => 2,
+    );
+
+    my $mock_session = Test::MockObject::Extends->new($session);
+
+    mock_get($mock_session);
+    mock_getnext($mock_session);
+
+    return $mock_session;
+}
+
+sub mock_get {
+    my $mock_session = shift;
+
+    $mock_session->mock(
+	'get',
+	sub {
+	    my $self = shift;
+	    my $vars = shift;
+	    my ( $leaf, $iid, $oid, $oid_name );
+	    my $c_data = $self->{Data};
+
+	    # From SNMP::Info get will only be passed either an OID or
+	    # SNMP::Varbind with a fully qualified leaf and potentially
+	    # a partial
+	    if ( ref($vars) =~ /SNMP::Varbind/ ) {
+		( $leaf, $iid ) = @{$vars};
+	    }
+	    else {
+		$oid = $vars;
+		$oid_name = SNMP::translateObj( $oid, 0, 1 ) || $EMPTY;
+		( $leaf, $iid ) = $oid_name =~ /^(\S+::\w+)[.]?(\S+)*$/;
+	    }
+
+	    $iid ||= 0;
+	    my $new_iid = $iid;
+	    my $val     = $EMPTY;
+	    my $data    = $c_data->{$leaf} || {};
+	    my $count   = scalar keys %{$data} || 0;
+	    if ( $count > 1 ) {
+		my $found = 0;
+		foreach my $d_iid ( sort keys %{$data} ) {
+		    if ( $d_iid eq $iid ) {
+			$val   = $data->{$d_iid};
+			$found = 1;
+			next;
+		    }
+		    elsif ( $found == 1 ) {
+			$new_iid = $d_iid;
+			last;
+		    }
+		}
+		if ( $found && ( $new_iid eq $iid ) ) {
+		    $leaf = 'unknown';
+		}
+	    }
+	    else {
+		$val  = $data->{$iid};
+		$leaf = 'unknown';
+	    }
+
+	    if ( ref $vars =~ /SNMP::Varbind/ ) {
+		$vars->[0] = $leaf;
+		$vars->[1] = $new_iid;
+		$vars->[2] = $val;
+	    }
+	    return ( wantarray() ? $vars : $val );
+	}
+    );
+    return;
+}
+
+sub mock_getnext {
+    my $mock_session = shift;
+
+    $mock_session->mock(
+	'getnext',
+	sub {
+	    my $self = shift;
+	    my $vars = shift;
+	    my ( $leaf, $iid, $oid, $oid_name );
+	    my $c_data = $self->{Data};
+
+	    # From SNMP::Info getnext will only be passed a SNMP::Varbind
+	    # with a fully qualified leaf and potentially a partial
+	    ( $leaf, $iid ) = @{$vars};
+
+	    unless (defined $iid) {
+		$iid = -1;
+	    }
+	    my $new_iid = $iid;
+	    my $val     = $EMPTY;
+	    my $data    = $c_data->{$leaf};
+	    my $count   = scalar keys %{$data} || 0;
+	    if ( $count ) {
+		my $found = 0;
+		foreach my $d_iid ( sort keys %{$data} ) {
+		    if ( $d_iid gt $iid && !$found ) {
+			$val     = $data->{$d_iid};
+			$new_iid = $d_iid;
+			$found   = 1;
+			next;
+		    }
+		    elsif ( $found == 1 ) {
+			last;
+		    }
+		}
+		if ( $found && ( $new_iid eq $iid ) ) {
+		    $leaf = 'unknown';
+		}
+	    }
+	    else {
+		$val  = $data->{$iid};
+		$leaf = 'unknown';
+	    }
+
+	    $vars->[0] = $leaf;
+	    $vars->[1] = $new_iid;
+	    $vars->[2] = $val;
+	    return ( wantarray() ? $vars : $val );
+	}
+    );
+    return;
+}
+
+sub test_global {
+    my $device = shift;
+    my $method = shift;
+
+    my $value = $device->$method();
+
+    if ( !defined $value ) {
+	printf "%-20s Does not exist.\n", $method;
+	return 0;
+    }
+    $value =~ s/[[:cntrl:]]+/ /g;
+    if ( length $value > 60 ) {
+	$value = substr $value, 0, 60;
+	$value .= '...';
+    }
+    printf "%-20s %s \n", $method, $value;
+    return 1;
+}
+
+sub test_fn {
+    my $device = shift;
+    my $method = shift;
+
+    my $results = $device->$method();
+
+    # If accidentally called on a global, pass it along nicely.
+    if ( defined $results && !ref $results ) {
+	return test_global( $dev, $method );
+    }
+    if ( !defined $results && !scalar keys %{$results} ) {
+	printf "%-20s Empty Results.\n", $method;
+	return 0;
+    }
+
+    printf "%-20s %d rows.\n", $method, scalar keys %{$results};
+    if ( grep {/^$method$/} @dump ) {
+	$dumped{$method} = 1;
+	foreach my $iid ( keys %{$results} ) {
+	    print "  $iid : ";
+	    if ( ref( $results->{$iid} ) eq 'ARRAY' ) {
+		print '[ ', join( ', ', @{ $results->{$iid} } ), ' ]';
+	    }
+	    else {
+		print $results->{$iid};
+	    }
+	    print "\n";
+	}
+    }
+    return 1;
+}
+
+__END__
+
+=head1 NAME
+
+test_class_mocked.pl - Test a device against an SNMP::Info class using
+output from make_snmpdata.pl stored in a text file.
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+test_class_mocked.pl [options]
+
+Options:
+
+    -class    SNMP::Info class to use, Layer2::Catalyst    
+    -file     File containing data gathered using make_snmpdata.pl
+    -print    Print values 
+    -debug    Debugging flag
+    -ignore   Ignore Net-SNMP configuration file
+    -mibdir   Directory containing MIB Files
+    -help     Brief help message
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-class>
+
+Specific SNMP::Info class to use.  Defaults to SNMP::Info if no specific
+class provided.
+
+-class Layer2::Catalyst
+
+=item B<-file>
+
+File containing data gathered using make_snmpdata.pl.  No default and a
+mandatory option.
+
+-file /data/mydevice.txt
+
+=item B<-print>
+
+Print values of a class method rather than summarizing.  May be repeated
+multiple times. 
+
+-print i_description -print i_type
+
+=item B<-debug>
+
+Turns on SNMP::Info debug.
+
+-debug
+
+=item B<-ignore >
+
+Ignore Net-SNMP configuration file snmp.conf.  If this used mibdirs must be
+provided.
+
+-ignore
+
+=item B<-mibdir>
+
+Directory containing MIB Files.  Multiple directories should be separated by a
+colon ':'. 
+
+-mibdir /usr/local/share/snmp/mibs/rfc:/usr/local/share/snmp/mibs/net-snmp
+
+=item B<-help>
+
+Print help message and exits.
+
+=back
+
+=head1 DESCRIPTION
+
+B<test_class_mocked.pl> will test a device against an SNMP::Info class using
+snmpwalk output from the utility B<make_snmpdata.pl> stored in a text file.
+This allows debugging and testing without requiring network access to the
+device being tested.
+
+=cut

lib/SNMP/Info/AMAP.pm

@@ -0,0 +1,341 @@
+# SNMP::Info::AMAP
+#
+# Copyright (c) 2013 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.
+#     * 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::AMAP;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::AMAP::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::AMAP::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS
+    = ( 'ALCATEL-IND1-INTERSWITCH-PROTOCOL-MIB' => 'aipAMAPRemDeviceType', );
+
+%GLOBALS = (
+
+);
+
+%FUNCS = (
+
+    # EXTREME-EDP-MIB::extremeEdpTable
+    'amap_rem_sysname' => 'aipAMAPRemHostname',
+);
+
+%MUNGE = ( 'amap_rem_sysname' => \&SNMP::Info::munge_null, );
+
+sub hasAMAP {
+    my $amap = shift;
+
+    my $amap_ip = $amap->aipAMAPIpAddr() || {};
+
+    return 1 if ( scalar( keys %$amap_ip ) );
+
+    return;
+}
+
+# Break up the aipAMAPhostsTable INDEX into MAC and IP address.
+sub _hosts_table_index {
+    my $idx  = shift;
+    my @oids = split( /\./, $idx );
+    my $mac  = join( '.', splice( @oids, 0, 6 ) );
+
+    return ( $mac, join( '.', @oids ) );
+}
+
+# Break up the aipAMAPportConnectionTable INDEX and return MAC
+sub _conn_table_mac {
+    my $idx       = shift;
+    my @oids      = split( /\./, $idx );
+    my $local_idx = shift @oids;
+    my $mac       = join( '.', splice( @oids, 0, 6 ) );
+
+    return ($mac);
+}
+
+# Since we need to get IP Addresses from the aipAMAPhostsTable which has
+# a different index (MAC, IP) than the aipAMAPportConnectionTable which holds
+# the remote device details we create a combined index and skip any
+# IPs which have an address of 0.0.0.0.  Would like to include only one
+# address since they should all originate from the same device, but we don't
+# know if they would all be reachable from the network management application.
+#
+# We don't inplement partials since this is private index function
+sub _amap_index {
+    my $amap = shift;
+
+    my $amap_ip    = $amap->aipAMAPIpAddr()    || {};
+    my $amap_rport = $amap->aipAMAPLocalPort() || {};
+
+    my %amap_index;
+    foreach my $key ( keys %$amap_ip ) {
+        my ( $mac, $ip ) = _hosts_table_index($key);
+
+        next if ( $ip eq '0.0.0.0' );
+        next unless $ip;
+
+        foreach my $idx ( keys %$amap_rport ) {
+            my $c_mac = _conn_table_mac($idx);
+
+            if ( $mac eq $c_mac ) {
+                my $index = "$idx.$ip";
+                $amap_index{$index} = $index;
+            }
+        }
+    }
+    return \%amap_index;
+}
+
+# Break up _amap_index INDEX into local index, MAC, remote index, and
+# IP address
+sub _amap_index_parts {
+    my $idx       = shift;
+    my @oids      = split( /\./, $idx );
+    my $local_idx = shift @oids;
+    my $mac       = join( '.', splice( @oids, 0, 6 ) );
+    my $rem_idx   = shift @oids;
+
+    return ( $local_idx, $mac, $rem_idx, join( '.', @oids ) );
+}
+
+sub amap_if {
+    my $amap = shift;
+
+    my $index  = $amap->_amap_index()         || {};
+    my $if_idx = $amap->aipAMAPLocalIfindex() || {};
+
+    my %amap_if;
+    foreach my $key ( keys %$index ) {
+        my ( $local_idx, $mac, $rem_idx, $ip ) = _amap_index_parts($key);
+        my $if_key = "$local_idx.$mac.$rem_idx";
+
+        if ( $key =~ /^$if_key/ ) {
+            my $if = $if_idx->{$if_key};
+            $amap_if{$key} = $if;
+        }
+    }
+
+    return \%amap_if;
+}
+
+sub amap_ip {
+    my $amap = shift;
+
+    my $index = $amap->_amap_index() || {};
+
+    my %amap_ip;
+    foreach my $key ( keys %$index ) {
+        my ( $local_idx, $mac, $rem_idx, $ip ) = _amap_index_parts($key);
+
+        # MIB says should only be IPv4
+        next unless ( $ip =~ /\d+(\.\d+){3}/ );
+        $amap_ip{$key} = $ip;
+    }
+    return \%amap_ip;
+}
+
+sub amap_port {
+    my $amap = shift;
+
+    my $index      = $amap->_amap_index()      || {};
+    my $amap_rport = $amap->aipAMAPLocalPort() || {};
+    my $amap_rslot = $amap->aipAMAPLocalSlot() || {};
+
+    my %amap_port;
+    foreach my $key ( sort keys %$index ) {
+        my ( $local_idx, $mac, $rem_idx, $ip ) = _amap_index_parts($key);
+        my $p_key = "$local_idx.$mac.$rem_idx";
+
+        if ( $key =~ /^$p_key/ ) {
+            my $port = $amap_rport->{$p_key};
+            my $slot = $amap_rslot->{$p_key} || 0;
+            next unless $port;
+            $amap_port{$key} = defined $slot ? "$slot\/$port" : $port;
+        }
+    }
+    return \%amap_port;
+}
+
+sub amap_id {
+    my $amap = shift;
+
+    my $index     = $amap->_amap_index()      || {};
+    my $amap_name = $amap->amap_rem_sysname() || {};
+
+    my %amap_name;
+    foreach my $key ( sort keys %$index ) {
+        my ( $local_idx, $mac, $rem_idx, $ip ) = _amap_index_parts($key);
+        my $id_key = "$local_idx.$mac.$rem_idx";
+
+        if ( $key =~ /^$id_key/ ) {
+            my $name = $amap_name->{$id_key} || 0;
+            next unless $name;
+            $amap_name{$key} = $name;
+        }
+    }
+    return \%amap_name;
+}
+
+sub amap_platform {
+    my $amap = shift;
+
+    my $index              = $amap->_amap_index()          || {};
+    my $amap_topo_platform = $amap->aipAMAPRemDeviceType() || {};
+
+    my %amap_platform;
+    foreach my $key ( keys %$index ) {
+        my ( $local_idx, $mac, $rem_idx, $ip ) = _amap_index_parts($key);
+        my $pf_key = "$local_idx.$mac.$rem_idx";
+
+        if ( $key =~ /^$pf_key/ ) {
+            my $platform = $amap_topo_platform->{$pf_key};
+            next unless $platform;
+            $amap_platform{$key} = $platform;
+        }
+    }
+    return \%amap_platform;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::AMAP - SNMP Interface to Alcatel Mapping Adjacency Protocol (AMAP)
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+ my $amap = new SNMP::Info ( 
+                             AutoSpecify => 1,
+                             Debug       => 1,
+                             DestHost    => 'router', 
+                             Community   => 'public',
+                             Version     => 2
+                           );
+
+ my $class = $amap->class();
+ print " Using device sub class : $class\n";
+
+ $hasamap   = $amap->hasAMAP() ? 'yes' : 'no';
+
+ # Print out a map of device ports with LLDP neighbors:
+ my $interfaces    = $amap->interfaces();
+ my $amap_if       = $amap->amap_if();
+ my $amap_ip       = $amap->amap_ip();
+ my $amap_port     = $amap->amap_port();
+
+ foreach my $amap_key (keys %$amap_ip){
+    my $iid           = $amap_if->{$amap_key};
+    my $port          = $interfaces->{$iid};
+    my $neighbor      = $amap_ip->{$amap_key};
+    my $neighbor_port = $amap_port->{$amap_key};
+    print "Port : $port connected to $neighbor / $neighbor_port\n";
+ }
+
+=head1 DESCRIPTION
+
+SNMP::Info::AMAP is a subclass of SNMP::Info that provides an object oriented 
+interface to Alcatel Mapping Adjacency Protocol (AMAP) information through
+SNMP.
+
+AMAP is a Layer 2 protocol that allows a network device to advertise its
+identity and capabilities on the local network providing topology information.
+
+Create or use a device subclass that inherits this class.  Do not use
+directly.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<ALCATEL-IND1-INTERSWITCH-PROTOCOL-MIB>
+
+=back
+
+=head1 GLOBAL METHODS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item $amap->hasAMAP()
+
+Is AMAP is active in this device?  
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $amap->amap_id()
+
+Returns the string value used to identify the remote system.
+
+=item $amap->amap_if()
+
+Returns the mapping to the SNMP Interface Table.
+
+=item  $amap->amap_ip()
+
+Returns remote IPv4 addresses.  Note: AMAP returns all IP addresses associated
+with the remote device.  It would be preferable to include only one address
+since they should all originate from the same device, but amap_ip() can not 
+determine if all addresses are reachable from the network management
+application therefore all addresses are returned and the calling application
+must determine which address to use and if they are in fact from the same
+device.
+
+=item $amap->amap_port()
+
+Returns remote port ID
+
+=item $amap->amap_platform()
+
+Returns remote platform ID
+
+=back
+
+=cut

lib/SNMP/Info/AdslLine.pm

@@ -0,0 +1,172 @@
+# SNMP::Info::AdslLine
+#
+# Copyright (c) 2009 Alexander Hartmaier
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::AdslLine;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::AdslLine::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::AdslLine::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'ADSL-LINE-MIB' => 'adslLineType' );
+
+%GLOBALS = ();
+
+%FUNCS = (
+    # ADSL-LINE-MIB::adslAtucChanTable
+    'adsl_atuc_interleave_delay'    => 'adslAtucChanInterleaveDelay',
+    'adsl_atuc_curr_tx_rate'        => 'adslAtucChanCurrTxRate',
+    'adsl_atuc_prev_tx_rate'        => 'adslAtucChanPrevTxRate',
+    'adsl_atuc_crc_block_len'       => 'adslAtucChanCrcBlockLength',
+    
+    # ADSL-LINE-MIB::adslAturChanTable
+    'adsl_atur_interleave_delay'    => 'adslAturChanInterleaveDelay',
+    'adsl_atur_curr_tx_rate'        => 'adslAturChanCurrTxRate',
+    'adsl_atur_prev_tx_rate'        => 'adslAturChanPrevTxRate',
+    'adsl_atur_crc_block_len'       => 'adslAturChanCrcBlockLength',
+);
+
+%MUNGE = ();
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::AdslLine - SNMP Interface to the F<ADSL-LINE-MIB>
+
+=head1 AUTHOR
+
+Alexander Hartmaier
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $info = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myrouter',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $info->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+SNMP::Info::AdslLine is a subclass of SNMP::Info that provides 
+information about the adsl interfaces of a device.
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+none.
+
+=head2 Required MIBs
+
+=over
+
+=item F<ADSL-LINE-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBALS
+
+=over
+
+=item none
+
+=back
+
+=head1 TABLE METHODS
+
+=head2 ATUC channel table (C<adslAtucChanTable>)
+
+This table provides one row for each ATUC channel.
+ADSL channel interfaces are those C<ifEntries> where C<ifType>
+is equal to adslInterleave(124) or adslFast(125).
+
+=over
+
+=item $info->adsl_atuc_interleave_delay()
+
+(C<adslAtucChanInterleaveDelay>)
+
+=item $info->adsl_atuc_curr_tx_rate()
+
+(C<adslAtucChanCurrTxRate>)
+
+=item $info->adsl_atuc_prev_tx_rate()
+
+(C<adslAtucChanPrevTxRate>)
+
+=item $info->adsl_atuc_crc_block_len()
+
+(C<adslAtucChanCrcBlockLength>)
+
+=back
+
+=head2 ATUR channel table (C<adslAturChanTable>)
+
+This table provides one row for each ATUR channel.
+ADSL channel interfaces are those C<ifEntries> where C<ifType>
+is equal to adslInterleave(124) or adslFast(125).
+
+=over
+
+=item $info->adsl_atur_interleave_delay()
+
+(C<adslAturChanInterleaveDelay>)
+
+=item $info->adsl_atur_curr_tx_rate()
+
+(C<adslAturChanCurrTxRate>)
+
+=item $info->adsl_atur_prev_tx_rate()
+
+(C<adslAturChanPrevTxRate>)
+
+=item $info->adsl_atur_crc_block_len()
+
+(C<adslAturChanCrcBlockLength>)
+
+=back
+
+=cut

lib/SNMP/Info/Aggregate.pm

@@ -0,0 +1,131 @@
+# SNMP::Info::Aggregate
+#
+# Copyright (c) 2014 SNMP::Info Developers
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::Aggregate;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::Aggregate::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::Aggregate::EXPORT_OK = qw/agg_ports_ifstack/;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+# Load MIB for leafs referenced within class
+%MIBS = ('IF-MIB' => 'ifIndex',);
+
+%GLOBALS = ();
+
+%FUNCS = ();
+
+%MUNGE = ();
+
+sub agg_ports_ifstack {
+  my $dev = shift;
+  my $partial = shift;
+
+  my $ifStack = $dev->ifStackStatus();
+  # TODO: if we want to do partial, we need to use inverse status
+  my $ifType = $dev->ifType();
+
+  my $ret = {};
+
+  foreach my $idx ( keys %$ifStack ) {
+      my ( $higher, $lower ) = split /\./, $idx;
+      next if ( $higher == 0 or $lower == 0 );
+      if ( $ifType->{ $higher } eq 'ieee8023adLag'  or $ifType->{ $higher } eq 'propMultiplexor') {
+          $ret->{ $lower } = $higher;
+      }
+  }
+
+  return $ret;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::Aggregate - SNMP Interface to ifStackTable Aggregated Links
+
+=head1 AUTHOR
+
+SNMP::Info Developers
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $info = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myrouter',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $info->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+This class provides access to Aggregated Links configuration on devices
+supporting C<ifStackTable>.
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+L<SNMP::Info>
+
+=head2 Required MIBs
+
+=over
+
+=item F<IF-MIB>
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item C<agg_ports_ifstack>
+
+Returns a HASH reference mapping from slave to master port for each member of
+a port bundle on the device. Keys are ifIndex of the slave ports, Values are
+ifIndex of the corresponding master ports.
+
+=back
+
+=cut

lib/SNMP/Info/CDP.pm

@@ -0,0 +1,531 @@
+# SNMP::Info::CDP
+# $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.
+#     * 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::CDP;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::CDP::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::CDP::EXPORT_OK = qw//;
+
+use vars
+    qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT %CDP_CAPABILITIES/;
+
+$VERSION = '3.61';
+
+# Five data structures required by SNMP::Info
+%MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' );
+
+# Notice we dont inherit the default GLOBALS and FUNCS
+# only the default MUNGE.
+%GLOBALS = (
+    'cdp_run'      => 'cdpGlobalRun',
+    'cdp_interval' => 'cdpGlobalMessageInterval',
+    'cdp_holdtime' => 'cdpGlobalHoldTime',
+    'cdp_gid'      => 'cdpGlobalDeviceId',
+);
+
+%FUNCS = (
+    'cdp_proto'        => 'cdpCacheAddressType',
+    'cdp_addr'         => 'cdpCacheAddress',
+    'cdp_ver'          => 'cdpCacheVersion',
+    'cdp_dev_id'       => 'cdpCacheDeviceId',
+    'cdp_dev_port'     => 'cdpCacheDevicePort',
+    'cdp_platform'     => 'cdpCachePlatform',
+    'cdp_capabilities' => 'cdpCacheCapabilities',
+    'cdp_domain'       => 'cdpCacheVTPMgmtDomain',
+    'cdp_vlan'         => 'cdpCacheNativeVLAN',
+    'cdp_duplex'       => 'cdpCacheDuplex',
+    'cdp_power'        => 'cdpCachePowerConsumption',
+    'cdp_pri_mgmt_type'=> 'cdpCachePrimaryMgmtAddrType',
+    'cdp_pri_mgmt_addr'=> 'cdpCachePrimaryMgmtAddr',
+    'cdp_sec_mgmt_type'=> 'cdpCacheSecondaryMgmtAddrType',
+    'cdp_sec_mgmt_addr'=> 'cdpCacheSecondaryMgmtAddr',
+);
+
+%MUNGE = (
+    'cdp_capabilities' => \&SNMP::Info::munge_bits,
+    'cdp_platform'     => \&SNMP::Info::munge_null,
+    'cdp_domain'       => \&SNMP::Info::munge_null,
+    'cdp_ver'          => \&SNMP::Info::munge_null,
+    'cdp_ip'           => \&SNMP::Info::munge_ip,
+    'cdp_power'        => \&munge_power,
+
+);
+
+%CDP_CAPABILITIES = (
+    'Router'                  => 0x001,
+    'Trans-Bridge'            => 0x002,
+    'Source-Route-Bridge'     => 0x004,
+    'Switch'                  => 0x008,
+    'Host'                    => 0x010,
+    'IGMP'                    => 0x020,
+    'Repeater'                => 0x040,
+    'VoIP-Phone'              => 0x080,
+    'Remotely-Managed-Device' => 0x100,
+    'Supports-STP-Dispute'    => 0x200,
+    'Two-port Mac Relay'      => 0x400,
+);
+
+sub munge_power {
+    my $power = shift;
+    my $decimal = substr( $power, -3 );
+    $power =~ s/$decimal$/\.$decimal/;
+    return $power;
+}
+
+sub hasCDP {
+    my $cdp = shift;
+
+    # Check the global that is supposed to indicate CDP is running
+    my $cdp_run = $cdp->cdp_run();
+    return 1 if $cdp_run;
+
+    # SNMP v1 clients don't have the globals, fallback
+    # by checking if it would report neighbors
+    my $cdp_ip = $cdp->cdp_ip() || {};
+    return 1 if scalar keys %$cdp_ip;
+
+    return;
+}
+
+sub cdp_if {
+    my $cdp = shift;
+
+    my $cdp_ip = $cdp->cdp_ip();
+    unless ( defined $cdp_ip ) {
+        $cdp->error_throw(
+            "SNMP::Info::CDP:cdp_if() - Device doesn't have cdp_ip() data.  Can't fake cdp_index()"
+        );
+        return;
+    }
+
+    my %cdp_if;
+    foreach my $key ( keys %$cdp_ip ) {
+        next unless defined $key;
+        my $iid = $key;
+
+        # Truncate .1 from cdp cache entry
+        $iid =~ s/\.\d+$//;
+        $cdp_if{$key} = $iid;
+    }
+
+    return \%cdp_if;
+}
+
+sub cdp_ip {
+    my $cdp     = shift;
+    my $partial = shift;
+
+    my $cdp_addr  = $cdp->cdp_addr($partial)  || {};
+    my $cdp_proto = $cdp->cdp_proto($partial) || {};
+
+    my %cdp_ip;
+    foreach my $key ( keys %$cdp_addr ) {
+        my $addr  = $cdp_addr->{$key};
+        my $proto = $cdp_proto->{$key};
+        next unless defined $addr;
+        next if ( defined $proto and $proto ne 'ip' );
+
+        my $ip = join( '.', unpack( 'C4', $addr ) );
+        $cdp_ip{$key} = $ip;
+    }
+    return \%cdp_ip;
+}
+
+sub cdp_cap {
+    my $cdp     = shift;
+    my $partial = shift;
+
+    # Some devices return a hex-string, others return a space separated
+    # string, we need the raw data to determine return value and
+    # take appropriate action
+    my $cdp_caps = $cdp->cdp_capabilities_raw($partial) || {};
+
+    my %cdp_cap;
+    foreach my $key ( keys %$cdp_caps ) {
+        my $cap_raw = $cdp_caps->{$key};
+        next unless $cap_raw;
+
+        # Simple check, smallest single string is either Host or IGMP with a
+        # space added on the end for a length of 5, hex string is normally
+        # 4 bytes, but since only one byte was traditionally needed process
+        # as hex for a length of 4 or less
+        if ( length $cap_raw < 5 ) {
+            my $cap_hex = join( '',
+                map { sprintf "%x", $_ } unpack( 'C*', $cap_raw ) );
+            foreach my $capability ( keys %CDP_CAPABILITIES ) {
+                if ( ( hex $cap_hex ) & $CDP_CAPABILITIES{$capability} ) {
+                    push( @{ $cdp_cap{$key} }, $capability );
+                }
+            }
+        }
+        else {
+            my @caps = split /\s/, $cap_raw;
+            push( @{ $cdp_cap{$key} }, @caps );
+        }
+    }
+    return \%cdp_cap;
+}
+
+sub cdp_id {
+    my $cdp    = shift;
+    my $partial = shift;
+
+    my $ch = $cdp->cdp_dev_id($partial) || {};
+
+    my %cdp_id;
+    foreach my $key ( sort keys %$ch ) {
+        my $id = $ch->{$key};
+        next unless $id;
+        $id = SNMP::Info::munge_mac($id) || SNMP::Info::munge_null($id);
+        $cdp_id{$key} = $id;
+    }
+    return \%cdp_id;
+}
+
+sub cdp_port {
+    my $cdp    = shift;
+    my $partial = shift;
+
+    my $ch = $cdp->cdp_dev_port($partial) || {};
+
+    my %cdp_port;
+    foreach my $key ( sort keys %$ch ) {
+        my $port = $ch->{$key};
+        next unless $port;
+        $port = SNMP::Info::munge_mac($port) || SNMP::Info::munge_null($port);
+        $cdp_port{$key} = $port;
+    }
+    return \%cdp_port;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::CDP - SNMP Interface to Cisco Discovery Protocol (CDP) using SNMP
+
+=head1 AUTHOR
+
+Max Baker
+
+=head1 SYNOPSIS
+
+ my $cdp = new SNMP::Info ( 
+                             AutoSpecify => 1,
+                             Debug       => 1,
+                             DestHost    => 'router', 
+                             Community   => 'public',
+                             Version     => 2
+                           );
+
+ my $class = $cdp->class();
+ print " Using device sub class : $class\n";
+
+ $hascdp   = $cdp->hasCDP() ? 'yes' : 'no';
+
+ # Print out a map of device ports with CDP neighbors:
+ my $interfaces = $cdp->interfaces();
+ my $cdp_if       = $cdp->cdp_if();
+ my $cdp_ip       = $cdp->cdp_ip();
+ my $cdp_port     = $cdp->cdp_port();
+
+ foreach my $cdp_key (keys %$cdp_ip){
+    my $iid           = $cdp_if->{$cdp_key};
+    my $port          = $interfaces->{$iid};
+    my $neighbor      = $cdp_ip->{$cdp_key};
+    my $neighbor_port = $cdp_port->{$cdp_key};
+    print "Port : $port connected to $neighbor / $neighbor_port\n";
+ }
+
+=head1 DESCRIPTION
+
+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.
+
+Create or use a device subclass that inherits this class.  Do not use
+directly.
+
+Each device implements a subset of the global and cache entries. 
+Check the return value to see if that data is held by the device.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-CDP-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBAL METHODS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item  $cdp->hasCDP()
+
+Is CDP is active in this device?  
+
+Accounts for SNMP version 1 devices which may have CDP but not cdp_run()
+
+=item $cdp->cdp_run()
+
+Is CDP enabled on this device?  Note that a lot of Cisco devices that
+implement CDP don't implement this value. @#%$!
+
+(C<cdpGlobalRun>)
+
+=item $cdp->cdp_interval()
+
+Interval in seconds at which CDP messages are generated.
+
+(C<cdpGlobalMessageInterval>)
+
+=item $cdp->cdp_holdtime()
+
+Time in seconds that CDP messages are kept. 
+
+(C<cdpGlobalHoldTime>)
+
+=item  $cdp->cdp_gid() 
+
+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().
+
+(C<cdpGlobalDeviceId>)
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2 CDP CACHE ENTRIES
+
+=over
+
+=item $cdp->cdp_capabilities()
+
+Returns Device Functional Capabilities.  Results are munged into an ascii
+binary string, MSB.  Each digit represents a bit from the table below from 
+the CDP Capabilities Mapping to Smartport Type table within the
+Cisco Small Business 200 Series Smart Switch Administration Guide, 
+L<http://www.cisco.com/c/en/us/support/switches/small-business-200-series-smart-switches/products-maintenance-guides-list.html>:
+
+(Bit) - Description
+
+=over
+
+=item (0x400) - Two-Port MAC Relay.
+
+=item (0x200) - CAST Phone Port / CVTA / Supports-STP-Dispute depending
+                upon platform.
+
+=item (0x100) - Remotely-Managed Device.
+
+=item (0x80)  - VoIP Phone.
+
+=item (0x40)  - Provides level 1 functionality.
+
+=item (0x20)  - The bridge or switch does not forward IGMP Report packets on
+non router ports.
+
+=item (0x10)  - Sends and receives packets for at least one network layer
+protocol. If the device is routing the protocol, this bit should not be set.
+
+=item (0x08)  - Performs level 2 switching. The difference between this bit
+and bit 0x02 is that a switch does not run the Spanning-Tree Protocol. This
+device is assumed to be deployed in a physical loop-free topology.
+
+=item (0x04)  - Performs level 2 source-route bridging. A source-route bridge
+would set both this bit and bit 0x02.
+
+=item (0x02)  - Performs level 2 transparent bridging.
+
+=item (0x01)  - Performs level 3 routing for at least one network layer
+protocol.
+
+=back
+
+Thanks to Martin Lorensen for a pointer to the original information and
+CPAN user Alex for updates.
+
+(C<cdpCacheCapabilities>)
+
+=item $cdp->cdp_domain()
+
+Returns remote VTP Management Domain as defined in
+C<CISCO-VTP-MIB::managementDomainName>
+
+(C<cdpCacheVTPMgmtDomain>)
+
+=item $cdp->cdp_duplex() 
+
+Returns the port duplex status from remote devices.
+
+(C<cdpCacheDuplex>)
+
+=item $cdp->cdp_id()
+
+Returns remote device id string
+
+(C<cdpCacheDeviceId>)
+
+=item $cdp->cdp_if()
+
+Returns the mapping to the SNMP Interface Table.
+
+Note that a lot devices don't implement $cdp->cdp_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 :
+
+  # it exists, yay.
+  my $cdp_index     = $device->cdp_index();
+  return $cdp_index if defined $cdp_index;
+
+  # if not, let's fake it
+  my $cdp_ip       = $device->cdp_ip();
+    
+  my %cdp_if
+  foreach my $key (keys %$cdp_ip){
+      $iid = $key;
+      ## Truncate off .1 from cdp response
+      $iid =~ s/\.\d+$//;
+      $cdp_if{$key} = $iid;
+  }
+ 
+  return \%cdp_if;
+
+
+=item $cdp->cdp_index()
+
+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->cdp_if()
+instead.
+
+See cdp_if() entry.
+
+(C<cdpCacheIfIndex>)
+
+=item  $cdp->cdp_ip()
+
+If $cdp->cdp_proto() is supported, returns remote IPV4 address only.  Otherwise
+it will return all addresses.
+
+(C<cdpCacheAddress>)
+
+=item  $cdp->cdp_addr()
+
+Returns remote address
+
+(C<cdpCacheAddress>)
+
+=item $cdp->cdp_platform() 
+
+Returns remote platform id 
+
+(C<cdpCachePlatform>)
+
+=item $cdp->cdp_port()
+
+Returns remote port ID
+
+(C<cdpDevicePort>)
+
+=item  $cdp->cdp_proto()
+
+Returns remote address type received.  Usually IP.
+
+(C<cdpCacheAddressType>)
+
+=item $cdp->cdp_ver() 
+
+Returns remote hardware version
+
+(C<cdpCacheVersion>)
+
+=item $cdp->cdp_vlan()
+
+Returns the remote interface native VLAN.
+
+(C<cdpCacheNativeVLAN>)
+
+=item $cdp->cdp_power()
+
+Returns the amount of power consumed by remote device in milliwatts munged
+for decimal placement.
+
+(C<cdpCachePowerConsumption>)
+
+=item  $cdp->cdp_cap() 
+
+Returns hash of arrays with each array containing the system capabilities
+supported by the remote system.  Possible elements in the array are
+C<Router>, C<Trans-Bridge>, C<Source-Route-Bridge>, C<Switch>, C<Host>,
+C<IGMP>, C<Repeater>, C<VoIP-Phone>, C<Remotely-Managed-Device>,
+C<Supports-STP-Dispute>, and C<Two-port Mac Relay>.
+
+=back
+
+=head1 Data Munging Callback Subroutines
+
+=over
+
+=item $cdp->munge_power()
+
+Inserts a decimal at the proper location.
+
+=back
+
+=cut

lib/SNMP/Info/CiscoAgg.pm

@@ -0,0 +1,158 @@
+# SNMP::Info::CiscoAgg
+#
+# Copyright (c) 2018 SNMP::Info Developers
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::CiscoAgg;
+
+use strict;
+use Exporter;
+use SNMP::Info::IEEE802dot3ad 'agg_ports_lag';
+
+@SNMP::Info::CiscoAgg::ISA = qw/
+  SNMP::Info::IEEE802dot3ad
+  Exporter
+/;
+@SNMP::Info::CiscoAgg::EXPORT_OK = qw/
+  agg_ports
+/;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+  %SNMP::Info::IEEE802dot3ad::MIBS,
+  'CISCO-PAGP-MIB'   => 'pagpGroupIfIndex',
+);
+
+%GLOBALS = ();
+
+%FUNCS = (
+  %SNMP::Info::IEEE802dot3ad::FUNCS,
+);
+
+%MUNGE = (
+  %SNMP::Info::IEEE802dot3ad::MUNGE,
+);
+
+sub agg_ports_pagp {
+  my $dev = shift;
+
+  # Note that this mapping will miss any interfaces that are down during
+  # polling. If one of the members is up, we could use
+  # pagpAdminGroupCapability to figure things out, but if they're all
+  # down, we're hosed. Since we could be hosed anyway, we skip the fancy
+  # stuff.
+  my $mapping = {};
+  my $group = $dev->pagpGroupIfIndex;
+  for my $slave (keys %$group) {
+    my $master = $group->{$slave};
+    next if($master == 0 || $slave == $master);
+
+    $mapping->{$slave} = $master;
+  }
+
+  return $mapping;
+}
+
+# until we have PAgP data and need to combine with LAG data
+sub agg_ports {
+  my $ret = {%{agg_ports_pagp(@_)}, %{agg_ports_lag(@_)}};
+  return $ret;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoAgg - SNMP Interface to Cisco Aggregated Links
+
+=head1 AUTHOR
+
+SNMP::Info Developers
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $info = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myrouter',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $info->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+This class provides access to Aggregated Links configuration on Cisco devices.
+It combines Cisco PAgP and IEEE 802.3ad information.
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+L<SNMP::Info::IEEE802dot3ad>
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-PAGP-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 METHODS
+
+=over 4
+
+=item C<agg_ports>
+
+Returns a HASH reference mapping from slave to master port for each member of
+a port bundle on the device. Keys are ifIndex of the slave ports, Values are
+ifIndex of the corresponding master ports.
+
+=item C<agg_ports_pagp>
+
+Implements the PAgP LAG info retrieval. Merged into C<agg_ports> data
+automatically.
+
+=back
+
+=head2 Table Methods imported from SNMP::Info::IEEE802dot3ad
+
+See documentation in L<SNMP::Info::IEEE802dot3ad> for details.
+
+=cut

lib/SNMP/Info/CiscoConfig.pm

@@ -1,35 +1,36 @@
 # SNMP::Info::CiscoConfig
-# Justin Hunter, Eric Miller
 # $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::CiscoConfig;
-$VERSION = '1.07';
 
 use strict;
-
 use Exporter;
 use SNMP::Info;
 
@@ -38,44 +39,48 @@ use SNMP::Info;
 
 use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
 
+$VERSION = '3.61';
+
 %MIBS = (
-         'CISCO-CONFIG-COPY-MIB' => 'ccCopyTable',
-         'CISCO-FLASH-MIB'       => 'ciscoFlashCopyTable',
-         'OLD-CISCO-SYS-MIB'     => 'writeMem',
-        );
+    'CISCO-CONFIG-COPY-MIB' => 'ccCopyTable',
+    'CISCO-FLASH-MIB'       => 'ciscoFlashCopyTable',
+    'OLD-CISCO-SYS-MIB'     => 'writeMem',
+);
 
 %GLOBALS = (
-            # OLD-CISCO-SYS-MIB
-            'old_write_mem'             => 'writeMem',
-            'old_write_net'             => 'writeNet',
-            );
+
+    # OLD-CISCO-SYS-MIB
+    'old_write_mem' => 'writeMem',
+    'old_write_net' => 'writeNet',
+);
 
 %FUNCS = (
-          # CISCO-COPY-CONFIG-MIB::ccCopyTable
-          'config_protocol'           => 'ccCopyProtocol',
-          'config_source_type'        => 'ccCopySourceFileType',
-          'config_dest_type'          => 'ccCopyDestFileType',
-          'config_server_addr'        => 'ccCopyServerAddress',
-          'config_filename'           => 'ccCopyFileName',
-          'config_username'           => 'ccCopyUserName',
-          'config_password'           => 'ccCopyUserPassword',
-          'config_notify_complete'    => 'ccCopyNotificationOnCompletion',
-          'config_copy_state'         => 'ccCopyState',
-          'config_copy_start_time'    => 'ccCopyTimeStarted',
-          'config_copy_complete_time' => 'ccCopyTimeCompleted',
-          'config_fail_cause'         => 'ccCopyFailCause',
-          'config_row_status'         => 'ccCopyEntryRowStatus',
-          # CISCO-FLASH-MIB::ciscoFlashCopyTable
-          'flash_copy_cmd'            => 'ciscoFlashCopyCommand',
-          'flash_copy_protocol'       => 'ciscoFlashCopyProtocol',
-          'flash_copy_address'        => 'ciscoFlashCopyServerAddress',
-          'flash_copy_source'         => 'ciscoFlashCopySourceName',
-          'flash_copy_dest'           => 'ciscoFlashCopyDestinationName',
-          'flash_copy_row_status'     => 'ciscoFlashCopyEntryStatus',
-         );
 
-%MUNGE = (
-          );
+    # CISCO-COPY-CONFIG-MIB::ccCopyTable
+    'config_protocol'           => 'ccCopyProtocol',
+    'config_source_type'        => 'ccCopySourceFileType',
+    'config_dest_type'          => 'ccCopyDestFileType',
+    'config_server_addr'        => 'ccCopyServerAddress',
+    'config_filename'           => 'ccCopyFileName',
+    'config_username'           => 'ccCopyUserName',
+    'config_password'           => 'ccCopyUserPassword',
+    'config_notify_complete'    => 'ccCopyNotificationOnCompletion',
+    'config_copy_state'         => 'ccCopyState',
+    'config_copy_start_time'    => 'ccCopyTimeStarted',
+    'config_copy_complete_time' => 'ccCopyTimeCompleted',
+    'config_fail_cause'         => 'ccCopyFailCause',
+    'config_row_status'         => 'ccCopyEntryRowStatus',
+
+    # CISCO-FLASH-MIB::ciscoFlashCopyTable
+    'flash_copy_cmd'        => 'ciscoFlashCopyCommand',
+    'flash_copy_protocol'   => 'ciscoFlashCopyProtocol',
+    'flash_copy_address'    => 'ciscoFlashCopyServerAddress',
+    'flash_copy_source'     => 'ciscoFlashCopySourceName',
+    'flash_copy_dest'       => 'ciscoFlashCopyDestinationName',
+    'flash_copy_row_status' => 'ciscoFlashCopyEntryStatus',
+);
+
+%MUNGE = ();
 
 sub copy_run_tftp {
     my $ciscoconfig = shift;
@@ -84,83 +89,100 @@ sub copy_run_tftp {
     srand( time() ^ ( $$ + ( $$ << 15 ) ) );
     my $rand = int( rand( 1 << 24 ) );
 
-    print "Saving running config to $tftphost as $tftpfile\n" if $ciscoconfig->debug();
+    print "Saving running config to $tftphost as $tftpfile\n"
+        if $ciscoconfig->debug();
 
-    #Try new method first fall back to old method 
+    #Try new method first fall back to old method
     if ( $ciscoconfig->set_config_protocol( 1, $rand ) ) {
         print "Using new method, row iid: $rand\n" if $ciscoconfig->debug();
+
         #Check each set, delete created row if any fail
+        unless ( $ciscoconfig->set_config_row_status( 5, $rand ) ) {
+            $ciscoconfig->error_throw("Initializing config copy instruction failed");
+            return;
+        }
         unless ( $ciscoconfig->set_config_source_type( 4, $rand ) ) {
             $ciscoconfig->error_throw("Setting source type failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Setting source type failed and failed to delete row $rand");
+                $ciscoconfig->error_throw(
+                    "Setting source type failed and failed to delete row $rand"
+                );
             }
-            return undef;
+            return;
         }
         unless ( $ciscoconfig->set_config_dest_type( 1, $rand ) ) {
             $ciscoconfig->error_throw("Setting destination type failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Setting dest type failed and failed to delete row $rand");
+                $ciscoconfig->error_throw(
+                    "Setting dest type failed and failed to delete row $rand"
+                );
             }
-            return undef;
+            return;
         }
         unless ( $ciscoconfig->set_config_server_addr( $tftphost, $rand ) ) {
             $ciscoconfig->error_throw("Setting tftp server failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Setting tftp server failed and failed to delete row $rand");
+                $ciscoconfig->error_throw(
+                    "Setting tftp server failed and failed to delete row $rand"
+                );
             }
-            return undef;
+            return;
         }
         unless ( $ciscoconfig->set_config_filename( $tftpfile, $rand ) ) {
             $ciscoconfig->error_throw("Setting file name failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Setting file name failed and failed to delete row $rand");
+                $ciscoconfig->error_throw(
+                    "Setting file name failed and failed to delete row $rand"
+                );
             }
-            return undef;
+            return;
         }
         unless ( $ciscoconfig->set_config_row_status( 1, $rand ) ) {
             $ciscoconfig->error_throw("Initiating transfer failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Initiating transfer failed and failed to delete row $rand");
+                $ciscoconfig->error_throw(
+                    "Initiating transfer failed and failed to delete row $rand"
+                );
             }
-            return undef;
-        }            
+            return;
+        }
         my $status = 0;
         my $timer  = 0;
-        # Hard-coded timeout of approximately 5 minutes, we can wrap this in an
-        # option later if needed
-        my $timeout = 300; 
+
+       # Hard-coded timeout of approximately 5 minutes, we can wrap this in an
+       # option later if needed
+        my $timeout = 300;
         while ( $status !~ /successful|failed/ ) {
             my $t = $ciscoconfig->config_copy_state($rand);
             $status = $t->{$rand};
             last if $status =~ /successful|failed/;
             $timer += 1;
-            if ($timer >= $timeout) {
+            if ( $timer >= $timeout ) {
                 $status = 'failed';
                 last;
             }
             sleep 1;
-        }  
+        }
 
         unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                print "Failed deleting row, iid $rand\n" if $ciscoconfig->debug();
+            print "Failed deleting row, iid $rand\n" if $ciscoconfig->debug();
         }
 
         if ( $status eq 'successful' ) {
             print "Save operation successful\n" if $ciscoconfig->debug();
             return 1;
-        }        
+        }
         if ( $status eq 'failed' ) {
             $ciscoconfig->error_throw("Save operation failed");
-            return undef;
+            return;
         }
 
     }
 
     print "Using old method\n" if $ciscoconfig->debug();
     unless ( $ciscoconfig->set_old_write_net( $tftpfile, $tftphost ) ) {
-            $ciscoconfig->error_throw("Save operation failed");
-            return undef;
+        $ciscoconfig->error_throw("Save operation failed");
+        return;
     }
 
     return 1;
@@ -176,32 +198,37 @@ sub copy_run_start {
 
     if ( $ciscoconfig->set_config_source_type( 4, $rand ) ) {
         print "Using new method, row iid: $rand\n" if $ciscoconfig->debug();
+
         #Check each set, delete created row if any fail
         unless ( $ciscoconfig->set_config_dest_type( 3, $rand ) ) {
             $ciscoconfig->error_throw("Setting dest type failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Setting dest type failed and failed to delete row $rand");
+                $ciscoconfig->error_throw(
+                    "Setting dest type failed and failed to delete row $rand"
+                );
             }
-            return undef;
+            return;
         }
         unless ( $ciscoconfig->set_config_row_status( 1, $rand ) ) {
             $ciscoconfig->error_throw("Initiating save failed");
             unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                $ciscoconfig->error_throw("Initiating save failed and failed to delete row $rand");
-                }
-            return undef;
+                $ciscoconfig->error_throw(
+                    "Initiating save failed and failed to delete row $rand");
+            }
+            return;
         }
         my $status = 0;
         my $timer  = 0;
-        # Hard-coded timeout of approximately 5 minutes, we can wrap this in an
-        # option later if needed
-        my $timeout = 300; 
+
+       # Hard-coded timeout of approximately 5 minutes, we can wrap this in an
+       # option later if needed
+        my $timeout = 300;
         while ( $status !~ /successful|failed/ ) {
             my $t = $ciscoconfig->config_copy_state($rand);
             $status = $t->{$rand};
             last if $status =~ /successful|failed/;
             $timer += 1;
-            if ($timer >= $timeout) {
+            if ( $timer >= $timeout ) {
                 $status = 'failed';
                 last;
             }
@@ -209,24 +236,24 @@ sub copy_run_start {
         }
 
         unless ( $ciscoconfig->set_config_row_status( 6, $rand ) ) {
-                print "Failed deleting row, iid $rand\n" if $ciscoconfig->debug();
+            print "Failed deleting row, iid $rand\n" if $ciscoconfig->debug();
         }
 
         if ( $status eq 'successful' ) {
             print "Save operation successful\n" if $ciscoconfig->debug();
             return 1;
-        }        
+        }
         if ( $status eq 'failed' ) {
             $ciscoconfig->error_throw("Save operation failed");
-            return undef;
+            return;
         }
 
     }
 
     print "Using old method\n" if $ciscoconfig->debug();
-    unless ( $ciscoconfig->set_old_write_mem( 1 ) ) {
-            $ciscoconfig->error_throw("Save operation failed");
-            return undef;
+    unless ( $ciscoconfig->set_old_write_mem(1) ) {
+        $ciscoconfig->error_throw("Save operation failed");
+        return;
     }
 
     return 1;
@@ -262,7 +289,7 @@ Justin Hunter, Eric Miller
 =head1 DESCRIPTION
 
 SNMP::Info::CiscoConfig is a subclass of SNMP::Info that provides an interface
-to C<CISCO-CONFIG-COPY-MIB>, C<CISCO-FLASH-MIB>, and C<OLD-CISCO-SYS-MIB>.
+to F<CISCO-CONFIG-COPY-MIB>, F<CISCO-FLASH-MIB>, and F<OLD-CISCO-SYS-MIB>.
 These MIBs facilitate the writing of configuration files.
 
 Use or create a subclass of SNMP::Info that inherits this one.
@@ -280,11 +307,11 @@ None.
 
 =over
 
-=item CISCO-CONFIG-COPY-MIB
+=item F<CISCO-CONFIG-COPY-MIB>
 
-=item CISCO-FLASH-MIB
+=item F<CISCO-FLASH-MIB>
 
-=item OLD-CISCO-SYS-MIB
+=item F<OLD-CISCO-SYS-MIB>
 
 =back
 
@@ -296,11 +323,11 @@ These are methods that return scalar value from SNMP
 
 =item $ciscoconfig->old_write_mem()
 
-(B<writeMem>)
+(C<writeMem>)
 
 =item $ciscoconfig->old_write_net()
 
-(B<writeNet>)
+(C<writeNet>)
 
 =back
 
@@ -313,65 +340,65 @@ to a hash.
 
 =back
 
-=head2 Config Copy Request Table  (B<ccCopyTable>)
+=head2 Config Copy Request Table  (C<ccCopyTable>)
 
 =over
 
 =item $ciscoconfig->config_protocol()
 
-(B<ccCopyProtocol>)
+(C<ccCopyProtocol>)
 
 =item $ciscoconfig->config_source_type()
 
-(B<ccCopySourceFileType>)
+(C<ccCopySourceFileType>)
 
 =item $ciscoconfig->config_dest_type()
 
-(B<ccCopyDestFileType>)
+(C<ccCopyDestFileType>)
 
 =item $ciscoconfig->config_server_addr()
 
-(B<ccCopyServerAddress>)
+(C<ccCopyServerAddress>)
 
 =item $ciscoconfig->config_filename()
 
-(B<ccCopyFileName>)
+(C<ccCopyFileName>)
 
 =item $ciscoconfig->config_username()
 
-(B<ccCopyUserName>)
+(C<ccCopyUserName>)
 
 =item $ciscoconfig->config_password()
 
-(B<ccCopyUserPassword>)
+(C<ccCopyUserPassword>)
 
 =item $ciscoconfig->config_notify_complete()
 
-(B<ccCopyNotificationOnCompletion>)
+(C<ccCopyNotificationOnCompletion>)
 
 =item $ciscoconfig->config_copy_state()
 
-(B<ccCopyState>)
+(C<ccCopyState>)
 
 =item $ciscoconfig->config_copy_start_time()
 
-(B<ccCopyTimeStarted>)
+(C<ccCopyTimeStarted>)
 
 =item $ciscoconfig->config_copy_complete_time()
 
-(B<ccCopyTimeCompleted>)
+(C<ccCopyTimeCompleted>)
 
 =item $ciscoconfig->config_fail_cause()
 
-(B<ccCopyFailCause>)
+(C<ccCopyFailCause>)
 
 =item $ciscoconfig->config_row_status()
 
-(B<ccCopyEntryRowStatus>)
+(C<ccCopyEntryRowStatus>)
 
 =back
 
-=head2 Flash Copy Table (B<ciscoFlashCopyTable>)
+=head2 Flash Copy Table (C<ciscoFlashCopyTable>)
 
 Table of Flash copy operation entries.
 
@@ -379,35 +406,36 @@ Table of Flash copy operation entries.
 
 =item $ciscoconfig->flash_copy_cmd()
 
-(B<ciscoFlashCopyCommand>)
+(C<ciscoFlashCopyCommand>)
 
 =item $ciscoconfig->flash_copy_protocol()
 
-(B<ciscoFlashCopyProtocol>)
+(C<ciscoFlashCopyProtocol>)
 
 =item $ciscoconfig->flash_copy_address()
 
-(B<ciscoFlashCopyServerAddress>)
+(C<ciscoFlashCopyServerAddress>)
 
 =item $ciscoconfig->flash_copy_source()
 
-(B<ciscoFlashCopySourceName>)
+(C<ciscoFlashCopySourceName>)
 
 =item $ciscoconfig->flash_copy_dest()
 
-(B<ciscoFlashCopyDestinationName>)
+(C<ciscoFlashCopyDestinationName>)
 
 =item $ciscoconfig->flash_copy_row_status()
 
-(B<ciscoFlashCopyEntryStatus>)
+(C<ciscoFlashCopyEntryStatus>)
 
 =back
 
 =head1 SET METHODS
 
-These are methods that provide SNMP set functionality for overridden methods or
-provide a simpler interface to complex set operations.  See
-L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set operations. 
+These are methods that provide SNMP set functionality for overridden methods
+or provide a simpler interface to complex set operations.  See
+L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
+operations. 
 
 =over
 
@@ -417,30 +445,33 @@ Store the running configuration on a TFTP server.  Equivalent to the CLI
 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
-software release 12.0 or on some devices as early as release 11.2P.  The
+and then the older "write net" procedure if that fails.  The newer procedure
+is supported Cisco devices with the F<CISCO-CONFIG-COPY-MIB> 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.
 
  Example:
  $ciscoconfig->copy_run_tftp('1.2.3.4', 'myconfig') 
-    or die Couldn't save config. ",$ciscoconfig->error(1);
+    or die "Couldn't save config. ",$ciscoconfig->error(1);
 
 =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
-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.
+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<CISCO-CONFIG-COPY-MIB> 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.
 
  Example:
  $ciscoconfig->copy_run_start()
     or die "Couldn't save config. ",$ciscoconfig->error(1);
 
+=back
+
 =cut

lib/SNMP/Info/CiscoPortSecurity.pm

@@ -0,0 +1,415 @@
+# SNMP::Info::CiscoPortSecurity
+# $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.
+#     * 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::CiscoPortSecurity;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::CiscoPortSecurity::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoPortSecurity::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PAECAPABILITIES/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB',
+    'CISCO-PAE-MIB'           => 'ciscoPaeMIB',
+    'IEEE8021-PAE-MIB'        => 'dot1xAuthLastEapolFrameSource',
+    'CISCO-ERR-DISABLE-MIB'   => 'ciscoErrDisableMIB',
+);
+
+%GLOBALS = (
+
+    # CISCO-PORT-SECURITY-MIB
+    'cps_clear'     => 'cpsGlobalClearSecureMacAddresses',
+    'cps_notify'    => 'cpsGlobalSNMPNotifControl',
+    'cps_rate'      => 'cpsGlobalSNMPNotifRate',
+    'cps_enable'    => 'cpsGlobalPortSecurityEnable',
+    'cps_mac_count' => 'cpsGlobalTotalSecureAddress',
+    'cps_mac_max'   => 'cpsGlobalMaxSecureAddress',
+);
+
+%FUNCS = (
+
+    # CISCO-PORT-SECURITY-MIB::cpsIfConfigTable
+    'cps_i_limit_val'  => 'cpsIfInvalidSrcRateLimitValue',
+    'cps_i_limit'      => 'cpsIfInvalidSrcRateLimitEnable',
+    'cps_i_sticky'     => 'cpsIfStickyEnable',
+    'cps_i_clear_type' => 'cpsIfClearSecureMacAddresses',
+    'cps_i_shutdown'   => 'cpsIfShutdownTimeout',
+    'cps_i_flood'      => 'cpsIfUnicastFloodingEnable',
+    'cps_i_clear'      => 'cpsIfClearSecureAddresses',
+    'cps_i_mac'        => 'cpsIfSecureLastMacAddress',
+    'cps_i_count'      => 'cpsIfViolationCount',
+    'cps_i_action'     => 'cpsIfViolationAction',
+    'cps_i_mac_static' => 'cpsIfStaticMacAddrAgingEnable',
+    'cps_i_mac_type'   => 'cpsIfSecureMacAddrAgingType',
+    'cps_i_mac_age'    => 'cpsIfSecureMacAddrAgingTime',
+    'cps_i_mac_count'  => 'cpsIfCurrentSecureMacAddrCount',
+    'cps_i_mac_max'    => 'cpsIfMaxSecureMacAddr',
+    'cps_i_status'     => 'cpsIfPortSecurityStatus',
+    'cps_i_enable'     => 'cpsIfPortSecurityEnable',
+
+    # CISCO-PORT-SECURITY-MIB::cpsIfVlanTable
+    'cps_i_v_mac_count' => 'cpsIfVlanCurSecureMacAddrCount',
+    'cps_i_v_mac_max'   => 'cpsIfVlanMaxSecureMacAddr',
+
+    # CISCO-PORT-SECURITY-MIB::cpsIfVlanSecureMacAddrTable
+    'cps_i_v_mac_status' => 'cpsIfVlanSecureMacAddrRowStatus',
+    'cps_i_v_mac_age'    => 'cpsIfVlanSecureMacAddrRemainAge',
+    'cps_i_v_mac_type'   => 'cpsIfVlanSecureMacAddrType',
+
+    # CISCO-PORT-SECURITY-MIB::cpsSecureMacAddressTable
+    'cps_m_status' => 'cpsSecureMacAddrRowStatus',
+    'cps_m_age'    => 'cpsSecureMacAddrRemainingAge',
+    'cps_m_type'   => 'cpsSecureMacAddrType',
+
+    # IEEE8021-PAE-MIB::dot1xPaePortEntry
+    'pae_i_capabilities'            => 'dot1xPaePortCapabilities',
+    'pae_i_last_eapol_frame_source' => 'dot1xAuthLastEapolFrameSource',
+
+    # CISCO-ERR-DISABLE-MIB::cErrDisableIfStatusEntry
+    'cerr_i_cause' => 'cErrDisableIfStatusCause',
+);
+
+%MUNGE = (
+    'cps_i_mac'                     => \&SNMP::Info::munge_mac,
+    'pae_i_last_eapol_frame_source' => \&SNMP::Info::munge_mac,
+    'pae_i_capabilities'            => \&munge_pae_capabilities,
+);
+
+%PAECAPABILITIES = (
+    0 => 'dot1xPaePortAuthCapable',
+    1 => 'dot1xPaePortSuppCapable'
+);
+
+sub munge_pae_capabilities {
+    my $bits = shift;
+
+    return unless defined $bits;
+    my @vals
+        = map( $PAECAPABILITIES{$_}, sprintf( "%x", unpack( 'b*', $bits ) ) );
+    return join( ' ', @vals );
+}
+
+# Define a generic method to show the cause for a port to be err-disabled.
+# Cisco indexes cErrDisableIfStatusCause by {ifindex,vlan}, but for a more
+# generic method, using ifIndex only makes it easier to implement across
+# device classes. Besides, several (most?) err-disable features will disable
+# the whole interface anyway, and not just a vlan on the interface.
+sub i_err_disable_cause {
+    my $cps = shift;
+    my $ret;
+    my $causes = $cps->cerr_i_cause() || {};
+    foreach my $interfacevlan (keys %$causes) {
+        my ($iid, $vid) = split(/\./, $interfacevlan);
+        $ret->{$iid} = $causes->{$interfacevlan};
+    }
+    return $ret;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoPortSecurity - SNMP Interface to data from
+F<CISCO-PORT-SECURITY-MIB>, F<CISCO-PAE-MIB> and F<CISCO-ERR-DISABLE-MIB>.
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $cps = new SNMP::Info(
+                        AutoSpecify => 1,
+                        Debug       => 1,
+                        DestHost    => 'myswitch',
+                        Community   => 'public',
+                        Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $cps->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+SNMP::Info::CiscoPortSecurity is a subclass of SNMP::Info that provides
+an interface to the F<CISCO-PORT-SECURITY-MIB>, F<CISCO-PAE-MIB> and
+F<CISCO-ERR-DISABLE-MIB>. 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.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-PORT-SECURITY-MIB>
+
+=item F<CISCO-PAE-MIB>
+
+=item F<IEEE8021-PAE-MIB>
+
+=item F<CISCO-ERR-DISABLE-MIB>
+
+=back
+
+=head1 GLOBALS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=back
+
+=head2 F<CISCO-PORT-SECURITY-MIB> globals
+
+=over
+
+=item $cps->cps_clear()
+
+(C<cpsGlobalClearSecureMacAddresses>)
+
+=item $cps->cps_notify()
+
+(C<cpsGlobalSNMPNotifControl>)
+
+=item $cps->cps_rate()
+
+(C<cpsGlobalSNMPNotifRate>)
+
+=item $cps->cps_enable()
+
+(C<cpsGlobalPortSecurityEnable>)
+
+=item $cps->cps_mac_count()
+
+(C<cpsGlobalTotalSecureAddress>)
+
+=item $cps->cps_mac_max()
+
+(C<cpsGlobalMaxSecureAddress>)
+
+=back
+
+=head1 TABLE METHODS
+
+=head2 C<CISCO-PORT-SECURITY-MIB> - Interface Config Table
+
+=over
+
+=item $cps->cps_i_limit_val()
+
+(C<cpsIfInvalidSrcRateLimitValue>)
+
+=item $cps->cps_i_limit()
+
+(C<cpsIfInvalidSrcRateLimitEnable>)
+
+=item $cps->cps_i_sticky()
+
+(C<cpsIfStickyEnable>)
+
+=item $cps->cps_i_clear_type()
+
+(C<cpsIfClearSecureMacAddresses>)
+
+=item $cps->cps_i_shutdown()
+
+(C<cpsIfShutdownTimeout>)
+
+=item $cps->cps_i_flood()
+
+(C<cpsIfUnicastFloodingEnable>)
+
+=item $cps->cps_i_clear()
+
+(C<cpsIfClearSecureAddresses>)
+
+=item $cps->cps_i_mac()
+
+(C<cpsIfSecureLastMacAddress>)
+
+=item $cps->cps_i_count()
+
+(C<cpsIfViolationCount>)
+
+=item $cps->cps_i_action()
+
+(C<cpsIfViolationAction>)
+
+=item $cps->cps_i_mac_static()
+
+(C<cpsIfStaticMacAddrAgingEnable>)
+
+=item $cps->cps_i_mac_type()
+
+(C<cpsIfSecureMacAddrAgingType>)
+
+=item $cps->cps_i_mac_age()
+
+(C<cpsIfSecureMacAddrAgingTime>)
+
+=item $cps->cps_i_mac_count()
+
+(C<cpsIfCurrentSecureMacAddrCount>)
+
+=item $cps->cps_i_mac_max()
+
+(C<cpsIfMaxSecureMacAddr>)
+
+=item $cps->cps_i_status()
+
+(C<cpsIfPortSecurityStatus>)
+
+=item $cps->cps_i_enable()
+
+(C<cpsIfPortSecurityEnable>)
+
+=back
+
+=head2 C<CISCO-PORT-SECURITY-MIB::cpsIfVlanTable>
+
+=over
+
+=item $cps->cps_i_v_mac_count()
+
+(C<cpsIfVlanCurSecureMacAddrCount>)
+
+=item $cps->cps_i_v_mac_max()
+
+(C<cpsIfVlanMaxSecureMacAddr>)
+
+=back
+
+=head2 C<CISCO-PORT-SECURITY-MIB::cpsIfVlanSecureMacAddrTable>
+
+=over
+
+=item $cps->cps_i_v_mac_status()
+
+(C<cpsIfVlanSecureMacAddrRowStatus>)
+
+=item $cps->cps_i_v_mac_age()
+
+(C<cpsIfVlanSecureMacAddrRemainAge>)
+
+=item $cps->cps_i_v_mac_type()
+
+(C<cpsIfVlanSecureMacAddrType>)
+
+=back
+
+=head2 C<CISCO-PORT-SECURITY-MIB::cpsSecureMacAddressTable>
+
+=over
+
+=item $cps->cps_m_status()
+
+(C<cpsSecureMacAddrRowStatus>)
+
+=item $cps->cps_m_age()
+
+(C<cpsSecureMacAddrRemainingAge>)
+
+=item $cps->cps_m_type()
+
+(C<cpsSecureMacAddrType>)
+
+=back
+
+=head2 C<IEEE8021-PAE-MIB::dot1xPaePortEntry>
+
+=over
+
+=item $cps->pae_i_capabilities()
+
+C<dot1xPaePortCapabilities>
+
+Indicates the PAE functionality that this Port supports
+and that may be managed through this MIB munged to return either
+C<'dot1xPaePortAuthCapable'> or C<'dot1xPaePortSuppCapable'>.
+
+=item $cps->pae_i_last_eapol_frame_source()
+
+C<dot1xAuthLastEapolFrameSource>
+
+The source MAC address carried in the most recently received EAPOL frame.
+
+=back
+
+=head2 C<CISCO-ERR-DISABLE-MIB::cErrDisableIfStatusEntry>
+
+=over
+
+=item $cps->cerr_i_cause()
+
+C<cErrDisableIfStatusCause>
+
+Indicates the feature/event that caused the {interface, vlan} (or the entire
+interface) to be error-disabled.
+
+=back
+
+=head1 METHODS
+
+=over
+
+=item C<i_err_disable_cause>
+
+Returns a HASH reference mapping ifIndex to err-disabled cause. The returned
+data is sparse, so if the ifIndex is not present in the return value, the port
+is not err-disabled.
+
+=back
+
+=head1 Data Munging Callback Subroutines
+
+=over
+
+=item $cps->munge_pae_capabilities()
+
+Return either C<'dot1xPaePortAuthCapable'> or C<'dot1xPaePortSuppCapable'>
+based upon bit value.
+
+=back
+
+=cut

lib/SNMP/Info/CiscoPower.pm

@@ -0,0 +1,193 @@
+# SNMP::Info::CiscoPower
+# $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.
+#     * 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::CiscoPower;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::CiscoPower::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoPower::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'CISCO-POWER-ETHERNET-EXT-MIB' => 'cpeExtPsePortEntPhyIndex',
+          'CISCO-CDP-MIB' => 'cdpCachePowerConsumption' );
+
+%GLOBALS = ();
+
+%FUNCS = ( 
+    'cpeth_ent_phy'     => 'cpeExtPsePortEntPhyIndex', 
+    'peth_port_power'   => 'cpeExtPsePortPwrConsumption', 
+);
+
+%MUNGE = ();
+
+# Cisco overcame the limitation of the module.port index of the
+# pethPsePortTable by adding another mapping table, which maps
+# a pethPsePortTable row to an entPhysicalTable index, which can
+# then be mapped to ifIndex.
+sub peth_port_ifindex {
+    my $cpeth   = shift;
+    my $partial = shift;
+
+    my $ent_phy = $cpeth->cpeth_ent_phy($partial);
+    my $e_port  = $cpeth->e_port();
+
+    my $peth_port_ifindex = {};
+    foreach my $i ( keys %$ent_phy ) {
+        if ( $e_port->{ $ent_phy->{$i} } ) {
+            $peth_port_ifindex->{$i} = $e_port->{ $ent_phy->{$i} };
+        }
+    }
+    return $peth_port_ifindex;
+}
+
+# peth_port_neg_power uses the same index as the other peth_port_* tables.
+# However, cdpCachePowerConsumption uses <ifIndex>.<neighbor>.
+# Therefore, we have to invert peth_port_ifindex, to get to
+# the index that is expected and the rest of the code can re-invert it.
+sub peth_port_neg_power {
+    my $cpeth   = shift;
+    my $partial = shift;
+
+    # Ignoring partial, since it's not easy to implement properly.
+    my $index = $cpeth->peth_port_ifindex();
+    my %inverse_index;
+    foreach my $i ( keys %$index ) {
+	$inverse_index{ $index->{$i} } = $i;
+    }
+    my $neg_power = $cpeth->cdpCachePowerConsumption();
+    my $peth_port_neg_power = {};
+    foreach my $i ( keys %$neg_power ) {
+	my( $ifIndex, $nbrIndex ) = split( /\./, $i );
+	if ( defined( $inverse_index{ $ifIndex } ) ) {
+		$peth_port_neg_power->{ $inverse_index{ $ifIndex } } = $neg_power->{ $i };
+	}
+    }
+    return $peth_port_neg_power;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoPower - SNMP Interface to data stored in
+F<CISCO-POWER-ETHERNET-EXT-MIB>.
+
+=head1 AUTHOR
+
+Bill Fenner
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $poe = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $poe->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+The Info::PowerEthernet class needs a per-device helper function to
+properly map the C<pethPsePortTable> to C<ifIndex> values.  This class
+provides that helper, using F<CISCO-POWER-ETHERNET-EXT-MIB>.
+It does not define any helpers for the extra values that this MIB
+contains.
+
+Create or use a device subclass that inherit this class.  Do not use directly.
+
+For debugging purposes you can call this class directly as you would
+SNMP::Info
+
+ my $poe = new SNMP::Info::CiscoPower (...);
+
+=head2 Inherited Classes
+
+none.
+
+Note that it requires that the device inherits from Info::Entity.
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-POWER-ETHERNET-EXT-MIB>
+
+=back
+
+=head1 GLOBALS
+
+none.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2 Power Port Table
+
+=over
+
+=item $poe->peth_port_ifindex()
+
+Maps the C<pethPsePortTable> to C<ifIndex> by way of the F<ENTITY-MIB>.
+
+=item $poe->peth_port_power()
+
+Power supplied by PoE ports, in milliwatts
+(C<cpeExtPsePortPwrConsumption>)
+ 
+=back
+
+=head2 CDP Port table
+
+=over
+
+=item $poe->peth_port_neg_power()
+
+Power negotiated using CDP, in milliwatts
+(C<cdpCachePowerConsumption>)
+
+=back
+
+=cut

lib/SNMP/Info/CiscoQOS.pm

@@ -0,0 +1,218 @@
+# SNMP::Info::CiscoQOS
+# $Id$
+#
+# Copyright (c) 2005 Alexander Hartmaier
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::CiscoQOS;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::CiscoQOS::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoQOS::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'CISCO-CLASS-BASED-QOS-MIB' => 'cbQosIfIndex', );
+
+%GLOBALS = ();
+
+%FUNCS = (
+
+    # CISCO-CLASS-BASED-QOS-MIB::cbQosServicePolicyTable
+    'qos_i_index'       => 'cbQosIfIndex',
+    'qos_i_type'        => 'cbQosIfType',
+    'qos_pol_direction' => 'cbQosPolicyDirection',
+
+    # CISCO-CLASS-BASED-QOS-MIB::cbQosObjectsTable
+    'qos_obj_conf_index' => 'cbQosConfigIndex',
+    'qos_obj_type'       => 'cbQosObjectsType',
+    'qos_obj_parent'     => 'cbQosParentObjectsIndex',
+
+    # CISCO-CLASS-BASED-QOS-MIB::cbQosCMCfgTable
+    'qos_cm_name' => 'cbQosCMName',
+    'qos_cm_desc' => 'cbQosCMDesc',
+    'qos_cm_info' => 'cbQosCMInfo',
+
+    # CISCO-CLASS-BASED-QOS-MIB::cbQosCMStatsTable
+    'qos_octet_pre'  => 'cbQosCMPrePolicyByte',
+    'qos_octet_post' => 'cbQosCMPostPolicyByte',
+
+    # CISCO-CLASS-BASED-QOS-MIB::cbQosQueueingCfgTable
+    'qos_queueingcfg_bw'       => 'cbQosQueueingCfgBandwidth',
+    'qos_queueingcfg_bw_units' => 'cbQosQueueingCfgBandwidthUnits',
+);
+
+%MUNGE = ();
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoQOS - SNMP Interface to Cisco's Quality of Service MIBs
+
+=head1 AUTHOR
+
+Alexander Hartmaier
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $qos = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $qos->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+SNMP::Info::CiscoQOS is a subclass of SNMP::Info that provides 
+information about a cisco device's QoS config.
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+none.
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-CLASS-BASED-QOS-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBALS
+
+=over
+
+=item none
+
+=back
+
+=head1 TABLE METHODS
+
+=head2 Service Policy Table (C<cbQosServicePolicyTable>)
+
+This table describes the interfaces/media types and the policy map that are
+attached to it.
+
+=over
+
+=item $qos->qos_i_index()
+
+(C<cbQosIfIndex>)
+
+=item $qos->qos_i_type()
+
+(C<cbQosIfType>)
+
+=item $qos->qos_pol_direction()
+
+(C<cbQosPolicyDirection>)
+
+=back
+
+=head2 Class Map Objects Table (C<cbQosObjectsTable>)
+
+=over
+
+=item $qos->qos_obj_index()
+
+(C<cbQosConfigIndex>)
+
+=item $qos->qos_obj_type()
+
+(C<cbQosObjectsType>)
+
+=item $qos->qos_obj_parent()
+
+(C<cbQosParentObjectsIndex>)
+
+=back
+
+=head2 Class Map Configuration Table (C<cbQosCMCfgTable>)
+
+=over
+
+=item $qos->qos_cm_name()
+
+(C<cbQosCMName>)
+
+=item $qos->qos_cm_desc()
+
+(C<cbQosCMDesc>)
+
+=item $qos->qos_cm_info()
+
+(C<cbQosCMInfo>)
+
+=back
+
+=head2 Class Map Stats Table (C<cbQosCMStatsTable>)
+
+=over
+
+=item $qos->qos_octet_pre()
+
+(C<cbQosCMPrePolicyByte>)
+
+=item $qos->qos_octet_post()
+
+(C<cbQosCMPostPolicyByte>)
+
+=back
+
+=head2 Queueing Configuration Table (C<cbQosQueueingCfgTable>)
+
+=over
+
+=item $qos->qos_queueingcfg_bw()
+
+(C<cbQosQueueingCfgBandwidth>)
+
+=item $qos->qos_queueingcfg_bw_units()
+
+(C<cbQosQueueingCfgBandwidthUnits>)
+
+=back
+
+=cut

lib/SNMP/Info/CiscoRTT.pm

@@ -1,62 +1,58 @@
 # SNMP::Info::CiscoRTT
-# Alexander Hartmaier <alexander.hartmaier@t-systems.at>
 # $Id$
 #
 # Copyright (c) 2005 Alexander Hartmaier
-#
 # 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::CiscoRTT;
-$VERSION = '1.07';
 
 use strict;
-
 use Exporter;
 use SNMP::Info;
 
-@SNMP::Info::CiscoRTT::ISA = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoRTT::ISA       = qw/SNMP::Info Exporter/;
 @SNMP::Info::CiscoRTT::EXPORT_OK = qw//;
 
 use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
 
-%MIBS    = (
-            'CISCO-RTTMON-MIB'      => 'rttMonCtrlAdminOwner',
-           );
+$VERSION = '3.61';
 
-%GLOBALS = (
-           );
+%MIBS = ( 'CISCO-RTTMON-MIB' => 'rttMonCtrlAdminOwner', );
 
-%FUNCS   = (
-            # CISCO-RTTMON-MIB
-            'rtt_desc'              => 'rttMonCtrlAdminOwner',
-            'rtt_last'              => 'rttMonLatestRttOperCompletionTime',
-           );
+%GLOBALS = ();
 
-%MUNGE   = (
-           );
+%FUNCS = (
+
+    # CISCO-RTTMON-MIB
+    'rtt_desc' => 'rttMonCtrlAdminOwner',
+    'rtt_last' => 'rttMonLatestRttOperCompletionTime',
+);
+
+%MUNGE = ();
 
 1;
 __END__
@@ -75,7 +71,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 +95,7 @@ none.
 
 =over
 
-=item CISCO-RTTMON-MIB
+=item F<CISCO-RTTMON-MIB>
 
 =back
 
@@ -118,25 +113,25 @@ None
 
 =head2 Overall Control Group Table
 
-This table is from CISCO-RTTMAN-MIB::rttMonCtrlAdminTable
+This table is from C<CISCO-RTTMAN-MIB::rttMonCtrlAdminTable>
 
 =over
 
 =item $rtt->rtt_desc()
 
-(B<rttMonCtrlAdminOwner>)
+(C<rttMonCtrlAdminOwner>)
 
 =back
 
 =head2 Overall Control Group Table
 
-This table is from CISCO-RTTMON-MIB::rttMonCtrl
+This table is from C<CISCO-RTTMON-MIB::rttMonCtrl>
 
 =over
 
 =item $rtt->rtt_last()
 
-(B<rttMonLatestRttOperCompletionTime>)
+(C<rttMonLatestRttOperCompletionTime>)
 
 =back
 

lib/SNMP/Info/CiscoStack.pm

@@ -1,136 +1,141 @@
 # SNMP::Info::CiscoStack
-# Max Baker
+# $Id$
 #
-# Copyright (c)2003,2004,2006 Max Baker 
-# All rights reserved.  
+# Copyright (c) 2008 Max Baker
+# 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 author 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::CiscoStack;
-$VERSION = '1.07';
-# $Id$
 
 use strict;
-
 use Exporter;
-use SNMP::Info;
 
-use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/;
-@SNMP::Info::CiscoStack::ISA = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoStack::ISA       = qw/Exporter/;
 @SNMP::Info::CiscoStack::EXPORT_OK = qw//;
 
-%MIBS    = (
-            'CISCO-STACK-MIB'         => 'ciscoStackMIB',
-           );
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'CISCO-STACK-MIB' => 'ciscoStackMIB', );
 
 %GLOBALS = (
-            'sysip'       => 'sysIpAddr',    
-            'netmask'     => 'sysNetMask',    
-            'broadcast'   => 'sysBroadcast',
-            'serial1'     => 'chassisSerialNumber',    
-            'serial2'     => 'chassisSerialNumberString',
-            'model1'      => 'chassisModel',    
-            'ps1_type'    => 'chassisPs1Type',    
-            'ps1_status'  => 'chassisPs1Status',    
-            'ps2_type'    => 'chassisPs2Type',    
-            'ps2_status'  => 'chassisPs2Status',    
-            'slots'       => 'chassisNumSlots',    
-            'fan'         => 'chassisFanStatus',
-           );
+    'sysip'      => 'sysIpAddr',
+    'netmask'    => 'sysNetMask',
+    'broadcast'  => 'sysBroadcast',
+    'serial1'    => 'chassisSerialNumber',
+    'serial2'    => 'chassisSerialNumberString',
+    'model1'     => 'chassisModel',
+    'ps1_type'   => 'chassisPs1Type',
+    'ps1_status' => 'chassisPs1Status',
+    'ps2_type'   => 'chassisPs2Type',
+    'ps2_status' => 'chassisPs2Status',
+    'slots'      => 'chassisNumSlots',
+    'fan'        => 'chassisFanStatus',
+);
 
-%FUNCS   = (
-            # CISCO-STACK-MIB::moduleEntry
-            #   These are blades in a catalyst device
-            'm_type'         => 'moduleType',
-            'm_model'        => 'moduleModel',
-            'm_serial'       => 'moduleSerialNumber',
-            'm_status'       => 'moduleStatus',
-            'm_name'         => 'moduleName',
-            'm_ports'        => 'moduleNumPorts',
-            'm_ports_status' => 'modulePortStatus',
-            'm_hwver'        => 'moduleHwVersion',
-            'm_fwver'        => 'moduleFwVersion',
-            'm_swver'        => 'moduleSwVersion',
-            # Router Blades :
-            'm_ip'           => 'moduleIPAddress',
-            'm_sub1'         => 'moduleSubType',
-            'm_sub2'         => 'moduleSubType2',
-            # CISCO-STACK-MIB::portEntry 
-            'p_name'    => 'portName',
-            'p_type'    => 'portType',
-            'p_status'  => 'portOperStatus',
-            'p_status2' => 'portAdditionalStatus',
-            'p_speed'   => 'portAdminSpeed',
-            'p_duplex'  => 'portDuplex',
-            'p_port'    => 'portIfIndex',
-            'p_rx_flow_control' => 'portOperRxFlowControl',
-            'p_tx_flow_control' => 'portOperTxFlowControl',
-            'p_rx_flow_control_admin' => 'portAdminRxFlowControl',
-            'p_tx_flow_control_admin' => 'portAdminTxFlowControl',
-            'p_oidx'    => 'portCrossIndex',
-            # CISCO-STACK-MIB::PortCpbEntry
-            'p_speed_admin'  => 'portCpbSpeed',
-            'p_duplex_admin' => 'portCpbDuplex',
-           );
+%FUNCS = (
 
-%MUNGE   = (
-            'm_ports_status' => \&munge_port_status,
-            'p_duplex_admin' => \&SNMP::Info::munge_bits,
-           );
+    # CISCO-STACK-MIB::moduleEntry
+    #   These are blades in a catalyst device
+    'm_type'         => 'moduleType',
+    'm_model'        => 'moduleModel',
+    'm_serial'       => 'moduleSerialNumber',
+    'm_serial_string' => 'moduleSerialNumberString',
+    'm_status'       => 'moduleStatus',
+    'm_name'         => 'moduleName',
+    'm_ports'        => 'moduleNumPorts',
+    'm_ports_status' => 'modulePortStatus',
+    'm_hwver'        => 'moduleHwVersion',
+    'm_fwver'        => 'moduleFwVersion',
+    'm_swver'        => 'moduleSwVersion',
 
-%PORTSTAT = (1 => 'other',
-             2 => 'ok',
-             3 => 'minorFault',
-             4 => 'majorFault');
+    # Router Blades :
+    'm_ip'   => 'moduleIPAddress',
+    'm_sub1' => 'moduleSubType',
+    'm_sub2' => 'moduleSubType2',
+
+    # CISCO-STACK-MIB::portEntry
+    'p_name'                  => 'portName',
+    'p_type'                  => 'portType',
+    'p_status'                => 'portOperStatus',
+    'p_status2'               => 'portAdditionalStatus',
+    'p_speed'                 => 'portAdminSpeed',
+    'p_duplex'                => 'portDuplex',
+    'p_port'                  => 'portIfIndex',
+    'p_rx_flow_control'       => 'portOperRxFlowControl',
+    'p_tx_flow_control'       => 'portOperTxFlowControl',
+    'p_rx_flow_control_admin' => 'portAdminRxFlowControl',
+    'p_tx_flow_control_admin' => 'portAdminTxFlowControl',
+    'p_oidx'                  => 'portCrossIndex',
+
+    # CISCO-STACK-MIB::PortCpbEntry
+    'p_speed_admin'  => 'portCpbSpeed',
+    'p_duplex_admin' => 'portCpbDuplex',
+);
+
+%MUNGE = (
+    'm_ports_status' => \&munge_port_status,
+    'p_duplex_admin' => \&SNMP::Info::munge_bits,
+);
+
+%PORTSTAT = (
+    1 => 'other',
+    2 => 'ok',
+    3 => 'minorFault',
+    4 => 'majorFault'
+);
 
 # Changes binary byte describing each port into ascii, and returns
 # an ascii list separated by spaces.
 sub munge_port_status {
     my $status = shift;
-    my @vals = map($PORTSTAT{$_},unpack('C*',$status));
-    return join(' ',@vals);
+    my @vals = map( $PORTSTAT{$_}, unpack( 'C*', $status ) );
+    return join( ' ', @vals );
 }
 
 sub serial {
-    my $stack = shift;
+    my $stack   = shift;
     my $serial1 = $stack->serial1();
     my $serial2 = $stack->serial2();
 
     return $serial1 if defined $serial1;
     return $serial2 if defined $serial2;
-    return undef;
+    return;
 }
 
 # Rules for older CatOS devices using CiscoStack
 #
 # You can configure Ethernet and Fast Ethernet interfaces to either full
-# duplex or half duplex. 
+# duplex or half duplex.
 #
 # You cannot configure the duplex mode on Gigabit Ethernet ports (they are
 # always in full-duplex mode).
 #
-# If you set the port speed to auto, duplex mode is automatically set to auto. 
+# If you set the port speed to auto, duplex mode is automatically set to auto.
 #
 # For operational duplex if portCpbDuplex is all zeros the port is a gigabit
 # port and duplex is always full.  If the port is not operational and auto
@@ -140,31 +145,33 @@ sub serial {
 # checked in the device class.
 
 sub i_duplex {
-    my $stack = shift;
+    my $stack   = shift;
     my $partial = shift;
 
-    my $p_port       = $stack->p_port()   || {};
-    my $p_duplex     = $stack->p_duplex() || {};
+    my $p_port       = $stack->p_port()         || {};
+    my $p_duplex     = $stack->p_duplex()       || {};
     my $p_duplex_cap = $stack->p_duplex_admin() || {};
 
     my $i_duplex = {};
-    foreach my $port (keys %$p_duplex) {
+    foreach my $port ( keys %$p_duplex ) {
         my $iid = $p_port->{$port};
         next unless defined $iid;
-        next if (defined $partial and $iid !~ /^$partial$/);
-        # Test for gigabit 
-        if ($p_duplex_cap->{$port} == 0) {
+        next if ( defined $partial and $iid !~ /^$partial$/ );
+
+        # Test for gigabit
+        if ( defined $p_duplex_cap->{$port} and $p_duplex_cap->{$port} == 0 ) {
             $i_duplex->{$iid} = 'full';
         }
+
         # Auto is not a valid operational state
-        elsif ($p_duplex->{$port} eq 'auto') {
+        elsif ( $p_duplex->{$port} eq 'auto' ) {
             next;
         }
         else {
             $i_duplex->{$iid} = $p_duplex->{$port};
         }
     }
-    return $i_duplex; 
+    return $i_duplex;
 }
 
 # For administrative duplex if portCpbDuplex is all zeros the port is a gigabit
@@ -172,63 +179,67 @@ sub i_duplex {
 # duplex will be auto, otherwise use portDuplex.
 
 sub i_duplex_admin {
-    my $stack = shift;
+    my $stack   = shift;
     my $partial = shift;
 
-    my $p_port       = $stack->p_port()   || {};
-    my $p_duplex     = $stack->p_duplex() || {};
+    my $p_port       = $stack->p_port()         || {};
+    my $p_duplex     = $stack->p_duplex()       || {};
     my $p_duplex_cap = $stack->p_duplex_admin() || {};
-    my $p_speed      = $stack->p_speed() || {};
+    my $p_speed      = $stack->p_speed()        || {};
 
     my $i_duplex_admin = {};
-    foreach my $port (keys %$p_duplex) {
+    foreach my $port ( keys %$p_duplex ) {
         my $iid = $p_port->{$port};
         next unless defined $iid;
-        next if (defined $partial and $iid !~ /^$partial$/);
-        # Test for gigabit 
-        if ($p_duplex_cap->{$port} == 0) {
+        next if ( defined $partial and $iid !~ /^$partial$/ );
+
+        # Test for gigabit
+        if ( defined $p_duplex_cap->{$port} and $p_duplex_cap->{$port} == 0 ) {
             $i_duplex_admin->{$iid} = 'full';
         }
+
         # Check admin speed for auto
-        elsif ($p_speed->{$port} =~ /auto/) {
+        elsif ( $p_speed->{$port} =~ /auto/ ) {
             $i_duplex_admin->{$iid} = 'auto';
         }
         else {
             $i_duplex_admin->{$iid} = $p_duplex->{$port};
         }
     }
-    return $i_duplex_admin; 
+    return $i_duplex_admin;
 }
 
 sub i_speed_admin {
-    my $stack = shift;
+    my $stack   = shift;
     my $partial = shift;
 
     my %i_speed_admin;
-    my $p_port  = $stack->p_port();
-    my %mapping = reverse %$p_port;
-    my $p_speed = $stack->p_speed($mapping{$partial});
+    my $p_port  = $stack->p_port()  || {};
+    my $p_speed = $stack->p_speed() || {};
 
-    my %speeds = ('autoDetect'      => 'auto',
-                  'autoDetect10100' => 'auto',
-                  's10000000'       => '10 Mbps',
-                  's100000000'      => '100 Mbps',
-                  's1000000000'     => '1.0 Gbps',
-                  's10G'            => '10 Gbps',
-                 );
+    my %speeds = (
+        'autoDetect'      => 'auto',
+        'autoDetect10100' => 'auto',
+        's10000000'       => '10 Mbps',
+        's100000000'      => '100 Mbps',
+        's1000000000'     => '1.0 Gbps',
+        's10G'            => '10 Gbps',
+    );
 
-    %i_speed_admin = map { $p_port->{$_} => $speeds{$p_speed->{$_}} } keys %$p_port;
+    %i_speed_admin
+        = map { $p_port->{$_} => $speeds{ $p_speed->{$_} } } keys %$p_port;
 
     return \%i_speed_admin;
 }
 
 sub set_i_speed_admin {
+
     # map speeds to those the switch will understand
     my %speeds = qw/auto 1 10 10000000 100 100000000 1000 1000000000/;
 
     my $stack = shift;
-    my ($speed, $iid) = @_;
-    my $p_port  = $stack->p_port() || {};
+    my ( $speed, $iid ) = @_;
+    my $p_port = $stack->p_port() || {};
     my %reverse_p_port = reverse %$p_port;
 
     $speed = lc($speed);
@@ -237,24 +248,27 @@ sub set_i_speed_admin {
 
     $iid = $reverse_p_port{$iid};
 
-    return $stack->set_p_speed_admin($speeds{$speed}, $iid);
+    return $stack->set_p_speed( $speeds{$speed}, $iid );
 }
 
 sub set_i_duplex_admin {
+
     # map a textual duplex to an integer one the switch understands
     my %duplexes = qw/half 1 full 2 auto 4/;
 
     my $stack = shift;
-    my ($duplex, $iid) = @_;
-    if ($duplex eq 'auto') {
-        $stack->error_throw("Software doesn't support setting auto duplex with
+    my ( $duplex, $iid ) = @_;
+    if ( $duplex eq 'auto' ) {
+        $stack->error_throw(
+            "Software doesn't support setting auto duplex with
                             set_i_duplex_admin() you must use
                             set_i_speed_admin() and set both speed and duplex
-                            to auto");
+                            to auto"
+        );
         return 0;
     }
 
-    my $p_port  = $stack->p_port() || {};
+    my $p_port = $stack->p_port() || {};
     my %reverse_p_port = reverse %$p_port;
 
     $duplex = lc($duplex);
@@ -263,7 +277,7 @@ sub set_i_duplex_admin {
 
     $iid = $reverse_p_port{$iid};
 
-    return $stack->set_p_duplex($duplexes{$duplex}, $iid);
+    return $stack->set_p_duplex( $duplexes{$duplex}, $iid );
 }
 
 1;
@@ -272,8 +286,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<CISCO-STACK-MIB> and
+F<CISCO-PORT-SECURITY-MIB>
 
 =head1 AUTHOR
 
@@ -285,7 +299,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 +324,53 @@ none.
 
 =over
 
-=item CISCO-STACK-MIB
+=item F<CISCO-STACK-MIB>
 
 =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<sysBroadcast>)
+(C<sysBroadcast>)
 
 =item $stack->fan()
 
-(B<chassisFanStatus>)
+(C<chassisFanStatus>)
 
 =item $stack->model()
 
-(B<chassisModel>)
+(C<chassisModel>)
 
 =item $stack->netmask()
 
-(B<sysNetMask>)
+(C<sysNetMask>)
 
 =item $stack->ps1_type()
 
-(B<chassisPs1Type>)
+(C<chassisPs1Type>)
 
 =item $stack->ps2_type()
 
-(B<chassisPs2Type>)
+(C<chassisPs2Type>)
 
 =item $stack->ps1_status()
 
-(B<chassisPs1Status>)
+(C<chassisPs1Status>)
 
 =item $stack->ps2_status()
 
-(B<chassisPs2Status>)
+(C<chassisPs2Status>)
 
 =item $stack->serial()
 
-(B<chassisSerialNumberString>) or (B<chassisSerialNumber>)
+(C<chassisSerialNumberString>) or (C<chassisSerialNumber>)
 
 =item $stack->slots()
 
-(B<chassisNumSlots>)
+(C<chassisNumSlots>)
 
 =back
 
@@ -378,34 +388,40 @@ 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<ifType> 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<portDuplex>) is auto
+the port is not operational and reported port duplex (C<portDuplex>) is auto
 then the operational duplex can not be determined.  Otherwise it uses the
-reported port duplex (B<portDuplex>).
+reported port duplex (C<portDuplex>).
 
 =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<portAdminSpeed>) which if set to
+the port administrative speed (C<portAdminSpeed>) which if set to
 autonegotiate then the duplex will also autonegotiate, otherwise it uses the
-reported port duplex (B<portDuplex>).
+reported port duplex (C<portDuplex>).
+
+=item $stack->i_speed_admin()
+
+Returns reference to hash of iid to administrative speed setting.
+
+C<portAdminSpeed>
 
 =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<ifIndex>
 
     Speed choices are 'auto', '10', '100', '1000'
 
     Crosses $stack->p_port() with $stack->p_duplex() to
-    utilize port ifIndex.
+    utilize port C<ifIndex>.
 
     Example:
     my %if_map = reverse %{$stack->interfaces()};
@@ -414,12 +430,12 @@ reported port duplex (B<portDuplex>).
 
 =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<ifIndex>
 
     Speed choices are 'auto', 'half', 'full'
 
     Crosses $stack->p_port() with $stack->p_duplex() to
-    utilize port ifIndex.
+    utilize port C<ifIndex>.
 
     Example:
     my %if_map = reverse %{$stack->interfaces()};
@@ -437,27 +453,27 @@ the Catalyst device.
 
 =item $stack->m_type()
 
-(B<moduleType>)
+(C<moduleType>)
 
 =item $stack->m_model()
 
-(B<moduleModel>)
+(C<moduleModel>)
 
 =item $stack->m_serial()
 
-(B<moduleSerialNumber>)
+(C<moduleSerialNumber>)
 
 =item $stack->m_status()
 
-(B<moduleStatus>)
+(C<moduleStatus>)
 
 =item $stack->m_name()
 
-(B<moduleName>)
+(C<moduleName>)
 
 =item $stack->m_ports()
 
-(B<moduleNumPorts>)
+(C<moduleNumPorts>)
 
 =item $stack->m_ports_status()
 
@@ -468,31 +484,31 @@ To see the status of port 4 :
     @ports_status = split(' ', $stack->m_ports_status() );
     $port4 = $ports_status[3];
 
-(B<modulePortStatus>)
+(C<modulePortStatus>)
 
 =item $stack->m_ports_hwver()
 
-(B<moduleHwVersion>)
+(C<moduleHwVersion>)
 
 =item $stack->m_ports_fwver()
 
-(B<moduleFwVersion>)
+(C<moduleFwVersion>)
 
 =item $stack->m_ports_swver()
 
-(B<moduleSwVersion>)
+(C<moduleSwVersion>)
 
 =item $stack->m_ports_ip()
 
-(B<moduleIPAddress>)
+(C<moduleIPAddress>)
 
 =item $stack->m_ports_sub1()
 
-(B<moduleSubType>)
+(C<moduleSubType>)
 
 =item $stack->m_ports_sub2()
 
-(B<moduleSubType2>)
+(C<moduleSubType2>)
 
 =back
 
@@ -502,59 +518,59 @@ To see the status of port 4 :
 
 =item $stack->m_ip()
 
-(B<moduleIPAddress>)
+(C<moduleIPAddress>)
 
 =item $stack->m_sub1()
 
-(B<moduleSubType>)
+(C<moduleSubType>)
 
 =item $stack->m_sub2()
 
-(B<moduleSubType2>)
+(C<moduleSubType2>)
 
 =back
 
-=head2 Port Entry Table (CISCO-STACK-MIB::portTable)
+=head2 Port Entry Table (C<CISCO-STACK-MIB::portTable>)
 
 =over
 
 =item $stack->p_name()
 
-(B<portName>)
+(C<portName>)
 
 =item $stack->p_type()
 
-(B<portType>)
+(C<portType>)
 
 =item $stack->p_status()
 
-(B<portOperStatus>)
+(C<portOperStatus>)
 
 =item $stack->p_status2()
 
-(B<portAdditionalStatus>)
+(C<portAdditionalStatus>)
 
 =item $stack->p_speed()
 
-(B<portAdminSpeed>)
+(C<portAdminSpeed>)
 
 =item $stack->p_duplex()
 
-(B<portDuplex>)
+(C<portDuplex>)
 
 =item $stack->p_port()
 
-(B<portIfIndex>)
+(C<portIfIndex>)
 
 =item $stack->p_rx_flow_control()
 
 Can be either C<on> C<off> or C<disagree>
 
-"Indicates the receive flow control operational status of the port. If the port
-could not agree with the far end on a link protocol, its operational status
-will be disagree(3)."
+"Indicates the receive flow control operational status of the port. If the
+port could not agree with the far end on a link protocol, its operational
+status will be disagree(3)."
 
-B<portOperRxFlowControl>
+C<portOperRxFlowControl>
 
 =item $stack->p_tx_flow_control()
 
@@ -564,7 +580,7 @@ Can be either C<on> C<off> or C<disagree>
 port could not agree with the far end on a link protocol, its operational
 status will be disagree(3)."
 
-B<portOperTxFlowControl>
+C<portOperTxFlowControl>
 
 =item $stack->p_rx_flow_control_admin()
 
@@ -573,36 +589,47 @@ Can be either C<on> C<off> or C<desired>
 "Indicates the receive flow control administrative status set on the port. If
 the status is set to on(1), the port will require the far end to send flow
 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."
+send flow control.  If the status is set to desired(3), the port will allow
+the far end to send the flow control."
 
-B<portAdminRxFlowControl>
+C<portAdminRxFlowControl>
 
 =item $stack->p_tx_flow_control_admin()
 
 Can be either C<on> C<off> or C<desired>
 
-"Indicates the transmit flow control administrative status set on the port.  If
-the status is set to on(1), the port will send flow control to the far end.  If
+"Indicates the transmit flow control administrative status set on the port.
+If the status is set to on(1), the port will send flow control to the far end.  If
 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."
+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<portAdminTxFlowControl>
+C<portAdminTxFlowControl>
 
 =back
 
-=head2 Port Capability Table (CISCO-STACK-MIB::portCpbTable)
+=head2 Port Capability Table (C<CISCO-STACK-MIB::portCpbTable>)
 
 =over
 
 =item $stack->p_speed_admin()
 
-(B<portCpbSpeed>)
+(C<portCpbSpeed>)
 
 =item $stack->p_duplex_admin()
 
-(B<portCpbDuplex>)
+(C<portCpbDuplex>)
+
+=back
+
+=head1 Data Munging Callback Subroutines
+
+=over
+
+=item $stack->munge_port_status()
+
+Munges binary byte describing each port into ascii, and returns an ascii
+list separated by spaces.
 
 =back
 

lib/SNMP/Info/CiscoStats.pm

@@ -0,0 +1,557 @@
+# SNMP::Info::CiscoStats
+# $Id$
+#
+# Changes since Version 0.7 Copyright (c) 2008-2009 Max Baker and SNMP::Info Developers
+# All rights reserved.
+#
+# Copyright (c) 2003 Regents of the University of California
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::CiscoStats;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::CiscoStats::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoStats::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    'SNMPv2-MIB'            => 'sysDescr',
+    'CISCO-PROCESS-MIB'     => 'cpmCPUTotal5sec',
+    'CISCO-MEMORY-POOL-MIB' => 'ciscoMemoryPoolUsed',
+    'OLD-CISCO-SYSTEM-MIB'  => 'writeMem',
+    'CISCO-PRODUCTS-MIB'    => 'ciscoIGS',
+    'ENTITY-MIB'            => 'entPhysicalSoftwareRev',
+    'CISCO-IMAGE-MIB'       => 'ciscoImageString',
+
+    # some older catalysts live here
+    'CISCO-STACK-MIB'                 => 'wsc1900sysID',
+    'CISCO-ENTITY-VENDORTYPE-OID-MIB' => 'cevChassis',
+    'CISCO-FLASH-MIB'                 => 'ciscoFlashDeviceSize',
+);
+
+%GLOBALS = (
+    'description' => 'sysDescr',
+    'ent_physical_software_rev' => 'entPhysicalSoftwareRev.1',
+
+    # We will use the numeric OID's so that we don't require people
+    # to install v1 MIBs, which can conflict.
+    # OLD-CISCO-CPU-MIB:avgBusyPer
+    'ios_cpu'      => '1.3.6.1.4.1.9.2.1.56.0',
+    'ios_cpu_1min' => '1.3.6.1.4.1.9.2.1.57.0',
+    'ios_cpu_5min' => '1.3.6.1.4.1.9.2.1.58.0',
+
+    # CISCO-PROCESS-MIB
+    'cat_cpu'      => 'cpmCPUTotal5sec.9',
+    'cat_cpu_1min' => 'cpmCPUTotal1min.9',
+    'cat_cpu_5min' => 'cpmCPUTotal5min.9',
+
+    # OLD-CISCO-SYSTEM-MIB
+    'write_mem' => 'writeMem',
+    'rom_id'    => 'romId',
+);
+
+%FUNCS = (
+
+    # CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolTable
+    'cisco_mem_free' => 'ciscoMemoryPoolFree',
+    'cisco_mem_used' => 'ciscoMemoryPoolUsed',
+
+    # CISCO-FLASH-MIB::ciscoFlashDeviceTable
+    'cisco_flash_size' => 'ciscoFlashDeviceSize',
+    
+    # CISCO-IMAGE-MIB
+    'ci_images' => 'ciscoImageString',
+);
+
+%MUNGE = ();
+
+sub vendor {
+    return 'cisco';
+}
+
+sub os {
+    my $l2 = shift;
+    my $descr = $l2->description() || '';
+
+    # order here matters - there are Catalysts that run IOS and have catalyst
+    # in their description field, as well as Catalysts that run IOS-XE.
+    return 'ios-xe'   if ( $descr =~ /IOS-XE/ );
+    return 'ios-xr'   if ( $descr =~ /IOS XR/ );
+    return 'ios'      if ( $descr =~ /IOS/ );
+    return 'catalyst' if ( $descr =~ /catalyst/i );
+    return 'css'      if ( $descr =~ /Content Switch SW/ );
+    return 'css-sca'  if ( $descr =~ /Cisco Systems Inc CSS-SCA-/ );
+    return 'pix'      if ( $descr =~ /Cisco PIX Security Appliance/ );
+    return 'asa'      if ( $descr =~ /Cisco Adaptive Security Appliance/ );
+    return 'san-os'   if ( $descr =~ /Cisco SAN-OS/ );
+
+    if ( $descr =~ /Application Control Engine Service Module/ ) {
+        # Only the admin context implements the entity MIB
+        return 'ace-admin' if defined $l2->ent_physical_software_rev();
+        return 'ace-context';
+    }
+
+    # Pre-version 3 FWSMs
+    return 'fwsm'     if ( $descr =~ /Cisco Secure FWSM Firewall/ );
+
+    # Version 3+ FWSMs (currently untested against version 4)
+    if ( $descr =~ /Firewall Services Module/ ) {
+
+        my $model = $l2->model();
+
+        if ( defined $model && $model eq "WsSvcFwm1sc" ) {
+            # Only the admin context implements the entity MIB
+            return 'fwsm-admin' if defined $l2->ent_physical_software_rev();
+            return 'fwsm-context';
+        }
+
+        # Non context mode FWSM
+        return 'fwsm';
+    }
+
+    return;
+}
+
+sub os_ver {
+    my $l2    = shift;
+    my $os    = $l2->os();
+    my $descr = $l2->description();
+
+    # Older Catalysts
+    if (    defined $os
+        and $os eq 'catalyst'
+        and defined $descr
+        and $descr =~ m/V(\d{1}\.\d{2}\.\d{2})/ )
+    {
+        return $1;
+    }
+
+    if ( defined $os
+        and $os eq 'css'
+        and defined $descr
+        and $descr =~ m/Content Switch SW Version ([0-9\.\(\)]+) with SNMPv1\/v2c Agent/ )
+    {
+        return $1;
+    }
+
+    if ( defined $os
+        and $os eq 'css-sca'
+        and defined $descr
+        and $descr =~ m/Cisco Systems Inc CSS-SCA-2FE-K9, ([0-9\.\(\)]+) Release / )
+    {
+        return $1;
+    }
+
+    if ( defined $os
+        and $os eq 'pix'
+        and defined $descr
+        and $descr =~ m/Cisco PIX Security Appliance Version ([0-9\.\(\)]+)/ )
+    {
+        return $1;
+    }
+
+    if ( defined $os
+        and $os eq 'asa'
+        and defined $descr
+        and $descr =~ m/Cisco Adaptive Security Appliance Version ([0-9\.\(\)]+)/ )
+    {
+        return $1;
+    }
+
+    if ( defined $os
+        and $os =~ /^ace/ )
+    {
+        return $l2->ent_physical_software_rev();
+    }
+
+    if ( defined $os
+        and $os =~ /^fwsm/
+        and defined $descr
+        and $descr =~ m/Version (\d+\.\d+(\(\d+\)){0,1})/ )
+    {
+        return $1;
+    }
+
+    if ( defined $os
+        and $os eq 'ios-xr'
+        and defined $descr
+        and $descr =~ m/Version (\d+[\.\d]+)/ )
+    {
+        return $1;
+    }
+
+    # Newer Catalysts and IOS devices
+    if ( defined $descr
+        and $descr =~ m/Version (\d+\.\d+\([^)]+\)[^,\s]*)(,|\s)+/ )
+    {
+        return $1;
+    }
+
+    # Generic fallback: try to determine running image from CISCO-IMAGE-MIB
+    my $image_info = $l2->ciscoImageString() || {};
+    foreach my $row (keys %$image_info) {
+        my $info_string = $image_info->{$row};
+        if ($info_string =~ /CW_VERSION\$([^\$]+)\$/) {
+            return $1;
+        }
+    }
+
+    return;
+}
+
+sub os_bin {
+    my $self   = shift;
+    my $rom_id = $self->rom_id();
+    if ($rom_id =~ m/Version ([^,]+),/)  {
+        return $1;
+    }
+    return;
+}
+
+sub cpu {
+    my $self    = shift;
+    my $ios_cpu = $self->ios_cpu();
+    return $ios_cpu if defined $ios_cpu;
+    my $cat_cpu = $self->cat_cpu();
+    return $cat_cpu;
+}
+
+sub cpu_1min {
+    my $self         = shift;
+    my $ios_cpu_1min = $self->ios_cpu_1min();
+    return $ios_cpu_1min if defined $ios_cpu_1min;
+    my $cat_cpu_1min = $self->cat_cpu_1min();
+    return $cat_cpu_1min;
+}
+
+sub cpu_5min {
+    my $self         = shift;
+    my $ios_cpu_5min = $self->ios_cpu_5min();
+    return $ios_cpu_5min if defined $ios_cpu_5min;
+    my $cat_cpu_5min = $self->cat_cpu_5min();
+    return $cat_cpu_5min;
+}
+
+sub mem_free {
+    my $self = shift;
+
+    my $mem_free;
+
+    my $cisco_mem_free = $self->cisco_mem_free() || {};
+
+    foreach my $mem_free_val ( values %$cisco_mem_free ) {
+        $mem_free += $mem_free_val;
+    }
+
+    return $mem_free;
+}
+
+sub mem_used {
+    my $self = shift;
+
+    my $mem_used;
+
+    my $cisco_mem_used = $self->cisco_mem_used() || {};
+
+    foreach my $mem_used_val ( values %$cisco_mem_used ) {
+        $mem_used += $mem_used_val;
+    }
+
+    return $mem_used;
+}
+
+sub mem_total {
+    my $self = shift;
+
+    my $mem_total;
+
+    my $cisco_mem_free = $self->cisco_mem_free() || {};
+    my $cisco_mem_used = $self->cisco_mem_used() || {};
+
+    foreach my $mem_entry ( keys %$cisco_mem_free ) {
+        my $mem_free = $cisco_mem_free->{$mem_entry} || 0;
+        my $mem_used = $cisco_mem_used->{$mem_entry} || 0;
+        $mem_total += ( $mem_free + $mem_used );
+    }
+    return $mem_total;
+}
+
+sub flashmem_total {
+    my $self = shift;
+
+    my $flashmem_total;
+
+    my $flash_sizes = $self->cisco_flash_size;
+
+    foreach my $flash_index ( keys %$flash_sizes ) {
+        $flashmem_total += $flash_sizes->{$flash_index};
+    }
+
+    return $flashmem_total;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoStats - Perl5 Interface to CPU and Memory stats for Cisco
+Devices
+
+=head1 AUTHOR
+
+Eric Miller, Max Baker, Sam Stickland
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $ciscostats = new SNMP::Info(
+                    AutoSpecify => 1,
+                    Debug       => 1,
+                    # These arguments are passed directly on to SNMP::Session
+                    DestHost    => 'myswitch',
+                    Community   => 'public',
+                    Version     => 2
+                    ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $ciscostats->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+SNMP::Info::CiscoStats is a subclass of SNMP::Info that provides cpu, memory,
+os and version information about Cisco Devices. 
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-PRODUCTS-MIB>
+
+=item F<CISCO-PROCESS-MIB>
+
+=item F<CISCO-MEMORY-POOL-MIB>
+
+=item F<SNMPv2-MIB>
+
+=item F<OLD-CISCO-SYSTEM-MIB>
+
+=item F<CISCO-STACK-MIB>
+
+=item F<CISCO-ENTITY-VENDORTYPE-OID-MIB>
+
+=item F<CISCO-FLASH-MIB>
+
+=item F<ENTITY-MIB>
+
+=item F<CISCO-IMAGE-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBALS
+
+=over
+
+=item $ciscostats->cpu()
+
+Returns ios_cpu() or cat_cpu(), whichever is available.
+
+=item $ciscostats->cpu_1min()
+
+Returns ios_cpu_1min() or cat_cpu1min(), whichever is available.
+
+=item $ciscostats->cpu_5min()
+
+Returns ios_cpu_5min() or cat_cpu5min(), whichever is available.
+
+=item $ciscostats->mem_total()
+
+Returns mem_free() + mem_used()
+
+=item $ciscostats->vendor()
+
+ 'cisco'
+
+=item $ciscostats->os()
+
+Tries to parse if device is running 'IOS', 'CatOS', 'IOS-XE' or something else
+from description()
+
+Available values:
+
+ 'ios'          for Cisco IOS
+ 'ios-xe'       for Cisco IOS XE
+ 'ios-xr'       for Cisco IOS XR
+ 'pix'          for Cisco PIX
+ 'asa'          for Cisco ASA
+ 'fwsm'         for Single-mode FWSM
+ 'fwsm-admin'   for Admin context of multi-context FWSM
+ 'fwsm-context' for Standard context of multi-context FWSM
+ 'ace-admin'    for Admin context of ACE module
+ 'ace-context'  for Standard context of ACE module (NB: No OS version
+                     detection is available, but will be the same as it's
+                     'ace admin')
+ 'css'          for Cisco Content Switch
+ 'css-sca'      for Cisco Content Switch Secure Content Acceleration
+ 'san-os'       for Cisco SAN-OS
+
+=item $ciscostats->os_ver()
+
+Tries to parse device operating system version from description(), falls back
+to parsing C<CISCO-IMAGE-MIB::ciscoImageString> if needed
+
+=item $ciscostats->os_bin()
+
+Tries to parse C<ROMMON> version from rom_id() string
+
+=item $ciscostats->ios_cpu()
+
+Current CPU usage in percent.
+
+C<1.3.6.1.4.1.9.2.1.56.0> = 
+C<OLD-CISCO-CPU-MIB:avgBusyPer>
+
+=item $ciscostats->ios_cpu_1min()
+
+Average CPU Usage in percent over the last minute.
+
+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.
+
+C<1.3.6.1.4.1.9.2.1.58.0>
+
+=item $ciscostats->cat_cpu()
+
+Current CPU usage in percent.
+
+C<CISCO-PROCESS-MIB::cpmCPUTotal5sec.9>
+
+=item $ciscostats->cat_cpu_1min()
+
+Average CPU Usage in percent over the last minute.
+
+C<CISCO-PROCESS-MIB::cpmCPUTotal1min.9>
+
+=item $ciscostats->cat_cpu_5min()
+
+Average CPU Usage in percent over the last 5 minutes.
+
+C<CISCO-PROCESS-MIB::cpmCPUTotal5min.9>
+
+=item $ciscostats->mem_free()
+
+Main DRAM free of the device in bytes.
+
+C<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolFree>
+
+=item $ciscostats->mem_used()
+
+Main DRAM used of the device in bytes.
+
+C<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolUsed>
+
+=item $ciscostats->mem_total()
+
+Main DRAM of the device in bytes.
+
+C<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolFree> +
+C<CISCO-MEMORY-POOL-MIB::ciscoMemoryPoolUsed>
+
+=item $ciscostats->flashmem_total()
+
+Flash memory of the device in bytes.
+
+C<CISCO-FLASH-MIB::ciscoFlashDeviceSize>
+
+=back
+
+=head1 TABLE METHODS
+
+=head2 Cisco Memory Pool Table (C<ciscoMemoryPoolTable>)
+
+=over
+
+=item $ciscostats->cisco_mem_free()
+
+The number of bytes from the memory pool that are currently unused on the
+managed device.
+
+(C<ciscoMemoryPoolFree>)
+
+=item $ciscostats->cisco_mem_used()
+
+The number of bytes from the memory pool that are currently in use by
+applications on the managed device.
+
+(C<ciscoMemoryPoolUsed>)
+
+=back
+
+=head2 Cisco Flash Device Table (C<ciscoFlashDeviceTable>)
+
+=over
+
+=item $ciscostats->cisco_flash_size()
+
+Total size of the Flash device.  For a removable device, the size will be
+zero if the device has been removed.
+
+(C<ciscoFlashDeviceSize>)
+
+=back
+
+=head2 Cisco Image Table (C<ciscoImageTable>)
+
+=over
+
+=item $ci->ci_images()
+
+Returns the table of image strings.
+
+C<ciscoImageString>
+
+=back
+
+=cut

lib/SNMP/Info/CiscoStpExtensions.pm

@@ -0,0 +1,395 @@
+# SNMP::Info::CiscoStpExtensions
+#
+# Copyright (c)2009 Carlos Vicente
+# All rights reserved.  
+#
+# Redistribution and use in source and binary forms, with or without 
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright notice,
+#       this list of conditions and the following disclaimer in the documentation
+#       and/or other materials provided with the distribution.
+#     * Neither the name of the author nor 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::CiscoStpExtensions;
+
+use strict;
+
+use Exporter;
+use SNMP::Info;
+use SNMP::Info::Bridge;
+
+use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/;
+
+$VERSION = '3.61';
+
+@SNMP::Info::CiscoStpExtensions::ISA = qw/SNMP::Info::Bridge SNMP::Info Exporter/;
+@SNMP::Info::CiscoStpExtensions::EXPORT_OK = qw//;
+
+%MIBS    = (
+            %SNMP::Info::Bridge::MIBS,
+            'CISCO-STP-EXTENSIONS-MIB' => 'stpxSpanningTreeType',
+           );
+
+%GLOBALS = (
+            %SNMP::Info::Bridge::GLOBALS,
+            'stpx_mst_config_digest' => 'stpxSMSTConfigDigest',
+            'stpx_mst_region_name'   => 'stpxMSTRegionName',
+            'stpx_mst_region_rev'    => 'stpxSMSTRegionRevision',
+            'stpx_stp_type'          => 'stpxSpanningTreeType',
+            'stpx_bpduguard_enable'  => 'stpxFastStartBpduGuardEnable',
+            'stpx_bpdufilter_enable' => 'stpxFastStartBpduFilterEnable',
+            'stpx_faststart_default' => 'stpxFastStartGlobalDefaultMode',
+           );
+
+%FUNCS   = (
+            %SNMP::Info::Bridge::FUNCS,
+            'stpx_rootguard_enabled'      => 'stpxRootGuardConfigEnabled',
+            'stpx_loopguard_enabled'      => 'stpxLoopGuardConfigEnabled',
+            'stpx_faststart_enabled'      => 'stpxFastStartPortEnable',
+            'stpx_faststart_operational'  => 'stpxFastStartPortMode',
+            'stpx_port_bpduguard_mode'    => 'stpxFastStartPortBpduGuardMode',
+            'stpx_port_bpdufilter_mode'   => 'stpxFastStartPortBpduFilterMode',
+            'stpx_smst_root'              => 'stpxSMSTInstanceCISTRegionalRoot',
+            'stpx_smst_vlans_mapped_1k2k' => 'stpxSMSTInstanceVlansMapped1k2k',
+            'stpx_smst_vlans_mapped_3k4k' => 'stpxSMSTInstanceVlansMapped3k4k',
+           );
+
+%MUNGE   = (
+            %SNMP::Info::Bridge::MUNGE,
+           'stpx_mst_config_digest'      => \&SNMP::Info::CiscoStpExtensions::oct2str,
+           );
+
+
+# Report version of STP via standard method
+sub stp_ver {
+     my $self = shift;
+     my $stp_ver = $self->SUPER::stp_ver();
+     if ( !defined($stp_ver) || $stp_ver eq 'unknown' ){
+         if ( defined $self->stpx_stp_type() ){
+             $stp_ver = $self->stpx_stp_type();
+         }
+     }
+     return $stp_ver;
+}
+
+sub mst_config_digest {
+    my $self = shift;
+    return $self->stpx_mst_config_digest;
+}
+
+sub mst_region_name {
+    my $self = shift;
+    return $self->stpx_mst_region_name;
+}
+
+sub mst_region_rev {
+    my $self = shift;
+    return $self->stpx_mst_region_rev;
+}
+
+
+sub mst_vlan2instance {
+    my $self = shift;
+    
+    # Get MST vlan-to-instance mapping
+    my $m1k2k = $self->stpx_smst_vlans_mapped_1k2k;
+    my $m3k4k = $self->stpx_smst_vlans_mapped_3k4k;
+   
+    # Get list of VLANs
+    my $vlan_membership = $self->i_vlan_membership;
+    my @vlans;
+    foreach my $iid ( keys %$vlan_membership ){
+        if ( my $vm = $vlan_membership->{$iid} ){
+            foreach my $vid ( @$vm ){
+                push @vlans, $vid;
+            }
+        }
+    }
+    my %res;
+    foreach my $vlan ( @vlans ){
+        if ( $vlan < 2048 ){
+            foreach my $inst ( keys %$m1k2k ){
+                my $list = $m1k2k->{$inst};
+                my $vlanlist = [split(//, unpack("B*", $list))];
+                if ( @$vlanlist[$vlan] ){
+                    $res{$vlan} = $inst;
+                    last;
+                }
+            }
+        }else{
+            foreach my $inst ( keys %$m3k4k ){
+                my $list = $m3k4k->{$inst};
+                my $vlanlist = [split(//, unpack("B*", $list))];
+                if ( @$vlanlist[$vlan-2048] ){
+                    $res{$vlan} = $inst;
+                    last;
+                }
+            }       
+        }
+    }
+    return \%res;
+}
+
+sub i_rootguard_enabled {
+    my $self    = shift;
+    my $partial = shift;
+
+    my $rg_enabled = $self->stpx_rootguard_enabled();
+    my $bp_index   = $self->bp_index($partial);
+
+    my %res;
+    foreach my $index ( keys %$rg_enabled ){
+        my $enabled = $rg_enabled->{$index};
+        my $iid     = $bp_index->{$index};
+        next unless defined $iid;
+        next unless defined $enabled;
+        $res{$iid} = $enabled;
+    }
+    return \%res;
+}  
+
+sub i_loopguard_enabled {
+    my $self    = shift;
+    my $partial = shift;
+
+    my $lg_enabled = $self->stpx_loopguard_enabled();
+    my $bp_index   = $self->bp_index($partial);
+
+    my %res;
+    foreach my $index ( keys %$lg_enabled ){
+        my $enabled = $lg_enabled->{$index};
+        my $iid     = $bp_index->{$index};
+        next unless defined $iid;
+        next unless defined $enabled;
+        $res{$iid} = $enabled;
+    }
+    return \%res;
+}  
+
+sub i_bpduguard_enabled {
+    my $self    = shift;
+    my $partial = shift;
+
+    my $bpdugm_default = $self->stpx_bpduguard_enable();
+    my $bp_index       = $self->bp_index($partial);
+    my $bpdugm         = $self->stpx_port_bpduguard_mode();
+    
+    my %res;
+    foreach my $index ( keys %$bpdugm ){
+        my $mode = $bpdugm->{$index};
+        my $iid  = $bp_index->{$index};
+        next unless defined $iid;
+        next unless defined $mode;
+        if ( $mode eq 'default' ){
+            $res{$iid} =  $bpdugm_default;
+        }else{
+            $res{$iid} = $mode;
+        }
+    }
+    return \%res;
+}
+
+sub i_bpdufilter_enabled {
+    my $self    = shift;
+    my $partial = shift;
+
+    my $bpdufm_default = $self->stpx_bpdufilter_enable();
+    my $bp_index       = $self->bp_index($partial);
+    my $bpdufm         = $self->stpx_port_bpdufilter_mode();
+    
+    my %res;
+    foreach my $index ( keys %$bpdufm ){
+        my $mode = $bpdufm->{$index};
+        my $iid  = $bp_index->{$index};
+        next unless defined $iid;
+        next unless defined $mode;
+        if ( $mode eq 'default' ){
+            $res{$iid} =  $bpdufm_default;
+        }else{
+            $res{$iid} = $mode;
+        }
+    }
+    return \%res;
+}
+
+sub i_faststart_enabled {
+    my $self    = shift;
+    my $partial = shift;
+
+    my $faststart_default = $self->stpx_faststart_default();
+    my $bp_index          = $self->bp_index($partial);
+    my $faststart         = $self->stpx_faststart_enabled();
+    my $faststart_oper    = $self->stpx_faststart_operational();
+
+    my %res;
+    # stpxFastStartPortEnable is deprecated in favour of stpxFastStartPortMode
+    # see https://github.com/netdisco/netdisco/issues/12
+    foreach my $index ( keys %$faststart, keys %$faststart_oper ){
+        my $mode = $faststart_oper->{$index} || $faststart->{$index};
+        my $iid  = $bp_index->{$index};
+        next unless defined $iid;
+        next unless defined $mode;
+        if ( $mode eq 'default' ){
+            $res{$iid} =  $faststart_default;
+        }else{
+            $res{$iid} = $mode;
+        }
+        $res{$iid} = 'enable'  if $res{$iid} eq 'true';
+        $res{$iid} = 'disable' if $res{$iid} eq 'false';
+        $res{$iid} = 1 if $res{$iid} =~ m/enable/i; # enableForTrunk
+        $res{$iid} = 0 if $res{$iid} eq 'disable';
+    }
+    return \%res;
+}
+
+
+sub oct2str {
+    my ($v) = @_;
+    return sprintf('%s', unpack('H*', $v));
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoStpExtensions - SNMP Interface to C<CISCO-STP-EXTENSIONS-MIB>
+
+=head1 AUTHOR
+
+Carlos Vicente
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+Create or use a subclass of SNMP::Info that inherits this class.  Do not use
+directly.
+
+For debugging you can call new() directly as you would in SNMP::Info 
+
+ my $stpx = new SNMP::Info::CiscoStpExtensions(...);
+
+=head2 Inherited Classes
+
+=over
+
+=item SNMP::Info 
+
+=item SNMP::Info::Bridge 
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBAL METHODS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item $stpx->stp_ver()
+
+Returns the particular STP version running on this device.  
+Meant to override SNMP::Info::Brigde::stp_ver()
+
+Values: C<pvstPlus>, C<mistp>, C<mistpPvstPlus>, C<mst>, C<rapidPvstPlus>
+
+(C<stpxSpanningTreeType>)
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $stpx->mst_config_digest()
+
+Returns the Multiple Spanning Tree (MST) configuration digest 
+
+(C<stpxSMSTConfigDigest>)
+
+=item $stpx->mst_region_name()
+
+Returns the Multiple Spanning Tree (MST) region name 
+
+(C<stpxMSTRegionName>)
+
+=item $stpx->mst_region_rev()
+
+Returns the Multiple Spanning Tree (MST) region name 
+
+(C<stpxSMSTRegionRevision>)
+
+=item $stpx->mst_vlan2instance()
+
+Returns the mapping of vlan to MST instance in the form of a hash reference 
+with key = VLAN id, value = STP instance
+
+=item $stpx->i_rootguard_enabled()
+
+Returns 1 or 0 depending on whether C<RootGuard> is enabled on a given port.
+Format is a hash reference with key = C<ifIndex>, value = [1|0]
+
+(C<stpxRootGuardConfigEnabled>)
+
+=item $stpx->i_loopguard_enabled()
+
+Returns 1 or 0 depending on whether C<LoopGuard> is enabled on a given port.
+Format is a hash reference with key = C<ifIndex>, value = [1|0]
+
+(C<stpxLoopGuardConfigEnabled>)
+
+=item $stpx->i_bpduguard_enabled()
+
+Returns 1 or 0 depending on whether C<BpduGuard> is enabled on a given port.
+Format is a hash reference with key = C<ifIndex>, value = [1|0]
+
+(C<stpxFastStartPortBpduGuardMode>)
+
+=item $stpx->i_bpdufilter_enabled()
+
+Returns 1 or 0 depending on whether C<BpduFilter> is enabled on a given port.
+Format is a hash reference with key = C<ifIndex>, value = [1|0]
+
+(C<stpxFastStartBpduFilterEnable>)
+
+=item $stpx->i_faststart_enabled()
+
+Returns 1 or 0 depending on whether FastStart (aka PortFast) is enabled on a
+given port.  Format is a hash reference with key = C<ifIndex>, value = [1|0]
+
+(C<stpxFastStartPortEnable> and C<stpxFastStartPortMode>)
+
+=back
+
+=head1 MUNGES
+
+=over
+
+=item oct2str()
+
+Unpacks H* into a string
+
+=back
+
+=cut

lib/SNMP/Info/CiscoVTP.pm

@@ -0,0 +1,940 @@
+# SNMP::Info::CiscoVTP
+# $Id$
+#
+# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond.
+#
+# Copyright (c) 2003 Regents of the University of California
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::CiscoVTP;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::CiscoVTP::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::CiscoVTP::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    'CISCO-VTP-MIB'                       => 'vtpVlanName',
+    'CISCO-VLAN-MEMBERSHIP-MIB'           => 'vmMembershipEntry',
+    'CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB' => 'cviRoutedVlanIfIndex',
+);
+
+%GLOBALS = (
+    'vtp_version'          => 'vtpVersion',
+    'vtp_maxstore'         => 'vtpMaxVlanStorage',
+    'vtp_notify'           => 'vtpNotificationsEnabled',
+    'vtp_notify_create'    => 'vtpVlanCreatedNotifEnabled',
+    'vtp_notify_delete'    => 'vtpVlanDeletedNotifEnabled',
+    'vtp_trunk_set_serial' => 'vlanTrunkPortSetSerialNo',
+);
+
+%FUNCS = (
+
+    # CISCO-VTP-MIB::managementDomainTable
+    'vtp_d_name'      => 'managementDomainName',
+    'vtp_d_mode'      => 'managementDomainLocalMode',
+    'vtp_d_rev'       => 'managementDomainConfigRevNumber',
+    'vtp_d_updater'   => 'managementDomainLastUpdater',
+    'vtp_d_last'      => 'managementDomainLastChange',
+    'vtp_d_status'    => 'managementDomainRowStatus',
+    'vtp_d_tftp'      => 'managementDomainTftpServer',
+    'vtp_d_tftp_path' => 'managementDomainTftpPathname',
+    'vtp_d_pruning'   => 'managementDomainPruningState',
+    'vtp_d_ver'       => 'managementDomainVersionInUse',
+
+    # CISCO-VTP-MIB::vtpVlanTable
+    'v_state'    => 'vtpVlanState',
+    'v_type'     => 'vtpVlanType',
+    'v_name'     => 'vtpVlanName',
+    'v_mtu'      => 'vtpVlanMtu',
+    'v_said'     => 'vtpVlanDot10Said',
+    'v_ring'     => 'vtpVlanRingNumber',
+    'v_bridge'   => 'vtpVlanBridgeNumber',
+    'v_stp'      => 'vtpVlanStpType',
+    'v_parent'   => 'vtpVlanParentVlan',
+    'v_trans1'   => 'vtpVlanTranslationalVlan1',
+    'v_trans2'   => 'vtpVlanTranslationalVlan2',
+    'v_btype'    => 'vtpVlanBridgeType',
+    'v_hop_are'  => 'vtpVlanAreHopCount',
+    'v_hop_ste'  => 'vtpVlanSteHopCount',
+    'v_crf'      => 'vtpVlanIsCRFBackup',
+    'v_type_ext' => 'vtpVlanTypeExt',
+    'v_if'       => 'vtpVlanIfIndex',
+
+    # CISCO-VLAN-MEMBERSHIP-MIB::vmMembershipTable
+    'i_vlan_type' => 'vmVlanType',
+    'i_vlan2'     => 'vmVlan',
+    'i_vlan_stat' => 'vmPortStatus',
+    'i_vlan_1'    => 'vmVlans',
+    'i_vlan_2'    => 'vmVlans2k',
+    'i_vlan_3'    => 'vmVlans3k',
+    'i_vlan_4'    => 'vmVlans4k',
+
+    # CISCO-VLAN-MEMBERSHIP-MIB::vmVoiceVlanTable
+    'i_voice_vlan' => 'vmVoiceVlanId',
+
+    # CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB
+    'v_cvi_if' => 'cviRoutedVlanIfIndex',
+
+    # CISCO-VTP-MIB::vlanTrunkPortTable
+    'vtp_trunk_mgmt_dom' => 'vlanTrunkPortManagementDomain',
+    'vtp_trunk_encaps_t' => 'vlanTrunkPortEncapsulationType',
+    'vtp_trunk_vlans'    => 'vlanTrunkPortVlansEnabled',
+    'vtp_trunk_vlans_2k' => 'vlanTrunkPortVlansEnabled2k',
+    'vtp_trunk_vlans_3k' => 'vlanTrunkPortVlansEnabled3k',
+    'vtp_trunk_vlans_4k' => 'vlanTrunkPortVlansEnabled4k',
+    'vtp_trunk_native'   => 'vlanTrunkPortNativeVlan',
+    'i_pvid'             => 'vlanTrunkPortNativeVlan',
+    'vtp_trunk_rstat'    => 'vlanTrunkPortRowStatus',
+    'vtp_trunk_dyn'      => 'vlanTrunkPortDynamicState',
+    'vtp_trunk_dyn_stat' => 'vlanTrunkPortDynamicStatus',
+    'vtp_trunk_vtp'      => 'vlanTrunkPortVtpEnabled',
+    'vtp_trunk_encaps'   => 'vlanTrunkPortEncapsulationOperType',
+
+    # TODO Add these tables if someone wants them..
+    # vtpEditControlTable
+    # vtpVlanEditTable
+    # vtpStatsTable
+);
+
+%MUNGE = ();
+
+sub v_index {
+    my $vtp     = shift;
+    my $partial = shift;
+
+    my $v_name = $vtp->v_name($partial);
+    my %v_index;
+    foreach my $idx ( keys %$v_name ) {
+        my ( $mgmtdomain, $vlan ) = split( /\./, $idx );
+        $v_index{$idx} = $vlan;
+    }
+    return \%v_index;
+}
+
+sub i_vlan {
+    my $vtp     = shift;
+    my $partial = shift;
+
+    my $port_vlan      = $vtp->vtp_trunk_native($partial)   || {};
+    my $i_vlan         = $vtp->i_vlan2($partial)            || {};
+    my $trunk_dyn      = $vtp->vtp_trunk_dyn($partial)      || {};
+    my $trunk_dyn_stat = $vtp->vtp_trunk_dyn_stat($partial) || {};
+
+    my %i_vlans;
+
+    # Get access ports
+    foreach my $port ( keys %$i_vlan ) {
+        my $vlan = $i_vlan->{$port};
+        next unless defined $vlan;
+
+        $i_vlans{$port} = $vlan;
+    }
+
+    # Get trunk ports
+    foreach my $port ( keys %$port_vlan ) {
+        my $vlan = $port_vlan->{$port};
+        next unless defined $vlan;
+
+        # ports up and trunking should have a trunking status
+        my $stat = $trunk_dyn_stat->{$port};
+
+        # vtp_trunk_dyn_stat is not useful for down ports
+        # so we use vtp_trunk_dyn to see if trunking is set
+        my $dyn = $trunk_dyn->{$port};
+        
+        if (($stat and $stat =~ /^trunking/ )
+            or ($dyn and (($dyn eq 'on') or ($dyn eq 'onNoNegotiate'))))
+        {
+            $i_vlans{$port} = $vlan;
+        }
+    }
+
+    # Check in CISCO-VLAN-IFTABLE-RELATION-MIB
+    # Used for traditional Cisco Routers and Aironet
+
+    my $v_cvi_if = $vtp->v_cvi_if();
+    if ( defined $v_cvi_if ) {
+
+        # Translate vlan.physical_interface -> iid
+        #       to iid -> vlan
+        foreach my $i ( keys %$v_cvi_if ) {
+            my ( $vlan, $phys ) = split( /\./, $i );
+            my $iid = $v_cvi_if->{$i};
+
+            $i_vlans{$iid} = $vlan;
+        }
+    }
+
+    return \%i_vlans;
+}
+
+sub i_untagged {
+    my $vtp = shift;
+    my ( $ifindex ) = @_;
+
+    # cannot defer to i_vlan - vtp_trunk_dyn_stat is not useful for down ports
+    # so we use vtp_trunk_dyn as a hint to use i_pvid
+
+    my $trunking = eval { $vtp->vtp_trunk_dyn($ifindex)->{$ifindex} };
+    if ($trunking and (($trunking eq 'on') or ($trunking eq 'onNoNegotiate'))) {
+        return $vtp->i_pvid(@_);
+    }
+    else {
+        return $vtp->i_vlan(@_);
+    }
+}
+
+sub i_vlan_membership {
+    my $vtp     = shift;
+    my $partial = shift;
+
+    my $ports_vlans    = $vtp->vtp_trunk_vlans($partial)    || {};
+    my $ports_vlans_2k = $vtp->vtp_trunk_vlans_2k($partial) || {};
+    my $ports_vlans_3k = $vtp->vtp_trunk_vlans_3k($partial) || {};
+    my $ports_vlans_4k = $vtp->vtp_trunk_vlans_4k($partial) || {};
+    my $vtp_vlans      = $vtp->v_state();
+    my $i_vlan         = $vtp->i_vlan2($partial)            || {};
+    my $trunk_dyn_stat = $vtp->vtp_trunk_dyn_stat($partial) || {};
+    my $trunk_dyn      = $vtp->vtp_trunk_dyn($partial)      || {};
+    my $i_voice_vlan   = $vtp->i_voice_vlan($partial)       || {};
+
+    my $i_vlan_membership = {};
+
+    # Get access ports
+    foreach my $port ( keys %$i_vlan ) {
+        my $vlan = $i_vlan->{$port};
+        next unless defined $vlan;
+        my $dyn = $trunk_dyn->{$port};
+        unless ($dyn and (($dyn eq 'on') or ($dyn eq 'onNoNegotiate'))) {
+            push( @{ $i_vlan_membership->{$port} }, $vlan );
+        }
+    }
+
+    # Get voice VLANs
+    foreach my $port ( keys %$i_voice_vlan ) {
+        my $vlan = $i_voice_vlan->{$port};
+        next unless defined $vlan;
+        next unless ($vlan =~ m/[[:digit:]]+/ and $vlan < 4095);
+        my $dyn = $trunk_dyn->{$port};
+        unless ($dyn and (($dyn eq 'on') or ($dyn eq 'onNoNegotiate'))) {
+            push( @{ $i_vlan_membership->{$port} }, $vlan );
+        }
+    }
+
+    # Get trunk ports
+    my %oper_vlans;
+    foreach my $iid ( keys %$vtp_vlans ) {
+        my $vlan    = 0;
+        my $vtp_dom = 0;
+        my $state   = $vtp_vlans->{$iid};
+        next unless defined $state;
+        next if $state !~ /operational/;
+        if ( $iid =~ /(\d+)\.(\d+)/ ) {
+            $vtp_dom = $1;
+            $vlan    = $2;
+        }
+        $oper_vlans{$vlan}++;
+    }
+
+    foreach my $port ( keys %$ports_vlans ) {
+        my $stat = $trunk_dyn_stat->{$port};
+        my $dyn = $trunk_dyn->{$port};
+        if (($stat and $stat =~ /^trunking/ )
+            or ($dyn and (($dyn eq 'on') or ($dyn eq 'onNoNegotiate')))) {
+            my $k     = 0;
+            my $list1 = $ports_vlans->{$port} || '0';
+            my $list2 = $ports_vlans_2k->{$port} || '0';
+            my $list3 = $ports_vlans_3k->{$port} || '0';
+            my $list4 = $ports_vlans_4k->{$port} || '0';
+            foreach my $list ( "$list1", "$list2", "$list3", "$list4" ) {
+                my $offset = 1024 * $k++;
+                next unless $list;
+                my $vlanlist = [ split( //, unpack( "B*", $list ) ) ];
+                foreach my $vlan ( keys %oper_vlans ) {
+                    next if (($vlan < $offset) or ($vlan - $offset > 1024));
+                    push( @{ $i_vlan_membership->{$port} }, $vlan )
+                        if ( @$vlanlist[ $vlan - $offset ] );
+                }
+            }
+        }
+    }
+
+    return $i_vlan_membership;
+}
+
+sub i_vlan_membership_untagged {
+    my $vtp  = shift;
+    my $partial = shift;
+
+    my $vlans = $vtp->i_vlan($partial);
+    my $i_vlan_membership = {};
+    foreach my $port (keys %$vlans) {
+        my $vlan = $vlans->{$port};
+        push( @{ $i_vlan_membership->{$port} }, $vlan );
+    }
+    
+    return $i_vlan_membership;
+}
+
+sub set_i_pvid {
+    my $vtp = shift;
+    my ( $vlan_id, $ifindex ) = @_;
+
+    return unless ( $vtp->_validate_vlan_param( $vlan_id, $ifindex ) );
+
+    my $native_vlan = $vtp->vtp_trunk_native($ifindex);
+    if ( defined $native_vlan ) {
+
+        print
+            "Changing native VLAN from $native_vlan->{$ifindex} to $vlan_id on IfIndex: $ifindex\n"
+            if $vtp->debug();
+
+        my $rv = $vtp->set_vtp_trunk_native( $vlan_id, $ifindex );
+        unless ($rv) {
+            $vtp->error_throw(
+                "Unable to change native VLAN to $vlan_id on IfIndex: $ifindex"
+            );
+            return;
+        }
+        return $rv;
+    }
+    $vtp->error_throw("Can't find ifIndex: $ifindex - Is it a trunk port?");
+    return;
+}
+
+sub set_i_vlan {
+    my $vtp = shift;
+    my ( $vlan_id, $ifindex ) = @_;
+
+    return unless ( $vtp->_validate_vlan_param( $vlan_id, $ifindex ) );
+
+    my $i_vlan = $vtp->i_vlan2($ifindex);
+    if ( defined $i_vlan ) {
+
+        print
+            "Changing VLAN from $i_vlan->{$ifindex} to $vlan_id on IfIndex: $ifindex\n"
+            if $vtp->debug();
+
+        my $rv = $vtp->set_i_vlan2( $vlan_id, $ifindex );
+        unless ($rv) {
+            $vtp->error_throw(
+                "Unable to change VLAN to $vlan_id on IfIndex: $ifindex");
+            return;
+        }
+        return $rv;
+    }
+    $vtp->error_throw("Can't find ifIndex: $ifindex - Is it an access port?");
+    return;
+}
+
+sub set_i_untagged {
+    my $vtp = shift;
+    my ( $vlan_id, $ifindex ) = @_;
+
+    # cannot defer to i_vlan - vtp_trunk_dyn_stat is not useful for down ports
+    # so we use vtp_trunk_dyn as a hint to use i_pvid
+
+    my $trunking = eval { $vtp->vtp_trunk_dyn($ifindex)->{$ifindex} };
+    if ($trunking and (($trunking eq 'on') or ($trunking eq 'onNoNegotiate'))) {
+        return $vtp->set_i_pvid(@_);
+    }
+    else {
+        return $vtp->set_i_vlan(@_);
+    }
+}
+
+sub set_add_i_vlan_tagged {
+    my $vtp = shift;
+    my ( $vlan_id, $ifindex ) = @_;
+
+    return unless ( $vtp->_validate_vlan_param( $vlan_id, $ifindex ) );
+
+    print "Adding VLAN: $vlan_id to ifIndex: $ifindex\n" if $vtp->debug();
+
+    my $trunk_serial  = $vtp->load_vtp_trunk_set_serial();
+    my $trunk_members = $vtp->vtp_trunk_vlans($ifindex);
+
+    unless ( defined $trunk_members ) {
+        $vtp->error_throw(
+            "Can't find ifIndex: $ifindex - Is it a trunk port?");
+        return;
+    }
+
+    my @member_list = split( //, unpack( "B*", $trunk_members->{$ifindex} ) );
+
+    print "Original vlan list for ifIndex: $ifindex: @member_list \n"
+        if $vtp->debug();
+    $member_list[$vlan_id] = '1';
+    print "Modified vlan list for ifIndex: $ifindex: @member_list \n"
+        if $vtp->debug();
+    my $new_list = pack( "B*", join( '', @member_list ) );
+
+    #Add VLAN to member list
+    my $list_rv = $vtp->set_vtp_trunk_vlans( $new_list, $ifindex );
+    unless ($list_rv) {
+        $vtp->error_throw(
+            "Unable to add VLAN: $vlan_id to ifIndex: $ifindex member list");
+        return;
+    }
+
+   #Make sure no other SNMP manager was making modifications at the same time.
+    my $serial_rv = $vtp->set_vtp_trunk_set_serial($trunk_serial);
+    unless ($serial_rv) {
+        $vtp->error_throw(
+            "Unable to increment trunk set serial number - check configuration!"
+        );
+        return;
+    }
+    return 1;
+}
+
+sub set_remove_i_vlan_tagged {
+    my $vtp = shift;
+    my ( $vlan_id, $ifindex ) = @_;
+
+    return unless ( $vtp->_validate_vlan_param( $vlan_id, $ifindex ) );
+
+    print "Removing VLAN: $vlan_id from ifIndex: $ifindex\n" if $vtp->debug();
+
+    my $trunk_serial  = $vtp->load_vtp_trunk_set_serial();
+    my $trunk_members = $vtp->vtp_trunk_vlans($ifindex);
+
+    unless ( defined $trunk_members ) {
+        $vtp->error_throw(
+            "Can't find ifIndex: $ifindex - Is it a trunk port?");
+        return;
+    }
+
+    my @member_list = split( //, unpack( "B*", $trunk_members->{$ifindex} ) );
+
+    print "Original vlan list for ifIndex: $ifindex: @member_list \n"
+        if $vtp->debug();
+    $member_list[$vlan_id] = '0';
+    print "Modified vlan list for ifIndex: $ifindex: @member_list \n"
+        if $vtp->debug();
+    my $new_list = pack( "B*", join( '', @member_list ) );
+
+    #Remove VLAN to member list
+    my $list_rv = $vtp->set_vtp_trunk_vlans( $new_list, $ifindex );
+    unless ($list_rv) {
+        $vtp->error_throw(
+            "Error: Unable to remove VLAN: $vlan_id from ifIndex: $ifindex member list"
+        );
+        return;
+    }
+
+    #Make sure no other manager was making modifications at the same time.
+    my $serial_rv = $vtp->set_vtp_trunk_set_serial($trunk_serial);
+    unless ($serial_rv) {
+        $vtp->error_throw(
+            "Error: Unable to increment trunk set serial number - check configuration!"
+        );
+        return;
+    }
+    return 1;
+}
+
+#
+# These are internal methods and are not documented.  Do not use directly.
+#
+sub _validate_vlan_param {
+    my $vtp = shift;
+    my ( $vlan_id, $ifindex ) = @_;
+
+    # VID and ifIndex should both be numeric
+    unless (defined $vlan_id
+        and defined $ifindex
+        and $vlan_id =~ /^\d+$/
+        and $ifindex =~ /^\d+$/ )
+    {
+        $vtp->error_throw("Invalid parameter");
+        return;
+    }
+
+    # Check that ifIndex exists on device
+    my $index = $vtp->interfaces($ifindex);
+
+    unless ( exists $index->{$ifindex} ) {
+        $vtp->error_throw("ifIndex $ifindex does not exist");
+        return;
+    }
+
+    #Check that VLAN exists on device
+    my $vtp_vlans   = $vtp->v_state();
+    my $vlan_exists = 0;
+
+    foreach my $iid ( keys %$vtp_vlans ) {
+        my $vlan    = 0;
+        my $vtp_dom = 0;
+        my $state   = $vtp_vlans->{$iid};
+        next unless defined $state;
+        next if $state !~ /operational/;
+        if ( $iid =~ /(\d+)\.(\d+)/ ) {
+            $vtp_dom = $1;
+            $vlan    = $2;
+        }
+
+        $vlan_exists = 1 if ( $vlan_id eq $vlan );
+    }
+    unless ($vlan_exists) {
+        $vtp->error_throw(
+            "VLAN $vlan_id does not exist or is not operational");
+        return;
+    }
+
+    return 1;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::CiscoVTP - SNMP Interface to Cisco's VLAN Management MIBs
+
+=head1 AUTHOR
+
+Max Baker
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $vtp = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $vtp->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+SNMP::Info::CiscoVTP is a subclass of SNMP::Info that provides 
+information about a Cisco device's VLAN and VTP Domain membership.
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-VTP-MIB>
+
+=item F<CISCO-VLAN-MEMBERSHIP-MIB>
+
+=item F<CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBALS
+
+=over
+
+=item $vtp->vtp_version()
+
+(C<vtpVersion>)
+
+=item $vtp->vtp_maxstore()
+
+(C<vtpMaxVlanStorage>)
+
+=item $vtp->vtp_notify()
+
+(C<vtpNotificationsEnabled>)
+
+=item $vtp->vtp_notify_create()
+
+(C<vtpVlanCreatedNotifEnabled>)
+
+=item $vtp->vtp_notify_delete()
+
+(C<vtpVlanDeletedNotifEnabled>)
+
+=item $vtp->vtp_trunk_set_serial()
+
+(C<vlanTrunkPortSetSerialNo>)
+
+=back
+
+=head1 TABLE METHODS
+
+Your device will only implement a subset of these methods.
+
+=over
+
+=item $vtp->i_vlan()
+
+Returns a mapping between C<ifIndex> and assigned VLAN ID for access ports
+and the default VLAN ID for trunk ports.
+
+=item $vtp->i_untagged()
+
+An alias for C<i_vlan>.
+
+=item $vtp->i_vlan_membership()
+
+Returns reference to hash of arrays: key = C<ifIndex>, value = array of VLAN
+IDs.  These are the VLANs which are members of enabled VLAN list for the port.
+
+  Example:
+  my $interfaces = $vtp->interfaces();
+  my $vlans      = $vtp->i_vlan_membership();
+  
+  foreach my $iid (sort keys %$interfaces) {
+    my $port = $interfaces->{$iid};
+    my $vlan = join(',', sort(@{$vlans->{$iid}}));
+    print "Port: $port VLAN: $vlan\n";
+  }
+
+=item $vtp->i_vlan_membership_untagged()
+
+Returns reference to hash of arrays: key = C<ifIndex>, value = array of VLAN
+IDs.  These are the VLANs which are members of the untagged egress list for
+the port.
+
+=back
+
+=head2 VLAN Table (C<CISCO-VTP-MIB::vtpVlanTable>)
+
+See L<ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html>
+for a good treaty of how to connect to the VLANs
+
+=over
+
+=item $vtp->v_index()
+
+(C<vtpVlanIndex>)
+
+=item $vtp->v_state()
+
+(C<vtpVlanState>)
+
+=item $vtp->v_type()
+
+(C<vtpVlanType>)
+
+=item $vtp->v_name()
+
+(C<vtpVlanName>)
+
+=item $vtp->v_mtu()
+
+(C<vtpVlanMtu>)
+
+=item $vtp->v_said()
+
+(C<vtpVlanDot10Said>)
+
+=item $vtp->v_ring()
+
+(C<vtpVlanRingNumber>)
+
+=item $vtp->v_bridge()
+
+(C<vtpVlanBridgeNumber>)
+
+=item $vtp->v_stp()
+
+(C<vtpVlanStpType>)
+
+=item $vtp->v_parent()
+
+(C<vtpVlanParentVlan>)
+
+=item $vtp->v_trans1()
+
+(C<vtpVlanTranslationalVlan1>)
+
+=item $vtp->v_trans2()
+
+(C<vtpVlanTranslationalVlan2>)
+
+=item $vtp->v_btype()
+
+(C<vtpVlanBridgeType>)
+
+=item $vtp->v_hop_are()
+
+(C<vtpVlanAreHopCount>)
+
+=item $vtp->v_hop_ste()
+
+(C<vtpVlanSteHopCount>)
+
+=item $vtp->v_crf()
+
+(C<vtpVlanIsCRFBackup>)
+
+=item $vtp->v_type_ext()
+
+(C<vtpVlanTypeExt>)
+
+=item $vtp->v_if()
+
+(C<vtpVlanIfIndex>)
+
+=back
+
+=head2 VLAN Membership Table (C<CISCO-VLAN-MEMBERSHIP-MIB::vmMembershipTable>)
+
+=over
+
+=item $vtp->i_vlan_type()
+
+Static, Dynamic, or multiVlan.  
+
+(C<vmVlanType>)
+
+=item $vtp->i_vlan2()
+
+The VLAN that an access port is assigned to.
+
+(C<vmVlan>)
+
+=item $vtp->i_vlan_stat()
+
+Inactive, active, shutdown.
+
+(C<vmPortStatus>)
+
+=item $vtp->i_vlan_1()
+
+Each bit represents a VLAN.  This is 0 through 1023
+
+(C<vmVlans>)
+
+=item $vtp->i_vlan_2()
+
+Each bit represents a VLAN.  This is 1024 through 2047
+
+(C<vmVlans2k>)
+
+=item $vtp->i_vlan_3()
+
+Each bit represents a VLAN.  This is 2048 through 3071
+
+(C<vmVlans3k>)
+
+=item $vtp->i_vlan_4()
+
+Each bit represents a VLAN.  This is 3072 through 4095
+
+(C<vmVlans4k>)
+
+=back
+
+=head2 VLAN Membership Voice VLAN Table
+(C<CISCO-VLAN-MEMBERSHIP-MIB::vmVoiceVlanTable>)
+
+=over
+
+=item $vtp->i_voice_vlan() 
+
+(C<vmVoiceVlanId>)
+
+=back
+
+=head2 Management Domain Table (C<CISCO-VTP-MIB::managementDomainTable>)
+
+=over
+
+=item $vtp->vtp_d_name()
+
+(C<managementDomainName>)
+
+=item $vtp->vtp_d_mode()
+
+(C<managementDomainLocalMode>)
+
+=item $vtp->vtp_d_rev()
+
+(C<managementDomainConfigRevNumber>)
+
+=item $vtp->vtp_d_updater()
+
+(C<managementDomainLastUpdater>)
+
+=item $vtp->vtp_d_last()
+
+(C<managementDomainLastChange>)
+
+=item $vtp->vtp_d_status()
+
+(C<managementDomainRowStatus>)
+
+=item $vtp->vtp_d_tftp()
+
+(C<managementDomainTftpServer>)
+
+=item $vtp->vtp_d_tftp_path()
+
+(C<managementDomainTftpPathname>)
+
+=item $vtp->vtp_d_pruning()
+
+(C<managementDomainPruningState>)
+
+=item $vtp->vtp_d_ver()
+
+(C<managementDomainVersionInUse>)
+
+=back
+
+=head2 VLAN Trunk Port Table (C<CISCO-VTP-MIB::vlanTrunkPortTable>)
+
+=over
+
+=item $vtp->vtp_trunk_mgmt_dom()
+
+(C<vlanTrunkPortManagementDomain>)
+
+=item $vtp->vtp_trunk_encaps_t()
+
+(C<vlanTrunkPortEncapsulationType>)
+
+=item $vtp->vtp_trunk_vlans()
+
+(C<vlanTrunkPortVlansEnabled>)
+
+=item $vtp->vtp_trunk_vlans_2k()
+
+(C<vlanTrunkPortVlansEnabled2k>)
+
+=item $vtp->vtp_trunk_vlans_3k()
+
+(C<vlanTrunkPortVlansEnabled3k>)
+
+=item $vtp->vtp_trunk_vlans_4k()
+
+(C<vlanTrunkPortVlansEnabled4k>)
+
+=item $vtp->vtp_trunk_native()
+
+(C<vlanTrunkPortNativeVlan>)
+
+=item $vtp->i_pvid()
+
+(C<vlanTrunkPortNativeVlan>)
+
+=item $vtp->vtp_trunk_rstat()
+
+(C<vlanTrunkPortRowStatus>)
+
+=item $vtp->vtp_trunk_dyn()
+
+(C<vlanTrunkPortDynamicState>)
+
+=item $vtp->vtp_trunk_dyn_stat()
+
+(C<vlanTrunkPortDynamicStatus>)
+
+=item $vtp->vtp_trunk_vtp()
+
+(C<vlanTrunkPortVtpEnabled>)
+
+=item $vtp->vtp_trunk_encaps()
+
+(C<vlanTrunkPortEncapsulationOperType>)
+
+=back
+
+=head1 SET METHODS
+
+These are methods that provide SNMP set functionality for overridden methods
+or provide a simpler interface to complex set operations.  See
+L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
+operations. 
+
+=over
+
+=item $vtp->set_i_vlan ( vlan, ifIndex )
+
+Changes an access (untagged) port VLAN, must be supplied with the numeric
+VLAN ID and port C<ifIndex>.  This method should only be used on end station
+(non-trunk) ports.
+
+  Example:
+  my %if_map = reverse %{$vtp->interfaces()};
+  $vtp->set_i_vlan('2', $if_map{'FastEthernet0/1'}) 
+    or die "Couldn't change port VLAN. ",$vtp->error(1);
+
+=item $vtp->set_i_pvid ( pvid, ifIndex )
+
+Sets port default VLAN, must be supplied with the numeric VLAN ID and
+port C<ifIndex>.  This method should only be used on trunk ports.
+
+  Example:
+  my %if_map = reverse %{$vtp->interfaces()};
+  $vtp->set_i_pvid('2', $if_map{'FastEthernet0/1'}) 
+    or die "Couldn't change port default VLAN. ",$vtp->error(1);
+
+=item $vtp->set_i_untagged ( vlan, ifIndex )
+
+This method attempts to work out whether the port referenced by ifIndex is
+trunking, and if so will return the value of C<set_i_pvid>. Otherwise, the
+value of C<set_i_vlan> is returned.
+
+=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 C<ifIndex>.
+
+  Example:
+  my %if_map = reverse %{$vtp->interfaces()};
+  $vtp->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) 
+    or die "Couldn't add port to egress list. ",$vtp->error(1);
+
+=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 C<ifIndex>.
+
+  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

lib/SNMP/Info/EDP.pm

@@ -0,0 +1,295 @@
+# SNMP::Info::EDP
+#
+# Copyright (c) 2012 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.
+#     * 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::EDP;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::EDP::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::EDP::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    'EXTREME-EDP-MIB'   => 'extremeEdpPortIfIndex',
+);
+
+%GLOBALS = (
+
+);
+
+%FUNCS = (
+    # EXTREME-EDP-MIB::extremeEdpTable
+    'edp_rem_sysname'  => 'extremeEdpNeighborName',
+);
+
+%MUNGE = (
+    'edp_rem_sysname'   => \&SNMP::Info::munge_null,
+);
+
+sub hasEDP {
+    my $edp = shift;
+
+    my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {};
+
+    return 1 if ( scalar( keys %$edp_ip ) );
+    
+    return;
+}
+
+# Since we need to get IP Addresses from the extremeEdpNeighborTable which has
+# a different index (adds VLAN name) than the extremeEdpTable which holds
+# the remote device details use the index from extremeEdpNeighborTable but skip
+# indexes which have an address of 0.0.0.0.  Would like to include only one
+# address since they should all originate from the same device, but we don't
+# know if they would all be reachable from the network management application.
+#
+# We don't inplement partials since this is private index function
+sub _edp_index {
+    my $edp = shift;
+
+    my $edp_ip  = $edp->extremeEdpNeighborVlanIpAddress() || {};
+    
+    my %edp_index;
+    foreach my $key ( keys %$edp_ip ) {
+        my $ip = $edp_ip->{$key};
+        next if ($ip eq '0.0.0.0');
+        next unless $ip;
+        $edp_index{$key} = $key;
+    }
+    return \%edp_index;
+}
+
+sub edp_if {
+    my $edp = shift;
+
+    my $index = $edp->_edp_index() || {};
+
+    my %edp_if;
+    foreach my $key (keys %$index) {
+        my $iid = $key;
+        # ifIndex is first part of the iid
+        $iid = $1 if $iid =~ /^(\d+)\./;
+        $edp_if{$key} = $iid;
+    }
+ 
+  return \%edp_if;
+}
+
+sub edp_ip {
+    my $edp = shift;
+
+    my $index  = $edp->_edp_index() || {};
+    my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {};
+
+    my %edp_ip;
+    foreach my $key ( keys %$index ) {
+        my $ip = $edp_ip->{$key};
+        # MIB says should only be IPv4
+        next unless ($ip =~ /\d+(\.\d+){3}/);
+        $edp_ip{$key} = $ip;
+    }
+    return \%edp_ip;
+}
+
+sub edp_port {
+    my $edp = shift;
+
+    my $index    = $edp->_edp_index() || {};
+    my $edp_rport = $edp->extremeEdpNeighborPort() || {};
+    my $edp_rslot = $edp->extremeEdpNeighborSlot() || {};
+
+    my %edp_port;
+    foreach my $key ( sort keys %$edp_rport ) {
+        my $port = $edp_rport->{$key};
+        my $slot = $edp_rslot->{$key} || 0;
+        next unless $port;
+        my $slotport = defined $slot ?  "$slot\/$port" : $port;
+
+        foreach my $iid ( sort keys %$index ) {
+            $edp_port{$iid} = $slotport if ($iid =~ /^$key/);
+        }
+    }
+    return \%edp_port;
+}
+
+sub edp_id {
+    my $edp = shift;
+
+    my $index    = $edp->_edp_index() || {};
+    my $edp_name = $edp->edp_rem_sysname() || {};
+
+    my %edp_name;
+    foreach my $key ( sort keys %$edp_name ) {
+        my $name = $edp_name->{$key} || 0;
+        next unless $name;
+
+        foreach my $iid ( sort keys %$index ) {
+            $edp_name{$iid} = $name if ($iid =~ /^$key/);
+        }
+    }
+    return \%edp_name;
+}
+
+sub edp_ver {
+    my $edp = shift;
+
+    my $index   = $edp->_edp_index() || {};
+    my $edp_ver = $edp->extremeEdpNeighborSoftwareVersion() || {};
+
+    my %edp_ver;
+    foreach my $key ( sort keys %$edp_ver ) {
+        my $ver = $edp_ver->{$key} || 0;
+        next unless $ver;
+
+        foreach my $iid ( sort keys %$index ) {
+            $edp_ver{$iid} = $ver if ($iid =~ /^$key/);
+        }
+    }
+    return \%edp_ver;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::EDP - SNMP Interface to the Extreme Discovery Protocol (EDP)
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+ my $edp = new SNMP::Info ( 
+                             AutoSpecify => 1,
+                             Debug       => 1,
+                             DestHost    => 'router', 
+                             Community   => 'public',
+                             Version     => 2
+                           );
+
+ my $class = $edp->class();
+ print " Using device sub class : $class\n";
+
+ $haslldp   = $edp->hasLLDP() ? 'yes' : 'no';
+
+ # Print out a map of device ports with LLDP neighbors:
+ my $interfaces    = $edp->interfaces();
+ my $edp_if       = $edp->edp_if();
+ my $edp_ip       = $edp->edp_ip();
+ my $edp_port     = $edp->edp_port();
+
+ foreach my $edp_key (keys %$edp_ip){
+    my $iid           = $edp_if->{$edp_key};
+    my $port          = $interfaces->{$iid};
+    my $neighbor      = $edp_ip->{$edp_key};
+    my $neighbor_port = $edp_port->{$edp_key};
+    print "Port : $port connected to $neighbor / $neighbor_port\n";
+ }
+
+=head1 DESCRIPTION
+
+SNMP::Info::EDP is a subclass of SNMP::Info that provides an object oriented 
+interface to EDP information through SNMP.
+
+EDP is a Layer 2 protocol that allows a network device to advertise its
+identity and capabilities on the local network providing topology information.
+
+Create or use a device subclass that inherits this class.  Do not use
+directly.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<EXTREME-EDP-MIB>
+
+=back
+
+=head1 GLOBAL METHODS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item $edp->hasEDP()
+
+Is EDP is active in this device?  
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $edp->edp_id()
+
+Returns the string value used to identify the chassis component associated
+with the remote system.
+
+(C<extremeEdpNeighborName>)
+
+=item $edp->edp_if()
+
+Returns the mapping to the SNMP Interface Table.
+
+=item  $edp->edp_ip()
+
+Returns remote IPv4 address.
+
+=item $edp->edp_port()
+
+Returns remote port ID
+
+=item $edp->edp_ver()
+
+Returns the operating system version of the remote system.
+
+Nulls are removed before the value is returned. 
+
+(C<extremeEdpNeighborSoftwareVersion>)
+
+=back
+
+=cut
+

lib/SNMP/Info/Entity.pm

@@ -0,0 +1,350 @@
+# SNMP::Info::Entity
+# $Id$
+#
+# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond.
+#
+# Copyright (c) 2003 Regents of the University of California
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::Entity;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::Entity::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::Entity::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'ENTITY-MIB' => 'entPhysicalSerialNum' );
+
+%GLOBALS = ();
+
+%FUNCS = (
+    'e_alias'  => 'entPhysicalAlias',
+    'e_class'  => 'entPhysicalClass',
+    'e_descr'  => 'entPhysicalDescr',
+    'e_fwver'  => 'entPhysicalFirmwareRev',
+    'e_fru'    => 'entPhysicalIsFRU',
+    'e_hwver'  => 'entPhysicalHardwareRev',
+    'e_id'     => 'entPhysicalAssetID',
+    'e_map'    => 'entAliasMappingIdentifier',
+    'e_model'  => 'entPhysicalModelName',
+    'e_name'   => 'entPhysicalName',
+    'e_parent' => 'entPhysicalContainedIn',
+    'e_pos'    => 'entPhysicalParentRelPos',
+    'e_serial' => 'entPhysicalSerialNum',
+    'e_swver'  => 'entPhysicalSoftwareRev',
+    'e_type'   => 'entPhysicalVendorType',
+    'e_vendor' => 'entPhysicalMfgName',
+);
+
+%MUNGE = ( 'e_type' => \&SNMP::Info::munge_e_type, );
+
+# entPhysicalIndex is not-accessible.  Create to facilitate emulation methods
+# in other classes
+
+sub e_index {
+    my $entity  = shift;
+    my $partial = shift;
+
+    # Force use of MIB leaf to avoid inheritance issues in psuedo classes
+    my $e_descr = $entity->entPhysicalDescr($partial);
+
+    return unless ($e_descr);
+
+    my %e_index;
+
+    foreach my $iid ( keys %$e_descr ) {
+        $e_index{$iid} = $iid;
+    }
+    return \%e_index;
+}
+
+sub e_port {
+    my $entity  = shift;
+    my $partial = shift;
+
+    my $e_map = $entity->e_map($partial);
+
+    my %e_port;
+
+    foreach my $e_id ( keys %$e_map ) {
+        my $id = $e_id;
+        $id =~ s/\.0$//;
+
+        my $iid = $e_map->{$e_id};
+        $iid =~ s/.*\.//;
+
+        $e_port{$id} = $iid;
+    }
+
+    return \%e_port;
+}
+
+sub entity_derived_serial {
+    my $entity  = shift;
+
+    my $e_parent = $entity->e_parent() || {};
+    my $e_class  = $entity->e_class() || {};
+
+    # Sort keys to return a consistent result between runs
+    foreach my $iid ( sort keys %$e_parent ) {
+        my $parent = $e_parent->{$iid};
+        my $class = $e_class->{$iid} || '';
+        # Only consider serial numbers for entries without a parent, or
+        # if they are of type "chassis"
+        if ( $parent eq '0' or $class eq 'chassis') {
+            my $serial = $entity->e_serial($iid);
+            if ( $serial && $serial->{$iid} ) {
+                return $serial->{$iid};
+            }
+            else {
+                my $descr = $entity->e_descr($iid);
+                if ( $descr and $descr->{$iid} =~ /serial#?:\s*([a-z0-9]+)/i )
+                {
+                    return $1;
+                }
+            }
+        }
+    }
+    return;
+}
+
+sub entity_derived_os_ver {
+    my $entity  = shift;
+
+    my $e_parent = $entity->e_parent() || {};
+    my $e_class  = $entity->e_class() || {};
+
+    # Sort keys to return a consistent result between runs
+    foreach my $iid ( sort keys %$e_parent ) {
+        my $parent = $e_parent->{$iid};
+        my $class = $e_class->{$iid} || '';
+        # Only consider serial numbers for entries without a parent, or
+        # if they are of type "chassis"
+        if ( $parent eq '0' or $class eq 'chassis') {
+            my $os_ver = $entity->e_swver($iid);
+            if ( $os_ver && $os_ver->{$iid} ) {
+                return $os_ver->{$iid};
+            }
+        }
+    }
+    return;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::Entity - SNMP Interface to data stored in F<ENTITY-MIB>. RFC 2737
+
+=head1 AUTHOR
+
+Max Baker
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $entity = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $entity->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+F<ENTITY-MIB> is used by Layer 2 devices from Brocade, Cisco, HP,
+and more.
+
+See RFC 2737 for full details.
+
+Create or use a device subclass that inherit this class.  Do not use directly.
+
+For debugging purposes you can call this class directly as you would
+SNMP::Info
+
+ my $entity = new SNMP::Info::Entity (...);
+
+=head2 Inherited Classes
+
+none.
+
+=head2 Required MIBs
+
+=over
+
+=item F<ENTITY-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBALS
+
+none.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $entity->entity_derived_serial()
+
+Tries to determine the device serial number from the F<ENTITY-MIB>. Only
+considers serial numbers for entries without a parent, or if they are of type
+chassis. Looks at C<entPhysicalSerialNum> and then C<entPhysicalDescr> for
+serial number.
+
+=item $entity->entity_derived_os_ver()
+
+Tries to determine the device OS version from the F<ENTITY-MIB>. Only
+considers serial numbers for entries without a parent, or if they are of type
+chassis. Looks at C<entPhysicalSoftwareRev> for the version.
+
+=back
+
+=head2 Entity Table
+
+=over
+
+=item $entity->e_index()
+
+Index
+
+(C<entPhysicalIndex>)
+
+=item $entity->e_alias()
+
+Human entered, not usually used.
+
+(C<entPhysicalAlias>)
+
+=item $entity->e_class()
+
+Stack, Module, Container, Port ...
+
+(C<entPhysicalClass>)
+
+=item $entity->e_descr()
+
+Human Friendly
+
+(C<entPhysicalClass>)
+
+=item $entity->e_fwver()
+
+(C<entPhysicalFirmwareRev>)
+
+=item $entity->e_fru()
+
+BOOLEAN. Is a Field Replaceable unit?
+
+(C<entPhysicalFRU>)
+
+=item $entity->e_hwver()
+
+(C<entPhysicalHardwareRev>)
+
+=item $entity->e_id()
+
+This is human entered and not normally used.
+
+(C<entPhysicalAssetID>)
+
+=item $entity->e_map()
+
+See MIB.
+
+(C<entAliasMappingIdentifier>)
+
+=item $entity->e_model()
+
+Model Name of Entity.
+
+(C<entPhysicalModelName>)
+
+=item $entity->e_name()
+
+More computer friendly name of entity.  Parse me.
+
+(C<entPhysicalName>)
+
+=item $entity->e_parent()
+
+0 if root.
+
+(C<entPhysicalContainedIn>)
+
+=item $entity->e_port()
+
+Maps Entity Table entries to the Interface Table (C<IfTable>) using
+$entity->e_map()
+
+=item $entity->e_pos()
+
+The relative position among all entities sharing the same parent.
+
+(C<entPhysicalParentRelPos>)
+
+=item $entity->e_serial()
+
+(C<entPhysicalSerialNum>)
+
+=item $entity->e_swver()
+
+(C<entPhysicalSoftwareRev>)
+
+=item $entity->e_type()
+
+This is an OID, which gets munged into the object name if the right
+MIB is loaded.
+
+(C<entPhysicalVendorType>)
+
+=item $entity->e_vendor()
+
+Vendor of Module.
+
+(C<entPhysicalMfgName>)
+
+=back
+
+=cut

lib/SNMP/Info/EtherLike.pm

@@ -0,0 +1,255 @@
+# SNMP::Info::EtherLike
+# $Id$
+#
+# 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
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::EtherLike;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::EtherLike::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::EtherLike::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'EtherLike-MIB' => 'etherMIB' );
+
+%GLOBALS = ();
+
+%FUNCS = (
+
+    # EtherLike StatsTable
+    'el_chipset'         => 'dot3StatsEtherChipSet',
+    'el_coll_excess'     => 'dot3StatsExcessiveCollisions',
+    'el_coll_late'       => 'dot3StatsLateCollisions',
+    'el_coll_mult'       => 'dot3StatsMultipleCollisionFrames',
+    'el_coll_single'     => 'dot3StatsSingleCollisionFrames',
+    'el_duplex'          => 'dot3StatsDuplexStatus',
+    'el_error_alignment' => 'dot3StatsAlignmentErrors',
+    'el_error_fcs'       => 'dot3StatsFCSErrors',
+    'el_error_cs'        => 'dot3StatsCarrierSenseErrors',
+    'el_error_frame'     => 'dot3StatsFrameTooLongs',
+    'el_error_mac_rec'   => 'dot3StatsInternalMacReceiveErrors',
+    'el_error_mac_xmit'  => 'dot3StatsInternalMacTransmitErrors',
+    'el_error_sqe'       => 'dot3StatsSQETestErrors',
+    'el_error_symbol'    => 'dot3StatsSymbolErrors',
+    'el_index'           => 'dot3StatsIndex',
+    'el_xmit_defer'      => 'dot3StatsDeferredTransmissions',
+
+    # Ethernet-like Collision Statistics Group
+    'el_coll_freq'  => 'dot3CollFrequencies'
+);
+
+%MUNGE = ( %SNMP::Info::MUNGE, 'el_duplex' => \&munge_el_duplex, );
+
+sub munge_el_duplex {
+    my $duplex = shift;
+    return unless defined $duplex;
+
+    $duplex =~ s/Duplex$//;
+    return $duplex;
+}
+
+1;
+__END__
+
+
+=head1 NAME
+
+SNMP::Info::EtherLike - SNMP Interface to SNMP F<ETHERLIKE-MIB> RFC 1398
+
+=head1 AUTHOR
+
+Max Baker
+
+=head1 SYNOPSIS
+
+ my $el = new SNMP::Info ( 
+                             AutoSpecify => 1,
+                             Debug       => 1,
+                             DestHost    => 'router', 
+                             Community   => 'public',
+                             Version     => 2
+                           );
+ 
+ my $class = $cdp->class();
+ print " Using device sub class : $class\n";
+
+ # Find the duplex setting for a port on a device that implements
+ # ETHERLIKE-MIB
+ my $interfaces = $el->interfaces();
+ my $el_index   = $el->el_index();
+ my $el_duplex  = $el->el_duplex(); 
+
+ foreach my $el_port (keys %$el_duplex){
+    my $duplex = $el_duplex->{$el_port};
+    my $iid    = $el_index->{$el_port};
+    my $port   = $interfaces->{$iid};
+
+    print "PORT:$port set to duplex:$duplex\n";
+ }
+
+=head1 DESCRIPTION
+
+SNMP::Info::EtherLike is a subclass of SNMP::Info that supplies 
+access to the F<ETHERLIKE-MIB> 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.
+
+=head2 Inherited Classes
+
+None.  
+
+=head2 Required MIBs
+
+=over
+
+=item F<ETHERLIKE-MIB>
+
+=back
+
+MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz
+
+=head1 GLOBALS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item None
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2 ETHERLIKE STATS TABLE (C<dot3StatsTable>)
+
+=over
+
+=item $el->el_index()
+
+Returns reference to hash. Indexes Stats Table to the interface index (iid).
+
+(C<dot3StatsIndex>)
+
+=item $el->el_duplex()
+
+Returns reference to hash.  Indexes Stats Table to Duplex Status of port.
+
+(C<dot3StatsDuplexStatus>)
+
+=item $el->el_chipset()
+
+(C<dot3StatsEtherChipSet>)
+
+=item $el->el_coll_excess()
+
+(C<dot3StatsExcessiveCollisions>)
+
+=item $el->el_coll_late()
+
+(C<dot3StatsLateCollisions>)
+
+=item $el->el_coll_mult()
+
+(C<dot3StatsMultipleCollisionFrames>)
+
+=item $el->el_coll_single()
+
+(C<dot3StatsSingleCollisionFrames>)
+
+=item $el->el_error_alignment()
+
+(C<dot3StatsAlignmentErrors>)
+
+=item $el->el_error_fcs()
+
+(C<dot3StatsFCSErrors>)
+
+=item $el->el_error_cs()
+
+(C<dot3StatsCarrierSenseErrors>)
+
+=item $el->el_error_frame()
+
+(C<dot3StatsFrameTooLongs>)
+
+=item $el->el_error_mac_rec()
+
+(C<dot3StatsInternalMacReceiveErrors>)
+
+=item $el->el_error_mac_xmit()
+
+(C<dot3StatsInternalMacTransmitErrors>)
+
+=item $el->el_error_sqe()
+
+(C<dot3StatsSQETestErrors>)
+
+=item $el->el_error_symbol()
+
+(C<dot3StatsSymbolErrors>)
+
+=item $el->el_xmit_defer()
+
+(C<dot3StatsDeferredTransmissions>)
+
+=item $el->el_coll_count()
+
+(C<dot3CollCount>)
+
+=item $el->el_coll_freq()
+
+(C<dot3CollFrequencies>)
+
+=back
+
+=head1 Data Munging Callback Subroutines
+
+=over
+
+=item $el->munge_el_duplex()
+
+Removes 'Duplex' from the end of a string.
+
+=back
+
+=cut

lib/SNMP/Info/FDP.pm

@@ -0,0 +1,369 @@
+# SNMP::Info::FDP
+# $Id$
+#
+# Copyright (c) 2008 Bruce Rodger, 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.
+#     * 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::FDP;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::FDP::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::FDP::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' );
+
+%GLOBALS = (
+    'fdp_run'      => 'snFdpGlobalRun',
+    'fdp_interval' => 'snFdpGlobalMessageInterval',
+    'fdp_holdtime' => 'snFdpGlobalHoldTime',
+);
+
+%FUNCS = (
+    'fdp_proto'        => 'snFdpCacheAddressType',
+    'fdp_ip'           => 'snFdpCacheAddress',
+    'fdp_ver'          => 'snFdpCacheVersion',
+    'fdp_id'           => 'snFdpCacheDeviceId',
+    'fdp_port'         => 'snFdpCacheDevicePort',
+    'fdp_platform'     => 'snFdpCachePlatform',
+    'fdp_capabilities' => 'snFdpCacheCapabilities',
+    'fdp_cache_type'   => 'snFdpCacheVendorId',
+);
+
+%MUNGE = (
+    'fdp_capabilities' => \&SNMP::Info::munge_bits,
+    'fdp_ip'           => \&SNMP::Info::munge_ip
+);
+
+sub fdp_run {
+    my $fdp     = shift;
+    my $fdp_run = $fdp->orig_fdp_run();
+
+    # if fdp_run isn't implemented on device, assume FDP is on
+    return $fdp_run if defined $fdp_run;
+    return 1;
+}
+
+sub hasFDP {
+    my $fdp = shift;
+
+    my $ver = $fdp->snmp_ver();
+
+    # SNMP v1 clients dont have the globals
+    if ( defined $ver and $ver == 1 ) {
+        my $fdp_ip = $fdp->fdp_ip();
+
+        # See if anything in fdp cache, if so we have fdp
+        return 1 if ( defined $fdp_ip and scalar( keys %$fdp_ip ) );
+        return;
+    }
+
+    return $fdp->fdp_run();
+}
+
+sub fdp_if {
+    my $fdp = shift;
+
+    my $fdp_ip = $fdp->fdp_ip();
+    unless ( defined $fdp_ip ) {
+        $fdp->error_throw(
+            "SNMP::Info::FDP:fdp_if() - Device doesn't have fdp_ip() data.  Can't fake fdp_index()"
+        );
+        return;
+    }
+
+    my %fdp_if;
+    foreach my $key ( keys %$fdp_ip ) {
+        next unless defined $key;
+        my $iid = $key;
+
+        # Truncate .1 from fdp cache entry
+        $iid =~ s/\.\d+$//;
+        $fdp_if{$key} = $iid;
+    }
+
+    return \%fdp_if;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::FDP - SNMP Interface to Foundry Discovery Protocol (FDP) using
+SNMP
+
+=head1 AUTHOR
+
+Bruce Rodger, Max Baker
+
+=head1 SYNOPSIS
+
+ my $fdp = new SNMP::Info ( 
+                             AutoSpecify => 1,
+                             Debug       => 1,
+                             DestHost    => 'router', 
+                             Community   => 'public',
+                             Version     => 2
+                           );
+
+ my $class = $fdp->class();
+ print " Using device sub class : $class\n";
+
+ $hasfdp   = $fdp->hasFDP() ? 'yes' : 'no';
+
+ # Print out a map of device ports with FDP neighbors:
+ my $interfaces = $fdp->interfaces();
+ my $fdp_if       = $fdp->fdp_if();
+ my $fdp_ip       = $fdp->fdp_ip();
+ my $fdp_port     = $fdp->fdp_port();
+
+ foreach my $fdp_key (keys %$fdp_ip){
+    my $iid           = $fdp_if->{$fdp_key};
+    my $port          = $interfaces->{$iid};
+    my $neighbor      = $fdp_ip->{$fdp_key};
+    my $neighbor_port = $fdp_port->{$fdp_key};
+    print "Port : $port connected to $neighbor / $neighbor_port\n";
+ }
+
+=head1 DESCRIPTION
+
+SNMP::Info::FDP is a subclass of SNMP::Info that provides an object oriented 
+interface to FDP information through SNMP.
+
+FDP is a Layer 2 protocol that supplies topology information of
+devices that also speak FDP, mostly switches and routers.  It has
+similar functionality to Cisco's CDP, and the SNMP interface is
+virtually identical.  FDP is implemented in Brocade (Foundry) devices.
+
+Create or use a device subclass that inherits this class.  Do not use
+directly.
+
+Each device implements a subset of the global and cache entries. 
+Check the return value to see if that data is held by the device.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<FOUNDRY-SN-SWITCH-GROUP-MIB>
+
+Needs a reasonably recent MIB. Works OK with B2R07604A.mib, but doesn't
+work with B2R07600C. 
+
+=back
+
+=head1 GLOBAL METHODS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item  $fdp->hasFDP()
+
+Is FDP is active in this device?  
+
+Accounts for SNMP version 1 devices which may have FDP but not fdp_run()
+
+=item $fdp->fdp_run()
+
+Is FDP enabled on this device?  
+
+(C<fdpGlobalRun>)
+
+=item $fdp->fdp_interval()
+
+Interval in seconds at which FDP messages are generated.
+
+(C<fdpGlobalMessageInterval>)
+
+=item $fdp->fdp_holdtime()
+
+Time in seconds that FDP messages are kept. 
+
+(C<fdpGlobalHoldTime>)
+
+=back
+
+=head2 Overrides
+
+CDP compatibility
+
+=over
+
+=item $fdp->fdp_interval()
+
+Interval in seconds at which FDP messages are generated.
+
+(C<fdpGlobalMessageInterval>)
+
+=item $fdp->fdp_holdtime()
+
+Time in seconds that FDP messages are kept. 
+
+(C<fdpGlobalHoldTime>)
+
+=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().
+
+(C<fdpGlobalDeviceId>)
+
+=item $fdp->fdp_run()
+
+Is FDP enabled on this device?
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2 Overrides
+
+CDP compatibility
+
+=over
+
+=item $fdp->fdp_capabilities()
+
+Returns Device Functional Capabilities.  Results are munged into an ascii
+binary string, MSB.  Each digit represents a bit from the table below.
+
+From L<http://www.cisco.com/univercd/cc/td/doc/product/lan/trsrb/frames.htm#18843>:
+
+(Bit) - Description
+
+=over
+
+=item (0x40) - Provides level 1 functionality.
+
+=item (0x20) - The bridge or switch does not forward IGMP Report packets on
+non router ports.
+
+=item (0x10) - Sends and receives packets for at least one network layer
+protocol. If the device is routing the protocol, this bit should not be set.
+
+=item (0x08) - Performs level 2 switching. The difference between this bit
+and bit 0x02 is that a switch does not run the Spanning-Tree Protocol. This
+device is assumed to be deployed in a physical loop-free topology.
+
+=item (0x04) - Performs level 2 source-route bridging. A source-route bridge
+would set both this bit and bit 0x02.
+
+=item (0x02) - Performs level 2 transparent bridging.
+
+=item (0x01) - Performs level 3 routing for at least one network layer
+protocol.
+
+=back
+
+Thanks to Martin Lorensen for a pointer to this information.
+
+(C<fdpCacheCapabilities>)
+
+=item $fdp->fdp_id()
+
+Returns remote device id string
+
+(C<fdpCacheDeviceId>)
+
+=item $fdp->fdp_if()
+
+Returns the mapping to the SNMP Interface Table.
+
+In order to map the fdp table entry back to the interfaces() entry, we
+truncate the last number off of it :
+
+  my $fdp_ip       = $device->fdp_ip();
+
+  my %fdp_if
+  foreach my $key (keys %$fdp_ip){
+      $iid = $key;
+      ## Truncate off .1 from fdp response
+      $iid =~ s/\.\d+$//;
+      $fdp_if{$key} = $iid;
+  }
+
+  return \%fdp_if;
+
+=item  $fdp->fdp_ip()
+
+Returns remote IP address
+
+(C<fdpCacheAddress>)
+
+=item $fdp->fdp_platform() 
+
+Returns remote platform id 
+
+(C<fdpCachePlatform>)
+
+=item $fdp->fdp_port()
+
+Returns remote port ID
+
+(C<fdpDevicePort>)
+
+=item  $fdp->fdp_proto()
+
+Returns remote address type received.  Usually IP.
+
+(C<fdpCacheAddressType>)
+
+=item $fdp->fdp_ver() 
+
+Returns remote hardware version
+
+(C<fdpCacheVersion>)
+
+=item $fdp->fdp_cache_type() 
+
+Returns type of entry received, either FDP or CDP.
+
+(C<snFdpCacheVendorId>)
+
+=back
+
+=cut

lib/SNMP/Info/IEEE802dot11.pm

@@ -0,0 +1,408 @@
+# SNMP::Info::IEEE802dot11
+# $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.
+#     * 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::IEEE802dot11;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::IEEE802dot11::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::IEEE802dot11::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( 'IEEE802dot11-MIB' => 'dot11DesiredSSID', );
+
+%GLOBALS = ();
+
+%FUNCS = (
+
+    # dot11PhyOFDMTable
+    'dot11_cur_freq' => 'dot11CurrentFrequency',
+
+    # dot11PhyDSSSTable
+    'dot11_cur_ch' => 'dot11CurrentChannel',
+
+    # dot11PhyOperationTable
+    'dot11_phy_type' => 'dot11PHYType',
+    'dot11_reg_dom'  => 'dot11CurrentRegDomain',
+
+    # dot11ResourceInfoTable
+    'dot11_prod_ver'  => 'dot11manufacturerProductVersion',
+    'dot11_prod_name' => 'dot11manufacturerProductName',
+    'dot11_man_name'  => 'dot11manufacturerName',
+
+    # dot11OperationTable
+    'dot11_mac' => 'dot11MACAddress',
+
+    # dot11StationConfigTable
+    'dot11_bss_type' => 'dot11DesiredBSSType',
+    'i_ssidlist'     => 'dot11DesiredSSID',
+    'dot11_pwr_mode' => 'dot11PowerManagementMode',
+    'dot11_sta_id'   => 'dot11StationID',
+
+    # dot11PhyTxPowerTable
+    'dot11_cur_tx_pwr'     => 'dot11CurrentTxPowerLevel',
+    'dot11_tx_pwr_level_1' => 'dot11TxPowerLevel1',
+    'dot11_tx_pwr_level_2' => 'dot11TxPowerLevel2',
+    'dot11_tx_pwr_level_3' => 'dot11TxPowerLevel3',
+    'dot11_tx_pwr_level_4' => 'dot11TxPowerLevel4',
+    'dot11_tx_pwr_level_5' => 'dot11TxPowerLevel5',
+    'dot11_tx_pwr_level_6' => 'dot11TxPowerLevel6',
+    'dot11_tx_pwr_level_7' => 'dot11TxPowerLevel7',
+    'dot11_tx_pwr_level_8' => 'dot11TxPowerLevel8',
+);
+
+%MUNGE = (
+    'dot11_mac'    => \&SNMP::Info::munge_mac,
+    'dot11_sta_id' => \&SNMP::Info::munge_mac,
+);
+
+sub vendor {
+    my $dot11 = shift;
+
+    my $names = $dot11->dot11_man_name();
+
+    foreach my $iid ( keys %$names ) {
+        my $vendor = $names->{$iid};
+        next unless defined $vendor;
+        if ( $vendor =~ /^(\S+)/ ) {
+            return lc($1);
+        }
+    }
+
+    return;
+}
+
+sub model {
+    my $dot11 = shift;
+
+    my $names = $dot11->dot11_prod_name();
+
+    foreach my $iid ( keys %$names ) {
+        my $prod = $names->{$iid};
+        next unless defined $prod;
+        return lc($prod);
+    }
+    return;
+}
+
+sub os_ver {
+    my $dot11 = shift;
+
+    my $versions = $dot11->dot11_prod_ver();
+
+    foreach my $iid ( keys %$versions ) {
+        my $ver = $versions->{$iid};
+        next unless defined $ver;
+        if ( $ver =~ /([\d\.]+)/ ) {
+            return $1;
+        }
+    }
+
+    return;
+}
+
+sub i_80211channel {
+    my $dot11 = shift;
+
+    my $phy_type = $dot11->dot11_phy_type() || {};
+    my $cur_freq = $dot11->dot11_cur_freq() || {};
+    my $cur_ch   = $dot11->dot11_cur_ch()   || {};
+
+    my %i_80211channel;
+    foreach my $iid ( keys %$phy_type ) {
+        my $type = $phy_type->{$iid};
+        next unless defined $type;
+        if ( $type =~ /dsss/ ) {
+            my $ch = $cur_ch->{$iid};
+            next unless defined $ch;
+            $i_80211channel{$iid} = $ch;
+        }
+        elsif ( $type =~ /ofdm/ ) {
+            my $ch = $cur_freq->{$iid};
+            next unless defined $ch;
+            $i_80211channel{$iid} = $ch;
+        }
+        else {
+            next;
+        }
+    }
+
+    return \%i_80211channel;
+}
+
+sub dot11_cur_tx_pwr_mw {
+    my $dot11               = shift;
+    my $partial             = shift;
+    my $cur                 = $dot11->dot11_cur_tx_pwr($partial);
+    my $dot11_cur_tx_pwr_mw = {};
+    foreach my $idx ( keys %$cur ) {
+        my $pwr = $cur->{$idx};
+        if ( $pwr >= 1 && $pwr <= 8 ) {
+
+            # ToDo - Look at string eval
+            my $mw
+                = eval "\$dot11->dot11_tx_pwr_level_$pwr(\$idx)"; ## no critic
+            $dot11_cur_tx_pwr_mw->{$idx} = $mw->{$idx};
+        }
+        else {
+            next;
+        }
+    }
+    return $dot11_cur_tx_pwr_mw;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::IEEE802dot11 - SNMP Interface to data from F<IEEE802dot11-MIB>
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+    my $dot11 = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+
+    or die "Can't connect to DestHost.\n";
+
+    my $class = $dot11->class();
+    print " Using device sub class : $class\n";
+
+=head1 DESCRIPTION
+
+SNMP::Info::IEEE802dot11 is a subclass of SNMP::Info that provides an
+interface to F<IEEE802dot11-MIB>.  This MIB is used in standards based
+802.11 wireless devices.
+
+Use or create a subclass of SNMP::Info that inherits this one.
+Do not use directly.
+
+=head2 Inherited Classes
+
+=over
+
+None.
+
+=back
+
+=head2 Required MIBs
+
+=over
+
+=item F<IEEE802dot11-MIB>
+
+=back
+
+=head1 GLOBALS
+
+These are methods that return scalar value from SNMP
+
+=over
+
+=item $dot11->vendor()
+
+Tries to discover the vendor from dot11_man_name() - returns lower case
+of the first word in the first instance found.
+
+=item $dot11->model()
+
+Tries to discover the model from dot11_prod_name() - returns lower case
+of the first instance found.
+
+=item $dot11->os_ver()
+
+Tries to discover the operating system version from dot11_prod_ver() - returns
+string of numeric and decimals in the first instance found.
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $dot11->i_ssidlist()
+
+Returns reference to hash.  SSID's recognized by the radio interface.
+
+(C<dot11DesiredSSID>)
+
+=item $dot11->i_80211channel()
+
+Returns reference to hash.  Current operating frequency channel of the radio
+interface.
+
+=item $dot11->dot11_cur_tx_pwr_mw()
+
+Returns reference to hash.  Current transmit power, in milliwatts, of the
+radio interface.
+
+=back
+
+=head2 Dot11 Phy OFDM Table  (C<dot11PhyOFDMTable>)
+
+=over
+
+=item $dot11->dot11_cur_freq()
+
+(C<dot11CurrentFrequency>)
+
+=back
+
+=head2 Dot11 Phy DSSS Table  (C<dot11PhyDSSSTable>)
+
+=over
+
+=item $dot11->dot11_cur_ch()
+
+(C<dot11CurrentChannel>)
+
+=back
+
+=head2 Dot11 Phy Operation Table  (C<dot11PhyOperationTable>)
+
+=over
+
+=item $dot11->dot11_phy_type()
+
+(C<dot11PHYType>)
+
+=item $dot11->dot11_reg_dom()
+
+(C<dot11CurrentRegDomain>)
+
+=back
+
+=head2 Dot11 Resource Information Table  (C<dot11ResourceInfoTable>)
+
+=over
+
+=item $dot11->dot11_prod_ver()
+
+(C<dot11manufacturerProductVersion>)
+
+=item $dot11->dot11_prod_name()
+
+(C<dot11manufacturerProductName>)
+
+=item $dot11->dot11_man_name()
+
+(C<dot11manufacturerName>)
+
+=back
+
+=head2 Dot11 Operation Table  (C<dot11OperationTable>)
+
+=over
+
+=item $dot11->dot11_mac()
+
+(C<dot11MACAddress>)
+
+=back
+
+=head2 Dot11 Station Configuration Table  (C<dot11StationConfigTable>)
+
+=over
+
+=item $dot11->dot11_bss_type()
+
+(C<dot11DesiredBSSType>)
+
+=item $dot11->dot11_pwr_mode()
+
+(C<dot11PowerManagementMode>)
+
+=item $dot11->dot11_sta_id()
+
+(C<dot11StationID>)
+
+=back
+
+=head2 Dot11 Transmission Power Table  (C<dot11PhyTxPowerTable>)
+
+=over
+
+=item $dot11->dot11_cur_tx_pwr()
+
+(C<dot11CurrentTxPowerLevel>)
+
+=item $dot11->dot11_tx_pwr_level_1()
+
+(C<dot11TxPowerLevel1>)
+
+=item $dot11->dot11_tx_pwr_level_2()
+
+(C<dot11TxPowerLevel2>)
+
+=item $dot11->dot11_tx_pwr_level_3()
+
+(C<dot11TxPowerLevel3>)
+
+=item $dot11->dot11_tx_pwr_level_4()
+
+(C<dot11TxPowerLevel4>)
+
+=item $dot11->dot11_tx_pwr_level_5()
+
+(C<dot11TxPowerLevel5>)
+
+=item $dot11->dot11_tx_pwr_level_6()
+
+(C<dot11TxPowerLevel6>)
+
+=item $dot11->dot11_tx_pwr_level_7()
+
+(C<dot11TxPowerLevel7>)
+
+=item $dot11->dot11_tx_pwr_level_8()
+
+(C<dot11TxPowerLevel8>)
+
+=back
+
+=cut

lib/SNMP/Info/IEEE802dot3ad.pm

@@ -0,0 +1,152 @@
+# SNMP::Info::IEEE802dot3ad
+#
+# Copyright (c) 2018 SNMP::Info Developers
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::IEEE802dot3ad;
+
+use strict;
+use Exporter;
+use SNMP::Info::Aggregate;
+
+@SNMP::Info::IEEE802dot3ad::ISA = qw/
+  SNMP::Info::Aggregate
+  Exporter
+/;
+@SNMP::Info::IEEE802dot3ad::EXPORT_OK = qw/
+  agg_ports_lag
+/;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+  %SNMP::Info::Aggregate::MIBS,
+  'IEEE8023-LAG-MIB' => 'dot3adAggPortSelectedAggID',
+);
+
+%GLOBALS = ();
+
+%FUNCS = (
+  'ad_lag_ports'    => 'dot3adAggPortListPorts',
+ );
+
+%MUNGE = (
+  'ad_lag_ports' => \&SNMP::Info::munge_port_list,
+ );
+
+sub agg_ports_lag {
+  my $dev = shift;
+
+  # TODO: implement partial
+  my $ports  = $dev->ad_lag_ports();
+  my $index  = $dev->bp_index() || {};
+
+  return {} unless ref {} eq ref $ports and scalar keys %$ports;
+
+  my $ret = {};
+  foreach my $m ( keys %$ports ) {
+    my $idx = $m;
+    my $portlist = $ports->{$m};
+    next unless $portlist;
+
+    # While dot3adAggTable is indexed by ifIndex, the portlist is indexed
+    # with a dot1dBasePort, so we need to use dot1dBasePortIfIndex to map to
+    # the ifIndex. If we don't have dot1dBasePortIfIndex assume
+    # dot1dBasePort = ifIndex
+    for ( my $i = 0; $i <= scalar(@$portlist); $i++ ) {
+      my $ifindex = $i+1;
+      if ( exists($index->{$i+1}) and defined($index->{$i+1}) ) {
+        $ifindex = $index->{$i+1};       
+      }
+      $ret->{$ifindex} = $idx if ( @$portlist[$i] );
+    }   
+  }
+
+  return $ret;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::IEEE802dot3ad - SNMP Interface to IEEE Aggregated Links
+
+=head1 AUTHOR
+
+SNMP::Info Developers
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $info = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myrouter',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $info->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+This class provides access to Aggregated Links configuration on devices
+implementing C<IEEE8023-LAG-MIB>.
+
+Use or create in a subclass of SNMP::Info.  Do not use directly.
+
+=head2 Inherited Classes
+
+L<SNMP::Info::Aggregate>
+
+=head2 Required MIBs
+
+=over
+
+=item F<IEEE8023-LAG-MIB>
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item C<agg_ports_lag>
+
+Returns a HASH reference mapping from slave to master port for each member of
+a port bundle on the device. Keys are ifIndex of the slave ports, Values are
+ifIndex of the corresponding master ports.
+
+=back
+
+=cut

lib/SNMP/Info/IPv6.pm

@@ -0,0 +1,557 @@
+# SNMP::Info::IPv6
+#
+# Copyright (c) 2010 Jeroen van Ingen and Carlos Vicente
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the University of California, Santa Cruz nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+package SNMP::Info::IPv6;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::IPv6::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::IPv6::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE $METHOD/;
+
+use constant {
+    IPMIB   => 1,
+    CISCO   => 2,
+    IPV6MIB => 3,
+};
+
+$VERSION = '3.61';
+
+
+
+%MIBS = ( 
+    'IP-MIB'            => 'ipv6InterfaceTableLastChange',
+    'IPV6-MIB'          => 'ipv6IfTableLastChange',
+    'CISCO-IETF-IP-MIB' => 'cInetNetToMediaNetAddress', 
+);
+
+%GLOBALS = ();
+
+%FUNCS = ( 
+    'ip_n2p_phys_addr'  => 'ipNetToPhysicalPhysAddress',    # IP-MIB
+    'c_inet_phys_addr'  => 'cInetNetToMediaPhysAddress',    # CISCO-IETF-IP-MIB
+    'i6_n2p_phys_addr'  => 'ipv6NetToMediaPhysAddress',     # IPV6-MIB
+
+    'ip_n2p_phys_type'  => 'ipNetToPhysicalType',           # IP-MIB
+    'c_inet_phys_type'  => 'cInetNetToMediaType',           # CISCO-IETF-IP-MIB
+    'i6_n2p_phys_type'  => 'ipv6NetToMediaType',            # IPV6-MIB
+
+    'ip_n2p_phys_state' => 'ipNetToPhysicalState',          # IP-MIB
+    'c_inet_phys_state' => 'cInetNetToMediaState',          # CISCO-IETF-IP-MIB
+    'i6_n2p_phys_state' => 'ipv6IfNetToMediaState',         # IPV6-MIB
+
+    'ip_pfx_origin'     => 'ipAddressPrefixOrigin',         # IP-MIB
+    'c_pfx_origin'      => 'cIpAddressPfxOrigin',           # CISCO-IETF-IP-MIB 
+
+    'ip_addr6_pfx'      => 'ipAddressPrefix',               # IP-MIB
+    'c_addr6_pfx'       => 'cIpAddressPrefix',              # CISCO-IETF-IP-MIB 
+
+    # Commented out are not-accessible according to MIB
+    #'ip_addr6_pfxlen'   => 'ipAddressPrefixLength',        # IP-MIB
+    #'c_addr6_pfxlen'    => 'cIpAddressPfxLength',          # CISCO-IETF-IP-MIB
+    'i6_addr_pfxlen'    => 'ipv6AddrPfxLength',             # IPV6-MIB
+
+    'ip_addr6_index'    => 'ipAddressIfIndex',              # IP-MIB
+    'c_addr6_index'     => 'cIpAddressIfIndex',             # CISCO-IETF-IP-MIB 
+
+    'ip_addr6_type'     => 'ipAddressType',                 # IP-MIB
+    'c_addr6_type'      => 'cIpAddressType',                # CISCO-IETF-IP-MIB
+);
+
+%MUNGE = (
+    'ip_n2p_phys_addr'  => \&SNMP::Info::munge_mac,
+    'c_inet_phys_addr'  => \&munge_physaddr,
+    'i6_n2p_phys_addr'  => \&SNMP::Info::munge_mac,
+);
+
+
+sub ipv6_n2p_mac {
+    my $info = shift;
+    my $return;
+    my $phys_addr = &_test_methods( $info, {
+        ip_n2p_phys_addr => IPMIB,
+        c_inet_phys_addr => CISCO,
+        i6_n2p_phys_addr => IPV6MIB,
+    });
+    return unless defined $phys_addr;
+    foreach my $row (keys %$phys_addr) {
+        if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
+            my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
+            if ($info::METHOD == IPV6MIB) { 
+                # IPV6-MIB doesn't include the addrtype in the index; 
+                # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
+                $v6addr = join('.', $addrtype, $addrsize, $v6addr);
+                $addrtype = 2;
+            }
+            if (($addrtype == 2) && (defined $phys_addr->{$row})) { # IPv6
+                $return->{$row} = substr($phys_addr->{$row}, 0, 17);
+            }
+        }
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_n2p_addr {
+    my $info = shift;
+    my $return;
+    my $net_addr = &_test_methods( $info, {
+        ip_n2p_phys_addr => IPMIB,
+        c_inet_phys_addr => CISCO,
+        i6_n2p_phys_addr => IPV6MIB,
+    });
+    return unless defined $net_addr;
+    foreach my $row (keys %$net_addr) {
+        if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
+            my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
+            if ($info::METHOD == IPV6MIB) { 
+                # IPV6-MIB doesn't include the addrtype in the index; 
+                # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
+                $v6addr = join('.', $addrtype, $addrsize, $v6addr);
+                $addrtype = 2;
+            }
+            if ($addrtype == 2) { # IPv6
+                my $v6_packed = pack("C*", split(/\./, $v6addr));
+                if (length($v6_packed) == 15) {
+                    # Workaround for some some IP-MIB implementations, eg on Cisco Nexus: no explicit addrsize, 
+                    # so what we've collected in that variable is actually the first byte of the address.
+                    $v6_packed = pack('C', $addrsize) . $v6_packed;
+                }
+                if (length($v6_packed) == 17) {
+                    # Workaround for IPV6-MIB on Windows 2012: if the address is one byte too long, the SNMP agent probably has an incorrect
+                    # implementation where a length field precedes the actual IPv6 address.
+                    # In that case, the first character should be chr(16), ie 0x10; strip it if that's the case.
+                    $v6_packed =~ s/^\x10//;
+                }
+                if (length($v6_packed) == 16) {
+                    $v6addr = join(':', map { sprintf("%04x", $_) } unpack("n*", $v6_packed) );
+                    $return->{$row} = $v6addr;
+                } else {
+                    printf("Invalid size for IPv6 address: expected 16 bytes, got %d (%s = %s)\n", length($v6_packed), $row, $net_addr->{$row});
+                }
+            }
+        }
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_n2p_if {
+    my $info = shift;
+    my $return;
+    my $phys_addr = &_test_methods( $info, {
+        ip_n2p_phys_addr => IPMIB,
+        c_inet_phys_addr => CISCO,
+        i6_n2p_phys_addr => IPV6MIB,
+    });
+    return unless defined $phys_addr;
+    foreach my $row (keys %$phys_addr) {
+        if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
+            my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
+            if ($info::METHOD == IPV6MIB) { 
+                # IPV6-MIB doesn't include the addrtype in the index; 
+                # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
+                $v6addr = join('.', $addrtype, $addrsize, $v6addr);
+                $addrtype = 2;
+            }
+            if ($addrtype == 2) { # IPv6
+                $return->{$row} = $ifindex;
+            }
+        }
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_n2p_type {
+    my $info = shift;
+    my $return;
+    my $phys_type = &_test_methods( $info, {
+        ip_n2p_phys_type => IPMIB,
+        c_inet_phys_type => CISCO,
+        i6_n2p_phys_type => IPV6MIB,
+    });
+    return unless defined $phys_type;
+    foreach my $row (keys %$phys_type) {
+        if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
+            my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
+            if ($info::METHOD == IPV6MIB) { 
+                # IPV6-MIB doesn't include the addrtype in the index; 
+                # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
+                $v6addr = join('.', $addrtype, $addrsize, $v6addr);
+                $addrtype = 2;
+            }
+            if ($addrtype == 2) { # IPv6
+                $return->{$row} = $phys_type->{$row};
+            }
+        }
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_n2p_state {
+    my $info = shift;
+    my $return;
+    my $phys_state = &_test_methods( $info, {
+        ip_n2p_phys_state => IPMIB,
+        c_inet_phys_state => CISCO,
+        i6_n2p_phys_state => IPV6MIB,
+    });
+    return unless defined $phys_state;
+    foreach my $row (keys %$phys_state) {
+        if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
+            my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
+            if ($info::METHOD == IPV6MIB) { 
+                # IPV6-MIB doesn't include the addrtype in the index; 
+                # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
+                $v6addr = join('.', $addrtype, $addrsize, $v6addr);
+                $addrtype = 2;
+            }
+            if ($addrtype == 2) { # IPv6
+                $return->{$row} = $phys_state->{$row};
+            }
+        }
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_index {
+    my $info = shift;
+    my $return;
+    my $ipv6_index = &_test_methods( $info, {
+	ip_addr6_index  => IPMIB,
+	c_addr6_index   => CISCO,
+				    });
+    return unless defined $ipv6_index;
+    foreach my $row (keys %$ipv6_index){
+        if ($row =~ /^(\d+)\.([\d\.]+)$/) {
+            my $addrtype = $1; my $v6addr = $2;
+            if ($addrtype == 2) { # IPv6
+		$return->{$row} = $ipv6_index->{$row};
+	    }
+	}
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_type {
+    my $info = shift;
+    my $return;
+    my $ipv6_type = &_test_methods( $info, {
+	ip_addr6_type  => IPMIB,
+	c_addr6_type   => CISCO,
+				    });
+    return unless defined $ipv6_type;
+    foreach my $row (keys %$ipv6_type){
+        if ($row =~ /^(\d+)\.([\d\.]+)$/) {
+            my $addrtype = $1; my $v6addr = $2;
+            if ($addrtype == 2) { # IPv6
+		$return->{$row} = $ipv6_type->{$row};
+	    }
+	}
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_pfx_origin {
+    my $info = shift;
+    my $return;
+    my $ipv6_pfx_origin = &_test_methods( $info, {
+	ip_pfx_origin  => IPMIB,
+	c_pfx_origin   => CISCO,
+				    });
+    return unless defined $ipv6_pfx_origin;
+    foreach my $row (keys %$ipv6_pfx_origin){
+        if ($row =~ /^(\d+)\.(\d+)\.([\d\.]+)\.(\d+)$/) {
+            my $ifindex = $1; my $type = $2; my $pfx = $3; my $len = $4;
+            if ($type == 2) { # IPv6
+		$return->{$row} = $ipv6_pfx_origin->{$row};
+	    }
+	}
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_addr_prefix {
+    my $info = shift;
+    my $return;
+    my $ipv6_addr_prefix = &_test_methods( $info, {
+	ip_addr6_pfx  => IPMIB,
+	c_addr6_pfx   => CISCO,
+				    });
+    return unless defined $ipv6_addr_prefix;
+    foreach my $row (keys %$ipv6_addr_prefix){
+        if ($row =~ /^(\d+)\.[\d\.]+$/) {
+            my $type = $1;
+	    if (($type == 2) or ($type == 4)) { # IPv6
+		# Remove interface specific part from vrf interfaces
+		if ($row =~ /^((\d+\.){17}\d+)/) { $row = $1 }
+		# Remove the OID part from the value
+		my $val = $ipv6_addr_prefix->{$row};
+		if ( $val =~ /^.+?((?:\d+\.){19}\d+)$/ ){
+		    $val = $1;
+		    $return->{$row} = $val;
+		}
+	    }
+	}
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_addr_prefixlength {
+    my $info = shift;
+    my $return;
+    my $ipv6_addr_prefix = &_test_methods( $info, {
+        ip_addr6_pfx  => IPMIB,
+        c_addr6_pfx   => CISCO,
+    });
+    return unless defined $ipv6_addr_prefix;
+    foreach my $row (keys %$ipv6_addr_prefix) {
+        if ($row =~ /^(\d+)\.[\d\.]+$/) {
+            my $type = $1;
+            if (($type == 2) or ($type == 4)) { # IPv6
+                # Remove interface specific part from vrf interfaces
+                if ($row =~ /^((\d+\.){17}\d+)/) { $row = $1 }
+                # Remove the OID part from the value
+                my $val = $ipv6_addr_prefix->{$row};
+                if ( $val =~ /^.+?((?:\d+\.){19}(\d+))$/ ) {
+                    $val = $2;
+                    $return->{$row} = $val;
+                }
+            }
+        }
+    }
+    printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
+    return $return;
+}
+
+sub ipv6_addr {
+    my $info = shift;
+    my $return;
+    my $indexes = $info->ipv6_index();
+    foreach my $row (keys %$indexes) {
+        my @parts = split(/\./, $row);
+        my $is_valid = 0;
+        if (scalar @parts == 18) {
+            my $addrtype = shift @parts;
+            $is_valid = 1;
+        } elsif (scalar @parts == 17) {
+            $is_valid = 1;
+        }
+        my $addrsize = shift @parts; # First element now is addrsize, should be 16
+        if ($is_valid && $addrsize == 16) {
+            $return->{$row} = join(':', unpack('(H4)*', pack('C*', @parts)));
+        } else {
+            warn sprintf("%s: unable to decode table index to IPv6 address. Raw data is [%s].\n", &_my_sub_name, $row);
+        }
+    }
+    return $return;
+}
+
+sub _method_used {
+    my $info = shift;
+    my $return = 'none of the MIBs';
+    # FIXME ugh! a global. makes order of calls important for debug.
+    if (defined $info::METHOD) {
+        if ($info::METHOD eq IPMIB) {
+            $return = 'IP-MIB';
+        } elsif ($info::METHOD eq IPV6MIB) {
+            $return = 'IPV6-MIB';
+        } elsif ($info::METHOD eq CISCO) {
+            $return = 'CISCO-IETF-IP-MIB';
+        }
+    }
+    return $return;
+}
+
+sub _test_methods {
+    my $info = shift;
+    my $test = shift;
+    my $return = {};
+    foreach my $method (sort {$test->{$a} <=> $test->{$b}} keys %$test) {
+        $return = $info->$method || {};
+        if (scalar keys %$return) {
+            # FIXME ugh! a global. makes order of calls important for debug.
+            $info::METHOD = $test->{$method};
+            last;
+        }
+    }
+    return $return;
+}
+
+sub _my_sub_name {
+    my @callinfo = caller(1);
+    return $callinfo[3];
+}
+
+sub munge_physaddr {
+    my $addr = shift;
+    return unless defined $addr;
+    return unless length $addr;
+    $addr = join( ':', map { sprintf "%02x", $_ } unpack( 'C*', $addr ) );
+    return $addr;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::IPv6 - SNMP Interface for obtaining IPv6 addresses and IPv6
+address mappings
+
+=head1 AUTHOR
+
+Jeroen van Ingen and Carlos Vicente
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $info = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $info->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+The SNMP::Info::IPv6 class implements functions to for mapping IPv6 addresses 
+to MAC addresses, interfaces and more. It will use data from the F<IP-MIB>,
+F<IPV6-MIB>, or the F<CISCO-IETF-IP-MIB>, whichever is supported by the
+device.
+
+This class is inherited by Info::Layer3 to provide IPv6 node tracking across  
+device classes.
+
+For debugging purposes you can call this class directly as you would
+SNMP::Info
+
+ my $info = new SNMP::Info::IPv6 (...);
+
+=head2 Inherited Classes
+
+none.
+
+=head2 Required MIBs
+
+=over
+
+=item F<IP-MIB>
+=item F<IPV6-MIB>
+=item F<CISCO-IETF-IP-MIB>
+
+=back
+
+=head1 GLOBALS
+
+none.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2  Internet Address Table
+
+=over
+
+=item $info->ipv6_n2p_addr()
+
+=item $info->ipv6_n2p_if()
+
+=item $info->ipv6_n2p_mac()
+
+=item $info->ipv6_n2p_state()
+
+=item $info->ipv6_n2p_type()
+
+=item $info->ipv6_index()
+
+Maps an IPv6 address to an interface C<ifIndex>
+
+=item $info->ipv6_type()
+
+Maps an IPv6 address to its type (unicast, anycast, etc.)
+
+=item $info->ipv6_pfx_origin()
+
+Maps an IPv6 prefix with its origin (manual, well-known, dhcp, etc.)
+
+=item $info->ipv6_addr_prefix() 
+
+Maps IPv6 addresses with their prefixes
+
+=item $info->ipv6_addr_prefixlength()
+
+Maps IPv6 addresses with their prefix length
+
+=item $info->ipv6_addr()
+
+Maps a table instance to an IPv6 address
+
+=back
+
+=head2  Internet Address Translation Table
+
+=over
+
+=item $info->c_inet_phys_address()
+
+Maps an address of type C<cInetNetToMediaNetAddressType> on interface C<ifIndex> to a physical address.
+
+=back
+
+=head1 MUNGES
+
+=over 
+
+=item munge_physaddr()
+
+Takes an octet stream (HEX-STRING) and returns a colon separated ASCII hex
+string.
+
+=back
+
+=cut

lib/SNMP/Info/LLDP.pm

@@ -0,0 +1,801 @@
+# SNMP::Info::LLDP
+# $Id$
+#
+# Copyright (c) 2018 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.
+#     * 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;
+
+use strict;
+use Exporter;
+use SNMP::Info;
+
+@SNMP::Info::LLDP::ISA       = qw/SNMP::Info Exporter/;
+@SNMP::Info::LLDP::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    'LLDP-MIB'          => 'lldpLocSysCapEnabled',
+    'LLDP-EXT-MED-MIB'  => 'lldpXMedMIB',
+    'LLDP-EXT-DOT1-MIB' => 'lldpXdot1MIB',
+    'LLDP-EXT-DOT3-MIB' => 'lldpXdot3MIB',
+);
+
+%GLOBALS = (
+    'lldp_sysname' => 'lldpLocSysName',
+    'lldp_sysdesc' => 'lldpLocSysDesc',
+    'lldp_sys_cap' => 'lldpLocSysCapEnabled',
+);
+
+%FUNCS = (
+
+    # LLDP-MIB::lldpLocManAddrTable
+    'lldp_lman_addr' => 'lldpLocManAddrIfId',
+
+    # LLDP-MIB::lldpRemTable
+    'lldp_rem_id_type'  => 'lldpRemChassisIdSubtype',
+    'lldp_rem_id'       => 'lldpRemChassisId',
+    'lldp_rem_pid_type' => 'lldpRemPortIdSubtype',
+    'lldp_rem_pid'      => 'lldpRemPortId',
+    'lldp_rem_desc'     => 'lldpRemPortDesc',
+    'lldp_rem_sysname'  => 'lldpRemSysName',
+    'lldp_rem_sysdesc'  => 'lldpRemSysDesc',
+    'lldp_rem_sys_cap'  => 'lldpRemSysCapEnabled',
+    'lldp_rem_cap_spt'  => 'lldpRemSysCapSupported',
+
+    # LLDP-MIB::lldpXMedRemInventoryTable
+    'lldp_rem_hw_rev' => 'lldpXMedRemHardwareRev',
+    'lldp_rem_fw_rev' => 'lldpXMedRemFirmwareRev',
+    'lldp_rem_sw_rev' => 'lldpXMedRemSoftwareRev',
+    'lldp_rem_serial' => 'lldpXMedRemSerialNum',
+    'lldp_rem_vendor' => 'lldpXMedRemMfgName',
+    'lldp_rem_model'  => 'lldpXMedRemModelName',
+    'lldp_rem_asset'  => 'lldpXMedRemAssetID',
+
+    'lldp_rem_media_cap'     => 'lldpXMedRemCapCurrent',
+    'lldp_rem_media_cap_spt' => 'lldpXMedRemCapSupported',
+
+    # LLDP-MIB::lldpRemManAddrTable
+    'lldp_rman_addr' => 'lldpRemManAddrIfSubtype',
+);
+
+%MUNGE = (
+    'lldp_sysdesc'       => \&SNMP::Info::munge_null,
+    'lldp_sysname'       => \&SNMP::Info::munge_null,
+    'lldp_rem_sysname'   => \&SNMP::Info::munge_null,
+    'lldp_rem_sysdesc'   => \&SNMP::Info::munge_null,
+    'lldp_rem_port_desc' => \&SNMP::Info::munge_null,
+    'lldp_sys_cap'       => \&SNMP::Info::munge_bits,
+    'lldp_rem_sys_cap'   => \&SNMP::Info::munge_bits,
+    'lldp_rem_cap_spt'   => \&SNMP::Info::munge_bits,
+
+    'lldp_rem_hw_rev' => \&SNMP::Info::munge_null,
+    'lldp_rem_fw_rev' => \&SNMP::Info::munge_null,
+    'lldp_rem_sw_rev' => \&SNMP::Info::munge_null,
+    'lldp_rem_serial' => \&SNMP::Info::munge_null,
+    'lldp_rem_vendor' => \&SNMP::Info::munge_null,
+    'lldp_rem_model'  => \&SNMP::Info::munge_null,
+    'lldp_rem_asset'  => \&SNMP::Info::munge_null,
+
+    'lldp_rem_media_cap'     => \&SNMP::Info::munge_bits,
+    'lldp_rem_media_cap_spt' => \&SNMP::Info::munge_bits,
+);
+
+sub hasLLDP {
+    my $lldp = shift;
+
+    # We may be have LLDP, but nothing in lldpRemoteSystemsData Tables
+    # so we could be running LLDP but not return any useful information
+    my $lldp_cap = $lldp->lldp_sys_cap();
+    return 1 if defined $lldp_cap;
+
+    # If the device doesn't return local system capabilities, fallback
+    # by checking if it would report neighbors
+    my $lldp_rem = $lldp->lldp_rem_id() || {};
+    return 1 if scalar keys %$lldp_rem;
+
+    return;
+}
+
+sub lldp_if {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $addr    = $lldp->lldp_rem_pid($partial) || {};
+    my $i_descr = $lldp->i_description()        || {};
+    my $i_alias = $lldp->i_alias()              || {};
+    my %r_i_descr = reverse %$i_descr;
+    my %r_i_alias = reverse %$i_alias;
+
+    my %lldp_if;
+    foreach my $key ( keys %$addr ) {
+        my @aOID = split( '\.', $key );
+        my $port = $aOID[1];
+        next unless $port;
+
+        # Local LLDP port may not equate to ifIndex, see LldpPortNumber
+        # TEXTUAL-CONVENTION in LLDP-MIB. Cross reference lldpLocPortDesc 
+        # with ifDescr and ifAlias to get ifIndex, prefer ifDescr over
+        # ifAlias because using cross ref with description is correct
+        # behavior according to the LLDP-MIB. Some devices (eg H3C gear)
+        # seem to use ifAlias though.
+        my $lldp_desc = $lldp->lldpLocPortDesc($port);
+        my $desc      = $lldp_desc->{$port};
+
+        # If cross reference is successful use it, otherwise stick with
+        # lldpRemLocalPortNum
+        if ( $desc && exists $r_i_descr{$desc} ) {
+            $port = $r_i_descr{$desc};
+        }
+        elsif ( $desc && exists $r_i_alias{$desc} ) {
+            $port = $r_i_alias{$desc};
+        }
+
+        $lldp_if{$key} = $port;
+    }
+    return \%lldp_if;
+}
+
+sub lldp_ip {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $rman_addr = $lldp->lldp_rman_addr($partial) || {};
+
+    my %lldp_ip;
+    foreach my $key ( keys %$rman_addr ) {
+        my ( $index, $proto, $addr ) = $lldp->_lldp_addr_index($key);
+        next unless defined $index;
+        next unless $proto == 1;
+        $lldp_ip{$index} = $addr;
+    }
+    return \%lldp_ip;
+}
+
+sub lldp_ipv6 {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $rman_addr = $lldp->lldp_rman_addr($partial) || {};
+
+    my %lldp_ipv6;
+    foreach my $key ( keys %$rman_addr ) {
+        my ( $index, $proto, $addr ) = $lldp->_lldp_addr_index($key);
+        next unless defined $index;
+        next unless $proto == 2;
+        $lldp_ipv6{$index} = $addr;
+    }
+    return \%lldp_ipv6;
+}
+
+sub lldp_mac {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $rman_addr = $lldp->lldp_rman_addr($partial) || {};
+
+    my %lldp_ipv6;
+    foreach my $key ( keys %$rman_addr ) {
+        my ( $index, $proto, $addr ) = $lldp->_lldp_addr_index($key);
+        next unless defined $index;
+        next unless $proto == 6;
+        $lldp_ipv6{$index} = $addr;
+    }
+    return \%lldp_ipv6;
+}
+
+sub lldp_addr {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $rman_addr = $lldp->lldp_rman_addr($partial) || {};
+
+    my %lldp_ip;
+    foreach my $key ( keys %$rman_addr ) {
+        my ( $index, $proto, $addr ) = $lldp->_lldp_addr_index($key);
+        next unless defined $index;
+        $lldp_ip{$index} = $addr;
+    }
+    return \%lldp_ip;
+}
+
+sub lldp_port {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $pdesc = $lldp->lldp_rem_desc($partial)     || {};
+    my $pid   = $lldp->lldp_rem_pid($partial)      || {};
+    my $ptype = $lldp->lldp_rem_pid_type($partial) || {};
+    my $desc  = $lldp->lldp_rem_sysdesc($partial)  || {};
+
+    my %lldp_port;
+    foreach my $key ( sort keys %$pid ) {
+        my $port = $pdesc->{$key};
+        my $type = $ptype->{$key};
+        if (    $type
+            and ( $type eq 'interfaceName' or $type eq 'local' )
+            and ( defined $pid->{$key} and $pid->{$key} !~ /^\d+$/ ) )
+        {
+
+            # If the pid claims to be an interface name,
+            # believe it.
+            $port = $pid->{$key};
+        }
+        unless ($port) {
+            $port = $pid->{$key};
+            next unless $port;
+            next unless $type;
+
+          # May need to format other types in the future, i.e. Network address
+            if ( $type =~ /mac/ ) {
+                $port = SNMP::Info::munge_mac($port)
+            }
+        }
+
+        # Avaya/Nortel lldpRemPortDesc doesn't match ifDescr, but we can still
+        # figure out slot.port based upon lldpRemPortDesc
+        if ( defined $desc->{$key}
+            && $desc->{$key}
+            =~ /^Ethernet\s(?:Routing\s)?Switch\s\d|^Virtual\sServices\sPlatform\s\d/
+            && $port =~ /^(Unit\s+(\d+)\s+)?Port\s+(\d+)$/ )
+        {
+            $port = defined $1 ? "$2.$3" : "1.$3";
+        }
+
+        $lldp_port{$key} = $port;
+    }
+    return \%lldp_port;
+}
+
+sub lldp_id {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $ch_type = $lldp->lldp_rem_id_type($partial) || {};
+    my $ch      = $lldp->lldp_rem_id($partial)      || {};
+
+    my %lldp_id;
+    foreach my $key ( keys %$ch ) {
+        my $id = $ch->{$key};
+        next unless $id;
+        my $type = $ch_type->{$key};
+        next unless $type;
+
+        # May need to format other types in the future
+        if ( $type =~ /mac/ ) {
+            $id = SNMP::Info::munge_mac($id)
+        }
+        elsif ( $type eq 'networkAddress' ) {
+            if ( length( unpack( 'H*', $id ) ) == 10 ) {
+
+                # IP address - first octet is IANA Address Family Number, need
+                # walk with IPv6
+                my @octets
+                    = ( map { sprintf "%02x", $_ } unpack( 'C*', $id ) )
+                    [ 1 .. 4 ];
+                $id = join '.', map { hex($_) } @octets;
+            }
+        }
+        $lldp_id{$key} = $id;
+    }
+    return \%lldp_id;
+}
+
+sub lldp_platform {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $rid  = $lldp->lldp_rem_id($partial)      || {};
+    my $desc = $lldp->lldp_rem_sysdesc($partial) || {};
+    my $name = $lldp->lldp_rem_sysname($partial) || {};
+
+    my %lldp_platform;
+    foreach my $key ( keys %$rid ) {
+        $lldp_platform{$key} = $desc->{$key} || $name->{$key};
+    }
+    return \%lldp_platform;
+}
+
+sub lldp_cap {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $lldp_caps = $lldp->lldp_rem_cap_spt($partial) || {};
+
+    # Encoded as BITS which Perl Net-SNMP implementation doesn't seem to
+    # be able to enumerate for us, so we have to get it from the MIB
+    # and enumerate ourselves
+    my $oid
+        = SNMP::translateObj( 'LLDP-MIB::lldpRemSysCapEnabled', 0, 1 ) || '';
+    my $enums = (
+        ( ref {} eq ref $SNMP::MIB{$oid}{'enums'} )
+        ? $SNMP::MIB{$oid}{'enums'}
+        : {}
+    );
+    my %r_enums = reverse %$enums;
+
+    my %lldp_cap;
+    foreach my $key ( keys %$lldp_caps ) {
+        my $cap_bits = $lldp_caps->{$key};
+        next unless $cap_bits;
+
+        my $count = 0;
+        foreach my $bit ( split //, $cap_bits ) {
+            if ($bit) {
+                push( @{ $lldp_cap{$key} }, $r_enums{$count} );
+            }
+            $count++;
+        }
+    }
+    return \%lldp_cap;
+}
+
+sub lldp_media_cap {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    my $lldp_caps = $lldp->lldp_rem_media_cap_spt($partial) || {};
+
+    # Encoded as BITS which Perl Net-SNMP implementation doesn't seem to
+    # be able to enumerate for us, so we have to get it from the MIB
+    # and enumerate ourselves
+    my $oid = SNMP::translateObj( 'lldpXMedRemCapCurrent', 0, 1 ) || '';
+    my $enums = (
+        ( ref {} eq ref $SNMP::MIB{$oid}{'enums'} )
+        ? $SNMP::MIB{$oid}{'enums'}
+        : {}
+    );
+    my %r_enums = reverse %$enums;
+
+    my %lldp_cap;
+    foreach my $key ( keys %$lldp_caps ) {
+        my $cap_bits = $lldp_caps->{$key};
+        next unless $cap_bits;
+
+        my $count = 0;
+        foreach my $bit ( split //, $cap_bits ) {
+            if ($bit) {
+                push( @{ $lldp_cap{$key} }, $r_enums{$count} );
+            }
+            $count++;
+        }
+    }
+    return \%lldp_cap;
+}
+
+#sub root_ip {
+#    my $lldp = shift;
+#
+#    my $man_addr = $lldp->lldp_lman_addr() || {};
+#
+#    foreach my $key (keys %$man_addr) {
+#        my @oids   = split(/\./, $key);
+#        my $proto  = shift(@oids);
+#        my $length = shift(@oids);
+#        # IPv4
+#        if ($proto == 1) {
+#            my $addr = join('.',@oids);
+#            return $addr if (defined $addr and $lldp->snmp_connect_ip($addr));
+#        }
+#    }
+#    return;
+#}
+
+# Break up the lldpRemManAddrTable INDEX into common index, protocol,
+# and address.
+sub _lldp_addr_index {
+    my $lldp = shift;
+    my $idx  = shift;
+
+    my @oids = split( /\./, $idx );
+    my $index = join( '.', splice( @oids, 0, 3 ) );
+    my $proto = shift(@oids);
+    shift(@oids) if scalar @oids > 4;    # $length
+
+    # IPv4
+    if ( $proto == 1 ) {
+        return ( $index, $proto, join( '.', @oids ) );
+    }
+
+    # IPv6
+    elsif ( $proto == 2 ) {
+        return ( $index, $proto,
+            join( ':', unpack( '(H4)*', pack( 'C*', @oids ) ) ) );
+    }
+
+    # MAC
+    elsif ( $proto == 6 ) {
+        return ( $index, $proto,
+            join( ':', map { sprintf "%02x", $_ } @oids ) );
+    }
+
+    # TODO - Other protocols may be used as well; implement when needed?
+    else {
+        return;
+    }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::LLDP - SNMP Interface to the Link Layer Discovery Protocol (LLDP)
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+ my $lldp = new SNMP::Info ( 
+                             AutoSpecify => 1,
+                             Debug       => 1,
+                             DestHost    => 'router', 
+                             Community   => 'public',
+                             Version     => 2
+                           );
+
+ my $class = $lldp->class();
+ print " Using device sub class : $class\n";
+
+ $haslldp   = $lldp->hasLLDP() ? 'yes' : 'no';
+
+ # Print out a map of device ports with LLDP neighbors:
+ my $interfaces    = $lldp->interfaces();
+ my $lldp_if       = $lldp->lldp_if();
+ my $lldp_ip       = $lldp->lldp_ip();
+ my $lldp_port     = $lldp->lldp_port();
+
+ foreach my $lldp_key (keys %$lldp_ip){
+    my $iid           = $lldp_if->{$lldp_key};
+    my $port          = $interfaces->{$iid};
+    my $neighbor      = $lldp_ip->{$lldp_key};
+    my $neighbor_port = $lldp_port->{$lldp_key};
+    print "Port : $port connected to $neighbor / $neighbor_port\n";
+ }
+
+=head1 DESCRIPTION
+
+SNMP::Info::LLDP is a subclass of SNMP::Info that provides an object oriented 
+interface to LLDP information through SNMP.
+
+LLDP is a Layer 2 protocol that allows a network device to advertise its
+identity and capabilities on the local network providing topology information.
+The protocol is defined in the IEEE standard 802.1AB.
+
+Create or use a device subclass that inherits this class.  Do not use
+directly.
+
+=head2 Inherited Classes
+
+None.
+
+=head2 Required MIBs
+
+=over
+
+=item F<LLDP-MIB>
+
+=item F<LLDP-EXT-MED-MIB>
+
+=item F<LLDP-EXT-DOT1-MIB>
+
+=item F<LLDP-EXT-DOT3-MIB>
+
+=back
+
+=head1 GLOBAL METHODS
+
+These are methods that return scalar values from SNMP
+
+=over
+
+=item $lldp->hasLLDP()
+
+Is LLDP is active in this device?  
+
+Note:  LLDP may be active, but nothing in C<lldpRemoteSystemsData> 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, C<lldpLocSysName> object should have the
+same value of C<sysName> object.
+
+Nulls are removed before the value is returned. 
+
+(C<lldpLocSysName>)
+
+=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, C<lldpLocSysDesc> object should
+have the same value of C<sysDesc> object.
+
+Nulls are removed before the value is returned.
+
+(C<lldpLocSysDesc>)
+
+=item  $lldp->lldp_sys_cap() 
+
+Returns which system capabilities are enabled on the local system.  Results
+are munged into an ascii binary string, LSB.  Each digit represents a bit
+from the table below:
+
+=over
+
+=item Bit 'other(0)' indicates that the system has capabilities other than
+those listed below.
+
+=item Bit 'repeater(1)' indicates that the system has repeater capability.
+
+=item Bit 'bridge(2)' indicates that the system has bridge capability.
+
+=item Bit 'wlanAccessPoint(3)' indicates that the system has WLAN access
+point capability.
+
+=item Bit 'router(4)' indicates that the system has router capability.
+
+=item Bit 'telephone(5)' indicates that the system has telephone capability.
+
+=item Bit 'docsisCableDevice(6)' indicates that the system has DOCSIS Cable
+Device capability (IETF RFC 2669 & 2670).
+
+=item Bit 'stationOnly(7)' indicates that the system has only station
+capability and nothing else."
+
+=back
+
+(C<lldpLocSysCapEnabled>)
+
+=back
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $lldp->lldp_id()
+
+Returns the string value used to identify the chassis component associated
+with the remote system.
+
+(C<lldpRemChassisId>)
+
+=item $lldp->lldp_if()
+
+Returns the mapping to the SNMP Interface Table. Tries to cross reference 
+(C<lldpLocPortDesc>) with (C<ifDescr>) and (C<ifAlias>) to get (C<ifIndex>), 
+if unable defaults to (C<lldpRemLocalPortNum>).
+
+=item  $lldp->lldp_ip()
+
+Returns remote IPv4 address.  Returns for all other address types, use
+lldp_addr if you want any return address type.
+
+=item  $lldp->lldp_ipv6()
+
+Returns remote IPv6 address, if known.  Returns for all other address types,
+use lldp_addr if you don't care about return address type.
+
+=item  $lldp->lldp_mac()
+
+Returns remote (management) MAC address, if known.  Returns for all other 
+address types, use lldp_addr if you don't care about return address type.
+
+=item  $lldp->lldp_addr()
+
+Returns remote address.  Type may be any IANA Address Family Number.
+Currently only returns IPv4, IPv6 or MAC addresses. If the remote device
+returns more than one address type, this method will give only one. Which one
+is returned is decided by chance, phase of the moon and Perl hash ordering.
+
+Use lldp_mac, lldp_ip or lldp_ipv6 if you want a specific address type.
+
+=item $lldp->lldp_port()
+
+Returns remote port ID
+
+=item $lldp->lldp_platform()
+
+Tries to return something useful from C<lldp_rem_sysdesc()> or
+C<lldp_rem_sysname()>.
+
+=item  $lldp->lldp_cap() 
+
+Returns hash of arrays with each array containing the system capabilities
+supported by the remote system.  Possible elements in the array are
+enumerated from C<LldpSystemCapabilitiesMap>.
+
+=item  $lldp->lldp_media_cap() 
+
+Returns hash of arrays with each array containing the media capabilities
+supported by the remote system.  Possible elements in the array are
+enumerated from C<LldpXMedCapabilities>.
+
+=back
+
+=head2 LLDP Remote Table (C<lldpRemTable>)
+
+=over
+
+=item $lldp->lldp_rem_id_type()
+
+Returns the type of encoding used to identify the chassis associated with
+the remote system.
+
+(C<lldpRemChassisIdSubtype>)
+
+=item $lldp->lldp_rem_id()
+
+Returns the string value used to identify the chassis component associated
+with the remote system.
+
+(C<lldpRemChassisId>)
+
+=item $lldp->lldp_rem_pid_type()
+
+Returns the type of port identifier encoding used in the associated
+C<lldpRemPortId> object.
+
+(C<lldpRemPortIdSubtype>)
+
+=item $lldp->lldp_rem_pid()
+
+Returns the string value used to identify the port component associated with
+the remote system.
+
+(C<lldpRemPortId>)
+
+=item $lldp->lldp_rem_desc()
+
+Returns the string value used to identify the description of the given port
+associated with the remote system.
+
+Nulls are removed before the value is returned. 
+
+(C<lldpRemPortDesc>)
+
+=item $lldp->lldp_rem_sysname()
+
+Returns the string value used to identify the system name of the remote
+system.
+
+Nulls are removed before the value is returned. 
+
+(C<lldpRemSysName>)
+
+=item $lldp->lldp_rem_sysdesc()
+
+Returns the string value used to identify the system description of the
+remote system.
+
+Nulls are removed before the value is returned. 
+
+(C<lldpRemSysDesc>)
+
+=item $lldp->lldp_rem_hw_rev()
+
+Returns the string value used to identify the hardware revision of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemHardwareRev>)
+
+=item $lldp->lldp_rem_fw_rev()
+
+Returns the string value used to identify the firmware revision of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemHardwareRev>)
+
+=item $lldp->lldp_rem_sw_rev()
+
+Returns the string value used to identify the software revision of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemSoftwareRev>)
+
+=item $lldp->lldp_rem_serial()
+
+Returns the string value used to identify the serial number of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemSerialNum>)
+
+=item $lldp->lldp_rem_vendor()
+
+Returns the string value used to identify the manufacturer of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemMfgName>)
+
+=item $lldp->lldp_rem_asset()
+
+Returns the string value used to identify the asset number of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemAssetID>)
+
+=item $lldp->lldp_rem_model()
+
+Returns the string value used to identify the model of the
+remote system. Nulls are removed before the value is returned. 
+
+(C<lldpXMedRemModelName>)
+
+=item  $lldp->lldp_rem_media_cap_spt() 
+
+Returns which media capabilities are supported on the remote system. Results
+are munged into an ascii binary string, LSB.
+
+=item  $lldp->lldp_rem_media_cap() 
+
+Returns which media capabilities are enabled on the remote system. Results
+are munged into an ascii binary string, LSB.
+
+=item  $lldp->lldp_rem_sys_cap() 
+
+Returns which system capabilities are enabled on the remote system.  Results
+are munged into an ascii binary string, LSB.  Each digit represents a bit
+from the table below:
+
+=over
+
+=item Bit 'other(0)' indicates that the system has capabilities other than
+those listed below.
+
+=item Bit 'repeater(1)' indicates that the system has repeater capability.
+
+=item Bit 'bridge(2)' indicates that the system has bridge capability.
+
+=item Bit 'wlanAccessPoint(3)' indicates that the system has WLAN access
+point capability.
+
+=item Bit 'router(4)' indicates that the system has router capability.
+
+=item Bit 'telephone(5)' indicates that the system has telephone capability.
+
+=item Bit 'docsisCableDevice(6)' indicates that the system has DOCSIS Cable
+Device capability (IETF RFC 2669 & 2670).
+
+=item Bit 'stationOnly(7)' indicates that the system has only station
+capability and nothing else."
+
+=back
+
+(C<lldpRemSysCapEnabled>)
+
+=back
+
+=cut

lib/SNMP/Info/Layer1.pm

@@ -1,74 +1,73 @@
-# SNMP::Info::Layer1 - SNMP Interface to Layer1 Devices 
-# Max Baker
+# SNMP::Info::Layer1 - SNMP Interface to Layer1 Devices
+# $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::Layer1;
-$VERSION = '1.07';
-# $Id$
 
 use strict;
-
 use Exporter;
 use SNMP::Info;
 
-use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
-
-@SNMP::Info::Layer1::ISA = qw/SNMP::Info Exporter/;
+@SNMP::Info::Layer1::ISA       = qw/SNMP::Info Exporter/;
 @SNMP::Info::Layer1::EXPORT_OK = qw//;
 
-%MIBS = ( %SNMP::Info::MIBS, 
-          'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex'
-        );
+use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = ( %SNMP::Info::MIBS, 'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex' );
 
 %GLOBALS = (
-            %SNMP::Info::GLOBALS,
-            'ports_managed'  => 'ifNumber',
-            'rptr_slots'     => 'rptrGroupCapacity',
-            'slots'          => 'rptrGroupCapacity'
-            );
+    %SNMP::Info::GLOBALS,
+    'ports_managed' => 'ifNumber',
+    'rptr_slots'    => 'rptrGroupCapacity',
+    'slots'         => 'rptrGroupCapacity'
+);
 
-%FUNCS   = (
-            %SNMP::Info::FUNCS,
-            'rptr_ports'    => 'rptrGroupPortCapacity',
-            'rptr_port'     => 'rptrPortIndex',
-            'rptr_slot'     => 'rptrPortGroupIndex',
-            'rptr_up_admin' => 'rptrPortAdminStatus',
-            'rptr_up'       => 'rptrPortOperStatus',
-            'rptr_last_src' => 'rptrAddrTrackNewLastSrcAddress',
-           );
+%FUNCS = (
+    %SNMP::Info::FUNCS,
+    'rptr_ports'    => 'rptrGroupPortCapacity',
+    'rptr_port'     => 'rptrPortIndex',
+    'rptr_slot'     => 'rptrPortGroupIndex',
+    'rptr_up_admin' => 'rptrPortAdminStatus',
+    'rptr_up'       => 'rptrPortOperStatus',
+    'rptr_last_src' => 'rptrAddrTrackNewLastSrcAddress',
+);
 
 %MUNGE = (
-            # Inherit all the built in munging
-            %SNMP::Info::MUNGE,
-            'rptr_last_src'=> \&SNMP::Info::munge_mac,
-         );
+
+    # Inherit all the built in munging
+    %SNMP::Info::MUNGE,
+    'rptr_last_src' => \&SNMP::Info::munge_mac,
+);
 
 # Method OverRides
 
@@ -76,23 +75,23 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
 sub ports {
     my $l1 = shift;
 
-    my $ports         = $l1->ports_managed();
-    my $rptr_ports    = $l1->rptr_ports();
+    my $ports      = $l1->ports_managed();
+    my $rptr_ports = $l1->rptr_ports();
 
-    foreach my $group (keys %$rptr_ports){
-        $ports += $rptr_ports->{$group}; 
+    foreach my $group ( keys %$rptr_ports ) {
+        $ports += $rptr_ports->{$group};
     }
 
     return $ports;
 }
 
 # $l1->model() - Looks at sysObjectID which gives the oid of the system
-#       name, contained in a propriatry MIB. 
+#       name, contained in a propriatry MIB.
 sub model {
-    my $l1 = shift;
-    my $id = $l1->id();
+    my $l1    = shift;
+    my $id    = $l1->id();
     my $model = &SNMP::translateObj($id);
-    
+
     # HP
     $model =~ s/^hpswitch//i;
 
@@ -103,56 +102,58 @@ sub model {
 }
 
 sub vendor {
-    my $l1 = shift;
+    my $l1    = shift;
     my $descr = $l1->description();
 
-    return 'hp' if ($descr =~ /hp/i);
-    return 'cisco' if ($descr =~ /(catalyst|cisco|ios)/i);
-    return 'allied' if ($descr =~ /allied/i);
-    return 'asante' if ($descr =~ /asante/i);
+    return 'hp'     if ( $descr =~ /hp/i );
+    return 'cisco'  if ( $descr =~ /(catalyst|cisco|ios)/i );
+    return 'allied' if ( $descr =~ /allied/i );
+    return 'asante' if ( $descr =~ /asante/i );
+
+    return 'unknown';
 
 }
 
 # By Default we'll use the description field
 sub interfaces {
-    my $l1 = shift;
+    my $l1      = shift;
     my $partial = shift;
 
-    my $interfaces = $l1->i_index($partial) || {};
+    my $interfaces = $l1->i_index($partial)   || {};
     my $rptr_port  = $l1->rptr_port($partial) || {};
 
-    foreach my $port (keys %$rptr_port){
+    foreach my $port ( keys %$rptr_port ) {
         $interfaces->{$port} = $port;
     }
     return $interfaces;
 }
 
 sub i_up_admin {
-    my $l1 = shift;
+    my $l1      = shift;
     my $partial = shift;
 
-    my $i_up_admin = $l1->SUPER::i_up_admin($partial) || {};
-    my $rptr_up_admin = $l1->rptr_up_admin($partial) || {};
+    my $i_up_admin    = $l1->SUPER::i_up_admin($partial) || {};
+    my $rptr_up_admin = $l1->rptr_up_admin($partial)     || {};
 
-    foreach my $key (keys %$rptr_up_admin){
+    foreach my $key ( keys %$rptr_up_admin ) {
         my $up = $rptr_up_admin->{$key};
-        $i_up_admin->{$key} = 'up' if $up =~ /enabled/; 
-        $i_up_admin->{$key} = 'down' if $up =~ /disabled/; 
+        $i_up_admin->{$key} = 'up'   if $up =~ /enabled/;
+        $i_up_admin->{$key} = 'down' if $up =~ /disabled/;
     }
 
     return $i_up_admin;
 }
 
 sub i_up {
-    my $l1 = shift;
+    my $l1      = shift;
     my $partial = shift;
 
-    my $i_up = $l1->SUPER::i_up($partial) || {};
-    my $rptr_up = $l1->rptr_up($partial) || {};
+    my $i_up    = $l1->SUPER::i_up($partial) || {};
+    my $rptr_up = $l1->rptr_up($partial)     || {};
 
-    foreach my $key (keys %$rptr_up){
+    foreach my $key ( keys %$rptr_up ) {
         my $up = $rptr_up->{$key};
-        $i_up->{$key} = 'up' if $up =~ /operational/; 
+        $i_up->{$key} = 'up' if $up =~ /operational/;
     }
 
     return $i_up;
@@ -175,7 +176,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 +223,7 @@ after determining a more specific class using the method above.
 
 =over
 
-=item SNMP-REPEATER-MIB
+=item F<SNMP-REPEATER-MIB>
 
 =back
 
@@ -231,7 +231,7 @@ MIBs required for L<SNMP::Info/"Required MIBs">
 
 See L<SNMP::Info/"Required MIBs"> for its MIB requirements.
 
-SNMP-REPEATER-MIB needs to be extracted from
+F<SNMP-REPEATER-MIB> needs to be extracted from
 ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz
 
 =head1 GLOBALS
@@ -244,7 +244,7 @@ These are methods that return scalar value from SNMP
 
 Gets the number of ports under the interface mib 
 
-(B<ifNumber>)
+(C<ifNumber>)
 
 =back
 
@@ -252,9 +252,17 @@ Gets the number of ports under the interface mib
 
 =over
 
+=item $l1->model()
+
+Cross references $l1->id() with product IDs.
+
+For HP devices, removes C<'hpswitch'> from the name
+
+For Cisco devices, removes C<'sysid'> from the name
+
 =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 +272,7 @@ Adds the values from rptr_ports() and ports_managed()
 
 Number of 'groups' in the Repeater MIB
 
-(B<rptrGroupCapacity>)
+(C<rptrGroupCapacity>)
 
 =back
 
@@ -283,10 +291,16 @@ to a hash.
 
 =item $l1->interfaces()
 
+Returns reference to the map between IID and physical Port.
+
 =item $l1->i_up()
 
+Returns reference to map of IIDs to link status.
+
 =item $l1->i_up_admin()
 
+Returns reference to map of IIDs to administrative link status.
+
 =back
 
 =head2 Repeater MIB
@@ -297,31 +311,31 @@ to a hash.
 
 Number of ports in each group.
 
-(B<rptrGroupPortCapacity>)
+(C<rptrGroupPortCapacity>)
 
 =item $l1->rptr_port()
 
 Port number in Group
 
-(B<rptrPortIndex>)
+(C<rptrPortIndex>)
 
 =item $l1->rptr_slot()
 
 Group (slot) Number for given port.
 
-(B<rptrPortGroupIndex>)
+(C<rptrPortGroupIndex>)
 
 =item $l1->rptr_up_admin()
 
-(B<rptrPortAdminStatus>)
+(C<rptrPortAdminStatus>)
 
 =item $l1->rptr_up()
 
-(B<rptrPortOperStatus>)
+(C<rptrPortOperStatus>)
 
 =item $l1->rptr_last_src()
 
-(B<rptrAddrTrackNewLastSrcAddress>)
+(C<rptrAddrTrackNewLastSrcAddress>)
 
 =back
 

lib/SNMP/Info/Layer1/Allied.pm

@@ -1,65 +1,60 @@
 # 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.
-# 
-# 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::Layer1::Allied;
-$VERSION = '1.07';
-# $Id$
-use strict;
 
+use strict;
 use Exporter;
 use SNMP::Info::Layer1;
 
-@SNMP::Info::Layer1::Allied::ISA = qw/SNMP::Info::Layer1 Exporter/;
+@SNMP::Info::Layer1::Allied::ISA       = qw/SNMP::Info::Layer1 Exporter/;
 @SNMP::Info::Layer1::Allied::EXPORT_OK = qw//;
 
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
 
 # Set for No CDP
-%GLOBALS = (
-            %SNMP::Info::Layer1::GLOBALS,
-            'root_ip'   => 'actualIPAddr',
-            );
+%GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, 'root_ip' => 'actualIPAddr', );
 
-%FUNCS   = (%SNMP::Info::Layer1::FUNCS,
-            'ati_p_name' => 'portName',
-            'ati_up'     => 'linkTestLED',
-            );
+%FUNCS = (
+    %SNMP::Info::Layer1::FUNCS,
+    'ati_p_name' => 'portName',
+    'ati_up'     => 'linkTestLED',
+);
 
-%MIBS    = (
-            %SNMP::Info::Layer1::MIBS,
-            'ATI-MIB' => 'atiPortGroupIndex'
-            );
+%MIBS = ( %SNMP::Info::Layer1::MIBS, 'ATI-MIB' => 'atiPortGroupIndex' );
 
-%MUNGE   = (%SNMP::Info::Layer1::MUNGE,
-            );
+%MUNGE = ( %SNMP::Info::Layer1::MUNGE, );
 
 sub vendor {
     return 'allied';
@@ -71,11 +66,12 @@ sub os {
 
 sub os_ver {
     my $allied = shift;
-    my $descr = $allied->description();
-    
-    if ($descr =~ m/version (\d+\.\d+)/){
+    my $descr  = $allied->description();
+
+    if ( $descr =~ m/version (\d+\.\d+)/ ) {
         return $1;
     }
+    return;
 }
 
 sub model {
@@ -83,40 +79,40 @@ sub model {
 
     my $desc = $allied->description();
 
-    if ($desc =~ /(AT-\d{4}\S{1}?)/){
+    if ( $desc =~ /(AT-\d{4}\S{1})/ ) {
         return $1;
     }
-    return undef;
+    return;
 }
 
-sub i_name{
-    my $allied = shift;
+sub i_name {
+    my $allied  = shift;
     my $partial = shift;
 
-    my $i_name = $allied->orig_i_name($partial) || {};
-    my $ati_p_name = $allied->ati_p_name($partial) || {};
+    my $i_name     = $allied->orig_i_name($partial) || {};
+    my $ati_p_name = $allied->ati_p_name($partial)  || {};
 
-    foreach my $port (keys %$ati_p_name){
+    foreach my $port ( keys %$ati_p_name ) {
         my $name = $ati_p_name->{$port};
-        $i_name->{$port} = $name if (defined $name and $name !~ /^\s*$/);
+        $i_name->{$port} = $name if ( defined $name and $name !~ /^\s*$/ );
     }
-    
+
     return $i_name;
 }
 
 sub i_up {
-    my $allied = shift;
+    my $allied  = shift;
     my $partial = shift;
 
-    my $i_up = SNMP::Info::Layer1::i_up($allied, $partial);
+    my $i_up = SNMP::Info::Layer1::i_up( $allied, $partial );
     my $ati_up = $allied->ati_up($partial) || {};
 
-    foreach my $port (keys %$ati_up){
+    foreach my $port ( keys %$ati_up ) {
         my $up = $ati_up->{$port};
         $i_up->{$port} = 'down' if $up eq 'linktesterror';
-        $i_up->{$port} = 'up' if $up eq 'nolinktesterror';
+        $i_up->{$port} = 'up'   if $up eq 'nolinktesterror';
     }
-    
+
     return $i_up;
 }
 1;
@@ -136,7 +132,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 +159,7 @@ inherited methods.
 
 =over
 
-=item ATI-MIB 
-
-Download for your device from http://www.allied-telesyn.com/allied/support/
+=item F<ATI-MIB>
 
 =back
 
@@ -198,11 +191,11 @@ Culls Version from description()
 
 Returns IP Address of Managed Hub.
 
-(B<actualIpAddr>)
+(C<actualIpAddr>)
 
 =item $allied->model()
 
-Trys to cull out AT-nnnnX out of the description field.
+Tries to cull out C<AT-nnnnX> out of the description field.
 
 =back
 
@@ -233,11 +226,11 @@ the values of ati_up() to 'up' and 'down'.
 
 =item $allied->ati_p_name()
 
-(B<portName>)
+(C<portName>)
 
 =item $allied->ati_up()
 
-(B<linkTestLED>)
+(C<linkTestLED>)
 
 =back
 

lib/SNMP/Info/Layer1/Asante.pm

@@ -1,77 +1,72 @@
 # 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.
-# 
-# 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::Layer1::Asante;
-$VERSION = '1.07';
-# $Id$
-use strict;
 
+use strict;
 use Exporter;
 use SNMP::Info::Layer1;
 
-@SNMP::Info::Layer1::Asante::ISA = qw/SNMP::Info::Layer1 Exporter/;
+@SNMP::Info::Layer1::Asante::ISA       = qw/SNMP::Info::Layer1 Exporter/;
 @SNMP::Info::Layer1::Asante::EXPORT_OK = qw//;
 
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
 
 # Set for No CDP
-%GLOBALS = (
-            %SNMP::Info::Layer1::GLOBALS,
-            );
+%GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, );
 
-%FUNCS   = (%SNMP::Info::Layer1::FUNCS,
-            'asante_port'  => 'ePortIndex',
-            'asante_group' => 'ePortGrpIndex',
-            'i_type'       => 'ePortStateType',
-            'asante_up'    => 'ePortStateLinkStatus',
-            );
+%FUNCS = (
+    %SNMP::Info::Layer1::FUNCS,
+    'asante_port'  => 'ePortIndex',
+    'asante_group' => 'ePortGrpIndex',
+    'i_type'       => 'ePortGrpIndex',
+    'asante_up'    => 'ePortStateLinkStatus',
+);
 
-%MIBS    = (
-            %SNMP::Info::Layer1::MIBS,
-            'ASANTE-HUB1012-MIB' => 'asante'
-            );
+%MIBS = ( %SNMP::Info::Layer1::MIBS, 'ASANTE-AH1012-MIB' => 'asante' );
 
-%MUNGE   = (
-            %SNMP::Info::Layer1::MUNGE,
-            );
+%MUNGE = ( %SNMP::Info::Layer1::MUNGE, );
 
 sub interfaces {
-    my $asante = shift;
+    my $asante  = shift;
     my $partial = shift;
 
     my $rptr_port = $asante->rptr_port($partial) || {};
 
     my %interfaces;
 
-    foreach my $port (keys %$rptr_port){
+    foreach my $port ( keys %$rptr_port ) {
         $interfaces{$port} = $port;
     }
 
@@ -84,13 +79,14 @@ sub os {
 
 sub os_ver {
     my $asante = shift;
-    my $descr = $asante->description();
-    
-    if ($descr =~ /software v(\d+\.\d+)/){
+    my $descr  = $asante->description();
+
+    if ( $descr =~ /software v(\d+\.\d+)/ ) {
         return $1;
     }
+    return;
 }
-    
+
 sub vendor {
     return 'asante';
 }
@@ -98,30 +94,30 @@ sub vendor {
 sub model {
     my $asante = shift;
 
-    my $id = $asante->id();
-    my $model = &SNMP::translateObj($id);
+    my $id    = $asante->id();
+    my $model = SNMP::translateObj($id);
 
     return $model;
 }
 
 sub i_up {
-    my $asante = shift;
+    my $asante  = shift;
     my $partial = shift;
 
     my $asante_up = $asante->asante_up($partial) || {};
 
     my $i_up = {};
-    foreach my $port (keys %$asante_up){
+    foreach my $port ( keys %$asante_up ) {
         my $up = $asante_up->{$port};
-        $i_up->{$port} = 'down' if $up =~ /on/;
-        $i_up->{$port} = 'up' if $up =~ /off/;
+        $i_up->{$port} = 'down' if $up =~ /off/;
+        $i_up->{$port} = 'up'   if $up =~ /on/;
     }
-    
+
     return $i_up;
 }
 
 sub i_speed {
-    my $asante = shift;
+    my $asante  = shift;
     my $partial = shift;
 
     my $i_speed = $asante->orig_i_speed($partial) || {};
@@ -134,7 +130,7 @@ sub i_speed {
 }
 
 sub i_mac {
-    my $asante = shift;
+    my $asante  = shift;
     my $partial = shift;
 
     my $i_mac = $asante->orig_i_mac($partial) || {};
@@ -147,14 +143,14 @@ sub i_mac {
 }
 
 sub i_description {
-    return undef;
+    return;
 }
 
 sub i_name {
-    my $asante = shift;
+    my $asante  = shift;
     my $partial = shift;
 
-    my $i_name = $asante->orig_i_descr($partial) || {};
+    my $i_name = $asante->orig_i_description($partial) || {};
 
     my %i_name;
 
@@ -162,7 +158,9 @@ sub i_name {
 
     return \%i_name;
 }
+
 1;
+
 __END__
 
 =head1 NAME
@@ -179,7 +177,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 +203,7 @@ Asante device through SNMP.
 
 =over
 
-=item ASANTE-HUB1012-MIB
-
-Download from http://www.mibdepot.com
+=item F<ASANTE-AH1012-MIB>
 
 =back
 
@@ -236,7 +231,7 @@ Returns 'asante' :)
 
 =item $asante->model()
 
-Cross references $asante->id() to the ASANTE-HUB1012-MIB and returns
+Cross references $asante->id() to the F<ASANTE-AH1012-MIB> and returns
 the results.
 
 =back
@@ -251,6 +246,19 @@ See L<SNMP::Info::Layer1/"GLOBALS"> for details.
 
 =over
 
+=item $asante->interfaces()
+
+Returns reference to the map between IID and physical Port.
+
+=item $asante->i_description() 
+
+Description of the interface.
+
+=item $asante->i_mac()
+
+MAC address of the interface.  Note this is just the MAC of the port, not
+anything connected to it.
+
 =item $asante->i_name()
 
 Returns reference to map of IIDs to human-set port name.
@@ -260,6 +268,10 @@ Returns reference to map of IIDs to human-set port name.
 Returns reference to map of IIDs to link status.  Changes
 the values of asante_up() to 'up' and 'down'.
 
+=item $asante->i_speed()
+
+Speed of the link, human format.
+
 =back
 
 =head2 Asante MIB
@@ -268,11 +280,11 @@ the values of asante_up() to 'up' and 'down'.
 
 =item $asante->ati_p_name()
 
-(B<portName>)
+(C<portName>)
 
 =item $asante->ati_up()
 
-(B<linkTestLED>)
+(C<linkTestLED>)
 
 =back
 

lib/SNMP/Info/Layer1/Bayhub.pm

@@ -1,84 +1,88 @@
 # SNMP::Info::Layer1::Bayhub
-# Eric Miller
 # $Id$
 #
-# Copyright (c) 2004 Eric Miller, Max Baker
+# Copyright (c) 2008 Eric Miller, Max Baker
+# 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::Layer1::Bayhub;
-$VERSION = '1.07';
-use strict;
 
+use strict;
 use Exporter;
 use SNMP::Info::SONMP;
 use SNMP::Info::NortelStack;
 use SNMP::Info::Layer2;
 
-@SNMP::Info::Layer1::Bayhub::ISA = qw/SNMP::Info::SONMP SNMP::Info::NortelStack  SNMP::Info::Layer2 Exporter/;
+@SNMP::Info::Layer1::Bayhub::ISA
+    = qw/SNMP::Info::SONMP SNMP::Info::NortelStack  SNMP::Info::Layer2 Exporter/;
 @SNMP::Info::Layer1::Bayhub::EXPORT_OK = qw//;
 
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
 
-%MIBS    = (
-            %SNMP::Info::Layer2::MIBS,
-            %SNMP::Info::NortelStack::MIBS,            
-            %SNMP::Info::SONMP::MIBS,
-            'S5-ETHERNET-COMMON-MIB'     => 's5EnPortTable',
-            'S5-COMMON-STATS-MIB'        => 's5CmStat',
-            );
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::Layer2::MIBS,
+    %SNMP::Info::NortelStack::MIBS,
+    %SNMP::Info::SONMP::MIBS,
+    'S5-ETHERNET-COMMON-MIB' => 's5EnPortTable',
+    'S5-COMMON-STATS-MIB'    => 's5CmStat',
+);
 
 %GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-            %SNMP::Info::NortelStack::GLOBALS,
-            %SNMP::Info::SONMP::GLOBALS,
-            );
+    %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::NortelStack::GLOBALS,
+    %SNMP::Info::SONMP::GLOBALS,
+);
 
-%FUNCS   = (
-            %SNMP::Info::Layer2::FUNCS,
-            %SNMP::Info::NortelStack::FUNCS,
-            %SNMP::Info::SONMP::FUNCS,
-            # S5-ETHERNET-COMMON-MIB::s5EnPortTable
-            'bayhub_pb_index'        => 's5EnPortBrdIndx',
-            'bayhub_pp_index'        => 's5EnPortIndx',
-            'bayhub_up_admin'        => 's5EnPortPartStatus',
-            'bayhub_up'              => 's5EnPortLinkStatus',
-            # S5-ETHERNET-COMMON-MIB::s5EnPortExtTable
-            'bayhub_p_speed'        => 's5EnPortExtActiveSpeed',
-            'bayhub_p_cap'          => 's5EnPortExtHwCapability',
-            'bayhub_p_adv'          => 's5EnPortExtAutoNegAdv',
-            # S5-COMMON-STATS-MIB::s5CmSNodeTable
-            'bayhub_nb_index'        => 's5CmSNodeBrdIndx',
-            'bayhub_np_index'        => 's5CmSNodePortIndx',
-            'fw_mac'                 => 's5CmSNodeMacAddr',
-            );
+%FUNCS = (
+    %SNMP::Info::Layer2::FUNCS,
+    %SNMP::Info::NortelStack::FUNCS,
+    %SNMP::Info::SONMP::FUNCS,
 
-%MUNGE   = (
-            %SNMP::Info::Layer2::MUNGE,
-            %SNMP::Info::NortelStack::MUNGE,
-            %SNMP::Info::SONMP::MUNGE,
-            );
+    # S5-ETHERNET-COMMON-MIB::s5EnPortTable
+    'bayhub_pb_index' => 's5EnPortBrdIndx',
+    'bayhub_pp_index' => 's5EnPortIndx',
+    'bayhub_up_admin' => 's5EnPortPartStatus',
+    'bayhub_up'       => 's5EnPortLinkStatus',
+
+    # S5-ETHERNET-COMMON-MIB::s5EnPortExtTable
+    'bayhub_p_speed' => 's5EnPortExtActiveSpeed',
+    'bayhub_p_cap'   => 's5EnPortExtHwCapability',
+    'bayhub_p_adv'   => 's5EnPortExtAutoNegAdv',
+
+    # S5-COMMON-STATS-MIB::s5CmSNodeTable
+    'bayhub_nb_index' => 's5CmSNodeBrdIndx',
+    'bayhub_np_index' => 's5CmSNodePortIndx',
+    'fw_mac'          => 's5CmSNodeMacAddr',
+);
+
+%MUNGE = (
+    %SNMP::Info::Layer2::MUNGE, %SNMP::Info::NortelStack::MUNGE,
+    %SNMP::Info::SONMP::MUNGE,
+);
 
 sub layers {
     return '00000011';
@@ -89,20 +93,20 @@ sub os {
 }
 
 sub vendor {
-    return 'nortel';
+    return 'avaya';
 }
 
 sub model {
     my $bayhub = shift;
-    my $id = $bayhub->id();
-    return undef unless defined $id;
+    my $id     = $bayhub->id();
+    return unless defined $id;
     my $model = &SNMP::translateObj($id);
     return $id unless defined $model;
     $model =~ s/^sreg-//i;
 
-    return 'Baystack Hub' if ($model =~ /BayStack/);
-    return '5000' if ($model =~ /5000/);
-    return '5005' if ($model =~ /5005/);
+    return 'Baystack Hub' if ( $model =~ /BayStack/ );
+    return '5000'         if ( $model =~ /5000/ );
+    return '5005'         if ( $model =~ /5005/ );
     return $model;
 }
 
@@ -110,33 +114,35 @@ sub model {
 # and port status
 
 sub i_index {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
     my $b_index = $bayhub->bayhub_pb_index($partial) || {};
     my $p_index = $bayhub->bayhub_pp_index($partial) || {};
-    my $model = $bayhub->model() || 'Baystack Hub';
+    my $model   = $bayhub->model()                   || 'Baystack Hub';
 
     my %i_index;
-    foreach my $iid (keys %$b_index){
+    foreach my $iid ( keys %$b_index ) {
         my $board = $b_index->{$iid};
         next unless defined $board;
-        my $port = $p_index->{$iid}||0;
+        my $port = $p_index->{$iid} || 0;
 
-        if ($model eq 'Baystack Hub') {
+        if ( $model eq 'Baystack Hub' ) {
             my $comidx = $board;
-               if (! ($comidx % 5)) {
-                  $board = ($board / 5);
-               } elsif ($comidx =~ /[16]$/) {
-                  $board = int($board/5);
-                  $port = 25;          
-               } elsif ($comidx =~ /[27]$/) {
-                  $board = int($board/5);
-                  $port = 26;          
-               }
-          }
+            if ( !( $comidx % 5 ) ) {
+                $board = ( $board / 5 );
+            }
+            elsif ( $comidx =~ /[16]$/ ) {
+                $board = int( $board / 5 );
+                $port  = 25;
+            }
+            elsif ( $comidx =~ /[27]$/ ) {
+                $board = int( $board / 5 );
+                $port  = 26;
+            }
+        }
 
-        my $index = ($board*256)+$port;
+        my $index = ( $board * 256 ) + $port;
 
         $i_index{$iid} = $index;
     }
@@ -147,23 +153,23 @@ sub i_index {
 # for consistency
 
 sub interfaces {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
     my $i_index = $bayhub->i_index() || {};
 
     my %if;
-    foreach my $iid (keys %$i_index){
+    foreach my $iid ( keys %$i_index ) {
         my $index = $i_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
 
         # Index numbers are deterministic slot * 256 + port
         my $port = $index % 256;
-        my $slot = int($index / 256);
+        my $slot = int( $index / 256 );
 
         my $slotport = "$slot.$port";
-    
+
         $if{$index} = $slotport;
     }
 
@@ -171,113 +177,114 @@ sub interfaces {
 }
 
 sub i_duplex {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
-    my $port_index  = $bayhub->i_index() || {};
+    my $port_index = $bayhub->i_index() || {};
 
     my %i_duplex;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
-    
+        next if ( defined $partial and $index !~ /^$partial$/ );
+
         my $duplex = 'half';
-        $i_duplex{$index}=$duplex; 
+        $i_duplex{$index} = $duplex;
     }
     return \%i_duplex;
 }
 
 sub i_duplex_admin {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
-    my $port_index  = $bayhub->i_index() || {};
+    my $port_index = $bayhub->i_index() || {};
 
     my %i_duplex_admin;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
-    
+        next if ( defined $partial and $index !~ /^$partial$/ );
+
         my $duplex = 'half';
-        $i_duplex_admin{$index}=$duplex; 
+        $i_duplex_admin{$index} = $duplex;
     }
     return \%i_duplex_admin;
 }
 
 sub i_speed {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
-    my $port_index  = $bayhub->i_index() || {};
-    my $port_speed  = $bayhub->bayhub_p_speed() || {};
+    my $port_index = $bayhub->i_index()        || {};
+    my $port_speed = $bayhub->bayhub_p_speed() || {};
 
     my %i_speed;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
         my $speed = $port_speed->{$iid} || '10 Mbps';
 
-        $speed = '10 Mbps' if $speed =~ /bps10M/i;
+        $speed = '10 Mbps'  if $speed =~ /bps10M/i;
         $speed = '100 Mbps' if $speed =~ /bps100M/i;
-        $i_speed{$index}=$speed; 
+        $i_speed{$index} = $speed;
     }
     return \%i_speed;
 }
 
 sub i_up {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
-    my $port_index = $bayhub->i_index() || {};
-    my $link_stat = $bayhub->bayhub_up() || {};
-   
+    my $port_index = $bayhub->i_index()   || {};
+    my $link_stat  = $bayhub->bayhub_up() || {};
+
     my %i_up;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
         my $link_stat = $link_stat->{$iid};
         next unless defined $link_stat;
-        
-        $link_stat = 'up' if $link_stat =~ /on/i;
+
+        $link_stat = 'up'   if $link_stat =~ /on/i;
         $link_stat = 'down' if $link_stat =~ /off/i;
-             
-        $i_up{$index}=$link_stat; 
+
+        $i_up{$index} = $link_stat;
     }
     return \%i_up;
 }
 
 sub i_up_admin {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
-    my $i_index = $bayhub->i_index() || {};
+    my $i_index   = $bayhub->i_index()         || {};
     my $link_stat = $bayhub->bayhub_up_admin() || {};
- 
+
     my %i_up_admin;
-    foreach my $iid (keys %$i_index){
+    foreach my $iid ( keys %$i_index ) {
         my $index = $i_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
         my $link_stat = $link_stat->{$iid};
         next unless defined $link_stat;
- 
-        $i_up_admin{$index}=$link_stat; 
+
+        $i_up_admin{$index} = $link_stat;
     }
     return \%i_up_admin;
 }
 
 sub set_i_up_admin {
+
     # map setting to those the hub will understand
     my %setting = qw/up 2 down 3/;
 
     my $bayhub = shift;
-    my ($setting, $iid) = @_;
+    my ( $setting, $iid ) = @_;
 
-    my $i_index  = $bayhub->i_index();
+    my $i_index = $bayhub->i_index() || {};
     my %reverse_i_index = reverse %$i_index;
 
     $setting = lc($setting);
@@ -286,75 +293,86 @@ sub set_i_up_admin {
 
     $iid = $reverse_i_index{$iid};
 
-    return $bayhub->set_bayhub_up_admin($setting{$setting}, $iid);
+    return $bayhub->set_bayhub_up_admin( $setting{$setting}, $iid );
 }
 
 # Hubs do not support the standard Bridge MIB
 sub bp_index {
-    my $bayhub = shift;
+    my $bayhub  = shift;
     my $partial = shift;
 
     my $b_index = $bayhub->bayhub_nb_index() || {};
     my $p_index = $bayhub->bayhub_np_index() || {};
-    my $model = $bayhub->model() || 'Baystack Hub';
+    my $model   = $bayhub->model()           || 'Baystack Hub';
 
     my %bp_index;
-    foreach my $iid (keys %$b_index){
+    foreach my $iid ( keys %$b_index ) {
         my $board = $b_index->{$iid};
         next unless defined $board;
-        my $port = $p_index->{$iid}||0;
-                
-        if ($model eq 'Baystack Hub') {
-            my $comidx = $board;
-               if (! ($comidx % 5)) {
-                  $board = ($board / 5);
-               } elsif ($comidx =~ /[16]$/) {
-                  $board = int($board/5);
-                  $port = 25;          
-               } elsif ($comidx =~ /[27]$/) {
-                  $board = int($board/5);
-                  $port = 26;          
-               }
-          }
+        my $port = $p_index->{$iid} || 0;
 
-        my $index = ($board*256)+$port;
-        next if (defined $partial and $index !~ /^$partial$/);
+        if ( $model eq 'Baystack Hub' ) {
+            my $comidx = $board;
+            if ( !( $comidx % 5 ) ) {
+                $board = ( $board / 5 );
+            }
+            elsif ( $comidx =~ /[16]$/ ) {
+                $board = int( $board / 5 );
+                $port  = 25;
+            }
+            elsif ( $comidx =~ /[27]$/ ) {
+                $board = int( $board / 5 );
+                $port  = 26;
+            }
+        }
+
+        my $index = ( $board * 256 ) + $port;
+        next if ( defined $partial and $index !~ /^$partial$/ );
 
         $bp_index{$index} = $index;
     }
     return \%bp_index;
 }
 
-sub fw_port {
+sub fw_mac {
     my $bayhub = shift;
+    my $partial   = shift;
+
+    return $bayhub->SUPER::fw_mac($partial);
+}
+
+sub fw_port {
+    my $bayhub  = shift;
     my $partial = shift;
 
     my $b_index = $bayhub->bayhub_nb_index($partial) || {};
     my $p_index = $bayhub->bayhub_np_index($partial) || {};
-    my $model = $bayhub->model() || 'Baystack Hub';
+    my $model   = $bayhub->model()                   || 'Baystack Hub';
 
     my %fw_port;
-    foreach my $iid (keys %$b_index){
+    foreach my $iid ( keys %$b_index ) {
         my $board = $b_index->{$iid};
         next unless defined $board;
-        my $port = $p_index->{$iid}||0;
+        my $port = $p_index->{$iid} || 0;
 
-      if ($model eq 'Baystack Hub') {
-          my $comidx = $board;
-             if (! ($comidx % 5)) {
-                $board = ($board / 5);
-             } elsif ($comidx =~ /[16]$/) {
-                $board = int($board/5);
-                $port = 25;          
-             } elsif ($comidx =~ /[27]$/) {
-                $board = int($board/5);
-                $port = 26;          
-             }
-       }
-        
-        my $index = ($board*256)+$port;
+        if ( $model eq 'Baystack Hub' ) {
+            my $comidx = $board;
+            if ( !( $comidx % 5 ) ) {
+                $board = ( $board / 5 );
+            }
+            elsif ( $comidx =~ /[16]$/ ) {
+                $board = int( $board / 5 );
+                $port  = 25;
+            }
+            elsif ( $comidx =~ /[27]$/ ) {
+                $board = int( $board / 5 );
+                $port  = 26;
+            }
+        }
 
-      $fw_port{$iid} = $index;
+        my $index = ( $board * 256 ) + $port;
+
+        $fw_port{$iid} = $index;
     }
     return \%fw_port;
 }
@@ -367,7 +385,6 @@ sub slot_offset {
     return 0;
 }
 
-
 # Devices do not support ENTITY-MIB use proprietary methods.
 
 sub e_index {
@@ -459,7 +476,7 @@ __END__
 
 =head1 NAME
 
-SNMP::Info::Layer1::Bayhub - SNMP Interface to Bay / Nortel Hubs
+SNMP::Info::Layer1::Bayhub - SNMP Interface to Bay/Nortel/Avaya Hubs
 
 =head1 AUTHOR
 
@@ -472,7 +489,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 +502,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 +526,9 @@ my $bayhub = new SNMP::Info::Layer1::Bayhub(...);
 
 =over
 
-=item S5-ETHERNET-COMMON-MIB
+=item F<S5-ETHERNET-COMMON-MIB>
 
-=item S5-COMMON-STATS-MIB
+=item F<S5-COMMON-STATS-MIB>
 
 =back
 
@@ -531,7 +548,7 @@ These are methods that return scalar value from SNMP
 
 =item $bayhub->vendor()
 
-Returns 'nortel'
+Returns 'avaya'
 
 =item $bayhub->os()
 
@@ -539,7 +556,7 @@ Returns 'bay_hub'
 
 =item $bayhub->model()
 
-Cross references $bayhub->id() to the SYNOPTICS-MIB and returns
+Cross references $bayhub->id() to the F<SYNOPTICS-MIB> and returns
 the results.
 
 Removes either Baystack Hub, 5000, or 5005 depending on the model.
@@ -552,7 +569,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 +609,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<ifIndex>, the interface index is created using the
 formula (board * 256 + port).
 
 =item $bayhub->interfaces()
@@ -612,17 +630,17 @@ Returns interface speed.
 
 =item $bayhub->i_up()
 
-Returns (B<s5EnPortLinkStatus>) for each port.  Translates on/off to up/down.
+Returns (C<s5EnPortLinkStatus>) for each port.  Translates on/off to up/down.
 
 =item $bayhub->i_up_admin()
 
-Returns (B<s5EnPortPartStatus>) for each port.
+Returns (C<s5EnPortPartStatus>) 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<ifIndex>
 
-State choices are 'up'or 'down'
+State choices are 'up' or 'down'
 
 Example:
   my %if_map = reverse %{$bayhub->interfaces()};
@@ -636,20 +654,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<S5-COMMON-STATS-MIB::s5CmSNodeTable>
 to the Interface index.
 
 =item $bayhub->fw_mac()
 
-(B<s5CmSNodeMacAddr>)
+(C<s5CmSNodeMacAddr>)
 
 =back
 
-=head2 Pseudo ENTITY-MIB Information
+=head2 Pseudo F<ENTITY-MIB> Information
 
-These devices do not support ENTITY-MIB.  These methods emulate Physical Table
-methods using S5-CHASSIS-MIB.  See L<SNMP::Info::NortelStack/"TABLE METHODS">
-for details.
+These devices do not support F<ENTITY-MIB>.  These methods emulate Physical
+Table methods using F<S5-CHASSIS-MIB>.  See
+L<SNMP::Info::NortelStack/"TABLE METHODS"> for details.
 
 =over
 
@@ -665,6 +683,10 @@ Returns ns_e_class().
 
 Returns ns_e_descr().
 
+=item $bayhub->e_name() 
+
+Returns ns_e_name().
+
 =item $bayhub->e_fwver() 
 
 Returns ns_e_fwver().

lib/SNMP/Info/Layer1/Cyclades.pm

@@ -0,0 +1,643 @@
+# SNMP::Info::Layer1::Cyclades
+# $Id$
+#
+# Copyright (c) 2018 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.
+#     * 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::Layer1::Cyclades;
+
+use strict;
+use Exporter;
+use SNMP::Info::Layer1;
+
+@SNMP::Info::Layer1::Cyclades::ISA       = qw/SNMP::Info::Layer1 Exporter/;
+@SNMP::Info::Layer1::Cyclades::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::Layer1::MIBS,
+    'CYCLADES-ACS-SYS-MIB'    => 'cyACSversion',
+    'CYCLADES-ACS5K-SYS-MIB'  => 'cyACS5Kversion',
+    'CYCLADES-ACS-CONF-MIB'   => 'cyACSConf',
+    'CYCLADES-ACS5K-CONF-MIB' => 'cyACS5KConf',
+    'CYCLADES-ACS-INFO-MIB'   => 'cyACSInfo',
+    'CYCLADES-ACS5K-INFO-MIB' => 'cyACS5KInfo',
+    'ACS-MIB'                 => 'acs6016',
+    'ACS8000-MIB'             => 'acs8048',
+);
+
+%GLOBALS = (
+
+    %SNMP::Info::Layer1::GLOBALS,
+
+    # CYCLADES-ACS-SYS-MIB
+    'cy_os_ver'     => 'cyACSversion',
+    'cy_model'      => 'cyACSpname',
+    'cy_serial'     => 'cyACSDevId',
+    'cy_ps1_status' => 'cyACSPw1',
+    'cy_ps2_status' => 'cyACSPw2',
+
+    # CYCLADES-ACS-CONF-MIB
+    'cy_root_ip' => 'CYCLADES_ACS_CONF_MIB__cyEthIPaddr',
+
+    # CYCLADES-ACS5K-SYS-MIB
+    'cy5k_os_ver'     => 'cyACS5Kversion',
+    'cy5k_model'      => 'cyACS5Kpname',
+    'cy5k_serial'     => 'cyACS5KDevId',
+    'cy5k_ps1_status' => 'cyACS5KPw1',
+    'cy5k_ps2_status' => 'cyACS5KPw2',
+
+    # CYCLADES-ACS5K-CONF-MIB
+    'cy5k_root_ip'   => 'CYCLADES_ACS5K_CONF_MIB__cyEthIPaddr',
+
+    # ACS-MIB
+    'acs_os_ver'     => 'ACS_MIB__acsFirmwareVersion',
+    'acs_model'      => 'ACS_MIB__acsProductModel',
+    'acs_serial'     => 'ACS_MIB__acsSerialNumber',
+    'acs_ps1_status' => 'ACS_MIB__acsPowerSupplyStatePw1',
+    'acs_ps2_status' => 'ACS_MIB__acsPowerSupplyStatePw2',
+
+    # ACS8000-MIB
+    'acs8k_os_ver'     => 'ACS8000_MIB__acsFirmwareVersion',
+    'acs8k_model'      => 'ACS8000_MIB__acsProductModel',
+    'acs8k_serial'     => 'ACS8000_MIB__acsSerialNumber',
+    'acs8k_ps1_status' => 'ACS8000_MIB__acsPowerSupplyStatePw1',
+    'acs8k_ps2_status' => 'ACS8000_MIB__acsPowerSupplyStatePw2',
+);
+
+%FUNCS = (
+    %SNMP::Info::Layer1::FUNCS,
+
+    # CYCLADES-ACS-INFO-MIB::cyInfoSerialTable
+    'cy_port_tty'   => 'CYCLADES_ACS_INFO_MIB__cyISPortTty',
+    'cy_port_name'  => 'CYCLADES_ACS_INFO_MIB__cyISPortName',
+    'cy_port_speed' => 'CYCLADES_ACS_INFO_MIB__cyISPortSpeed',
+    'cy_port_cd'    => 'CYCLADES_ACS_INFO_MIB__cyISPortSigCD',
+
+    # CYCLADES-ACS-CONF-MIB::cySerialPortTable
+    'cy_port_socket' => 'CYCLADES_ACS_CONF_MIB__cySPortSocketPort',
+
+    # CYCLADES-ACS5K-INFO-MIB::cyInfoSerialTable
+    'cy5k_port_tty'   => 'CYCLADES_ACS5K_INFO_MIB__cyISPortTty',
+    'cy5k_port_name'  => 'CYCLADES_ACS5K_INFO_MIB__cyISPortName',
+    'cy5k_port_speed' => 'CYCLADES_ACS5K_INFO_MIB__cyISPortSpeed',
+    'cy5k_port_cd'    => 'CYCLADES_ACS5K_INFO_MIB__cyISPortSigCD',
+
+    # CYCLADES-ACS5K-CONF-MIB::cySerialPortTable
+    'cy5k_port_socket' => 'CYCLADES_ACS5K_CONF_MIB__cySPortSocketPort',
+
+    # ACS-MIB::acsSerialPortTable
+    'acs_port_tty'   => 'ACS_MIB__acsSerialPortTableDeviceName',
+    'acs_port_name'  => 'ACS_MIB__acsSerialPortTableName',
+    'acs_port_speed' => 'ACS_MIB__acsSerialPortTableComSpeed',
+    'acs_port_cd'    => 'ACS_MIB__acsSerialPortTableSignalStateDCD',
+
+    # Equivalent to cySPortSocketPort doesn't exist in ACS-MIB
+    # Use 'acsSerialPortTableDeviceName' as an equivalent, it just needs
+    # to be unique so that we can differentiate between the index in the
+    # acsSerialPortTable from ifIndex which are both integers
+    # ACS-MIB::acsSerialPortTableEntry
+    'acs_port_socket' => 'ACS_MIB__acsSerialPortTableDeviceName',
+
+    # ACS8000-MIB::acsSerialPortTable
+    'acs8k_port_tty'   => 'ACS8000_MIB__acsSerialPortTableDeviceName',
+    'acs8k_port_name'  => 'ACS8000_MIB__acsSerialPortTableName',
+    'acs8k_port_speed' => 'ACS8000_MIB__acsSerialPortTableComSpeed',
+    'acs8k_port_cd'    => 'ACS8000_MIB__acsSerialPortTableSignalStateDCD',
+
+    # Equivalent to cySPortSocketPort doesn't exist in ACS-MIB
+    # Use 'acsSerialPortTableDeviceName' as an equivalent, it just needs
+    # to be unique so that we can differentiate between the index in the
+    # acsSerialPortTable from ifIndex which are both integers
+    # ACS8000-MIB::acsSerialPortTableEntry
+    'acs8k_port_socket' => 'ACS8000_MIB__acsSerialPortTableDeviceName',
+);
+
+%MUNGE = ( %SNMP::Info::Layer1::MUNGE, );
+
+# These devices don't have a FDB and we probably don't want to poll for ARP
+# cache so turn off reported L2/L3.
+sub layers {
+    return '01000001';
+}
+
+sub os {
+    return 'avocent';
+}
+
+# Use "short circuit" to return the first MIB instance that returns data to
+# reduce network communications
+# We'll try newest (acs*) first assuming those are most likely deployed
+sub os_ver {
+    my $cyclades = shift;
+
+    return
+           $cyclades->acs_os_ver()
+        || $cyclades->acs8k_os_ver()
+        || $cyclades->cy5k_os_ver()
+        || $cyclades->cy_os_ver()
+        || undef;
+}
+
+sub vendor {
+    return 'vertiv';
+}
+
+sub model {
+    my $cyclades = shift;
+
+    my $model
+        = $cyclades->acs_model()
+        || $cyclades->acs8k_model()
+        || $cyclades->cy5k_model()
+        || $cyclades->cy_model()
+        || undef;
+
+    return lc($model) if ( defined $model );
+
+    my $id   = $cyclades->id();
+    my $prod = SNMP::translateObj($id);
+
+    return $prod || $id;
+}
+
+sub serial {
+    my $cyclades = shift;
+
+    return
+           $cyclades->acs_serial()
+        || $cyclades->acs8k_serial()
+        || $cyclades->cy5k_serial()
+        || $cyclades->cy_serial()
+        || undef;
+}
+
+sub root_ip {
+    my $cyclades = shift;
+
+    return
+           $cyclades->cy5k_root_ip()
+        || $cyclades->cy_root_ip()
+        || undef;
+}
+
+sub ps1_status {
+    my $cyclades = shift;
+
+    return
+           $cyclades->acs_ps1_status()
+        || $cyclades->acs8k_ps1_status()
+        || $cyclades->cy5k_ps1_status()
+        || $cyclades->cy_ps1_status()
+        || undef;
+}
+
+sub ps2_status {
+    my $cyclades = shift;
+
+    return
+           $cyclades->acs_ps2_status()
+        || $cyclades->acs8k_ps2_status()
+        || $cyclades->cy5k_ps2_status()
+        || $cyclades->cy_ps2_status()
+        || undef;
+}
+
+# Extend interface methods to include serial ports
+#
+# Partials don't really help in this class, but implemented
+# for consistency
+
+sub i_index {
+    my $cyclades = shift;
+    my $partial  = shift;
+
+    my $orig_index = $cyclades->orig_i_index($partial) || {};
+    my $cy_index
+        = $cyclades->acs_port_socket()
+        || $cyclades->acs8k_port_socket()
+        || $cyclades->cy5k_port_socket()
+        || $cyclades->cy_port_socket()
+        || {};
+
+    my %i_index;
+    foreach my $iid ( keys %$orig_index ) {
+        my $index = $orig_index->{$iid};
+        next unless defined $index;
+
+        $i_index{$iid} = $index;
+    }
+
+    # Use alternative labeling system for the serial port, listening socket
+    # to avoid conflicts with ifIndex.
+    foreach my $iid ( keys %$cy_index ) {
+        my $index = $cy_index->{$iid};
+        next unless defined $index;
+        next if ( defined $partial and $index !~ /^$partial$/ );
+
+        $i_index{$index} = $index;
+    }
+
+    return \%i_index;
+}
+
+sub interfaces {
+    my $cyclades = shift;
+    my $partial  = shift;
+
+    my $i_descr = $cyclades->orig_i_description($partial) || {};
+    my $cy_index
+        = $cyclades->acs_port_socket()
+        || $cyclades->acs8k_port_socket()
+        || $cyclades->cy5k_port_socket()
+        || $cyclades->cy_port_socket()
+        || {};
+    my $cy_p_tty
+        = $cyclades->acs_port_tty()
+        || $cyclades->acs8k_port_tty()
+        || $cyclades->cy5k_port_tty()
+        || $cyclades->cy_port_tty()
+        || {};
+
+    my %if;
+    foreach my $iid ( keys %$i_descr ) {
+        my $descr = $i_descr->{$iid};
+        next unless defined $descr;
+
+        $if{$iid} = $descr;
+    }
+
+    foreach my $iid ( keys %$cy_p_tty ) {
+        my $index = $cy_index->{$iid};
+        next unless defined $index;
+        next if ( defined $partial and $index !~ /^$partial$/ );
+        my $name = $cy_p_tty->{$iid};
+        next unless defined $name;
+
+        $if{$index} = $name;
+    }
+
+    return \%if;
+}
+
+sub i_speed {
+    my $cyclades = shift;
+    my $partial  = shift;
+
+    my $i_speed    = $cyclades->orig_i_speed($partial) || {};
+    my $cy_index
+        = $cyclades->acs_port_socket()
+        || $cyclades->acs8k_port_socket()
+        || $cyclades->cy5k_port_socket()
+        || $cyclades->cy_port_socket()
+        || {};
+    my $cy_p_speed
+        = $cyclades->acs_port_speed()
+        || $cyclades->acs8k_port_speed()
+        || $cyclades->cy5k_port_speed()
+        || $cyclades->cy_port_speed()
+        || {};
+
+    my %i_speed;
+    foreach my $iid ( keys %$i_speed ) {
+        my $speed = $i_speed->{$iid};
+        next unless defined $speed;
+
+        $i_speed{$iid} = $speed;
+    }
+
+    foreach my $iid ( keys %$cy_p_speed ) {
+        my $index = $cy_index->{$iid};
+        next unless defined $index;
+        next if ( defined $partial and $index !~ /^$partial$/ );
+        my $speed = $cy_p_speed->{$iid};
+        next unless defined $speed;
+
+        $i_speed{$index} = $speed;
+    }
+
+    return \%i_speed;
+}
+
+sub i_up {
+    my $cyclades = shift;
+    my $partial  = shift;
+
+    my $i_up     = $cyclades->orig_i_up($partial) || {};
+    my $cy_index
+        = $cyclades->acs_port_socket()
+        || $cyclades->acs8k_port_socket()
+        || $cyclades->cy5k_port_socket()
+        || $cyclades->cy_port_socket()
+        || {};
+    my $cy_p_up
+        = $cyclades->acs_port_cd()
+        || $cyclades->acs8k_port_cd()
+        || $cyclades->cy5k_port_cd()
+        || $cyclades->cy_port_cd()
+        || {};
+
+    my %i_up;
+    foreach my $iid ( keys %$i_up ) {
+        my $up = $i_up->{$iid};
+        next unless defined $up;
+
+        $i_up{$iid} = $up;
+    }
+
+    foreach my $iid ( keys %$cy_p_up ) {
+        my $index = $cy_index->{$iid};
+        next unless defined $index;
+        next if ( defined $partial and $index !~ /^$partial$/ );
+        my $up = $cy_p_up->{$iid};
+        next unless defined $up;
+
+        $i_up{$index} = $up;
+    }
+
+    return \%i_up;
+}
+
+sub i_description {
+    my $cyclades = shift;
+    my $partial  = shift;
+
+    my $i_desc    = $cyclades->orig_i_description($partial) || {};
+    my $cy_index
+        = $cyclades->acs_port_socket()
+        || $cyclades->acs8k_port_socket()
+        || $cyclades->cy5k_port_socket()
+        || $cyclades->cy_port_socket()
+        || {};
+    my $cy_p_desc
+        = $cyclades->acs_port_name()
+        || $cyclades->acs8k_port_name()
+        || $cyclades->cy5k_port_name()
+        || $cyclades->cy_port_name()
+        || {};
+
+    my %descr;
+    foreach my $iid ( keys %$i_desc ) {
+        my $desc = $i_desc->{$iid};
+        next unless defined $desc;
+
+        $descr{$iid} = $desc;
+    }
+
+    foreach my $iid ( keys %$cy_p_desc ) {
+        my $index = $cy_index->{$iid};
+        next unless defined $index;
+        next if ( defined $partial and $index !~ /^$partial$/ );
+        my $desc = $cy_p_desc->{$iid};
+        next unless defined $desc;
+
+        $descr{$index} = $desc;
+    }
+
+    return \%descr;
+}
+
+sub i_name {
+    my $cyclades = shift;
+    my $partial  = shift;
+
+    my $i_name    = $cyclades->orig_i_name($partial) || {};
+    my $cy_index
+        = $cyclades->acs_port_socket()
+        || $cyclades->acs8k_port_socket()
+        || $cyclades->cy5k_port_socket()
+        || $cyclades->cy_port_socket()
+        || {};
+    my $cy_p_desc
+        = $cyclades->acs_port_name()
+        || $cyclades->acs8k_port_name()
+        || $cyclades->cy5k_port_name()
+        || $cyclades->cy_port_name()
+        || {};
+
+    my %i_name;
+    foreach my $iid ( keys %$i_name ) {
+        my $name = $i_name->{$iid};
+        next unless defined $name;
+
+        $i_name{$iid} = $name;
+    }
+
+    foreach my $iid ( keys %$cy_p_desc ) {
+        my $index = $cy_index->{$iid};
+        next unless defined $index;
+        next if ( defined $partial and $index !~ /^$partial$/ );
+        my $name = $cy_p_desc->{$iid};
+        next unless defined $name;
+
+        $i_name{$index} = $name;
+    }
+
+    return \%i_name;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::Layer1::Cyclades - SNMP Interface to Cyclades/Avocent terminal
+servers
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+    #Let SNMP::Info determine the correct subclass for you.
+
+    my $cyclades = new SNMP::Info(
+                        AutoSpecify => 1,
+                        Debug       => 1,
+                        # These arguments are passed directly to SNMP::Session
+                        DestHost    => 'myswitch',
+                        Community   => 'public',
+                        Version     => 2
+                        ) 
+
+    or die "Can't connect to DestHost.\n";
+
+    my $class = $cyclades->class();
+    print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+Provides abstraction to the configuration information obtainable from a 
+Cyclades/Avocent 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. 
+
+my $cyclades = new SNMP::Info::Layer1::Cyclades(...);
+
+=head2 Inherited Classes
+
+=over
+
+=item SNMP::Info::Layer1
+
+=back
+
+=head2 Required MIBs
+
+=over
+
+=item F<CYCLADES-ACS-SYS-MIB>
+
+=item F<CYCLADES-ACS-CONF-MIB>
+
+=item F<CYCLADES-ACS-INFO-MIB>
+
+=item F<CYCLADES-ACS5K-SYS-MIB>
+
+=item F<CYCLADES-ACS5K-CONF-MIB>
+
+=item F<CYCLADES-ACS5K-INFO-MIB>
+
+=item F<ACS6000-MIB>
+
+=back
+
+=head2 Inherited MIBs
+
+See L<SNMP::Info::Layer1/"Required MIBs"> for its MIB requirements.
+
+=head1 GLOBALS
+
+These are methods that return scalar value from SNMP
+
+=over
+
+=item $cyclades->os_ver()
+
+(C<acsFirmwareVersion>), (C<cyACS5Kversion>), or (C<cyACSversion>)
+
+=item $cyclades->serial()
+
+(C<acsSerialNumber>), (C<cyACS5KDevId>), or (C<cyACSDevId>)
+
+=item $cyclades->root_ip()
+
+(C<cyEthIPaddr>)
+
+=item $cyclades->ps1_status()
+
+(C<acsPowerSupplyStatePw1>), (C<cyACS5KPw1>), or (C<cyACSPw1>)
+
+=item $cyclades->ps2_status()
+
+(C<acsPowerSupplyStatePw2>), (C<cyACS5KPw2>), or (C<cyACSPw2>)
+
+=back
+
+=head2 Overrides
+
+=over
+
+=item $cyclades->layers()
+
+Returns 01000001.  These devices don't have a FDB and we probably don't want
+to poll for an ARP cache so turn off reported Layer 2 and Layer 3.
+
+=item $cyclades->vendor()
+
+Returns 'vertiv'
+
+=item $cyclades->os()
+
+Returns 'avocent'
+
+=item $cyclades->model()
+
+Returns lower case (C<cyACSpname>) or (C<acsProductModel>) if it exists
+otherwise tries to reference $cyclades->id() to one of the MIBs listed above
+
+=back
+
+=head2 Globals imported from SNMP::Info::Layer1
+
+See L<SNMP::Info::Layer1/"GLOBALS"> for details.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2 Overrides
+
+=over
+
+=item $cyclades->i_index()
+
+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, either the listening socket
+port C<cySPortSocketPort> or C<acsSerialPortTableDeviceName> name to avoid
+conflicts with C<ifIndex>.  
+
+=item $cyclades->interfaces()
+
+Returns reference to map of IIDs to physical ports.  Extended to include
+serial ports, C<acsSerialPortTableDeviceName> or C<cyISPortTty>.
+
+=item $cyclades->i_speed()
+
+Returns interface speed.  Extended to include serial ports,
+C<acsSerialPortTableComSpeed> or C<cyISPortSpeed>. 
+
+=item $cyclades->i_up()
+
+Returns link status for each port.  Extended to include serial ports,
+C<acsSerialPortTableSignalStateDCD> or C<cyISPortSigCD>.
+
+=item $cyclades->i_description()
+
+Returns description of each port.  Extended to include serial ports,
+C<acsSerialPortTableName> or C<cyISPortName>.
+
+=item $cyclades->i_name()
+
+Returns name of each port.  Extended to include serial ports,
+C<acsSerialPortTableName> or C<cyISPortName>.
+
+=back
+
+=head2 Table Methods imported from SNMP::Info::Layer1
+
+See L<SNMP::Info::Layer1/"TABLE METHODS"> for details.
+
+=cut

lib/SNMP/Info/Layer1/S3000.pm

@@ -1,79 +1,84 @@
 # SNMP::Info::Layer1::S3000
-# 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 
+# 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::Layer1::S3000;
-$VERSION = '1.07';
-use strict;
 
+use strict;
 use Exporter;
 use SNMP::Info::Layer2;
 
-@SNMP::Info::Layer1::S3000::ISA = qw/SNMP::Info::Layer2 Exporter/;
+@SNMP::Info::Layer1::S3000::ISA       = qw/SNMP::Info::Layer2 Exporter/;
 @SNMP::Info::Layer1::S3000::EXPORT_OK = qw//;
 
-use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
 
-%MIBS    = (
-            %SNMP::Info::Layer2::MIBS,
-            'SYNOPTICS-ETHERNET-MIB'     => 's3EnetPortTable',
-            'SYNOPTICS-COMMON-MIB'       => 's3AgentType',
-            );
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::Layer2::MIBS,
+    'SYNOPTICS-ETHERNET-MIB' => 's3EnetPortTable',
+    'SYNOPTICS-COMMON-MIB'   => 's3AgentType',
+);
 
 %GLOBALS = (
-            %SNMP::Info::Layer2::GLOBALS,
-            # From SYNOPTICS-COMMON-MIB
-            'os_bin'            => 's3AgentFwVer',
-            's3000_major_ver'   => 's3AgentSwMajorVer',
-            's3000_minor_ver'   => 's3AgentSwMinorVer',
-            's3000_maint_ver'   => 's3AgentSwMaintVer',
-            );
+    %SNMP::Info::Layer2::GLOBALS,
 
-%FUNCS   = (
-            %SNMP::Info::Layer2::FUNCS,
-            # SYNOPTICS-ETHERNET-MIB::s3EnetPortTable
-            's3000_pb_index'        => 's3EnetPortBoardIndex',
-            's3000_pp_index'        => 's3EnetPortIndex',
-            's3000_up_admin'        => 's3EnetPortPartStatus',
-            's3000_up'              => 's3EnetPortLinkStatus',
-            # SYNOPTICS-ETHERNET-MIB::s3EnetShowNodesTable
-            's3000_nb_index'        => 's3EnetShowNodesSlotIndex',
-            's3000_np_index'        => 's3EnetShowNodesPortIndex',
-            'fw_mac'                => 's3EnetShowNodesMacAddress',
-            # SYNOPTICS-ETHERNET-MIB::s3EnetTopNmmTable
-            's3000_topo_port'       => 's3EnetTopNmmPort',
-            's3000_topo_mac'        => 's3EnetTopNmmMacAddr',
-            );
+    # From SYNOPTICS-COMMON-MIB
+    'os_bin'          => 's3AgentFwVer',
+    's3000_major_ver' => 's3AgentSwMajorVer',
+    's3000_minor_ver' => 's3AgentSwMinorVer',
+    's3000_maint_ver' => 's3AgentSwMaintVer',
+);
 
-%MUNGE   = (
-            %SNMP::Info::Layer2::MUNGE,
-            's3000_topo_mac'        => \&SNMP::Info::munge_mac
-            );
+%FUNCS = (
+    %SNMP::Info::Layer2::FUNCS,
+
+    # SYNOPTICS-ETHERNET-MIB::s3EnetPortTable
+    's3000_pb_index' => 's3EnetPortBoardIndex',
+    's3000_pp_index' => 's3EnetPortIndex',
+    's3000_up_admin' => 's3EnetPortPartStatus',
+    's3000_up'       => 's3EnetPortLinkStatus',
+
+    # SYNOPTICS-ETHERNET-MIB::s3EnetShowNodesTable
+    's3000_nb_index' => 's3EnetShowNodesSlotIndex',
+    's3000_np_index' => 's3EnetShowNodesPortIndex',
+    'fw_mac'         => 's3EnetShowNodesMacAddress',
+
+    # SYNOPTICS-ETHERNET-MIB::s3EnetTopNmmTable
+    's3000_topo_port' => 's3EnetTopNmmPort',
+    's3000_topo_mac'  => 's3EnetTopNmmMacAddr',
+);
+
+%MUNGE = (
+    %SNMP::Info::Layer2::MUNGE, 's3000_topo_mac' => \&SNMP::Info::munge_mac
+);
 
 sub layers {
     return '00000011';
@@ -89,59 +94,60 @@ sub vendor {
 
 sub model {
     my $s3000 = shift;
-    my $id = $s3000->id();
-    return undef unless defined $id;
+    my $id    = $s3000->id();
+    return unless defined $id;
     my $model = &SNMP::translateObj($id);
     return $id unless defined $model;
     $model =~ s/^s3reg-//i;
 
-    return $1 if ($model =~ /((\d+){3}[\dX])/);
+    return $1 if ( $model =~ /((\d+){3}[\dX])/ );
     return $model;
 }
 
 sub os_ver {
-    my $s3000 = shift;
+    my $s3000     = shift;
     my $major_ver = $s3000->s3000_major_ver() || 0;
     my $minor_ver = $s3000->s3000_minor_ver() || 0;
     my $maint_ver = $s3000->s3000_maint_ver() || 0;
 
-   my $ver = "$major_ver.$minor_ver.$maint_ver"; 
-   return $ver;
+    my $ver = "$major_ver.$minor_ver.$maint_ver";
+    return $ver;
 }
 
 sub mac {
-    my $s3000 = shift;
+    my $s3000     = shift;
     my $topo_port = $s3000->s3000_topo_port();
-    my $topo_mac = $s3000->s3000_topo_mac();
-    
-    foreach my $entry (keys %$topo_port){
+    my $topo_mac  = $s3000->s3000_topo_mac();
+
+    foreach my $entry ( keys %$topo_port ) {
         my $port = $topo_port->{$entry};
         next unless $port == 0;
         my $mac = $topo_mac->{$entry};
         return $mac;
     }
+
     # Topology turned off, not supported.
-    return undef;
+    return;
 }
 
 # Hubs do not support ifMIB requirements for get MAC
 # and port status
 
 sub i_index {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
     my $b_index = $s3000->s3000_pb_index($partial) || {};
     my $p_index = $s3000->s3000_pp_index($partial) || {};
 
     my %i_index;
-    foreach my $iid (keys %$b_index){
+    foreach my $iid ( keys %$b_index ) {
         my $board = $b_index->{$iid};
         next unless defined $board;
-        my $port = $p_index->{$iid}||0;
+        my $port = $p_index->{$iid} || 0;
 
         # We need to make up an index for multiple board instances.
-        my $index = ($board*256)+$port;
+        my $index = ( $board * 256 ) + $port;
 
         $i_index{$iid} = $index;
     }
@@ -152,23 +158,23 @@ sub i_index {
 # for consistency
 
 sub interfaces {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
     my $i_index = $s3000->i_index() || {};
 
     my %if;
-    foreach my $iid (keys %$i_index){
+    foreach my $iid ( keys %$i_index ) {
         my $index = $i_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
 
         # Index numbers are deterministic slot * 256 + port - see i_index()
         my $port = $index % 256;
-        my $slot = int($index / 256);
+        my $slot = int( $index / 256 );
 
         my $slotport = "$slot.$port";
-    
+
         $if{$index} = $slotport;
     }
 
@@ -176,113 +182,114 @@ sub interfaces {
 }
 
 sub i_duplex {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
-    my $port_index  = $s3000->i_index() || {};
+    my $port_index = $s3000->i_index() || {};
 
     my %i_duplex;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
 
         # Hubs only function half duplex
         my $duplex = 'half';
-        $i_duplex{$index}=$duplex; 
+        $i_duplex{$index} = $duplex;
     }
     return \%i_duplex;
 }
 
 sub i_duplex_admin {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
-    my $port_index  = $s3000->i_index() || {};
+    my $port_index = $s3000->i_index() || {};
 
     my %i_duplex_admin;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
 
-        # Hubs only function half duplex    
+        # Hubs only function half duplex
         my $duplex = 'half';
-        $i_duplex_admin{$index}=$duplex; 
+        $i_duplex_admin{$index} = $duplex;
     }
     return \%i_duplex_admin;
 }
 
 sub i_speed {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
-    my $port_index  = $s3000->i_index() || {};
+    my $port_index = $s3000->i_index() || {};
 
     my %i_speed;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        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; 
+        $i_speed{$index} = $speed;
     }
     return \%i_speed;
 }
 
 sub i_up {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
-    my $port_index = $s3000->i_index() || {};
-    my $link_stat = $s3000->s3000_up() || {};
-   
+    my $port_index = $s3000->i_index()  || {};
+    my $link_stat  = $s3000->s3000_up() || {};
+
     my %i_up;
-    foreach my $iid (keys %$port_index){
+    foreach my $iid ( keys %$port_index ) {
         my $index = $port_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
         my $link_stat = $link_stat->{$iid};
         next unless defined $link_stat;
-        
-        $link_stat = 'up' if $link_stat =~ /on/i;
+
+        $link_stat = 'up'   if $link_stat =~ /on/i;
         $link_stat = 'down' if $link_stat =~ /off/i;
-             
-        $i_up{$index}=$link_stat; 
+
+        $i_up{$index} = $link_stat;
     }
     return \%i_up;
 }
 
 sub i_up_admin {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
-    my $i_index = $s3000->i_index() || {};
+    my $i_index   = $s3000->i_index()        || {};
     my $link_stat = $s3000->s3000_up_admin() || {};
- 
+
     my %i_up_admin;
-    foreach my $iid (keys %$i_index){
+    foreach my $iid ( keys %$i_index ) {
         my $index = $i_index->{$iid};
         next unless defined $index;
-        next if (defined $partial and $index !~ /^$partial$/);
+        next if ( defined $partial and $index !~ /^$partial$/ );
         my $link_stat = $link_stat->{$iid};
         next unless defined $link_stat;
- 
-        $i_up_admin{$index}=$link_stat; 
+
+        $i_up_admin{$index} = $link_stat;
     }
     return \%i_up_admin;
 }
 
 sub set_i_up_admin {
+
     # map setting to those the hub will understand
     my %setting = qw/up 2 down 3/;
 
     my $s3000 = shift;
-    my ($setting, $iid) = @_;
+    my ( $setting, $iid ) = @_;
 
-    my $i_index  = $s3000->i_index() || {};
+    my $i_index = $s3000->i_index() || {};
     my %reverse_i_index = reverse %$i_index;
 
     $setting = lc($setting);
@@ -291,49 +298,56 @@ sub set_i_up_admin {
 
     $iid = $reverse_i_index{$iid};
 
-    return $s3000->set_s3000_up_admin($setting{$setting}, $iid);
+    return $s3000->set_s3000_up_admin( $setting{$setting}, $iid );
 }
 
 # Hubs do not support the standard Bridge MIB
 sub bp_index {
-    my $s3000 = shift;
+    my $s3000   = shift;
     my $partial = shift;
 
     my $b_index = $s3000->s3000_nb_index() || {};
     my $p_index = $s3000->s3000_np_index() || {};
-    my $model = $s3000->model();
+    my $model   = $s3000->model();
 
     my %bp_index;
-    foreach my $iid (keys %$b_index){
+    foreach my $iid ( keys %$b_index ) {
         my $board = $b_index->{$iid};
         next unless defined $board;
-        my $port = $p_index->{$iid}||0;
-                
-        my $index = ($board*256)+$port;
-        next if (defined $partial and $index !~ /^$partial$/);
+        my $port = $p_index->{$iid} || 0;
+
+        my $index = ( $board * 256 ) + $port;
+        next if ( defined $partial and $index !~ /^$partial$/ );
 
         $bp_index{$index} = $index;
     }
     return \%bp_index;
 }
 
-sub fw_port {
+sub fw_mac {
     my $s3000 = shift;
+    my $partial   = shift;
+
+    return $s3000->SUPER::fw_mac($partial);
+}
+
+sub fw_port {
+    my $s3000   = shift;
     my $partial = shift;
 
     my $b_index = $s3000->s3000_nb_index($partial) || {};
     my $p_index = $s3000->s3000_np_index($partial) || {};
-    my $model = $s3000->model();
+    my $model   = $s3000->model();
 
     my %fw_port;
-    foreach my $iid (keys %$b_index){
+    foreach my $iid ( keys %$b_index ) {
         my $board = $b_index->{$iid};
         next unless defined $board;
-        my $port = $p_index->{$iid}||0;
+        my $port = $p_index->{$iid} || 0;
 
-        my $index = ($board*256)+$port;
+        my $index = ( $board * 256 ) + $port;
 
-      $fw_port{$iid} = $index;
+        $fw_port{$iid} = $index;
     }
     return \%fw_port;
 }
@@ -356,7 +370,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 +383,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 +403,9 @@ my $s3000 = new SNMP::Info::Layer1::S3000(...);
 
 =over
 
-=item SYNOPTICS-COMMON-MIB
+=item F<SYNOPTICS-COMMON-MIB>
 
-=item SYNOPTICS-ETHERNET-MIB
+=item F<SYNOPTICS-ETHERNET-MIB>
 
 =back
 
@@ -415,20 +429,21 @@ Returns 'synoptics'
 
 =item $s3000->model()
 
-Cross references $s3000->id() to the SYNOPTICS-MIB and returns
+Cross references $s3000->id() to the F<SYNOPTICS-MIB> and returns
 the results.
 
-Removes sreg- from the model name and returns only the numeric model identifier.
+Removes C<sreg-> 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<s3AgentSwMajorVer>).(B<s3AgentSwMinorVer>).(B<s3AgentSwMaintVer>)
+(C<s3AgentSwMajorVer>).(C<s3AgentSwMinorVer>).(C<s3AgentSwMaintVer>)
 
 =item $stack->os_bin()
 
-Returns the firmware version. (B<s3AgentFwVer>)
+Returns the firmware version. (C<s3AgentFwVer>)
 
 =item $s3000->mac()
 
@@ -442,7 +457,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 +479,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<ifIndex>, 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 +497,22 @@ 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<s3EnetPortLinkStatus>) for each port.  Translates on/off to up/down.
+Returns (C<s3EnetPortLinkStatus>) for each port.  Translates on/off to
+up/down.
 
 =item $s3000->i_up_admin()
 
-Returns (B<s3EnetPortPartStatus>) for each port.
+Returns (C<s3EnetPortPartStatus>) 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<ifIndex>
 
-State choices are 'up'or 'down'
+State choices are 'up' or 'down'
 
 Example:
   my %if_map = reverse %{$s3000->interfaces()};
@@ -508,22 +526,23 @@ 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<SYNOPTICS-ETHERNET-MIB::s3EnetShowNodesTable> to the Interface index.
 
 =item $s3000->fw_mac()
 
-(B<s3EnetShowNodesMacAddress>)
+(C<s3EnetShowNodesMacAddress>)
 
 =item $s3000->s3000_topo_port()
 
-Returns reference to hash.  Key: Table entry, Value:Port Number (interface iid)
+Returns reference to hash.  Key: Table entry, Value:Port Number
+(interface iid)
 
-(B<s3EnetTopNmmPort>)
+(C<s3EnetTopNmmPort>)
 
 =item $s3000->s3000_topo_mac()
 
-(B<s3EnetTopNmmMacAddr>)
+(C<s3EnetTopNmmMacAddr>)
 
 Returns reference to hash.  Key: Table entry, Value:Remote MAC address
 

lib/SNMP/Info/Layer2.pm

@@ -1,89 +1,94 @@
-# SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices 
-# Max Baker
+# SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices
+# $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.
-# 
-# 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;
-$VERSION = '1.07';
-# $Id$
 
 use strict;
-
 use Exporter;
 use SNMP::Info;
 use SNMP::Info::Bridge;
 use SNMP::Info::Entity;
 use SNMP::Info::PowerEthernet;
+use SNMP::Info::LLDP;
 
-use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/;
-
-@SNMP::Info::Layer2::ISA = qw/SNMP::Info SNMP::Info::Bridge SNMP::Info::Entity SNMP::Info::PowerEthernet Exporter/;
+@SNMP::Info::Layer2::ISA
+    = qw/SNMP::Info SNMP::Info::Bridge SNMP::Info::Entity SNMP::Info::PowerEthernet SNMP::Info::LLDP Exporter/;
 @SNMP::Info::Layer2::EXPORT_OK = qw//;
 
-%MIBS = (   %SNMP::Info::MIBS, 
-            %SNMP::Info::Bridge::MIBS,
-            %SNMP::Info::Entity::MIBS,
-            %SNMP::Info::PowerEthernet::MIBS,
-        );
+use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::MIBS,         %SNMP::Info::Bridge::MIBS,
+    %SNMP::Info::Entity::MIBS, %SNMP::Info::PowerEthernet::MIBS,
+    %SNMP::Info::LLDP::MIBS,
+);
 
 %GLOBALS = (
-            %SNMP::Info::GLOBALS,
-            %SNMP::Info::Bridge::GLOBALS,
-            %SNMP::Info::Entity::GLOBALS,
-            %SNMP::Info::PowerEthernet::GLOBALS,
-            'serial1'   => '.1.3.6.1.4.1.9.3.6.3.0', # OLD-CISCO-CHASSIS-MIB::chassisId.0
-            );
+    %SNMP::Info::GLOBALS,
+    %SNMP::Info::Bridge::GLOBALS,
+    %SNMP::Info::Entity::GLOBALS,
+    %SNMP::Info::PowerEthernet::GLOBALS,
+    %SNMP::Info::LLDP::GLOBALS,
+    'serial1' =>
+        '.1.3.6.1.4.1.9.3.6.3.0',    # OLD-CISCO-CHASSIS-MIB::chassisId.0
+);
 
-%FUNCS   = (
-            %SNMP::Info::FUNCS,
-            %SNMP::Info::Bridge::FUNCS,
-            %SNMP::Info::Entity::FUNCS,
-            %SNMP::Info::PowerEthernet::FUNCS,
-           );
+%FUNCS = (
+    %SNMP::Info::FUNCS,         %SNMP::Info::Bridge::FUNCS,
+    %SNMP::Info::Entity::FUNCS, %SNMP::Info::PowerEthernet::FUNCS,
+    %SNMP::Info::LLDP::FUNCS,
+);
 
 %MUNGE = (
-            # Inherit all the built in munging
-            %SNMP::Info::MUNGE,
-            %SNMP::Info::Bridge::MUNGE,
-            %SNMP::Info::Entity::MUNGE,
-            %SNMP::Info::PowerEthernet::MUNGE,
-         );
+
+    # Inherit all the built in munging
+    %SNMP::Info::MUNGE,
+    %SNMP::Info::Bridge::MUNGE,
+    %SNMP::Info::Entity::MUNGE,
+    %SNMP::Info::PowerEthernet::MUNGE,
+    %SNMP::Info::LLDP::MUNGE,
+);
 
 # Method OverRides
 
 # $l2->model() - Looks at sysObjectID which gives the oid of the system
-#       name, contained in a propriatry MIB. 
+#       name, contained in a propriatry MIB.
 sub model {
-    my $l2 = shift;
-    my $id = $l2->id();
+    my $l2    = shift;
+    my $id    = $l2->id();
     my $model = &SNMP::translateObj($id) || $id || '';
-   
+
     # HP
     $model =~ s/^hpswitch//i;
 
@@ -96,15 +101,15 @@ sub model {
 }
 
 sub vendor {
-    my $l2 = shift;
+    my $l2    = shift;
     my $model = $l2->model();
     my $descr = $l2->description();
 
-    if ($model =~ /hp/i or $descr =~ /\bhp\b/i) {
+    if ( $model =~ /hp/i or $descr =~ /\bhp\b/i ) {
         return 'hp';
     }
 
-    if ($model =~ /catalyst/i or $descr =~ /(catalyst|cisco)/i) {
+    if ( $model =~ /catalyst/i or $descr =~ /(catalyst|cisco)/i ) {
         return 'cisco';
     }
 
@@ -112,52 +117,41 @@ sub vendor {
 
 sub serial {
     my $l2 = shift;
-    
-    my $serial1   = $l2->serial1();
-    my $e_descr   = $l2->e_descr()  || {};
-    my $e_serial  = $l2->e_serial() || {};
-    
-    my $serial2   = $e_serial->{1}  || undef;
-    my $chassis   = $e_descr->{1}   || undef;
 
-    # precedence
-    #   serial2,chassis parse,serial1
-    return $serial2 if (defined $serial2 and $serial2 !~ /^\s*$/);
-    return $1 if (defined $chassis and $chassis =~ /serial#?:\s*([a-z0-9]+)/i);
-    return $serial1 if (defined $serial1 and $serial1 !~ /^\s*$/);
-
-    return undef;
-}
-
-sub i_ignore {
-    my $l2 = shift;
-    my $partial = shift;
-
-    my $i_type = $l2->i_type($partial) || {};
-
-    my %i_ignore = ();
-
-    foreach my $if (keys %$i_type){
-        my $type = $i_type->{$if};
-        $i_ignore{$if}++ 
-            if $type =~ /(loopback|other|cpu)/i;
+    my $entity_serial = $l2->entity_derived_serial();
+    if ( defined $entity_serial and $entity_serial !~ /^\s*$/ ){
+        return $entity_serial;
     }
 
-    return \%i_ignore;
-}    
+    my $serial1  = $l2->serial1();
+    if ( defined $serial1 and $serial1 !~ /^\s*$/ ) {
+        return $serial1;
+    }
+
+    return;
+
+}
 
 sub interfaces {
-    my $l2 = shift;
+    my $l2      = shift;
     my $partial = shift;
 
-    my $interfaces = $l2->i_index($partial) || {};
+    my $interfaces = $l2->i_index($partial)       || {};
     my $i_descr    = $l2->i_description($partial) || {};
 
     # Replace the Index with the ifDescr field.
-    foreach my $iid (keys %$i_descr){
+    # Check for duplicates in ifDescr, if so uniquely identify by adding
+    # ifIndex to repeated values
+    my %seen;
+    foreach my $iid ( keys %$i_descr ) {
         my $port = $i_descr->{$iid};
         next unless defined $port;
-        $interfaces->{$iid} = $port;
+        if ( $seen{$port}++ ) {
+            $interfaces->{$iid} = sprintf( "%s (%d)", $port, $iid );
+        }
+        else {
+            $interfaces->{$iid} = $port;
+        }
     }
     return $interfaces;
 }
@@ -179,7 +173,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
@@ -224,6 +217,8 @@ after determining a more specific class using the method above.
 
 =item SNMP::Info::Entity
 
+=item SNMP::Info::LLDP
+
 =back
 
 =head2 Required MIBs
@@ -251,13 +246,17 @@ 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()
+
+=item $l2->serial()
+
+Returns a serial number if found from F<ENTITY-MIB> and F<OLD-CISCO->... MIB.
 
 =back
 
@@ -273,6 +272,10 @@ See documentation in L<SNMP::Info::Bridge/"GLOBALS"> for details.
 
 See documentation in L<SNMP::Info::Entity/"GLOBALS"> for details.
 
+=head2 Globals imported from SNMP::Info::LLDP
+
+See documentation in L<SNMP::Info::LLDP/"GLOBALS"> for details.
+
 =head1 TABLE METHODS
 
 These are methods that return tables of information in the form of a reference
@@ -284,15 +287,10 @@ to a hash.
 
 =item $l2->interfaces()
 
-Creates a map between the interface identifier (iid) and the physical port name.
+Creates a map between the interface identifier (iid) and the physical port
+name.
 
-Defaults to B<ifDescr> but checks and overrides with B<ifName>
-
-=item $l2->i_ignore()
-
-Returns reference to hash.  Increments value of IID if port is to be ignored.
-
-Ignores ports with B<ifType> of loopback,propvirtual,other, and cpu
+Defaults to C<ifDescr> but checks and overrides with C<ifName>
 
 =back
 
@@ -308,4 +306,8 @@ See documentation in L<SNMP::Info::Bridge/"TABLE METHODS"> for details.
 
 See documentation in L<SNMP::Info::Entity/"TABLE METHODS"> for details.
 
+=head2 Table Methods imported from SNMP::Info::LLDP
+
+See documentation in L<SNMP::Info::LLDP/"TABLE METHODS"> for details.
+
 =cut

lib/SNMP/Info/Layer2/3Com.pm

@@ -0,0 +1,178 @@
+package SNMP::Info::Layer2::3Com;
+
+use strict;
+use Exporter;
+use SNMP::Info::Layer2;
+use SNMP::Info::LLDP;
+use SNMP::Info::CDP;
+
+@SNMP::Info::Layer2::3Com::ISA       = qw/SNMP::Info::LLDP SNMP::Info::Layer2 Exporter/;
+@SNMP::Info::Layer2::3Com::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::LLDP::MIBS,
+    %SNMP::Info::Layer2::MIBS,
+    'A3Com-products-MIB' => 'wlanAP7760',
+);
+
+%GLOBALS = (
+    %SNMP::Info::Layer2::GLOBALS,
+    %SNMP::Info::LLDP::GLOBALS,
+);
+
+%FUNCS = (
+    %SNMP::Info::Layer2::FUNCS,
+    %SNMP::Info::LLDP::FUNCS,
+);
+
+%MUNGE = (
+    %SNMP::Info::Layer2::MUNGE,
+    %SNMP::Info::LLDP::MUNGE,
+);
+
+
+sub os {
+    return '3Com';
+}
+
+sub serial {
+    my $dev  = shift;
+    my $e_serial = $dev->e_serial();
+
+    # Find entity table entry for this unit
+    foreach my $e ( sort keys %$e_serial ) {
+        if (defined $e_serial->{$e} and $e_serial->{$e} !~ /^\s*$/) {
+            return $e_serial->{$e};
+        }
+    }
+    return;
+}
+
+sub os_ver {
+
+    my $dev = shift;
+    my $e_swver  = $dev->e_swver();
+    # Find entity table entry for this unit
+    foreach my $e ( sort keys %$e_swver ) {
+        if (defined $e_swver->{$e} and $e_swver->{$e} !~ /^\s*$/) {
+            return $e_swver->{$e};
+        }
+    }
+    return;
+}
+
+sub vendor {
+    return '3Com';
+}
+
+sub model {
+
+    my $dsmodel = shift;
+    my $descr = $dsmodel->description();
+    if ( $descr =~ /^([\S ]+) Software.*/){
+        return $1;
+    } else {
+        return $descr;
+    }
+    return;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::Layer2::3Com - SNMP Interface to L2 3Com Switches
+
+=head1 AUTHOR
+
+Max Kosmach
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you.
+ my $router = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myrouter',
+                          Community   => 'public',
+                          Version     => 1
+                        )
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $router->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+Subclass for 3Com L2 devices
+
+=head2 Inherited Classes
+
+=over
+
+=item SNMP::Info::Layer2
+
+=back
+
+=head2 Required MIBs
+
+=over
+
+=item F<A3Com-products-MIB>
+
+=item Inherited Classes' MIBs
+
+See L<SNMP::Info::Layer2/"Required MIBs"> for its own MIB requirements.
+
+=back
+
+=head1 GLOBALS
+
+These are methods that return scalar value from SNMP
+
+=head2 Overrides
+
+=over
+
+=item $device->vendor()
+
+Returns '3Com'
+
+=item $device->os()
+
+Returns '3Com'
+
+=item $device->os_ver()
+
+Return os version
+
+=item $device->model()
+
+Returns device model extracted from description
+
+=item $device->serial()
+
+Returns serial number
+
+=back
+
+=head2 Globals imported from SNMP::Info::Layer2
+
+See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=head2 Table Methods imported from SNMP::Info::Layer2
+
+See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
+
+=cut
+

lib/SNMP/Info/Layer2/Adtran.pm

@@ -0,0 +1,286 @@
+package SNMP::Info::Layer2::Adtran;
+
+use strict;
+use Exporter;
+use SNMP::Info::LLDP;
+use SNMP::Info::Layer2;
+use SNMP::Info::Layer3;
+
+@SNMP::Info::Layer2::Adtran::ISA       = qw/SNMP::Info::LLDP SNMP::Info::Layer2 Exporter/;
+@SNMP::Info::Layer2::Adtran::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
+
+$VERSION = '3.61';
+
+# This will be filled in with the device's index into the EntPhysicalEntry
+# table by the serial() function.
+our $index = undef;
+
+%MIBS = ( 
+    %SNMP::Info::Layer2::MIBS,
+    %SNMP::Info::Layer3::MIBS,
+    'ADTRAN-GENEVC-MIB'     => 'adGenEVCMIB',
+    'ADTRAN-GENMEF-MIB'     => 'adGenMEFMIB',
+    'ADTRAN-GENPORT-MIB'    => 'adGenPort',
+    'ADTRAN-MIB'            => 'adtran',
+    'ADTRAN-AOSUNIT'     => 'adGenAOSUnitMib',
+ );
+
+%GLOBALS = (
+    %SNMP::Info::Layer2::GLOBALS, 
+    %SNMP::Info::Layer3::GLOBALS, 
+    %SNMP::Info::LLDP::GLOBALS,
+    'serial'    => 'adProdSerialNumber',
+    'ad_mgmtevcvid' => 'adGenEVCSysMgmtEVCSTagVID',
+);
+
+%FUNCS = ( %SNMP::Info::Layer2::FUNCS,
+           %SNMP::Info::Layer3::FUNCS,
+           %SNMP::Info::LLDP::FUNCS, 
+           'ad_evcstag' => 'adGenEVCLookupName',
+           'ad_menport' => 'adGenMenPortRowStatus',
+           'ad_evcnamevid' => 'adGenEVCSTagVID',
+           'ad_mgmtevcports' => 'adGenSysMgmtEVCInterfaceConnectionType',
+           'ad_evcmapuniport' => 'adGenMEFMapUNIPort',
+           'ad_evcmapevc' => 'adGenMEFMapAssociatedEVCAlias',
+           'ad_genportcustuse' => 'adGenPortCustomerUse',
+);
+
+%MUNGE = ( %SNMP::Info::Layer2::MUNGE, %SNMP::Info::LLDP::MUNGE, %SNMP::Info::Layer3::MUNGE );
+
+sub vendor {
+    return 'adtran';
+}
+sub os {
+    return 'aos';
+}
+
+sub layers {
+    my $adtran = shift;
+    
+    my $layers = $adtran->SUPER::layers();
+    # Some netvantas don't report L2 properly 
+    my $macs   = $adtran->fw_mac();
+    
+    if (keys %$macs) {
+        my $l = substr $layers, 6, 1, "1";
+    }
+
+    return $layers;
+}
+
+sub os_ver {
+    my $adtran = shift;
+    my $ver = $adtran->adProdSwVersion() || undef;
+    return $ver if (defined $ver);
+    my $aos_ver = $adtran->adAOSDeviceVersion();
+    return $aos_ver;
+}
+sub model { 
+    my $adtran = shift;
+    my $id = $adtran->id();
+    my $mod = $adtran->adProdName() || undef;
+    return $mod if (defined $mod);
+    my $model = $adtran->adAOSDeviceProductName() || undef;
+    return $model;
+}
+sub serial { 
+    my $adtran = shift;
+    my $e_serial = $adtran->e_serial() || {};
+    my $serial2 = $e_serial->{1} || undef;
+    return $serial2 if ( defined $serial2 );
+    return $adtran->orig_serial();
+}
+
+sub i_name {
+    my $adtran = shift;
+    my $partial = shift;
+    my $i_name = $adtran->SUPER::i_alias() || undef; 
+    return $i_name if (defined $i_name);
+    $i_name = {};
+    my $adname = $adtran->ad_genportcustuse() || undef;
+    if (defined $adname) {  
+        foreach my $port (keys %$adname) { 
+            my @split = split(/\./,$port);
+            $i_name->{@split[1]} = $adname->{$port};
+        }
+    }
+    return $i_name;
+}
+sub i_vlan { 
+    my $adtran = shift;
+    my $partial = shift;
+    my $uniports = $adtran->ad_evcmapuniport() || undef;
+    my $evcmaps = $adtran->ad_evcmapevc() || undef;
+    my $v_names = $adtran->ad_evcnamevid() || undef;
+    if (defined $uniports) {
+        my $vlans = {};
+        foreach my $oid (keys %$v_names) {
+            my $name = pack("C*", split(/\./,$oid));
+            $vlans->{$name} = $v_names->{$oid};
+        }
+        my $i_vlan = {};
+        foreach my $evcmap (keys %$evcmaps) {
+            $i_vlan->{$uniports->{$evcmap}} = $vlans->{$evcmaps->{$evcmap}};
+        }
+        return $i_vlan;
+    }
+    return {};
+        
+}
+        
+sub i_vlan_membership {         
+    my $adtran  = shift;
+    my $partial = shift;
+    my $i_vlan = $adtran->ad_menport();
+    if (defined $i_vlan) { 
+        my $vlans = {};
+        my $v_name = $adtran->v_name();
+        foreach my $vid (keys %$v_name) {
+            $vlans->{$v_name->{$vid}} = $vid;
+        }
+        my $if_vlans = {};
+        foreach my $entry (keys %$i_vlan) {
+            my @split = split(/(\.0)+\./,$entry);
+            my $name = pack("C*", split(/\./,@split[0]));
+            push @{$if_vlans->{@split[2]}}, $vlans->{$name};
+        }
+        my $mgmtevcports = $adtran->ad_mgmtevcports();
+        my $mgmtevcid = $adtran->ad_mgmtevcvid();
+        foreach my $port (keys %$mgmtevcports) {
+           push @{$if_vlans->{$port}}, $mgmtevcid;
+        }
+        return $if_vlans;
+    }
+    return {};
+}
+
+sub v_name {
+    my $adtran = shift;
+    my $partial = shift;
+    my $v_index = $adtran->ad_evcstag();
+    return {} unless defined $v_index;
+    $v_index->{$adtran->ad_mgmtevcvid()} = 'system-management-evc';
+    return $v_index;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::Layer2::Adtran - SNMP Interface to Adtran Devices
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $adtran = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myrouter',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class      = $adtran->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+Subclass for adtran Devices running JUNOS
+
+=head2 Inherited Classes
+
+=over
+
+=item SNMP::Info::Layer3
+
+=item SNMP::Info::LLDP
+
+=back
+
+=head2 Inherited Classes' MIBs
+
+See L<SNMP::Info::Layer3/"Required MIBs"> for its own MIB requirements.
+
+See L<SNMP::Info::LLDP/"Required MIBs"> for its own MIB requirements.
+
+=head1 GLOBALS
+
+These are methods that return scalar value from SNMP
+
+=over
+
+=item $adtran->vendor()
+
+Returns 'adtran'
+
+=item $adtran->os()
+
+Returns 'aos'
+
+=item $adtran->layers()
+
+Ensures that layer two is reported, at least.
+
+=item $adtran->os_ver()
+
+Returns the software version extracted first from C<adProdSwVersion> or
+C<adAOSDeviceVersion>.
+
+=item $adtran->model()
+
+Returns the model extracted first from C<adProdName> or
+C<adAOSDeviceProductName>.
+
+=item $adtran->serial()
+
+Returns serial number.
+
+=back
+
+=head2 Globals imported from SNMP::Info::Layer3
+
+See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
+
+=head2 Global Methods imported from SNMP::Info::LLDP
+
+See documentation in L<SNMP::Info::LLDP/"GLOBALS"> for details.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $adtran->v_name()
+
+VLAN names table.
+
+=item $adtran->i_name()
+
+Interface names table.
+
+=item $adtran->i_vlan()
+
+Returns a mapping between C<ifIndex> and the PVID or default VLAN.
+
+=item $adtran->i_vlan_membership()
+
+Returns reference to hash of arrays: key = C<ifIndex>, value = array of VLAN
+IDs.  These are the VLANs which are members of the egress list for the port.
+
+=back
+
+=head2 Table Methods imported from SNMP::Info::Layer3
+
+See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
+
+=head2 Table Methods imported from SNMP::Info::LLDP
+
+See documentation in L<SNMP::Info::LLDP/"TABLE METHODS"> for details.
+
+=cut

lib/SNMP/Info/Layer2/Aerohive.pm

@@ -0,0 +1,472 @@
+# SNMP::Info::Layer2::Aerohive
+#
+# Copyright (c) 2018 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.
+#     * 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::Layer2::Aerohive;
+
+use strict;
+use Exporter;
+use SNMP::Info::Layer2;
+
+@SNMP::Info::Layer2::Aerohive::ISA       = qw/SNMP::Info::Layer2 Exporter/;
+@SNMP::Info::Layer2::Aerohive::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::Layer2::MIBS,
+    'AH-SYSTEM-MIB'    => 'ahSystemSerial',
+    'AH-INTERFACE-MIB' => 'ahSSIDName',
+);
+
+%GLOBALS = (
+    %SNMP::Info::Layer2::GLOBALS,
+
+    # AH-SYSTEM-MIB
+    'serial' => 'ahSystemSerial',
+    'os_bin' => 'ahFirmwareVersion',
+);
+
+%FUNCS = (
+    %SNMP::Info::Layer2::FUNCS,
+
+    # AH-INTERFACE-MIB::ahRadioAttributeTable
+    'i_80211channel'      => 'ahRadioChannel',
+    'dot11_cur_tx_pwr_mw' => 'ahRadioTxPower',
+
+    # AH-INTERFACE-MIB::ahXIfTable
+    'ah_i_ssidlist' => 'ahSSIDName',
+
+    # AH-INTERFACE-MIB::ahAssociationTable
+    'cd11_txrate'      => 'ahClientLastTxRate',
+    'cd11_uptime'      => 'ahClientLinkUptime',
+    'cd11_sigstrength' => 'ahClientRSSI',
+    'cd11_rxpkt'       => 'ahClientRxDataFrames',
+    'cd11_txpkt'       => 'ahClientTxDataFrames',
+    'cd11_rxbyte'      => 'ahClientRxDataOctets',
+    'cd11_txbyte'      => 'ahClientTxDataOctets',
+    'cd11_ssid'        => 'ahClientSSID',
+    'ah_c_vlan'        => 'ahClientVLAN',
+    'ah_c_ip'          => 'ahClientIP',
+);
+
+%MUNGE
+    = ( %SNMP::Info::Layer2::MUNGE, 'at_paddr' => \&SNMP::Info::munge_mac, );
+
+sub layers {
+    return '00000111';
+}
+
+sub vendor {
+    return 'aerohive';
+}
+
+sub os {
+    return 'hiveos';
+}
+
+sub os_ver {
+    my $aerohive = shift;
+    my $descr    = $aerohive->description();
+
+    if ( $descr =~ m/\bHiveOS\s(\d\.\w+)\b/ix ) {
+        return $1;
+    }
+    return;
+}
+
+sub model {
+    my $aerohive = shift;
+    my $descr    = $aerohive->description();
+
+    if ( $descr =~ m/\b(?:Hive|)(AP\d+)\b/ix ) {
+        return $1;
+    }
+    return;
+}
+
+sub i_ssidlist {
+    my $aerohive = shift;
+    my $partial  = shift;
+
+    my $ssids = $aerohive->ah_i_ssidlist($partial) || {};
+
+    my %i_ssidlist;
+    foreach my $iid ( keys %$ssids ) {
+        my $ssid = $ssids->{$iid};
+        next if $ssid =~ /N\/A/i;
+
+        $i_ssidlist{$iid} = $ssid;
+    }
+    return \%i_ssidlist;
+}
+
+sub i_ssidmac {
+    my $aerohive = shift;
+    my $partial  = shift;
+
+    my $ssids = $aerohive->i_ssidlist($partial) || {};
+    my $macs  = $aerohive->i_mac($partial)      || {};
+
+    my %i_ssidmac;
+    foreach my $iid ( keys %$ssids ) {
+        my $mac = $macs->{$iid};
+        next unless $mac;
+
+        $i_ssidmac{$iid} = $mac;
+    }
+    return \%i_ssidmac;
+}
+
+# Break up the ahAssociationEntry INDEX into ifIndex and MAC Address.
+sub _ah_association_index {
+    my $idx     = shift;
+    my @values  = split( /\./, $idx );
+    my $ifindex = shift(@values);
+    my $length  = shift(@values);
+    return ( $ifindex, join( ':', map { sprintf "%02x", $_ } @values ) );
+}
+
+sub cd11_port {
+    my $aerohive = shift;
+
+    my $cd11_txrate = $aerohive->cd11_txrate();
+    my $interfaces  = $aerohive->interfaces();
+
+    my %ret;
+    foreach ( keys %$cd11_txrate ) {
+        my ( $ifindex, $mac ) = _ah_association_index($_);
+        $ret{$_} = $interfaces->{$ifindex};
+    }
+    return \%ret;
+}
+
+sub cd11_mac {
+    my $aerohive = shift;
+
+    my $cd11_txrate = $aerohive->cd11_txrate();
+
+    my %ret;
+    foreach ( keys %$cd11_txrate ) {
+        my ( $ifindex, $mac ) = _ah_association_index($_);
+        $ret{$_} = $mac;
+    }
+    return \%ret;
+}
+
+# Does not support the standard Bridge MIB
+sub bp_index {
+    my $aerohive = shift;
+    my $partial  = shift;
+
+    my $i_index = $aerohive->i_index($partial) || {};
+
+    my %bp_index;
+    foreach my $iid ( keys %$i_index ) {
+        my $index = $i_index->{$iid};
+        next unless defined $index;
+
+        $bp_index{$index} = $iid;
+    }
+
+    return \%bp_index;
+}
+
+sub qb_fw_port {
+    my $aerohive = shift;
+    my $partial  = shift;
+
+    my $txrate = $aerohive->cd11_txrate($partial) || {};
+
+    my $qb_fw_port = {};
+    foreach my $idx ( keys %$txrate ) {
+        my ( $fdb_id, $mac ) = _ah_association_index($idx);
+        $qb_fw_port->{$idx} = $fdb_id;
+    }
+    return $qb_fw_port;
+}
+
+sub qb_fw_mac {
+    my $aerohive = shift;
+    my $partial  = shift;
+
+    my $txrate = $aerohive->cd11_txrate($partial) || {};
+
+    my $qb_fw_mac = {};
+    foreach my $idx ( keys %$txrate ) {
+        my ( $fdb_id, $mac ) = _ah_association_index($idx);
+        $qb_fw_mac->{$idx} = $mac;
+    }
+    return $qb_fw_mac;
+}
+
+sub qb_fw_vlan {
+    my $aerohive = shift;
+    my $partial  = shift;
+
+    my $vlans = $aerohive->ah_c_vlan($partial) || {};
+
+    my $qb_fw_vlan = {};
+    foreach my $idx ( keys %$vlans ) {
+        my $vlan = $vlans->{$idx};
+        next unless defined $vlan;
+        $qb_fw_vlan->{$idx} = $vlan;
+    }
+    return $qb_fw_vlan;
+}
+
+# arpnip:
+#
+# This is the AP snooping on the MAC->IP mappings.
+# Pretending this is arpnip data allows us to get MAC->IP
+# mappings even for stations that only communicate locally.
+
+sub at_paddr {
+    my $aerohive = shift;
+
+    my $txrate = $aerohive->cd11_txrate() || {};
+
+    my $at_paddr = {};
+    foreach my $idx ( keys %$txrate ) {
+        my ( $fdb_id, $mac ) = _ah_association_index($idx);
+        $at_paddr->{$idx} = $mac;
+    }
+    return $at_paddr;
+}
+
+sub at_netaddr {
+    my $aerohive = shift;
+
+    my $ips = $aerohive->ah_c_ip() || {};
+
+    my $ret = {};
+    foreach my $idx ( keys %$ips ) {
+        next if ( $ips->{$idx} eq '0.0.0.0' );
+        $ret->{$idx} = $ips->{$idx};
+    }
+    return $ret;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SNMP::Info::Layer2::Aerohive - SNMP Interface to Aerohive Access Points
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+ # Let SNMP::Info determine the correct subclass for you. 
+ my $aerohive = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+    or die "Can't connect to DestHost.\n";
+
+ my $class = $aerohive->class();
+ print "SNMP::Info determined this device to fall under subclass : $class\n";
+
+=head1 DESCRIPTION
+
+Provides abstraction to the configuration information obtainable from an
+Aerohive wireless Access Point 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. 
+
+ my $aerohive = new SNMP::Info::Layer2::Aerohive(...);
+
+=head2 Inherited Classes
+
+=over
+
+=item SNMP::Info::Layer2
+
+=back
+
+=head2 Required MIBs
+
+=over
+
+=item F<AH-SYSTEM-MIB>
+
+=item F<AH-INTERFACE-MIB>
+
+=back
+
+=head2 Inherited MIBs
+
+See L<SNMP::Info::Layer2/"Required MIBs"> for its MIB requirements.
+
+=head1 GLOBALS
+
+These are methods that return scalar value from SNMP
+
+=over
+
+=item $aerohive->vendor()
+
+Returns 'aerohive'.
+
+=item $aerohive->os()
+
+Returns 'hive_os'.
+
+=item $aerohive->os_ver()
+
+Returns the OS versionl extracted from C<sysDescr>.
+
+=item $aerohive->os_bin()
+
+Returns the firmware version extracted from C<ahFirmwareVersion>.
+
+=item $aerohive->model()
+
+Returns the model extracted from C<sysDescr>.
+
+=item $aerohive->serial()
+
+Returns the serial number extracted from C<ahSystemSerial>.
+
+=back
+
+=head2 Overrides
+
+=over
+
+=item $aerohive->layers()
+
+Returns 00000111. Layer 2 and Layer 3 functionality through proprietary MIBs.
+
+=back
+
+=head2 Global Methods imported from SNMP::Info::Layer2
+
+See L<SNMP::Info::Layer2/"GLOBALS"> for details.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over
+
+=item $aerohive->i_ssidlist()
+
+Returns reference to hash.  SSID's recognized by the radio interface.
+
+=item $aerohive->i_ssidmac()
+
+With the same keys as i_ssidlist, returns the Basic service set
+identification (BSSID), MAC address, the AP is using for the SSID.
+
+=item $aerohive->i_80211channel()
+
+Returns reference to hash.  Current operating frequency channel of the radio
+interface.
+
+C<ahRadioChannel>
+
+=item $aerohive->dot11_cur_tx_pwr_mw()
+
+Returns reference to hash.  Current transmit power, in milliwatts, of the
+radio interface.
+
+C<ahRadioTxPower>
+
+=item $aironet->cd11_port()
+
+Returns radio interfaces.
+
+=item $aironet->cd11_mac()
+
+Returns client radio interface MAC addresses.
+
+=back
+
+=head2 Overrides
+
+=over
+
+=item $aerohive->bp_index()
+
+Simulates bridge MIB by returning reference to a hash mapping i_index() to
+the interface iid.
+
+=item $aerohive->qb_fw_port()
+
+Returns reference to hash of forwarding table entries port interface
+identifier (iid)
+
+=item $aerohive->qb_fw_mac()
+
+Returns reference to hash of forwarding table MAC Addresses
+
+C<ahClientMac>
+
+=item $aerohive->qb_fw_vlan()
+
+Returns reference to hash of forwarding table entries VLAN ID
+
+C<ahClientVLAN>
+
+=back
+
+=head2 Arp Cache Table Augmentation
+
+The AP has knowledge of MAC->IP mappings for wireless clients.
+Augmenting the arp cache data with these MAC->IP mappings enables visibility
+for stations that only communicate locally.
+
+=over
+
+=item $aerohive->at_paddr()
+
+C<ahClientMac>
+
+=item $aerohive->at_netaddr()
+
+C<ahClientIP>
+
+=back
+
+=head2 Table Methods imported from SNMP::Info::Layer2
+
+See L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
+
+=cut

lib/SNMP/Info/Layer2/Airespace.pm

@@ -0,0 +1,402 @@
+# SNMP::Info::Layer2::Airespace
+#
+# 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 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::Layer2::Airespace;
+
+use strict;
+use Exporter;
+use SNMP::Info::Bridge;
+use SNMP::Info::CDP;
+use SNMP::Info::Airespace;
+
+@SNMP::Info::Layer2::Airespace::ISA
+    = qw/SNMP::Info::Airespace SNMP::Info::CDP SNMP::Info::Bridge Exporter/;
+@SNMP::Info::Layer2::Airespace::EXPORT_OK = qw//;
+
+use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
+
+$VERSION = '3.61';
+
+%MIBS = (
+    %SNMP::Info::MIBS,      %SNMP::Info::Bridge::MIBS,
+    %SNMP::Info::CDP::MIBS, %SNMP::Info::Airespace::MIBS,
+    'CISCO-LWAPP-DOT11-CLIENT-MIB' => 'cldcClientCurrentTxRateSet',
+    'CISCO-LWAPP-DOT11-MIB'        => 'cldHtDot11nChannelBandwidth',
+    'CISCO-LWAPP-AP-MIB'           => 'cLApIfMacAddress',
+);
+
+%GLOBALS = (
+    %SNMP::Info::GLOBALS,      %SNMP::Info::Bridge::GLOBALS,
+    %SNMP::Info::CDP::GLOBALS, %SNMP::Info::Airespace::GLOBALS,
+);
+
+%FUNCS = (
+    %SNMP::Info::FUNCS,      %SNMP::Info::Bridge::FUNCS,
+    %SNMP::Info::CDP::FUNCS, %SNMP::Info::Airespace::FUNCS,
+    # CISCO-LWAPP-AP-MIB::cLApTable
+    'ap_if_mac'        => 'cLApIfMacAddress',
+    # CISCO-LWAPP-DOT11-CLIENT-MIB::cldcClientTable
+    'client_txrate'    => 'cldcClientCurrentTxRateSet',
+    'cd11_proto'       => 'cldcClientProtocol',
+    'cd11_rateset'     => 'cldcClientDataRateSet',
+    # CISCO-LWAPP-DOT11-MIB::cldHtMacOperationsTable
+    'cd11n_ch_bw'      => 'cldHtDot11nChannelBandwidth',
+
+);
+
+%MUNGE = (
+    %SNMP::Info::MUNGE,      %SNMP::Info::Bridge::MUNGE,
+    %SNMP::Info::CDP::MUNGE, %SNMP::Info::Airespace::MUNGE,
+    'ap_if_mac'         => \&SNMP::Info::munge_mac,
+    'cd11n_ch_bw'       => \&munge_cd11n_ch_bw,
+    'cd11_rateset'      => \&munge_cd11_rateset,
+    'cd11_proto'        => \&munge_cd11_proto,
+);
+
+# 802.11n Modulation and Coding Scheme (MCS)
+my $mcs_index = {
+    20 => {
+	m0  => '6.5',
+	m1  => '13',
+	m2  => '19.5',
+	m3  => '26',
+	m4  => '39',
+	m5  => '52',
+	m6  => '58.5',
+	m7  => '65',
+	m8  => '13',
+	m9  => '26',
+	m10 => '39',
+	m11 => '52',
+	m12 => '78',
+	m13 => '104',
+	m14 => '117',
+	m15 => '130',
+	m16 => '19.5',
+	m17 => '39',
+	m18 => '58.5',
+	m19 => '78',
+	m20 => '117',
+	m21 => '156',
+	m22 => '175.5',
+	m23 => '195',
+	# This is a cheat for 802.11a bonded
+	m108 => '108',
+    },
+    40 => {
+	m0  => '15',
+	m1  => '30',
+	m2  => '45',
+	m3  => '60',
+	m4  => '90',
+	m5  => '120',
+	m6  => '135',
+	m7  => '157.5',
+	m8  => '30',
+	m9  => '60',
+	m10 => '90',
+	m11 => '120',
+	m12 => '180',
+	m13 => '240',
+	m14 => '270',
+	m15 => '300',
+	m16 => '45',
+	m17 => '90',
+	m18 => '135',
+	m19 => '180',
+	m20 => '270',
+	m21 => '360',
+	m22 => '405',
+	m23 => '450',
+    }
+};
+
+sub os {
+    return 'cisco';
+}
+
+sub vendor {
+    return 'cisco';
+}
+
+sub model {
+    my $airespace = shift;
+    my $model     = $airespace->airespace_model();
+    return unless defined $model;
+
+    return $model;
+}
+
+sub cd11_mac {
+    my $airespace = shift;
+    my $cd11_sigstrength = $airespace->cd11_sigstrength();
+
+    my $ret = {};
+    foreach my $idx ( keys %$cd11_sigstrength ) {
+	my $mac = join( ":", map { sprintf "%02x", $_ } split /\./, $idx );
+	$ret->{$idx} = $mac
+    }
+    return $ret;
+}
+
+sub cd11_txrate {
+    my $airespace = shift;
+    
+    my $rates  = $airespace->client_txrate() || {};
+    my $protos = $airespace->cd11_proto()    || {};
+    my $bws    = $airespace->cd11n_ch_bw()   || {};
+    
+    my $cd11_txrate = {};
+    foreach my $idx ( keys %$rates ) {
+	my $rate = $rates->{$idx} || '0.0';
+	
+	if ( $rate =~ /^\d+/ ) {
+            $cd11_txrate->{$idx} = [ $rate * 1.0 ];
+	}
+	elsif ( $rate =~ /^m/ ) {
+	    my $band = $protos->{$idx};
+	    my $bw   = $bws->{$band};
+	    # FIXME throw some kind of error if we get an index/rate that we haven't implemented yet? Now we simply return "0.0"...
+	    $cd11_txrate->{$idx} = [ $mcs_index->{$bw}->{$rate} || '0.0' ];
+	}
+	else {
+	    $cd11_txrate->{$idx} = [ $rate ];
+	}
+    }
+    return $cd11_txrate;
+}
+
+sub munge_cd11n_ch_bw {
+    my $bw = shift;
+    
+    if ( $bw =~ /forty/ ) {
+	return 40;
+    }
+    return 20;
+}
+
+sub munge_cd11_proto {
+    my $bw = shift;
+    
+    return 2 if ( $bw eq 'dot11n5' );
+
+    return 1;
+}
+
+sub munge_cd11_rateset {
+    my $rates = shift;
+    return [ map { $_ * 1.0 } split /,/, $rates ];
+}
+
+# Cisco provides the AP's Ethernet MAC via
+# CISCO-LWAPP-AP-MIB::cLApIfMacAddress this was not available pre-Cisco
+sub i_mac {
+    my $airespace = shift;
+    my $partial   = shift;
+
+    my $i_index = $airespace->i_index($partial)  || {};
+    my $ap_mac  = $airespace->ap_if_mac()        || {};
+
+    my $i_mac = $airespace->SUPER::i_mac() || {};
+    foreach my $iid ( keys %$i_index ) {
+	my $index = $i_index->{$iid};
+	next unless defined $index;
+
+	if ( $index =~ /(?:[0-9A-Fa-f]{2}:){5}[0-9A-Fa-f]{2}/ ) {
+	    $index =~ s/\.\d+$//;
+	    next unless defined $index;
+	    my $sys_mac = join( '.', map { hex($_) } split( ':', $index ) );
+	    my $mac = $ap_mac->{$sys_mac};
+	    $i_mac->{$iid} = $mac;
+	}
+    }
+    return $i_mac;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+SNMP::Info::Layer2::Airespace - SNMP Interface to Cisco (Airespace) Wireless
+Controllers
+
+=head1 AUTHOR
+
+Eric Miller
+
+=head1 SYNOPSIS
+
+    #Let SNMP::Info determine the correct subclass for you.
+
+    my $airespace = new SNMP::Info(
+                          AutoSpecify => 1,
+                          Debug       => 1,
+                          DestHost    => 'myswitch',
+                          Community   => 'public',
+                          Version     => 2
+                        ) 
+
+    or die "Can't connect to DestHost.\n";
+
+    my $class = $airespace->class();
+    print " Using device sub class : $class\n";
+
+=head1 DESCRIPTION
+
+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. 
+
+my $airespace = new SNMP::Info::Layer2::Airespace(...);
+
+=head2 Inherited Classes
+
+=over
+
+=item SNMP::Info::Airespace
+
+=item SNMP::Info::CDP
+
+=item SNMP::Info::Bridge
+
+=back
+
+=head2 Required MIBs
+
+=over
+
+=item F<CISCO-LWAPP-DOT11-CLIENT-MIB>
+
+=item F<CISCO-LWAPP-DOT11-MIB>
+
+=item F<CISCO-LWAPP-AP-MIB>
+
+=item Inherited Classes' MIBs
+
+See L<SNMP::Info::Airespace/"Required MIBs"> for its own MIB requirements.
+
+See L<SNMP::Info::CDP/"Required MIBs"> for its own MIB requirements.
+
+See L<SNMP::Info::Bridge/"Required MIBs"> for its own MIB requirements.
+
+=back
+
+=head1 GLOBALS
+
+These are methods that return scalar value from SNMP
+
+=over
+
+=item $airespace->vendor()
+
+Returns 'cisco'
+
+=item $airespace->os()
+
+Returns 'cisco'
+
+=item $airespace->model()
+
+(C<agentInventoryMachineModel>)
+
+=back
+
+=head2 Global Methods imported from SNMP::Info::Airespace
+
+See documentation in L<SNMP::Info::Airespace/"GLOBALS"> for details.
+
+=head2 Global Methods imported from SNMP::Info::CDP
+
+See documentation in L<SNMP::Info::CDP/"GLOBALS"> for details.
+
+=head2 Globals imported from SNMP::Info::Bridge
+
+See documentation in L<SNMP::Info::Bridge/"GLOBALS"> for details.
+
+=head1 TABLE METHODS
+
+These are methods that return tables of information in the form of a reference
+to a hash.
+
+=over 
+
+=item cd11_mac()
+
+Returns client radio interface MAC addresses.
+
+=item cd11_txrate()
+
+Returns client transmission speed in Mbs.
+
+=back 
+
+=head2 Overrides
+
+=over
+
+=item i_mac()
+
+Adds AP Ethernet MAC as port mac on radio ports from C<CISCO-LWAPP-AP-MIB>.
+
+=back
+
+=head2 Table Methods imported from SNMP::Info::Airespace
+
+See documentation in L<SNMP::Info::Airespace/"TABLE METHODS"> for details.
+
+=head2 Table Methods imported from SNMP::Info::CDP
+
+See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
+
+=head2 Table Methods imported from SNMP::Info::Bridge
+
+See documentation in L<SNMP::Info::Bridge/"TABLE METHODS"> for details.
+
+=head1 Data Munging Callback Subroutines
+
+=over
+
+=item munge_cd11n_ch_bw()
+
+Converts 802.11n channel bandwidth to either 20 or 40.
+
+=item munge_cd11_proto()
+
+Converts 802.11n 2.4Ghz to 1 and 5Ghz to 2 to correspond to the
+(C<cldHtMacOperationsTable>) index.
+
+=item munge_cd11_rateset()
+
+Converts rate set to array.
+
+=back
+
+=cut