diff --git a/ChangeLog b/ChangeLog index 11cdce91..d23f27a8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -34,6 +34,17 @@ version 3.00 * [3564920] - lldp_if gives wrong data for Enterasys +version 2.11 (2012-12-09) + + [BUG FIXES] + + * Add fall-back for sysDescr on Force10 + +version 2.10 (2012-12-08) + + [NEW FEATURES] + + * Support for Force10 devices (W. Bulley) version 2.09 (2012-11-28) diff --git a/Info.pm b/Info.pm index 1de9851f..ee301dbf 100644 --- a/Info.pm +++ b/Info.pm @@ -717,6 +717,12 @@ Subclass for Extreme Networks switches. See documentation in L for details. +=item SNMP::Info::Layer3::Force10 + +Subclass for Force10 devices. + +See documentation in L for details. + =item SNMP::Info::Layer3::Foundry Subclass for Foundry Network devices. @@ -1336,6 +1342,7 @@ sub device_type { 3417 => 'SNMP::Info::Layer3::BlueCoatSG', 4526 => 'SNMP::Info::Layer2::Netgear', 5624 => 'SNMP::Info::Layer3::Enterasys', + 6027 => 'SNMP::Info::Layer3::Force10', 6486 => 'SNMP::Info::Layer3::AlcatelLucent', 6527 => 'SNMP::Info::Layer3::Timetra', 8072 => 'SNMP::Info::Layer3::NetSNMP', diff --git a/Info/AdslLine.pm b/Info/AdslLine.pm index d5eb5255..a030e132 100644 --- a/Info/AdslLine.pm +++ b/Info/AdslLine.pm @@ -38,7 +38,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'ADSL-LINE-MIB' => 'adslLineType' ); diff --git a/Info/Airespace.pm b/Info/Airespace.pm index c6f056e4..26749dec 100644 --- a/Info/Airespace.pm +++ b/Info/Airespace.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Bridge.pm b/Info/Bridge.pm index f9c62e14..cfc71bdb 100644 --- a/Info/Bridge.pm +++ b/Info/Bridge.pm @@ -42,7 +42,7 @@ use SNMP::Info; use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'BRIDGE-MIB' => 'dot1dBaseBridgeAddress', diff --git a/Info/CDP.pm b/Info/CDP.pm index 53cfdd34..41491849 100644 --- a/Info/CDP.pm +++ b/Info/CDP.pm @@ -42,7 +42,7 @@ use SNMP::Info; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; -$VERSION = '2.09'; +$VERSION = '2.11'; # Five data structures required by SNMP::Info %MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' ); diff --git a/Info/CiscoConfig.pm b/Info/CiscoConfig.pm index 2fd4d91c..d5032660 100644 --- a/Info/CiscoConfig.pm +++ b/Info/CiscoConfig.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-CONFIG-COPY-MIB' => 'ccCopyTable', diff --git a/Info/CiscoImage.pm b/Info/CiscoImage.pm index 9979fe43..38304cf2 100644 --- a/Info/CiscoImage.pm +++ b/Info/CiscoImage.pm @@ -38,7 +38,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-IMAGE-MIB' => 'ciscoImageString', ); diff --git a/Info/CiscoPortSecurity.pm b/Info/CiscoPortSecurity.pm index 90af0f54..85e02319 100644 --- a/Info/CiscoPortSecurity.pm +++ b/Info/CiscoPortSecurity.pm @@ -38,7 +38,7 @@ use Exporter; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PAECAPABILITIES/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB', diff --git a/Info/CiscoPower.pm b/Info/CiscoPower.pm index 76403134..c7cffa2e 100644 --- a/Info/CiscoPower.pm +++ b/Info/CiscoPower.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-POWER-ETHERNET-EXT-MIB' => 'cpeExtPsePortEntPhyIndex', 'CISCO-CDP-MIB' => 'cdpCachePowerConsumption' ); diff --git a/Info/CiscoQOS.pm b/Info/CiscoQOS.pm index cc1e8935..fcdb4e8e 100644 --- a/Info/CiscoQOS.pm +++ b/Info/CiscoQOS.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-CLASS-BASED-QOS-MIB' => 'cbQosIfIndex', ); diff --git a/Info/CiscoRTT.pm b/Info/CiscoRTT.pm index 0bcdcb8e..b7a07b9e 100644 --- a/Info/CiscoRTT.pm +++ b/Info/CiscoRTT.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-RTTMON-MIB' => 'rttMonCtrlAdminOwner', ); diff --git a/Info/CiscoStack.pm b/Info/CiscoStack.pm index a333cc15..f9eda12a 100644 --- a/Info/CiscoStack.pm +++ b/Info/CiscoStack.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-STACK-MIB' => 'ciscoStackMIB', ); diff --git a/Info/CiscoStats.pm b/Info/CiscoStats.pm index 88df0bd7..971ceb2d 100644 --- a/Info/CiscoStats.pm +++ b/Info/CiscoStats.pm @@ -42,7 +42,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'SNMPv2-MIB' => 'sysDescr', diff --git a/Info/CiscoVTP.pm b/Info/CiscoVTP.pm index f1e1534a..79e11cca 100644 --- a/Info/CiscoVTP.pm +++ b/Info/CiscoVTP.pm @@ -41,7 +41,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'CISCO-VTP-MIB' => 'vtpVlanName', diff --git a/Info/EDP.pm b/Info/EDP.pm index bd3c68c3..33ba0c0a 100644 --- a/Info/EDP.pm +++ b/Info/EDP.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'EXTREME-EDP-MIB' => 'extremeEdpPortIfIndex', diff --git a/Info/Entity.pm b/Info/Entity.pm index b8d33c7a..ff85ba29 100644 --- a/Info/Entity.pm +++ b/Info/Entity.pm @@ -41,7 +41,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'ENTITY-MIB' => 'entPhysicalSerialNum' ); diff --git a/Info/EtherLike.pm b/Info/EtherLike.pm index 27963f7f..e4c9e0eb 100644 --- a/Info/EtherLike.pm +++ b/Info/EtherLike.pm @@ -41,7 +41,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'EtherLike-MIB' => 'etherMIB' ); diff --git a/Info/FDP.pm b/Info/FDP.pm index 9a1a270e..84eb498f 100644 --- a/Info/FDP.pm +++ b/Info/FDP.pm @@ -42,7 +42,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' ); diff --git a/Info/IEEE802dot11.pm b/Info/IEEE802dot11.pm index bd61ec2d..9f47933a 100644 --- a/Info/IEEE802dot11.pm +++ b/Info/IEEE802dot11.pm @@ -38,7 +38,7 @@ use Exporter; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'IEEE802dot11-MIB' => 'dot11DesiredSSID', ); diff --git a/Info/IPv6.pm b/Info/IPv6.pm index ab32c9c4..37ce9bf7 100644 --- a/Info/IPv6.pm +++ b/Info/IPv6.pm @@ -44,7 +44,7 @@ use constant { IPV6MIB => 3, }; -$VERSION = '2.09'; +$VERSION = '2.11'; diff --git a/Info/LLDP.pm b/Info/LLDP.pm index d9a659c5..c8d2a9c6 100644 --- a/Info/LLDP.pm +++ b/Info/LLDP.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'LLDP-MIB' => 'lldpLocSysCapEnabled', diff --git a/Info/Layer1.pm b/Info/Layer1.pm index ff667aa9..c5f6108d 100644 --- a/Info/Layer1.pm +++ b/Info/Layer1.pm @@ -41,7 +41,7 @@ use SNMP::Info; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, 'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex' ); diff --git a/Info/Layer1/Allied.pm b/Info/Layer1/Allied.pm index 8da5f4c4..e2bc1cec 100644 --- a/Info/Layer1/Allied.pm +++ b/Info/Layer1/Allied.pm @@ -41,7 +41,7 @@ use SNMP::Info::Layer1; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; # Set for No CDP %GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, 'root_ip' => 'actualIPAddr', ); diff --git a/Info/Layer1/Asante.pm b/Info/Layer1/Asante.pm index e40c50d0..d2fc0c23 100644 --- a/Info/Layer1/Asante.pm +++ b/Info/Layer1/Asante.pm @@ -41,7 +41,7 @@ use SNMP::Info::Layer1; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; # Set for No CDP %GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, ); diff --git a/Info/Layer1/Bayhub.pm b/Info/Layer1/Bayhub.pm index d22a2785..35a37372 100644 --- a/Info/Layer1/Bayhub.pm +++ b/Info/Layer1/Bayhub.pm @@ -42,7 +42,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer1/Cyclades.pm b/Info/Layer1/Cyclades.pm index e905bbdd..772a7900 100644 --- a/Info/Layer1/Cyclades.pm +++ b/Info/Layer1/Cyclades.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer1; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer1::MIBS, diff --git a/Info/Layer1/S3000.pm b/Info/Layer1/S3000.pm index 234564c1..d166c7f6 100644 --- a/Info/Layer1/S3000.pm +++ b/Info/Layer1/S3000.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2.pm b/Info/Layer2.pm index eef82293..b3aa85c3 100644 --- a/Info/Layer2.pm +++ b/Info/Layer2.pm @@ -45,7 +45,7 @@ use SNMP::Info::PowerEthernet; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, diff --git a/Info/Layer2/Airespace.pm b/Info/Layer2/Airespace.pm index 6932ac05..4f3a0368 100644 --- a/Info/Layer2/Airespace.pm +++ b/Info/Layer2/Airespace.pm @@ -40,7 +40,7 @@ use SNMP::Info::Airespace; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, diff --git a/Info/Layer2/Aironet.pm b/Info/Layer2/Aironet.pm index 54c73413..0d3a9124 100644 --- a/Info/Layer2/Aironet.pm +++ b/Info/Layer2/Aironet.pm @@ -49,7 +49,7 @@ use SNMP::Info::IEEE802dot11; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %GLOBALS = ( %SNMP::Info::IEEE802dot11::GLOBALS, diff --git a/Info/Layer2/Allied.pm b/Info/Layer2/Allied.pm index 87fa6a38..959b0409 100644 --- a/Info/Layer2/Allied.pm +++ b/Info/Layer2/Allied.pm @@ -40,7 +40,7 @@ use SNMP::Info::Layer1; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS ); diff --git a/Info/Layer2/Bay.pm b/Info/Layer2/Bay.pm index 53a78aad..67b19afe 100644 --- a/Info/Layer2/Bay.pm +++ b/Info/Layer2/Bay.pm @@ -42,7 +42,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; # Set for No CDP %GLOBALS = ( diff --git a/Info/Layer2/Baystack.pm b/Info/Layer2/Baystack.pm index 99404708..dd7001c8 100644 --- a/Info/Layer2/Baystack.pm +++ b/Info/Layer2/Baystack.pm @@ -46,7 +46,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::LLDP::MIBS, diff --git a/Info/Layer2/C1900.pm b/Info/Layer2/C1900.pm index c3156f3b..164c8ead 100644 --- a/Info/Layer2/C1900.pm +++ b/Info/Layer2/C1900.pm @@ -46,7 +46,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, diff --git a/Info/Layer2/C2900.pm b/Info/Layer2/C2900.pm index fd519b23..6a7d2024 100644 --- a/Info/Layer2/C2900.pm +++ b/Info/Layer2/C2900.pm @@ -47,7 +47,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::CiscoConfig::GLOBALS, diff --git a/Info/Layer2/Catalyst.pm b/Info/Layer2/Catalyst.pm index 6f09101f..7f0fdb67 100644 --- a/Info/Layer2/Catalyst.pm +++ b/Info/Layer2/Catalyst.pm @@ -49,7 +49,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoPortSecurity::MIBS, diff --git a/Info/Layer2/Centillion.pm b/Info/Layer2/Centillion.pm index bd55f592..5ee4f29a 100644 --- a/Info/Layer2/Centillion.pm +++ b/Info/Layer2/Centillion.pm @@ -43,7 +43,7 @@ use SNMP::Info::SONMP; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer2/Cisco.pm b/Info/Layer2/Cisco.pm index 66969aa5..75d5b9d1 100644 --- a/Info/Layer2/Cisco.pm +++ b/Info/Layer2/Cisco.pm @@ -50,7 +50,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoConfig::MIBS, diff --git a/Info/Layer2/Foundry.pm b/Info/Layer2/Foundry.pm index e493f6ff..d84e7e99 100644 --- a/Info/Layer2/Foundry.pm +++ b/Info/Layer2/Foundry.pm @@ -44,7 +44,7 @@ use SNMP::Info::MAU; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::FDP::MIBS, diff --git a/Info/Layer2/HP.pm b/Info/Layer2/HP.pm index a2db1b96..ca0afee4 100644 --- a/Info/Layer2/HP.pm +++ b/Info/Layer2/HP.pm @@ -46,7 +46,7 @@ use SNMP::Info::CDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer2/HP4000.pm b/Info/Layer2/HP4000.pm index 1a4aed19..abb7b6b0 100644 --- a/Info/Layer2/HP4000.pm +++ b/Info/Layer2/HP4000.pm @@ -44,7 +44,7 @@ use SNMP::Info::CDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer2/HPVC.pm b/Info/Layer2/HPVC.pm index 914d17bc..715791f5 100644 --- a/Info/Layer2/HPVC.pm +++ b/Info/Layer2/HPVC.pm @@ -40,7 +40,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2/Kentrox.pm b/Info/Layer2/Kentrox.pm index 1eb14f4d..c6cad9bf 100644 --- a/Info/Layer2/Kentrox.pm +++ b/Info/Layer2/Kentrox.pm @@ -36,7 +36,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2/N2270.pm b/Info/Layer2/N2270.pm index 448649df..f2cd7422 100644 --- a/Info/Layer2/N2270.pm +++ b/Info/Layer2/N2270.pm @@ -43,7 +43,7 @@ use SNMP::Info::Airespace; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, diff --git a/Info/Layer2/NAP222x.pm b/Info/Layer2/NAP222x.pm index da1cd757..d2a4cd96 100644 --- a/Info/Layer2/NAP222x.pm +++ b/Info/Layer2/NAP222x.pm @@ -42,7 +42,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::IEEE802dot11::MIBS, diff --git a/Info/Layer2/Netgear.pm b/Info/Layer2/Netgear.pm index 13c684c6..58fd644a 100644 --- a/Info/Layer2/Netgear.pm +++ b/Info/Layer2/Netgear.pm @@ -40,7 +40,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::LLDP::MIBS, ); diff --git a/Info/Layer2/Orinoco.pm b/Info/Layer2/Orinoco.pm index 20ddf913..8346ad90 100644 --- a/Info/Layer2/Orinoco.pm +++ b/Info/Layer2/Orinoco.pm @@ -41,7 +41,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2/ZyXEL_DSLAM.pm b/Info/Layer2/ZyXEL_DSLAM.pm index 08e67758..42a65d34 100644 --- a/Info/Layer2/ZyXEL_DSLAM.pm +++ b/Info/Layer2/ZyXEL_DSLAM.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer2; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; # Set for No CDP %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS ); diff --git a/Info/Layer3.pm b/Info/Layer3.pm index 81e25654..1019e34f 100644 --- a/Info/Layer3.pm +++ b/Info/Layer3.pm @@ -51,7 +51,7 @@ use SNMP::Info::AdslLine; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer3/Aironet.pm b/Info/Layer3/Aironet.pm index 9861eecc..703e7857 100644 --- a/Info/Layer3/Aironet.pm +++ b/Info/Layer3/Aironet.pm @@ -41,7 +41,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/AlcatelLucent.pm b/Info/Layer3/AlcatelLucent.pm index 3a61e8aa..ced3063d 100644 --- a/Info/Layer3/AlcatelLucent.pm +++ b/Info/Layer3/AlcatelLucent.pm @@ -48,7 +48,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/AlteonAD.pm b/Info/Layer3/AlteonAD.pm index ca408364..e124d607 100644 --- a/Info/Layer3/AlteonAD.pm +++ b/Info/Layer3/AlteonAD.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Altiga.pm b/Info/Layer3/Altiga.pm index 1d51a3a5..a95daa0e 100644 --- a/Info/Layer3/Altiga.pm +++ b/Info/Layer3/Altiga.pm @@ -40,7 +40,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE $int_include_vpn $fake_idx $type_class/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Arista.pm b/Info/Layer3/Arista.pm index df47604c..b6ce4185 100644 --- a/Info/Layer3/Arista.pm +++ b/Info/Layer3/Arista.pm @@ -43,7 +43,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Aruba.pm b/Info/Layer3/Aruba.pm index de0025ba..cb984393 100644 --- a/Info/Layer3/Aruba.pm +++ b/Info/Layer3/Aruba.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/BayRS.pm b/Info/Layer3/BayRS.pm index 86ad2c75..792c91c1 100644 --- a/Info/Layer3/BayRS.pm +++ b/Info/Layer3/BayRS.pm @@ -43,7 +43,7 @@ use SNMP::Info::Bridge; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE %MODEL_MAP %MODID_MAP %PROCID_MAP/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer3/BlueCoatSG.pm b/Info/Layer3/BlueCoatSG.pm index c6e91dfd..379fc594 100644 --- a/Info/Layer3/BlueCoatSG.pm +++ b/Info/Layer3/BlueCoatSG.pm @@ -36,7 +36,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/C3550.pm b/Info/Layer3/C3550.pm index dd26a935..19036c24 100644 --- a/Info/Layer3/C3550.pm +++ b/Info/Layer3/C3550.pm @@ -64,7 +64,7 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; @SNMP::Info::Layer3::C3550::EXPORT_OK = qw//; -$VERSION = '2.09'; +$VERSION = '2.11'; # NOTE: Order creates precedence # Example: v_name exists in Bridge.pm and CiscoVTP.pm diff --git a/Info/Layer3/C4000.pm b/Info/Layer3/C4000.pm index 9b444016..22ef4600 100644 --- a/Info/Layer3/C4000.pm +++ b/Info/Layer3/C4000.pm @@ -50,7 +50,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/C6500.pm b/Info/Layer3/C6500.pm index b0cdd255..ad15d62b 100644 --- a/Info/Layer3/C6500.pm +++ b/Info/Layer3/C6500.pm @@ -66,7 +66,7 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; # NOTE: Order creates precedence # Example: v_name exists in Bridge.pm and CiscoVTP.pm diff --git a/Info/Layer3/Cisco.pm b/Info/Layer3/Cisco.pm index 1d1dcd09..de9ea40d 100644 --- a/Info/Layer3/Cisco.pm +++ b/Info/Layer3/Cisco.pm @@ -52,7 +52,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/CiscoFWSM.pm b/Info/Layer3/CiscoFWSM.pm index 9f1405f1..95d87003 100644 --- a/Info/Layer3/CiscoFWSM.pm +++ b/Info/Layer3/CiscoFWSM.pm @@ -40,7 +40,7 @@ use SNMP::Info::Layer3::Cisco; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::Cisco::MIBS, diff --git a/Info/Layer3/Contivity.pm b/Info/Layer3/Contivity.pm index 70955077..b665d526 100644 --- a/Info/Layer3/Contivity.pm +++ b/Info/Layer3/Contivity.pm @@ -42,7 +42,7 @@ use SNMP::Info::Entity; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::Entity::MIBS, diff --git a/Info/Layer3/Dell.pm b/Info/Layer3/Dell.pm index 5819b2c3..1c3aabfb 100644 --- a/Info/Layer3/Dell.pm +++ b/Info/Layer3/Dell.pm @@ -40,7 +40,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Enterasys.pm b/Info/Layer3/Enterasys.pm index af666242..e57c5061 100644 --- a/Info/Layer3/Enterasys.pm +++ b/Info/Layer3/Enterasys.pm @@ -44,7 +44,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::CDP::MIBS, diff --git a/Info/Layer3/Extreme.pm b/Info/Layer3/Extreme.pm index 9ecfd89a..b3925bfc 100644 --- a/Info/Layer3/Extreme.pm +++ b/Info/Layer3/Extreme.pm @@ -46,7 +46,7 @@ use SNMP::Info::EDP; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Force10.pm b/Info/Layer3/Force10.pm new file mode 100644 index 00000000..1733e343 --- /dev/null +++ b/Info/Layer3/Force10.pm @@ -0,0 +1,400 @@ +# SNMP::Info::Layer3::Force10 +# $Id$ +# +# Copyright (c) 2012 William Bulley +# 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 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::Force10; + +use strict; +use Exporter; + +use SNMP::Info::Layer3; +use SNMP::Info::MAU; +use SNMP::Info::LLDP; + +@SNMP::Info::Layer3::Force10::ISA = qw/SNMP::Info::LLDP SNMP::Info::MAU + SNMP::Info::Layer3 Exporter/; +@SNMP::Info::Layer3::Force10::EXPORT_OK = qw//; + +use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE/; + +$VERSION = '2.11'; + +%MIBS = ( + %SNMP::Info::Layer3::MIBS, + %SNMP::Info::MAU::MIBS, + %SNMP::Info::LLDP::MIBS, + 'F10-PRODUCTS-MIB' => 'f10Products', +); + +%GLOBALS = ( + %SNMP::Info::Layer3::GLOBALS, + %SNMP::Info::MAU::GLOBALS, + %SNMP::Info::LLDP::GLOBALS, +); + +%FUNCS = ( + %SNMP::Info::Layer3::FUNCS, + %SNMP::Info::MAU::FUNCS, + %SNMP::Info::LLDP::FUNCS, +); + +%MUNGE = ( + %SNMP::Info::Layer3::MUNGE, + %SNMP::Info::MAU::MUNGE, + %SNMP::Info::LLDP::MUNGE, +); + +# use MAU-MIB for admin. duplex and admin. speed +*SNMP::Info::Layer3::Force10::i_duplex_admin + = \&SNMP::Info::MAU::mau_i_duplex_admin; +*SNMP::Info::Layer3::Force10::i_speed_admin + = \&SNMP::Info::MAU::mau_i_speed_admin; + +sub vendor { + return 'force10'; +} + +sub os { + return 'ftos'; +} + +sub os_ver { + my $force10 = shift; + my $descr = $force10->description(); + my $os_ver = undef; + + $os_ver = $1 if ( $descr =~ /Force10\s+Application\s+Software\s+Version:\s+(\S+)/s ); + + return $os_ver; +} + +sub model { + my $force10 = shift; + my $id = $force10->id(); + + my $model = &SNMP::translateObj($id); + return $id unless defined $model; + + return $model; +} + +# Use Q-BRIDGE-MIB + +sub fw_mac { + my $force10 = shift; + my $partial = shift; + + return $force10->qb_fw_mac($partial); +} + +sub fw_port { + my $force10 = shift; + my $partial = shift; + + return $force10->qb_fw_port($partial); +} + +sub v_name { + my $force10 = shift; + my $partial = shift; + + return $force10->qb_v_name($partial); +} + +# ------------------- stub for now----------------- +sub i_vlan { + my $force10 = shift; + my $partial = shift; + + my $i_vlan = {}; + + return $i_vlan; +} + +sub i_vlan_membership { + my $force10 = shift; + my $partial = shift; + + my $index = $force10->bp_index(); + my $v_index = $force10->v_index(); + + my $v_ports = $force10->qb_v_egress(); + + # If given a partial it will be an ifIndex, we need to use dot1dBasePort + if ($partial) { + my %r_index = reverse %$index; + $partial = $r_index{$partial}; + } + + my $i_vlan_membership = {}; + + foreach my $idx ( sort keys %{$v_ports} ) { + next unless ( defined $v_ports->{$idx} ); + my $portlist = $v_ports->{$idx}; # is an array reference + my $ret = []; + my $vlan_ndx = $idx; + + # Convert portlist bit array to bp_index array + for ( my $i = 0; $i <= $#$portlist; $i++ ) { + push( @{$ret}, $i + 1 ) if ( @$portlist[$i] ); + } + + #Create HoA ifIndex -> VLAN array + foreach my $port ( @{$ret} ) { + my $ifindex = $index->{$port}; + next unless ( defined($ifindex) ); # shouldn't happen + next if ( defined $partial and $ifindex !~ /^$partial$/ ); + my $vlan_tag = $v_index->{$vlan_ndx}; + + # FIXME: would be preferable to use + # the mapping from Q-BRIDGE-MIB::dot1qVlanFdbId + my $mod = $vlan_tag % 4096; + + push ( @{ $i_vlan_membership->{$ifindex} }, ($mod) ); + } + } + + return $i_vlan_membership; +} + +# Use LLDP + +sub hasCDP { + my $force10 = shift; + + return $force10->hasLLDP(); +} + +sub c_ip { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_ip($partial); +} + +sub c_if { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_if($partial); +} + +sub c_port { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_port($partial); +} + +sub c_id { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_id($partial); +} + +sub c_platform { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_rem_sysdesc($partial); +} + +1; + +__END__ + +=head1 NAME + +SNMP::Info::Layer3::Force10 - SNMP Interface to Force10 Networks FTOS + +=head1 AUTHOR + +William Bulley + +=head1 SYNOPSIS + + # Let SNMP::Info determine the correct subclass for you. + my $force10 = 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 = $force10->class(); + print "SNMP::Info determined this device to fall under subclass : $class\n"; + +=head1 DESCRIPTION + +Subclass for Force10 Networks FTOS-based devices. + +=head2 Inherited Classes + +=over + +=item SNMP::Info::Layer3 + +=item SNMP::Info::MAU + +=item SNMP::Info::LLDP + +=back + +=head2 Required MIBs + +=over + +=item F + +=item Inherited Classes' MIBs + +See L for its own MIB requirements. + +See L for its own MIB requirements. + +See L for its own MIB requirements. + +=back + +=head1 GLOBALS + +These are methods that return scalar values from SNMP: + +=over + +=item $force10->vendor() + + Returns 'force10' + +=item $force10->hasCDP() + + Returns whether LLDP is enabled. + +=item $force10->model() + +Tries to reference $force10->id() to the Force10 product MIB listed above. + +=item $force10->os() + +Returns 'ftos' + +=item $force10->os_ver() + +Grabs the operating system version from C + +=back + +=head2 Global Methods imported from SNMP::Info::Layer3 + +See documentation in L for details. + +=head2 Global Methods imported from SNMP::Info::MAU + +See documentation in L for details. + +=head2 Global Methods imported from SNMP::Info::Layer3 + +See documentation in L for details. + +=head1 TABLE METHODS + +These are methods that return tables of information in the form of a reference +to a hash. + +=over + +=item $force10->v_name() + +Returns the VLAN names. + +=item $force10->i_vlan() + +Currently not implemented. + +=item $force10->i_vlan_membership() + +Returns reference to hash of arrays: +key = C, value = array of VLAN IDs. +These are the VLANs which are members of the egress list for the port. + +=item $force10->fw_mac() + +Use the F instead of F + +=item $force10->fw_port() + +Use the F instead of F + +=item $force10->c_id() + +Returns LLDP information. + +=item $force10->c_if() + +Returns LLDP information. + +=item $force10->c_ip() + +Returns LLDP information. + +=item $force10->c_platform() + +Returns LLDP information. + +=item $force10->c_port() + +Returns LLDP information. + +=item $force10->i_duplex_admin() + +Returns info from F + +=item $force10->i_speed_admin() + +Returns info from F + +=back + +=head2 Table Methods imported from SNMP::Info::Layer3 + +See documentation in L for details. + +=head2 Table Methods imported from SNMP::Info::MAU + +See documentation in L for details. + +=head2 Table Methods imported from SNMP::Info::LLDP + +See documentation in L for details. + +=cut diff --git a/Info/Layer3/Foundry.pm b/Info/Layer3/Foundry.pm index e0ef1683..8eb60dd0 100644 --- a/Info/Layer3/Foundry.pm +++ b/Info/Layer3/Foundry.pm @@ -44,7 +44,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/HP9300.pm b/Info/Layer3/HP9300.pm index 7fab5fae..1d078c1f 100644 --- a/Info/Layer3/HP9300.pm +++ b/Info/Layer3/HP9300.pm @@ -42,7 +42,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Juniper.pm b/Info/Layer3/Juniper.pm index 9fbe1bfb..74427f71 100644 --- a/Info/Layer3/Juniper.pm +++ b/Info/Layer3/Juniper.pm @@ -40,7 +40,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Microsoft.pm b/Info/Layer3/Microsoft.pm index d4950e29..fa0897b0 100644 --- a/Info/Layer3/Microsoft.pm +++ b/Info/Layer3/Microsoft.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, ); diff --git a/Info/Layer3/Mikrotik.pm b/Info/Layer3/Mikrotik.pm index e4647d10..766bbeb8 100644 --- a/Info/Layer3/Mikrotik.pm +++ b/Info/Layer3/Mikrotik.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/N1600.pm b/Info/Layer3/N1600.pm index 22cb4369..df623052 100644 --- a/Info/Layer3/N1600.pm +++ b/Info/Layer3/N1600.pm @@ -41,7 +41,7 @@ use SNMP::Info::SONMP; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/NetSNMP.pm b/Info/Layer3/NetSNMP.pm index 1be4d1bf..a72ad751 100644 --- a/Info/Layer3/NetSNMP.pm +++ b/Info/Layer3/NetSNMP.pm @@ -40,7 +40,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Netscreen.pm b/Info/Layer3/Netscreen.pm index 6c0c29bd..393c377d 100644 --- a/Info/Layer3/Netscreen.pm +++ b/Info/Layer3/Netscreen.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Nexus.pm b/Info/Layer3/Nexus.pm index 271473ca..0d390fba 100644 --- a/Info/Layer3/Nexus.pm +++ b/Info/Layer3/Nexus.pm @@ -61,7 +61,7 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; # NOTE: Order creates precedence # Example: v_name exists in Bridge.pm and CiscoVTP.pm diff --git a/Info/Layer3/PacketFront.pm b/Info/Layer3/PacketFront.pm index ada96725..efdff253 100644 --- a/Info/Layer3/PacketFront.pm +++ b/Info/Layer3/PacketFront.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Passport.pm b/Info/Layer3/Passport.pm index 20c043a3..9665c42a 100644 --- a/Info/Layer3/Passport.pm +++ b/Info/Layer3/Passport.pm @@ -43,7 +43,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::RapidCity::MIBS, diff --git a/Info/Layer3/Pf.pm b/Info/Layer3/Pf.pm index 6138cabf..04fd2085 100644 --- a/Info/Layer3/Pf.pm +++ b/Info/Layer3/Pf.pm @@ -41,7 +41,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/SonicWALL.pm b/Info/Layer3/SonicWALL.pm index cfdb7743..3134d90b 100644 --- a/Info/Layer3/SonicWALL.pm +++ b/Info/Layer3/SonicWALL.pm @@ -36,7 +36,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Sun.pm b/Info/Layer3/Sun.pm index db29a212..eb423b81 100644 --- a/Info/Layer3/Sun.pm +++ b/Info/Layer3/Sun.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, ); diff --git a/Info/Layer3/Tasman.pm b/Info/Layer3/Tasman.pm index d96bdded..f5164dfa 100644 --- a/Info/Layer3/Tasman.pm +++ b/Info/Layer3/Tasman.pm @@ -41,7 +41,7 @@ use SNMP::Info::MAU; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Timetra.pm b/Info/Layer3/Timetra.pm index f571c4b7..210833e3 100644 --- a/Info/Layer3/Timetra.pm +++ b/Info/Layer3/Timetra.pm @@ -40,7 +40,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer3::MIBS, 'TIMETRA-GLOBAL-MIB' => 'timetraReg', ); diff --git a/Info/Layer7.pm b/Info/Layer7.pm index e2f54f67..874d418d 100644 --- a/Info/Layer7.pm +++ b/Info/Layer7.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer7/APC.pm b/Info/Layer7/APC.pm index 86ebc4a4..7cc1a5de 100644 --- a/Info/Layer7/APC.pm +++ b/Info/Layer7/APC.pm @@ -40,7 +40,7 @@ use SNMP::Info::Layer7; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer7::MIBS, diff --git a/Info/Layer7/Neoteris.pm b/Info/Layer7/Neoteris.pm index 6c0c5a89..4cd5c6d6 100644 --- a/Info/Layer7/Neoteris.pm +++ b/Info/Layer7/Neoteris.pm @@ -38,7 +38,7 @@ use SNMP::Info::Layer7; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( %SNMP::Info::Layer7::MIBS, diff --git a/Info/MAU.pm b/Info/MAU.pm index 118328ca..356bd02b 100644 --- a/Info/MAU.pm +++ b/Info/MAU.pm @@ -41,7 +41,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'MAU-MIB' => 'mauMod' ); diff --git a/Info/NortelStack.pm b/Info/NortelStack.pm index 6ebeb829..07c9b081 100644 --- a/Info/NortelStack.pm +++ b/Info/NortelStack.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( diff --git a/Info/PowerEthernet.pm b/Info/PowerEthernet.pm index 79cbd145..56373c09 100644 --- a/Info/PowerEthernet.pm +++ b/Info/PowerEthernet.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'POWER-ETHERNET-MIB' => 'pethPsePortDetectionStatus' ); diff --git a/Info/RapidCity.pm b/Info/RapidCity.pm index 61cf08ff..c23e18d1 100644 --- a/Info/RapidCity.pm +++ b/Info/RapidCity.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'RAPID-CITY' => 'rapidCity', ); diff --git a/Info/SONMP.pm b/Info/SONMP.pm index 4afcda20..538dd822 100644 --- a/Info/SONMP.pm +++ b/Info/SONMP.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.09'; +$VERSION = '2.11'; %MIBS = ( 'SYNOPTICS-ROOT-MIB' => 'synoptics', diff --git a/MANIFEST b/MANIFEST index 650a6bcb..8a4410b8 100644 --- a/MANIFEST +++ b/MANIFEST @@ -68,6 +68,7 @@ Info/Layer3/Contivity.pm Info/Layer3/Dell.pm Info/Layer3/Enterasys.pm Info/Layer3/Extreme.pm +Info/Layer3/Force10.pm Info/Layer3/Foundry.pm Info/Layer3/HP9300.pm Info/Layer3/Juniper.pm diff --git a/README b/README index fd7bfe51..17b2297b 100644 --- a/README +++ b/README @@ -5,7 +5,7 @@ NAME VERSION - SNMP::Info - Version 2.09 + SNMP::Info - Version 2.11 AUTHOR @@ -604,6 +604,11 @@ SUBCLASSES See documentation in SNMP::Info::Layer3::Extreme for details. + SNMP::Info::Layer3::Force10 + Subclass for Force10 devices. + + See documentation in SNMP::Info::Layer3::Force10 for details. + SNMP::Info::Layer3::Foundry Subclass for Foundry Network devices. diff --git a/t/push_ver b/t/push_ver index 2482c007..ce43342f 100755 --- a/t/push_ver +++ b/t/push_ver @@ -5,7 +5,7 @@ use File::Glob qw/bsd_glob/; my @pms = glob_rec("../Info"); -$new_version = shift @ARGV || '2.09'; +$new_version = shift @ARGV || '2.11'; foreach my $p (@pms) { print "$p\n";