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

bump version for release; fixes for POD and Perl::Critic

Browse Source
This commit is contained in:
Oliver Gorwits
2012-07-07 19:32:13 +01:00
parent 9e84141983
commit 73fd627815
90 changed files with 147 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ChangeLog
View File

@@ -1,6 +1,6 @@
SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
version 2.07 ()
version 2.08 ()
[NEW FEATURES]

28
Info.pm
View File

@@ -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<SNMP::Info::Layer3::Timetra> for details.
=back
=over 4
=item SNMP::Info::Layer7
Generic Layer7 Devices.
See documentation in L<SNMP::Info::Layer7> for details.
=over 4
=item SNMP::Info::Layer7::APC
SNMP Interface to APC UPS devices
See documentation in L<SNMP::Info::Layer7::APC> 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;
}
}

2
Info/AdslLine.pm
View File

@@ -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' );

2
Info/Airespace.pm
View File

@@ -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,

2
Info/Bridge.pm
View File

@@ -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',

2
Info/CDP.pm
View File

@@ -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' );

2
Info/CiscoConfig.pm
View File

@@ -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',

2
Info/CiscoImage.pm
View File

@@ -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', );

2
Info/CiscoPortSecurity.pm
View File

@@ -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',

2
Info/CiscoPower.pm
View File

@@ -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' );

2
Info/CiscoQOS.pm
View File

@@ -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', );

2
Info/CiscoRTT.pm
View File

@@ -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', );

2
Info/CiscoStack.pm
View File

@@ -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', );

2
Info/CiscoStats.pm
View File

@@ -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',

2
Info/CiscoStpExtensions.pm
View File

@@ -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//;

2
Info/CiscoVTP.pm
View File

@@ -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',

4
Info/Entity.pm
View File

@@ -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<entPhysicalFRU>)

2
Info/EtherLike.pm
View File

@@ -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' );

2
Info/FDP.pm
View File

@@ -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' );

2
Info/IEEE802dot11.pm
View File

@@ -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', );

2
Info/IPv6.pm
View File

@@ -44,7 +44,7 @@ use constant {
IPV6MIB => 3,
};
$VERSION = '2.06';
$VERSION = '2.07_001';

2
Info/LLDP.pm
View File

@@ -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',

2
Info/Layer1.pm
View File

@@ -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' );

2
Info/Layer1/Allied.pm
View File

@@ -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', );

2
Info/Layer1/Asante.pm
View File

@@ -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, );

2
Info/Layer1/Bayhub.pm
View File

@@ -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,

2
Info/Layer1/Cyclades.pm
View File

@@ -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,

2
Info/Layer1/S3000.pm
View File

@@ -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,

2
Info/Layer2.pm
View File

@@ -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,

2
Info/Layer2/Airespace.pm
View File

@@ -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,

2
Info/Layer2/Aironet.pm
View File

@@ -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,

2
Info/Layer2/Allied.pm
View File

@@ -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 );

2
Info/Layer2/Bay.pm
View File

@@ -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 = (

6
Info/Layer2/Baystack.pm
View File

@@ -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<ifName> with C<ifAlias> and returns the human set port name if
exists.
=item $poe->peth_port_ifindex()
Maps the C<pethPsePortTable> to C<ifIndex> by way of the F<ENTITY-MIB>.
=back
=head2 F<ENTITY-MIB> Information

2
Info/Layer2/C1900.pm
View File

@@ -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,

2
Info/Layer2/C2900.pm
View File

@@ -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,

2
Info/Layer2/Catalyst.pm
View File

@@ -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,

2
Info/Layer2/Centillion.pm
View File

@@ -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,

2
Info/Layer2/Cisco.pm
View File

@@ -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,

2
Info/Layer2/Foundry.pm
View File

@@ -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,

3
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/;
$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;

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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer2/HPVC.pm
View File

@@ -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,

2
Info/Layer2/Kentrox.pm
View File

@@ -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,

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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::IEEE802dot11::MIBS,

2
Info/Layer2/Netgear.pm
View File

@@ -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, );

2
Info/Layer2/Orinoco.pm
View File

@@ -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,

2
Info/Layer2/ZyXEL_DSLAM.pm
View File

@@ -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 );

2
Info/Layer3.pm
View File

@@ -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,

2
Info/Layer3/Aironet.pm
View File

@@ -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,

2
Info/Layer3/AlcatelLucent.pm
View File

@@ -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,

2
Info/Layer3/AlteonAD.pm
View File

@@ -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,

2
Info/Layer3/Altiga.pm
View File

@@ -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,

2
Info/Layer3/Arista.pm
View File

@@ -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,

2
Info/Layer3/Aruba.pm
View File

@@ -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,

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
%MODID_MAP %PROCID_MAP/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%MIBS = (
%SNMP::Info::MIBS,

2
Info/Layer3/BlueCoatSG.pm
View File

@@ -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,

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//;
$VERSION = '2.06';
$VERSION = '2.07_001';
# NOTE: Order creates precedence
# 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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/C6500.pm
View File

@@ -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

2
Info/Layer3/Cisco.pm
View File

@@ -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,

2
Info/Layer3/CiscoFWSM.pm
View File

@@ -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,

2
Info/Layer3/Contivity.pm
View File

@@ -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,

2
Info/Layer3/Dell.pm
View File

@@ -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,

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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%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/;
$VERSION = '2.06';
$VERSION = '2.07_001';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

8
Info/Layer3/Juniper.pm
View File

@@ -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<entPhysicalFRU>)
=back
=head2 Table Methods imported from SNMP::Info::Layer3

2
Info/Layer3/Microsoft.pm
View File

@@ -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, );

2
Info/Layer3/Mikrotik.pm
View File

@@ -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,

2
Info/Layer3/N1600.pm
View File

@@ -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,

2
Info/Layer3/NetSNMP.pm
View File

@@ -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,

2
Info/Layer3/Netscreen.pm
View File

@@ -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,

4
Info/Layer3/PacketFront.pm
View File

@@ -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;
}
}

2
Info/Layer3/Passport.pm
View File

@@ -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,

2
Info/Layer3/Pf.pm
View File

@@ -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,

2
Info/Layer3/SonicWALL.pm
View File

@@ -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,

2
Info/Layer3/Sun.pm
View File

@@ -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, );

2
Info/Layer3/Timetra.pm
View File

@@ -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', );

2
Info/Layer7.pm
View File

@@ -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,

2
Info/Layer7/APC.pm
View File

@@ -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,

2
Info/MAU.pm
View File

@@ -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' );

2
Info/NortelStack.pm
View File

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

2
Info/PowerEthernet.pm
View File

@@ -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' );

2
Info/RapidCity.pm
View File

@@ -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', );

2
Info/SONMP.pm
View File

@@ -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',

25
README
View File

@@ -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

2
t/push_ver
View File

@@ -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";