135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prep for 2.04 release

Browse Source
This commit is contained in:
Oliver Gorwits
2011-03-31 08:34:57 +00:00
parent d09e5de229
commit bc8c8a6061
81 changed files with 104 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ChangeLog
View File

@@ -1,7 +1,7 @@
SNMP::Info - Friendly OO-style interface to Network devices using SNMP. SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
ChangeLog $Id$ ChangeLog $Id$
version 2.02 () version 2.04 (2011-03-31)
+ Support for older HP switch models moved to new L2::HP4000 class + Support for older HP switch models moved to new L2::HP4000 class
+ Fix VLAN changing in L2::HP and L2::HP4000 classes + Fix VLAN changing in L2::HP and L2::HP4000 classes
* Updated model lists in HP classes * Updated model lists in HP classes

4
Info.pm
View File

@@ -23,7 +23,7 @@ use vars
qw/$VERSION $VERSION_CVS %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG %SPEED_MAP qw/$VERSION $VERSION_CVS %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG %SPEED_MAP
$NOSUCH $BIGINT $REPEATERS/; $NOSUCH $BIGINT $REPEATERS/;
$VERSION = '2.02-cvs'; $VERSION = '2.04';
$VERSION_CVS = '$Id$'; $VERSION_CVS = '$Id$';
=head1 NAME =head1 NAME
@@ -32,7 +32,7 @@ SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs through
=head1 VERSION =head1 VERSION
SNMP::Info - Version 2.02 SNMP::Info - Version 2.04
=head1 AUTHOR =head1 AUTHOR

2
Info/Airespace.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::MIBS,

2
Info/Bridge.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info;
use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'BRIDGE-MIB' => 'dot1dBaseBridgeAddress', 'BRIDGE-MIB' => 'dot1dBaseBridgeAddress',

2
Info/CDP.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info;
use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
$VERSION = '2.01'; $VERSION = '2.04';
# Five data structures required by SNMP::Info # Five data structures required by SNMP::Info
%MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' ); %MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' );

2
Info/CiscoConfig.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'CISCO-CONFIG-COPY-MIB' => 'ccCopyTable', 'CISCO-CONFIG-COPY-MIB' => 'ccCopyTable',

2
Info/CiscoImage.pm
View File

@@ -38,7 +38,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'CISCO-IMAGE-MIB' => 'ciscoImageString', ); %MIBS = ( 'CISCO-IMAGE-MIB' => 'ciscoImageString', );

2
Info/CiscoPortSecurity.pm
View File

@@ -38,7 +38,7 @@ use Exporter;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PAECAPABILITIES/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PAECAPABILITIES/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB', 'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB',

2
Info/CiscoPower.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'CISCO-POWER-ETHERNET-EXT-MIB' => 'cpeExtPsePortEntPhyIndex', %MIBS = ( 'CISCO-POWER-ETHERNET-EXT-MIB' => 'cpeExtPsePortEntPhyIndex',
'CISCO-CDP-MIB' => 'cdpCachePowerConsumption' ); 'CISCO-CDP-MIB' => 'cdpCachePowerConsumption' );

2
Info/CiscoQOS.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'CISCO-CLASS-BASED-QOS-MIB' => 'cbQosIfIndex', ); %MIBS = ( 'CISCO-CLASS-BASED-QOS-MIB' => 'cbQosIfIndex', );

2
Info/CiscoRTT.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'CISCO-RTTMON-MIB' => 'rttMonCtrlAdminOwner', ); %MIBS = ( 'CISCO-RTTMON-MIB' => 'rttMonCtrlAdminOwner', );

2
Info/CiscoStack.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'CISCO-STACK-MIB' => 'ciscoStackMIB', ); %MIBS = ( 'CISCO-STACK-MIB' => 'ciscoStackMIB', );

2
Info/CiscoStats.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'SNMPv2-MIB' => 'sysDescr', 'SNMPv2-MIB' => 'sysDescr',

2
Info/CiscoStpExtensions.pm
View File

@@ -35,7 +35,7 @@ use SNMP::Info;
use SNMP::Info::Bridge; use SNMP::Info::Bridge;
use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/; use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/;
$VERSION = '2.01'; $VERSION = '2.04';
@SNMP::Info::CiscoStpExtensions::ISA = qw/SNMP::Info::Bridge SNMP::Info Exporter/; @SNMP::Info::CiscoStpExtensions::ISA = qw/SNMP::Info::Bridge SNMP::Info Exporter/;
@SNMP::Info::CiscoStpExtensions::EXPORT_OK = qw//; @SNMP::Info::CiscoStpExtensions::EXPORT_OK = qw//;

