From 73fd6278155d43d98c811bc42219f2635bcf731b Mon Sep 17 00:00:00 2001 From: Oliver Gorwits Date: Sat, 7 Jul 2012 19:32:13 +0100 Subject: [PATCH 1/2] bump version for release; fixes for POD and Perl::Critic --- ChangeLog | 2 +- Info.pm | 28 ++++++++++++++++++++++++---- Info/AdslLine.pm | 2 +- Info/Airespace.pm | 2 +- Info/Bridge.pm | 2 +- Info/CDP.pm | 2 +- Info/CiscoConfig.pm | 2 +- Info/CiscoImage.pm | 2 +- Info/CiscoPortSecurity.pm | 2 +- Info/CiscoPower.pm | 2 +- Info/CiscoQOS.pm | 2 +- Info/CiscoRTT.pm | 2 +- Info/CiscoStack.pm | 2 +- Info/CiscoStats.pm | 2 +- Info/CiscoStpExtensions.pm | 2 +- Info/CiscoVTP.pm | 2 +- Info/Entity.pm | 4 ++-- Info/EtherLike.pm | 2 +- Info/FDP.pm | 2 +- Info/IEEE802dot11.pm | 2 +- Info/IPv6.pm | 2 +- Info/LLDP.pm | 2 +- Info/Layer1.pm | 2 +- Info/Layer1/Allied.pm | 2 +- Info/Layer1/Asante.pm | 2 +- Info/Layer1/Bayhub.pm | 2 +- Info/Layer1/Cyclades.pm | 2 +- Info/Layer1/S3000.pm | 2 +- Info/Layer2.pm | 2 +- Info/Layer2/Airespace.pm | 2 +- Info/Layer2/Aironet.pm | 2 +- Info/Layer2/Allied.pm | 2 +- Info/Layer2/Bay.pm | 2 +- Info/Layer2/Baystack.pm | 6 +++++- Info/Layer2/C1900.pm | 2 +- Info/Layer2/C2900.pm | 2 +- Info/Layer2/Catalyst.pm | 2 +- Info/Layer2/Centillion.pm | 2 +- Info/Layer2/Cisco.pm | 2 +- Info/Layer2/Foundry.pm | 2 +- Info/Layer2/HP.pm | 3 ++- Info/Layer2/HP4000.pm | 2 +- Info/Layer2/HPVC.pm | 2 +- Info/Layer2/Kentrox.pm | 2 +- Info/Layer2/N2270.pm | 2 +- Info/Layer2/NAP222x.pm | 2 +- Info/Layer2/Netgear.pm | 2 +- Info/Layer2/Orinoco.pm | 2 +- Info/Layer2/ZyXEL_DSLAM.pm | 2 +- Info/Layer3.pm | 2 +- Info/Layer3/Aironet.pm | 2 +- Info/Layer3/AlcatelLucent.pm | 2 +- Info/Layer3/AlteonAD.pm | 2 +- Info/Layer3/Altiga.pm | 2 +- Info/Layer3/Arista.pm | 2 +- Info/Layer3/Aruba.pm | 2 +- Info/Layer3/BayRS.pm | 2 +- Info/Layer3/BlueCoatSG.pm | 2 +- Info/Layer3/C3550.pm | 2 +- Info/Layer3/C4000.pm | 2 +- Info/Layer3/C6500.pm | 2 +- Info/Layer3/Cisco.pm | 2 +- Info/Layer3/CiscoFWSM.pm | 2 +- Info/Layer3/Contivity.pm | 2 +- Info/Layer3/Dell.pm | 2 +- Info/Layer3/Enterasys.pm | 2 +- Info/Layer3/Extreme.pm | 2 +- Info/Layer3/Foundry.pm | 2 +- Info/Layer3/HP9300.pm | 2 +- Info/Layer3/Juniper.pm | 8 +++++++- Info/Layer3/Microsoft.pm | 2 +- Info/Layer3/Mikrotik.pm | 2 +- Info/Layer3/N1600.pm | 2 +- Info/Layer3/NetSNMP.pm | 2 +- Info/Layer3/Netscreen.pm | 2 +- Info/Layer3/PacketFront.pm | 4 ++-- Info/Layer3/Passport.pm | 2 +- Info/Layer3/Pf.pm | 2 +- Info/Layer3/SonicWALL.pm | 2 +- Info/Layer3/Sun.pm | 2 +- Info/Layer3/Timetra.pm | 2 +- Info/Layer7.pm | 2 +- Info/Layer7/APC.pm | 2 +- Info/MAU.pm | 2 +- Info/NortelStack.pm | 2 +- Info/PowerEthernet.pm | 2 +- Info/RapidCity.pm | 2 +- Info/SONMP.pm | 2 +- README | 25 ++++++++++++++++++++++--- t/push_ver | 2 +- 90 files changed, 147 insertions(+), 97 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3acefeb6..7e26a287 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,6 @@ SNMP::Info - Friendly OO-style interface to Network devices using SNMP. -version 2.07 () +version 2.08 () [NEW FEATURES] diff --git a/Info.pm b/Info.pm index c15880b4..cb1b80f6 100644 --- a/Info.pm +++ b/Info.pm @@ -1,6 +1,6 @@ # SNMP::Info # -# Copyright (c) 2003-2010 Max Baker and SNMP::Info Developers +# Copyright (c) 2003-2012 Max Baker and SNMP::Info Developers # All rights reserved. # # Portions Copyright (c) 2002-2003, Regents of the University of California @@ -23,7 +23,7 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG %SPEED_MAP $NOSUCH $BIGINT $REPEATERS/; -$VERSION = '2.06'; +$VERSION = '2.07_001'; =head1 NAME @@ -31,7 +31,7 @@ SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs through =head1 VERSION -SNMP::Info - Version 2.06 +SNMP::Info - Version 2.07_001 =head1 AUTHOR @@ -793,6 +793,26 @@ See documentation in L for details. =back +=over 4 + +=item SNMP::Info::Layer7 + +Generic Layer7 Devices. + +See documentation in L for details. + +=over 4 + +=item SNMP::Info::Layer7::APC + +SNMP Interface to APC UPS devices + +See documentation in L for details. + +=back + +=back + =head1 Thanks Thanks for testing and coding help (in no particular order) to : @@ -1231,7 +1251,7 @@ sub device_type { carp("Device doesn't implement sysServices but did return sysDescr. Might give unexpected results.\n") if $info->debug(); } else { # No sysServices, no sysDescr - return undef; + return; } } diff --git a/Info/AdslLine.pm b/Info/AdslLine.pm index d8df62de..2a4b16a2 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'ADSL-LINE-MIB' => 'adslLineType' ); diff --git a/Info/Airespace.pm b/Info/Airespace.pm index 25389ab1..0b32b515 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Bridge.pm b/Info/Bridge.pm index 37aa91a6..dd14d596 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'BRIDGE-MIB' => 'dot1dBaseBridgeAddress', diff --git a/Info/CDP.pm b/Info/CDP.pm index c48f072e..d5a51ef8 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.06'; +$VERSION = '2.07_001'; # Five data structures required by SNMP::Info %MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' ); diff --git a/Info/CiscoConfig.pm b/Info/CiscoConfig.pm index 2737d979..5705a91f 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-CONFIG-COPY-MIB' => 'ccCopyTable', diff --git a/Info/CiscoImage.pm b/Info/CiscoImage.pm index e82353ee..b5a02e98 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-IMAGE-MIB' => 'ciscoImageString', ); diff --git a/Info/CiscoPortSecurity.pm b/Info/CiscoPortSecurity.pm index f7d3c1b7..a0226c9f 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB', diff --git a/Info/CiscoPower.pm b/Info/CiscoPower.pm index 103fe073..7a829771 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-POWER-ETHERNET-EXT-MIB' => 'cpeExtPsePortEntPhyIndex', 'CISCO-CDP-MIB' => 'cdpCachePowerConsumption' ); diff --git a/Info/CiscoQOS.pm b/Info/CiscoQOS.pm index cb357ef3..d38c7a29 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-CLASS-BASED-QOS-MIB' => 'cbQosIfIndex', ); diff --git a/Info/CiscoRTT.pm b/Info/CiscoRTT.pm index 9454c218..b3636d1d 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-RTTMON-MIB' => 'rttMonCtrlAdminOwner', ); diff --git a/Info/CiscoStack.pm b/Info/CiscoStack.pm index 20c28757..258e2e23 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-STACK-MIB' => 'ciscoStackMIB', ); diff --git a/Info/CiscoStats.pm b/Info/CiscoStats.pm index e00bab0c..d520b140 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'SNMPv2-MIB' => 'sysDescr', diff --git a/Info/CiscoStpExtensions.pm b/Info/CiscoStpExtensions.pm index 6fff95be..5b0e0cfe 100644 --- a/Info/CiscoStpExtensions.pm +++ b/Info/CiscoStpExtensions.pm @@ -35,7 +35,7 @@ use SNMP::Info; use SNMP::Info::Bridge; use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/; -$VERSION = '2.06'; +$VERSION = '2.07_001'; @SNMP::Info::CiscoStpExtensions::ISA = qw/SNMP::Info::Bridge SNMP::Info Exporter/; @SNMP::Info::CiscoStpExtensions::EXPORT_OK = qw//; diff --git a/Info/CiscoVTP.pm b/Info/CiscoVTP.pm index 7b84de48..5ead3cc5 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'CISCO-VTP-MIB' => 'vtpVlanName', diff --git a/Info/Entity.pm b/Info/Entity.pm index 81780908..b252d6a0 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'ENTITY-MIB' => 'entPhysicalSerialNum' ); @@ -207,7 +207,7 @@ Human Friendly =item $entity->e_fru() -BOOLEAN. Field Replaceable unit? +BOOLEAN. Is a Field Replaceable unit? (C) diff --git a/Info/EtherLike.pm b/Info/EtherLike.pm index 8a0fb7eb..4ead35c4 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'EtherLike-MIB' => 'etherMIB' ); diff --git a/Info/FDP.pm b/Info/FDP.pm index f70d7459..9ce59835 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' ); diff --git a/Info/IEEE802dot11.pm b/Info/IEEE802dot11.pm index 83a7a5b8..befe36a8 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'IEEE802dot11-MIB' => 'dot11DesiredSSID', ); diff --git a/Info/IPv6.pm b/Info/IPv6.pm index 4844a5b1..d13e398a 100644 --- a/Info/IPv6.pm +++ b/Info/IPv6.pm @@ -44,7 +44,7 @@ use constant { IPV6MIB => 3, }; -$VERSION = '2.06'; +$VERSION = '2.07_001'; diff --git a/Info/LLDP.pm b/Info/LLDP.pm index 2a25fa49..fe6a5fed 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'LLDP-MIB' => 'lldpLocSysCapEnabled', diff --git a/Info/Layer1.pm b/Info/Layer1.pm index 6af584b2..41c1cc1b 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, 'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex' ); diff --git a/Info/Layer1/Allied.pm b/Info/Layer1/Allied.pm index a0773ead..315d1c82 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.06'; +$VERSION = '2.07_001'; # 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 da8e7206..057de37f 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.06'; +$VERSION = '2.07_001'; # Set for No CDP %GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, ); diff --git a/Info/Layer1/Bayhub.pm b/Info/Layer1/Bayhub.pm index 573992bb..5a979f52 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer1/Cyclades.pm b/Info/Layer1/Cyclades.pm index 3a6e2ada..e82c3cc8 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer1::MIBS, diff --git a/Info/Layer1/S3000.pm b/Info/Layer1/S3000.pm index 9f7df09c..40b34f38 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2.pm b/Info/Layer2.pm index 660ae155..6c42bb37 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, diff --git a/Info/Layer2/Airespace.pm b/Info/Layer2/Airespace.pm index 1884827d..b175e683 100644 --- a/Info/Layer2/Airespace.pm +++ b/Info/Layer2/Airespace.pm @@ -41,7 +41,7 @@ use SNMP::Info::Airespace; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; -$VERSION = '2.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, diff --git a/Info/Layer2/Aironet.pm b/Info/Layer2/Aironet.pm index 5a679f7b..bb206c7d 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.06'; +$VERSION = '2.07_001'; %GLOBALS = ( %SNMP::Info::IEEE802dot11::GLOBALS, diff --git a/Info/Layer2/Allied.pm b/Info/Layer2/Allied.pm index 182ee54f..c3cd7d53 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.06'; +$VERSION = '2.07_001'; %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS ); diff --git a/Info/Layer2/Bay.pm b/Info/Layer2/Bay.pm index fe5cbe33..cbf5301c 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.06'; +$VERSION = '2.07_001'; # Set for No CDP %GLOBALS = ( diff --git a/Info/Layer2/Baystack.pm b/Info/Layer2/Baystack.pm index ea7e82af..34e59b26 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::LLDP::MIBS, @@ -645,6 +645,10 @@ revisions of Baystack firmware report all zeros for each port mac. Crosses C with C and returns the human set port name if exists. +=item $poe->peth_port_ifindex() + +Maps the C to C by way of the F. + =back =head2 F Information diff --git a/Info/Layer2/C1900.pm b/Info/Layer2/C1900.pm index e21c81ad..1f7e2425 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.06'; +$VERSION = '2.07_001'; %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, diff --git a/Info/Layer2/C2900.pm b/Info/Layer2/C2900.pm index f067e303..438a3a8d 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.06'; +$VERSION = '2.07_001'; %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::CiscoConfig::GLOBALS, diff --git a/Info/Layer2/Catalyst.pm b/Info/Layer2/Catalyst.pm index 2cd426e9..2271ab2b 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoPortSecurity::MIBS, diff --git a/Info/Layer2/Centillion.pm b/Info/Layer2/Centillion.pm index 357c9b25..016ac151 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer2/Cisco.pm b/Info/Layer2/Cisco.pm index d4087ee3..2d2fe4a7 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoConfig::MIBS, diff --git a/Info/Layer2/Foundry.pm b/Info/Layer2/Foundry.pm index 1089196a..7f764046 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::FDP::MIBS, diff --git a/Info/Layer2/HP.pm b/Info/Layer2/HP.pm index 7167e0fe..33323d39 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, @@ -639,6 +639,7 @@ sub set_i_vlan_tagged { $hp->error_throw(sprintf("Requested VLAN %s doesn't seem to exist on device...", $vlan)); } } + return; } 1; diff --git a/Info/Layer2/HP4000.pm b/Info/Layer2/HP4000.pm index c93bf5d4..619495b4 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer2/HPVC.pm b/Info/Layer2/HPVC.pm index 9f9823c0..005d732d 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2/Kentrox.pm b/Info/Layer2/Kentrox.pm index b3afb964..c4966701 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2/N2270.pm b/Info/Layer2/N2270.pm index 6d19bb95..89c9b2e3 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, diff --git a/Info/Layer2/NAP222x.pm b/Info/Layer2/NAP222x.pm index c626f84e..65205a08 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::IEEE802dot11::MIBS, diff --git a/Info/Layer2/Netgear.pm b/Info/Layer2/Netgear.pm index ab5440e0..53e69717 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::LLDP::MIBS, ); diff --git a/Info/Layer2/Orinoco.pm b/Info/Layer2/Orinoco.pm index 3c64c23e..b6be5400 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, diff --git a/Info/Layer2/ZyXEL_DSLAM.pm b/Info/Layer2/ZyXEL_DSLAM.pm index 86d39ea3..5b5a3952 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.06'; +$VERSION = '2.07_001'; # Set for No CDP %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS ); diff --git a/Info/Layer3.pm b/Info/Layer3.pm index 7be37c7d..560a62d4 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer3/Aironet.pm b/Info/Layer3/Aironet.pm index ad813184..7fc8245f 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/AlcatelLucent.pm b/Info/Layer3/AlcatelLucent.pm index 0254fd96..4e51ed76 100644 --- a/Info/Layer3/AlcatelLucent.pm +++ b/Info/Layer3/AlcatelLucent.pm @@ -42,7 +42,7 @@ use SNMP::Info::LLDP; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/AlteonAD.pm b/Info/Layer3/AlteonAD.pm index 7626228d..a130c519 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Altiga.pm b/Info/Layer3/Altiga.pm index 6cf9bda7..d5fa5fdf 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Arista.pm b/Info/Layer3/Arista.pm index 7b0476a7..ace9c044 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Aruba.pm b/Info/Layer3/Aruba.pm index ed627a68..e2659b8c 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/BayRS.pm b/Info/Layer3/BayRS.pm index 46df99db..a323551e 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer3/BlueCoatSG.pm b/Info/Layer3/BlueCoatSG.pm index eead7ed7..9d30f5ed 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.07'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/C3550.pm b/Info/Layer3/C3550.pm index 931fceb8..ba611447 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.06'; +$VERSION = '2.07_001'; # 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 0a5528f8..ae4521e4 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/C6500.pm b/Info/Layer3/C6500.pm index e622ff74..d59b1c90 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.07'; +$VERSION = '2.07_001'; # 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 d3bc69f3..a4a5d971 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/CiscoFWSM.pm b/Info/Layer3/CiscoFWSM.pm index b581f125..c20fcd0d 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::Cisco::MIBS, diff --git a/Info/Layer3/Contivity.pm b/Info/Layer3/Contivity.pm index 340806ae..cc607ccc 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.06'; +$VERSION = '2.07_001'; %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 6f1379ab..043b9a1a 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Enterasys.pm b/Info/Layer3/Enterasys.pm index 8ecad765..c5646e6a 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::CDP::MIBS, diff --git a/Info/Layer3/Extreme.pm b/Info/Layer3/Extreme.pm index 3338a582..6799936d 100644 --- a/Info/Layer3/Extreme.pm +++ b/Info/Layer3/Extreme.pm @@ -43,7 +43,7 @@ use SNMP::Info::MAU; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; -$VERSION = '2.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Foundry.pm b/Info/Layer3/Foundry.pm index 432b8827..55af6063 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/HP9300.pm b/Info/Layer3/HP9300.pm index 29a247ec..791a534a 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Juniper.pm b/Info/Layer3/Juniper.pm index a60c6638..06edd43d 100755 --- 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.07'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, @@ -815,6 +815,12 @@ Returns reference to hash. Key: IID, Value: The value of e_index() for the entity which 'contains' this entity. A value of zero indicates this entity is not contained in any other entity. +=item $entity->e_fru() + +BOOLEAN. Is a Field Replaceable unit? + +(C) + =back =head2 Table Methods imported from SNMP::Info::Layer3 diff --git a/Info/Layer3/Microsoft.pm b/Info/Layer3/Microsoft.pm index bf0fe4e0..d6784c32 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, ); diff --git a/Info/Layer3/Mikrotik.pm b/Info/Layer3/Mikrotik.pm index 86fd0a6c..053fbeb7 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/N1600.pm b/Info/Layer3/N1600.pm index badc35a2..bfc1bc7b 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/NetSNMP.pm b/Info/Layer3/NetSNMP.pm index a501431e..24353efe 100644 --- a/Info/Layer3/NetSNMP.pm +++ b/Info/Layer3/NetSNMP.pm @@ -39,7 +39,7 @@ use SNMP::Info::Layer3; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; -$VERSION = '2.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Netscreen.pm b/Info/Layer3/Netscreen.pm index 32f291d6..71ba00f9 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/PacketFront.pm b/Info/Layer3/PacketFront.pm index 404f69aa..d18f34dd 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, @@ -71,7 +71,7 @@ sub os { if ( $descr =~ /drgos/i ) { return 'drgos'; } else { - return undef; + return; } } diff --git a/Info/Layer3/Passport.pm b/Info/Layer3/Passport.pm index fc972c92..d7ad5a40 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, %SNMP::Info::RapidCity::MIBS, diff --git a/Info/Layer3/Pf.pm b/Info/Layer3/Pf.pm index c68cf75e..42abf2a1 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/SonicWALL.pm b/Info/Layer3/SonicWALL.pm index 54f9d42f..be6c0393 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, diff --git a/Info/Layer3/Sun.pm b/Info/Layer3/Sun.pm index 7d099955..0bf339ea 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, ); diff --git a/Info/Layer3/Timetra.pm b/Info/Layer3/Timetra.pm index e0ca09e4..d8d77d35 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.06'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer3::MIBS, 'TIMETRA-GLOBAL-MIB' => 'timetraReg', ); diff --git a/Info/Layer7.pm b/Info/Layer7.pm index defd3253..40a03000 100644 --- a/Info/Layer7.pm +++ b/Info/Layer7.pm @@ -39,7 +39,7 @@ use SNMP::Info; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/; -$VERSION = '2.07'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::MIBS, diff --git a/Info/Layer7/APC.pm b/Info/Layer7/APC.pm index 32405c42..03948719 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.07'; +$VERSION = '2.07_001'; %MIBS = ( %SNMP::Info::Layer7::MIBS, diff --git a/Info/MAU.pm b/Info/MAU.pm index 777905f2..a8fa2e76 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'MAU-MIB' => 'mauMod' ); diff --git a/Info/NortelStack.pm b/Info/NortelStack.pm index e402513c..65f750c1 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.06'; +$VERSION = '2.07_001'; %MIBS = ( diff --git a/Info/PowerEthernet.pm b/Info/PowerEthernet.pm index d8cfc8f2..186a0621 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'POWER-ETHERNET-MIB' => 'pethPsePortDetectionStatus' ); diff --git a/Info/RapidCity.pm b/Info/RapidCity.pm index 7ece1984..b677e462 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'RAPID-CITY' => 'rapidCity', ); diff --git a/Info/SONMP.pm b/Info/SONMP.pm index 7a48cb06..11028ad4 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.06'; +$VERSION = '2.07_001'; %MIBS = ( 'SYNOPTICS-ROOT-MIB' => 'synoptics', diff --git a/README b/README index 2785754a..c46d5aff 100644 --- a/README +++ b/README @@ -5,7 +5,7 @@ NAME VERSION - SNMP::Info - Version 2.06 + SNMP::Info - Version 2.07_001 AUTHOR @@ -154,11 +154,13 @@ DESIGN GOALS 1. Use of textual MIB leaf identifier and enumerated values - * All values are retrieved via MIB Leaf node names + * All values are retrieved via MIB Leaf node names + For example SNMP::Info has an entry in its %GLOBALS hash for ``sysName'' instead of 1.3.6.1.2.1.1.5. - * Data returned is in the enumerated value form. + * Data returned is in the enumerated value form. + For Example instead of looking up 1.3.6.1.2.1.2.2.1.3 and getting back 23 @@ -542,6 +544,11 @@ SUBCLASSES See documentation in SNMP::Info::Layer3::BayRS for details. + SNMP::Info::Layer3::BlueCoatSG + Subclass for Blue Coat SG series proxy devices. + + See documentation in SNMP::Info::Layer3::BlueCoatSG for details. + SNMP::Info::Layer3::C3550 Subclass for Cisco Catalyst 3550,3540,3560 2/3 switches running IOS. @@ -666,6 +673,16 @@ SUBCLASSES See documentation in SNMP::Info::Layer3::Timetra for details. + SNMP::Info::Layer7 + Generic Layer7 Devices. + + See documentation in SNMP::Info::Layer7 for details. + + SNMP::Info::Layer7::APC + SNMP Interface to APC UPS devices + + See documentation in SNMP::Info::Layer7::APC for details. + Thanks Thanks for testing and coding help (in no particular order) to : @@ -1229,6 +1246,7 @@ USAGE -- route to a non-local indirect(4) -- host/network/sub-network + "The type of route. Note that the values direct(3) and indirect(4) refer to the notion of direct and indirect routing in the IP @@ -1441,6 +1459,7 @@ EXTENDING SNMP::INFO 'super_hero_powers' => 'SuperHeroIfPowers' ); + %MUNGE = (%SNMP::Info::Layer2::MUNGE, %SNMP::Info::CiscoVTP::MUNGE, 'super_hero_powers' => \&munge_powers diff --git a/t/push_ver b/t/push_ver index 61eb5ca6..87a550bd 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.06'; +$new_version = shift @ARGV || '2.07_001'; foreach my $p (@pms) { print "$p\n"; From 75dc93f2c0d0aa365d9b817a92e4a86e18f0236b Mon Sep 17 00:00:00 2001 From: Oliver Gorwits Date: Sat, 7 Jul 2012 19:34:45 +0100 Subject: [PATCH 2/2] update MANIFEST for Kentrox, BlueCoatSG, SonicWall, APC --- MANIFEST | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/MANIFEST b/MANIFEST index 5c1596ba..0018fd57 100644 --- a/MANIFEST +++ b/MANIFEST @@ -43,6 +43,7 @@ Info/Layer2/Foundry.pm Info/Layer2/HP.pm Info/Layer2/HP4000.pm Info/Layer2/HPVC.pm +Info/Layer2/Kentrox.pm Info/Layer2/N2270.pm Info/Layer2/NAP222x.pm Info/Layer2/Netgear.pm @@ -56,6 +57,7 @@ Info/Layer3/Altiga.pm Info/Layer3/Arista.pm Info/Layer3/Aruba.pm Info/Layer3/BayRS.pm +Info/Layer3/BlueCoatSG.pm Info/Layer3/C3550.pm Info/Layer3/C4000.pm Info/Layer3/C6500.pm @@ -76,8 +78,11 @@ Info/Layer3/NetSNMP.pm Info/Layer3/PacketFront.pm Info/Layer3/Passport.pm Info/Layer3/Pf.pm +Info/Layer3/SonicWALL.pm Info/Layer3/Sun.pm Info/Layer3/Timetra.pm +Info/Layer7.pm +Info/Layer7/APC.pm Info/LLDP.pm Info/MAU.pm Info/NortelStack.pm