2
Info/CiscoVTP.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'CISCO-VTP-MIB' => 'vtpVlanName', 'CISCO-VTP-MIB' => 'vtpVlanName',

2
Info/Entity.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'ENTITY-MIB' => 'entPhysicalSerialNum' ); %MIBS = ( 'ENTITY-MIB' => 'entPhysicalSerialNum' );

2
Info/EtherLike.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'EtherLike-MIB' => 'etherMIB' ); %MIBS = ( 'EtherLike-MIB' => 'etherMIB' );

2
Info/FDP.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' ); %MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' );

2
Info/IEEE802dot11.pm
View File

@@ -38,7 +38,7 @@ use Exporter;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'IEEE802dot11-MIB' => 'dot11DesiredSSID', ); %MIBS = ( 'IEEE802dot11-MIB' => 'dot11DesiredSSID', );

2
Info/LLDP.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'LLDP-MIB' => 'lldpLocSysCapEnabled', 'LLDP-MIB' => 'lldpLocSysCapEnabled',

2
Info/Layer1.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %SNMP::Info::MIBS, 'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex' ); %MIBS = ( %SNMP::Info::MIBS, 'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex' );

2
Info/Layer1/Allied.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer1;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
# Set for No CDP # Set for No CDP
%GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, 'root_ip' => 'actualIPAddr', ); %GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, 'root_ip' => 'actualIPAddr', );

2
Info/Layer1/Asante.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer1;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
# Set for No CDP # Set for No CDP
%GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, ); %GLOBALS = ( %SNMP::Info::Layer1::GLOBALS, );

2
Info/Layer1/Bayhub.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer2::MIBS,

2
Info/Layer1/Cyclades.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer1;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer1::MIBS, %SNMP::Info::Layer1::MIBS,

2
Info/Layer1/S3000.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer2::MIBS,

2
Info/Layer2.pm
View File

@@ -45,7 +45,7 @@ use SNMP::Info::PowerEthernet;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS,

2
Info/Layer2/Airespace.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::Airespace;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS,

2
Info/Layer2/Aironet.pm
View File

@@ -49,7 +49,7 @@ use SNMP::Info::IEEE802dot11;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%GLOBALS = ( %GLOBALS = (
%SNMP::Info::IEEE802dot11::GLOBALS, %SNMP::Info::IEEE802dot11::GLOBALS,

2
Info/Layer2/Allied.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::Layer1;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%GLOBALS = ( %SNMP::Info::Layer2::GLOBALS ); %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS );

2
Info/Layer2/Aruba.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer2::MIBS,

2
Info/Layer2/Bay.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
# Set for No CDP # Set for No CDP
%GLOBALS = ( %GLOBALS = (

2
Info/Layer2/Baystack.pm
View File

@@ -46,7 +46,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::LLDP::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::LLDP::MIBS,

2
Info/Layer2/C1900.pm
View File

@@ -46,7 +46,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%GLOBALS = ( %GLOBALS = (
%SNMP::Info::Layer2::GLOBALS, %SNMP::Info::Layer2::GLOBALS,

2
Info/Layer2/C2900.pm
View File

@@ -47,7 +47,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%GLOBALS = ( %GLOBALS = (
%SNMP::Info::Layer2::GLOBALS, %SNMP::Info::CiscoConfig::GLOBALS, %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::CiscoConfig::GLOBALS,

2
Info/Layer2/Catalyst.pm
View File

@@ -49,7 +49,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoPortSecurity::MIBS, %SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoPortSecurity::MIBS,

2
Info/Layer2/Centillion.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::SONMP;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::MIBS,

2
Info/Layer2/Cisco.pm
View File

@@ -50,7 +50,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoConfig::MIBS, %SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoConfig::MIBS,

2
Info/Layer2/Foundry.pm
View File

@@ -44,7 +44,7 @@ use SNMP::Info::MAU;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::FDP::MIBS, %SNMP::Info::Layer2::MIBS, %SNMP::Info::FDP::MIBS,

2
Info/Layer2/HP.pm
View File

@@ -46,7 +46,7 @@ use SNMP::Info::CDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/;
$VERSION = '2.02-cvs'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer2/HP4000.pm
View File

@@ -44,7 +44,7 @@ use SNMP::Info::CDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/;
$VERSION = '2.02-cvs'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer2/N2270.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::Airespace;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS, %SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS,

2
Info/Layer2/NAP222x.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::IEEE802dot11::MIBS, %SNMP::Info::Layer2::MIBS, %SNMP::Info::IEEE802dot11::MIBS,

2
Info/Layer2/Netgear.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %SNMP::Info::Layer2::MIBS, ); %MIBS = ( %SNMP::Info::Layer2::MIBS, );

2
Info/Layer2/Orinoco.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer2::MIBS,

2
Info/Layer2/ZyXEL_DSLAM.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer2;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
# Set for No CDP # Set for No CDP
%GLOBALS = ( %SNMP::Info::Layer2::GLOBALS ); %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS );

2
Info/Layer3.pm
View File

@@ -49,7 +49,7 @@ use SNMP::Info::IPv6;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.02-cvs'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::MIBS,

2
Info/Layer3/Aironet.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/AlcatelLucent.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/AlteonAD.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Altiga.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE
$int_include_vpn $fake_idx $type_class/; $int_include_vpn $fake_idx $type_class/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Arista.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/BayRS.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::Bridge;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE %MODEL_MAP use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE %MODEL_MAP
%MODID_MAP %PROCID_MAP/; %MODID_MAP %PROCID_MAP/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::MIBS,

2
Info/Layer3/C3550.pm
View File

@@ -64,7 +64,7 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
@SNMP::Info::Layer3::C3550::EXPORT_OK = qw//; @SNMP::Info::Layer3::C3550::EXPORT_OK = qw//;
$VERSION = '2.01'; $VERSION = '2.04';
# NOTE: Order creates precedence # NOTE: Order creates precedence
# Example: v_name exists in Bridge.pm and CiscoVTP.pm # Example: v_name exists in Bridge.pm and CiscoVTP.pm

2
Info/Layer3/C4000.pm
View File

@@ -50,7 +50,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/C6500.pm
View File

@@ -64,7 +64,7 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
# NOTE: Order creates precedence # NOTE: Order creates precedence
# Example: v_name exists in Bridge.pm and CiscoVTP.pm # Example: v_name exists in Bridge.pm and CiscoVTP.pm

2
Info/Layer3/Cisco.pm
View File

@@ -52,7 +52,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/CiscoFWSM.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::Layer3::Cisco;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.02-cvs'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::Cisco::MIBS, %SNMP::Info::Layer3::Cisco::MIBS,

2
Info/Layer3/Contivity.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info::Entity;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::Entity::MIBS, %SNMP::Info::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::Entity::MIBS,

2
Info/Layer3/Dell.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Enterasys.pm
View File

@@ -44,7 +44,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/; use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::CDP::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::CDP::MIBS,

2
Info/Layer3/Extreme.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::MAU;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Foundry.pm
View File

@@ -44,7 +44,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/HP9300.pm
View File

@@ -42,7 +42,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Juniper.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Microsoft.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %SNMP::Info::Layer3::MIBS, ); %MIBS = ( %SNMP::Info::Layer3::MIBS, );

2
Info/Layer3/N1600.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::SONMP;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/NetSNMP.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Netscreen.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Passport.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/; use vars qw/$VERSION %GLOBALS %FUNCS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::RapidCity::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::RapidCity::MIBS,

2
Info/Layer3/Pf.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.02-cvs'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Sun.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %SNMP::Info::Layer3::MIBS, ); %MIBS = ( %SNMP::Info::Layer3::MIBS, );

2
Info/Layer3/Timetra.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %SNMP::Info::Layer3::MIBS, 'TIMETRA-GLOBAL-MIB' => 'timetraReg', ); %MIBS = ( %SNMP::Info::Layer3::MIBS, 'TIMETRA-GLOBAL-MIB' => 'timetraReg', );

2
Info/MAU.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'MAU-MIB' => 'mauMod' ); %MIBS = ( 'MAU-MIB' => 'mauMod' );

2
Info/NortelStack.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (

2
Info/PowerEthernet.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'POWER-ETHERNET-MIB' => 'pethPsePortDetectionStatus' ); %MIBS = ( 'POWER-ETHERNET-MIB' => 'pethPsePortDetectionStatus' );

2
Info/RapidCity.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( 'RAPID-CITY' => 'rapidCity', ); %MIBS = ( 'RAPID-CITY' => 'rapidCity', );

2
Info/SONMP.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/; use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '2.01'; $VERSION = '2.04';
%MIBS = ( %MIBS = (
'SYNOPTICS-ROOT-MIB' => 'synoptics', 'SYNOPTICS-ROOT-MIB' => 'synoptics',

5
MANIFEST
View File

@@ -1,5 +1,6 @@
ChangeLog ChangeLog
COPYRIGHT COPYRIGHT
DEVELOP
DeviceMatrix.txt DeviceMatrix.txt
Info.pm Info.pm
Info/Airespace.pm Info/Airespace.pm
@@ -19,6 +20,7 @@ Info/Entity.pm
Info/EtherLike.pm Info/EtherLike.pm
Info/FDP.pm Info/FDP.pm
Info/IEEE802dot11.pm Info/IEEE802dot11.pm
Info/IPv6.pm
Info/Layer1.pm Info/Layer1.pm
Info/Layer1/Allied.pm Info/Layer1/Allied.pm
Info/Layer1/Asante.pm Info/Layer1/Asante.pm
@@ -39,6 +41,7 @@ Info/Layer2/Centillion.pm
Info/Layer2/Cisco.pm Info/Layer2/Cisco.pm
Info/Layer2/Foundry.pm Info/Layer2/Foundry.pm
Info/Layer2/HP.pm Info/Layer2/HP.pm
Info/Layer2/HP4000.pm
Info/Layer2/N2270.pm Info/Layer2/N2270.pm
Info/Layer2/NAP222x.pm Info/Layer2/NAP222x.pm
Info/Layer2/Netgear.pm Info/Layer2/Netgear.pm
@@ -55,6 +58,7 @@ Info/Layer3/C3550.pm
Info/Layer3/C4000.pm Info/Layer3/C4000.pm
Info/Layer3/C6500.pm Info/Layer3/C6500.pm
Info/Layer3/Cisco.pm Info/Layer3/Cisco.pm
Info/Layer3/CiscoFWSM.pm
Info/Layer3/Contivity.pm Info/Layer3/Contivity.pm
Info/Layer3/Dell.pm Info/Layer3/Dell.pm
Info/Layer3/Enterasys.pm Info/Layer3/Enterasys.pm
@@ -67,6 +71,7 @@ Info/Layer3/N1600.pm
Info/Layer3/Netscreen.pm Info/Layer3/Netscreen.pm
Info/Layer3/NetSNMP.pm Info/Layer3/NetSNMP.pm
Info/Layer3/Passport.pm Info/Layer3/Passport.pm
Info/Layer3/Pf.pm
Info/Layer3/Sun.pm Info/Layer3/Sun.pm
Info/Layer3/Timetra.pm Info/Layer3/Timetra.pm
Info/LLDP.pm Info/LLDP.pm

58
README
View File

@@ -1,14 +1,11 @@
NAME NAME
SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs
through SNMP. through SNMP.
VERSION VERSION
SNMP::Info - Version 2.04
SNMP::Info - Version 2.02
AUTHOR AUTHOR
SNMP::Info is maintained by team of Open Source authors headed by Eric SNMP::Info is maintained by team of Open Source authors headed by Eric
Miller, Bill Fenner, Max Baker and Jeroen van Ingen. Miller, Bill Fenner, Max Baker and Jeroen van Ingen.
@@ -19,12 +16,10 @@ AUTHOR
<http://netdisco.org> by Max Baker. <http://netdisco.org> by Max Baker.
DEVICES SUPPORTED DEVICES SUPPORTED
See <http://netdisco.org/doc/DeviceMatrix.html> or DeviceMatrix.txt for See <http://netdisco.org/doc/DeviceMatrix.html> or DeviceMatrix.txt for
more details. more details.
SYNOPSIS SYNOPSIS
use SNMP::Info; use SNMP::Info;
my $info = new SNMP::Info( my $info = new SNMP::Info(
@@ -80,13 +75,11 @@ SYNOPSIS
} }
SUPPORT SUPPORT
Please direct all support, help, and bug requests to the snmp-info-users Please direct all support, help, and bug requests to the snmp-info-users
Mailing List at Mailing List at
<http://lists.sourceforge.net/lists/listinfo/snmp-info-users>. <http://lists.sourceforge.net/lists/listinfo/snmp-info-users>.
DESCRIPTION DESCRIPTION
SNMP::Info gives an object oriented interface to information obtained SNMP::Info gives an object oriented interface to information obtained
through SNMP. through SNMP.
@@ -113,7 +106,6 @@ DESCRIPTION
a couple hashes. See EXTENDING SNMP::INFO. a couple hashes. See EXTENDING SNMP::INFO.
REQUIREMENTS REQUIREMENTS
1. Net-SNMP 1. Net-SNMP
To use this module, you must have Net-SNMP installed on your system. To use this module, you must have Net-SNMP installed on your system.
More specifically you need the Perl modules that come with it. More specifically you need the Perl modules that come with it.
@@ -151,14 +143,15 @@ REQUIREMENTS
directory and that the MIBs are world-readable. directory and that the MIBs are world-readable.
DESIGN GOALS DESIGN GOALS
1. Use of textual MIB leaf identifier and enumerated values 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 For example SNMP::Info has an entry in its %GLOBALS hash for
``sysName'' instead of 1.3.6.1.2.1.1.5. ``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 For Example instead of looking up 1.3.6.1.2.1.2.2.1.3 and
getting back 23 getting back 23
@@ -179,14 +172,12 @@ DESIGN GOALS
inclusion in the next version. inclusion in the next version.
SUBCLASSES SUBCLASSES
These are the subclasses that implement MIBs and support devices: These are the subclasses that implement MIBs and support devices:
Required MIBs not included in the install instructions above are noted Required MIBs not included in the install instructions above are noted
here. here.
MIB Subclasses MIB Subclasses
These subclasses implement method to access one or more MIBs. These are These subclasses implement method to access one or more MIBs. These are
not used directly, but rather inherited from device subclasses. not used directly, but rather inherited from device subclasses.
@@ -283,6 +274,13 @@ SUBCLASSES
See documentation in SNMP::Info::FDP for details. See documentation in SNMP::Info::FDP for details.
SNMP::Info::IPv6
SNMP Interface for obtaining configured IPv6 addresses and mapping
IPv6 addresses to MACs and interfaces, using information from
IP-MIB, IPV6-MIB and/or CISCO-IETF-IP-MIB.
See documentation in SNMP::Info::IPv6 for details.
SNMP::Info::IEEE802dot11 SNMP::Info::IEEE802dot11
IEEE802dot11-MIB. A collection of OIDs providing information about IEEE802dot11-MIB. A collection of OIDs providing information about
standards based 802.11 wireless devices. standards based 802.11 wireless devices.
@@ -325,7 +323,6 @@ SUBCLASSES
See documentation in SNMP::Info::SONMP for details. See documentation in SNMP::Info::SONMP for details.
Device Subclasses Device Subclasses
These subclasses inherit from one or more classes to provide a common These subclasses inherit from one or more classes to provide a common
interface to data obtainable from network devices. interface to data obtainable from network devices.
@@ -613,6 +610,11 @@ SUBCLASSES
See documentation in SNMP::Info::Layer3::Passport for details. See documentation in SNMP::Info::Layer3::Passport for details.
SNMP::Info::Layer3::Pf
Subclass for FreeBSD-Based Firewalls using Pf /Pf Sense
See documentation in SNMP::Info::Layer3::Pf for details.
SNMP::Info::Layer3::Sun SNMP::Info::Layer3::Sun
Subclass for Generic Sun Routers running SunOS. Subclass for Generic Sun Routers running SunOS.
@@ -624,7 +626,6 @@ SUBCLASSES
See documentation in SNMP::Info::Layer3::Timetra for details. See documentation in SNMP::Info::Layer3::Timetra for details.
Thanks Thanks
Thanks for testing and coding help (in no particular order) to : Thanks for testing and coding help (in no particular order) to :
Alexander Barthel, Andy Ford, Alexander Hartmaier, Andrew Herrick, Alex Alexander Barthel, Andy Ford, Alexander Hartmaier, Andrew Herrick, Alex
Kramarov, Bernhard Augenstein, Bradley Baetz, Brian Chow, Brian Wilson, Kramarov, Bernhard Augenstein, Bradley Baetz, Brian Chow, Brian Wilson,
@@ -635,9 +636,7 @@ Thanks
Netdisco README! Netdisco README!
USAGE USAGE
Constructor Constructor
new() new()
Creates a new object and connects via SNMP::Session. Creates a new object and connects via SNMP::Session.
@@ -760,7 +759,6 @@ USAGE
identify the device. identify the device.
Data is Cached Data is Cached
Methods and subroutines requesting data from a device will only load the Methods and subroutines requesting data from a device will only load the
data once, and then return cached versions of that data. data once, and then return cached versions of that data.
@@ -771,7 +769,6 @@ USAGE
globals and table methods. globals and table methods.
Object Scalar Methods Object Scalar Methods
These are for package related data, not directly supplied from SNMP. These are for package related data, not directly supplied from SNMP.
$info->clear_cache() $info->clear_cache()
@@ -848,7 +845,6 @@ USAGE
Indexing.html> Indexing.html>
Globals (Scalar Methods) Globals (Scalar Methods)
These are methods to return scalar data from RFC1213. These are methods to return scalar data from RFC1213.
Some subset of these is probably available for any network device that Some subset of these is probably available for any network device that
@@ -897,7 +893,6 @@ USAGE
("ipForwarding") ("ipForwarding")
Table Methods Table Methods
Each of these methods returns a hash_reference to a hash keyed on the Each of these methods returns a hash_reference to a hash keyed on the
interface index in SNMP. interface index in SNMP.
@@ -912,7 +907,6 @@ USAGE
cases changes between reboots of the network device. cases changes between reboots of the network device.
Partial Table Fetches Partial Table Fetches
If you want to get only a part of an SNMP table or a single instance If you want to get only a part of an SNMP table or a single instance
from the table and you know the IID for the part of the table that you from the table and you know the IID for the part of the table that you
want, you can specify it in the call: want, you can specify it in the call:
@@ -927,7 +921,6 @@ USAGE
Partial table results are not cached. Partial table results are not cached.
Interface Information Interface Information
$info->interfaces() $info->interfaces()
This methods is overridden in each subclass to provide a mapping This methods is overridden in each subclass to provide a mapping
between the Interface Table Index (iid) and the physical port name. between the Interface Table Index (iid) and the physical port name.
@@ -1018,7 +1011,6 @@ USAGE
("ifAlias") ("ifAlias")
Interface Statistics Interface Statistics
$info->i_octet_in(), $info->i_octets_out(), $info->i_octet_in64(), $info->i_octet_in(), $info->i_octets_out(), $info->i_octet_in64(),
$info->i_octets_out64() $info->i_octets_out64()
Bandwidth. Bandwidth.
@@ -1109,7 +1101,6 @@ USAGE
("ifSpecific") ("ifSpecific")
IP Address Table IP Address Table
Each entry in this table is an IP address in use on this device. Usually Each entry in this table is an IP address in use on this device. Usually
this is implemented in Layer3 Devices. this is implemented in Layer3 Devices.
@@ -1134,7 +1125,6 @@ USAGE
("ipAdEntBcastAddr") ("ipAdEntBcastAddr")
IP Routing Table IP Routing Table
$info->ipr_route() $info->ipr_route()
The route in question. A value of 0.0.0.0 is the default gateway The route in question. A value of 0.0.0.0 is the default gateway
route. route.
@@ -1186,6 +1176,7 @@ USAGE
-- route to a non-local -- route to a non-local
indirect(4) -- host/network/sub-network indirect(4) -- host/network/sub-network
"The type of route. Note that the values "The type of route. Note that the values
direct(3) and indirect(4) refer to the notion of direct(3) and indirect(4) refer to the notion of
direct and indirect routing in the IP direct and indirect routing in the IP
@@ -1250,7 +1241,6 @@ USAGE
("ipRouteInfo") ("ipRouteInfo")
SETTING DATA VIA SNMP SETTING DATA VIA SNMP
This section explains how to use SNMP::Info to do SNMP Set operations. This section explains how to use SNMP::Info to do SNMP Set operations.
$info->set_METHOD($value) $info->set_METHOD($value)
@@ -1280,7 +1270,6 @@ SETTING DATA VIA SNMP
subroutines will need to be added if they haven't been already. subroutines will need to be added if they haven't been already.
Quiet Mode Quiet Mode
SNMP::Info will not chirp anything to STDOUT unless there is a serious SNMP::Info will not chirp anything to STDOUT unless there is a serious
error (in which case it will probably die). error (in which case it will probably die).
@@ -1295,9 +1284,7 @@ Quiet Mode
my $name = $info->name() or die "Couldn't get sysName!" . $name->error(); my $name = $info->name() or die "Couldn't get sysName!" . $name->error();
EXTENDING SNMP::INFO EXTENDING SNMP::INFO
Data Structures required in new Subclass Data Structures required in new Subclass
A class inheriting this class must implement these data structures : A class inheriting this class must implement these data structures :
$INIT $INIT
@@ -1354,7 +1341,6 @@ EXTENDING SNMP::INFO
) )
Sample Subclass Sample Subclass
Let's make a sample Layer 2 Device subclass. This class will inherit the Let's make a sample Layer 2 Device subclass. This class will inherit the
Cisco Vlan module as an example. Cisco Vlan module as an example.
@@ -1398,6 +1384,7 @@ EXTENDING SNMP::INFO
'super_hero_powers' => 'SuperHeroIfPowers' 'super_hero_powers' => 'SuperHeroIfPowers'
); );
%MUNGE = (%SNMP::Info::Layer2::MUNGE, %MUNGE = (%SNMP::Info::Layer2::MUNGE,
%SNMP::Info::CiscoVTP::MUNGE, %SNMP::Info::CiscoVTP::MUNGE,
'super_hero_powers' => \&munge_powers 'super_hero_powers' => \&munge_powers
@@ -1446,9 +1433,7 @@ EXTENDING SNMP::INFO
of SNMP::Info. of SNMP::Info.
SNMP::INFO INTERNALS SNMP::INFO INTERNALS
Object Namespace Object Namespace
Internal data is stored with bareword keys. For example $info->{debug} Internal data is stored with bareword keys. For example $info->{debug}
SNMP Data is stored or marked cached with keys starting with an SNMP Data is stored or marked cached with keys starting with an
@@ -1458,7 +1443,6 @@ SNMP::INFO INTERNALS
above. above.
Package Globals Package Globals
These set the default value for an object upon creation. These set the default value for an object upon creation.
$DEBUG $DEBUG
@@ -1480,7 +1464,6 @@ SNMP::INFO INTERNALS
for more info. Can change by passing BulkRepeaters option in new() for more info. Can change by passing BulkRepeaters option in new()
Data Munging Callback Subroutines Data Munging Callback Subroutines
munge_speed() munge_speed()
Makes human friendly speed ratings using %SPEED_MAP Makes human friendly speed ratings using %SPEED_MAP
@@ -1576,7 +1559,6 @@ SNMP::INFO INTERNALS
Takes an OID and return the object name if the right MIB is loaded. Takes an OID and return the object name if the right MIB is loaded.
Internally Used Functions Internally Used Functions
$info->init() $info->init()
Used internally. Loads all entries in %MIBS. Used internally. Loads all entries in %MIBS.
@@ -1707,7 +1689,6 @@ SNMP::INFO INTERNALS
packed bitmask packed bitmask
AUTOLOAD AUTOLOAD
Each entry in either %FUNCS, %GLOBALS, or MIB Leaf node names present in Each entry in either %FUNCS, %GLOBALS, or MIB Leaf node names present in
loaded MIBs are used by AUTOLOAD() to create dynamic methods. loaded MIBs are used by AUTOLOAD() to create dynamic methods.
@@ -1737,7 +1718,6 @@ SNMP::INFO INTERNALS
subclass. subclass.
COPYRIGHT AND LICENSE COPYRIGHT AND LICENSE
Changes from SNMP::Info Version 0.7 and on are: Copyright (c) 2003-2010 Changes from SNMP::Info Version 0.7 and on are: Copyright (c) 2003-2010
Max Baker and SNMP::Info Developers All rights reserved. Max Baker and SNMP::Info Developers All rights reserved.

2
t/push_ver
View File

@@ -5,7 +5,7 @@ use File::Glob qw/bsd_glob/;
my @pms = glob_rec("../Info"); my @pms = glob_rec("../Info");
$new_version = shift @ARGV || '2.01'; $new_version = shift @ARGV || '2.05';
foreach my $p (@pms) { foreach my $p (@pms) {
print "$p\n"; print "$p\n";