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

release 3.07

Browse Source
This commit is contained in:
Oliver Gorwits
2013-10-01 20:21:29 +01:00
parent 998094241d
commit 59e9fae1d5
104 changed files with 208 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@@ -0,0 +1 @@
*.db

3
ChangeLog
View File

@@ -1,10 +1,11 @@
SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
version 3.06 ()
version 3.07 ()
[ENHANCEMENTS]
* Support for Pica8 switches in L3::Pica8
* Factor out cache/munge code from global/attr methods
[BUG FIXES]

127
Info.pm
View File

@@ -24,7 +24,7 @@ use vars
qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG %SPEED_MAP
$NOSUCH $BIGINT $REPEATERS/;
$VERSION = '3.05';
$VERSION = '3.07';
=head1 NAME
@@ -32,7 +32,7 @@ SNMP::Info - OO Interface to Network devices and MIBs through SNMP
=head1 VERSION
SNMP::Info - Version 3.05
SNMP::Info - Version 3.07
=head1 AUTHOR
@@ -833,6 +833,12 @@ Subclass for FreeBSD-Based Firewalls using Pf /Pf Sense
See documentation in L<SNMP::Info::Layer3::Pf> for details.
=item SNMP::Info::Layer3::Pica8
Subclass for Pica8 devices.
See documentation in L<SNMP::Info::Layer3::Pica8> for details.
=item SNMP::Info::Layer3::SonicWALL
Subclass for generic SonicWALL devices. See documentation in
@@ -3542,19 +3548,16 @@ sub _global {
$attr =~ s/^(load|orig)_//;
$attr =~ s/_raw$//;
# Get the callback hash for data munging
my $munge = $self->munge();
# Return cached data unless loading
# We now store in raw format so munge before returning
# unless expecting raw data
if ( defined $self->{"_$attr"} && !$load ) {
if ( defined $munge->{$attr} && !$raw ) {
my $val = $self->{"_$attr"};
my $subref = $munge->{$attr};
return &$subref($val);
my $val = $self->{"_$attr"};
if ( !$raw ) {
return $self->_munge($attr, $val);
} else{
return $self->{"_$attr"};
return $val;
}
}
@@ -3585,12 +3588,11 @@ sub _global {
}
# Save Cached Value
$self->{"_$attr"} = $val;
$self->_cache($attr, $val);
# Data Munging
if ( defined $munge->{$attr} && !$raw ) {
my $subref = $munge->{$attr};
$val = &$subref($val);
if ( !$raw ) {
$val = $self->_munge($attr, $val);
}
return $val;
@@ -3867,7 +3869,6 @@ sub _load_attr {
my $ver = $self->snmp_ver();
my $nosuch = $self->nosuch();
my $store = $self->store();
my $munge = $self->munge();
my $load = $method =~ /^load/;
my $raw = $method =~ /raw$/;
@@ -4047,24 +4048,14 @@ sub _load_attr {
# Cache data if we are not getting partial data:
if ( !defined $partial ) {
$self->{"_${attr}"}++;
$store->{$attr} = $localstore;
$self->_cache($attr, $localstore);
}
# Data Munging
# Checks for an entry in %munge and munges values unless we expect
# raw data
if ( defined $munge->{$attr} && !$raw ) {
my $subref = $munge->{$attr};
my %munged;
foreach my $key ( keys %$localstore ) {
my $value = $localstore->{$key};
next unless $key;
my $munged_value = &$subref($value);
$munged{$key} = $munged_value;
}
return \%munged;
if ( !$raw ) {
$localstore = $self->_munge($attr, $localstore);
}
return $localstore;
}
}
@@ -4073,11 +4064,6 @@ sub _load_attr {
Used internally by AUTOLOAD to return data called by methods listed in %FUNCS.
Called like $info->METHOD().
The first time ran, it will call $info->load_METHOD().
Every time after it will return cached data.
=cut
sub _show_attr {
@@ -4087,20 +4073,9 @@ sub _show_attr {
my $store = $self->store();
# Get the callback hash for data munging
my $munge = $self->munge();
if ( defined $munge->{$attr} && !$raw ) {
if ( !$raw ) {
my $localstore = $store->{$attr};
my $subref = $munge->{$attr};
my %munged;
foreach my $key ( keys %$localstore ) {
my $value = $localstore->{$key};
next unless $key;
my $munged_value = &$subref($value);
$munged{$key} = $munged_value;
}
return \%munged;
return $self->_munge($attr, $localstore);
}
else {
return $store->{$attr};
@@ -4174,6 +4149,64 @@ sub modify_port_list {
return pack( "B*", join( '', @$portlist ) );
}
=item $info->_cache(attr, data)
Cache retrieved data so that if it's asked for again, we use the cache instead
of going back to Net-SNMP. Data is cached inside the blessed hashref C<$self>.
Accepts the leaf and value (scalar, or hashref for a table). Does not return
anything useful.
=cut
sub _cache {
my $self = shift;
my ($attr, $data) = @_;
my $store = $self->store();
if (ref {} eq ref $data) {
$self->{"_${attr}"}++;
$store->{$attr} = $data;
}
else {
$self->{"_$attr"} = $data;
}
}
=item $info->_munge(attr, data)
Raw data returned from Net-SNMP might not be formatted correctly or might have
platform-specific bugs or mistakes. The MUNGE feature of SNMP::Info allows for
fixups to take place.
Accepts the leaf and value (scalar, or hashref for a table) and returns the raw
or the munged data, as appropriate. That is, you do not need to know whether
MUNGE is installed, and it's safe to call this method regardless.
=cut
sub _munge {
my $self = shift;
my ($attr, $data) = @_;
my $munge = $self->munge();
return $data unless defined $munge->{$attr};
if (ref {} eq ref $data) {
my $subref = $munge->{$attr};
my %munged;
foreach my $key ( keys %$data ) {
my $value = $data->{$key};
$munged{$key} = $subref->($value);
}
return \%munged;
}
else {
my $subref = $munge->{$attr};
return $subref->($data);
}
}
=item _validate_autoload_method(method)
Used internally by AUTOLOAD to validate that a dynamic method should be

2
Info/AMAP.pm
View File

@@ -38,7 +38,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%MIBS
= ( 'ALCATEL-IND1-INTERSWITCH-PROTOCOL-MIB' => 'aipAMAPRemDeviceType', );

2
Info/AdslLine.pm
View File

@@ -38,7 +38,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
# 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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
'SNMPv2-MIB' => 'sysDescr',

2
Info/CiscoStpExtensions.pm
View File

@@ -36,7 +36,7 @@ use SNMP::Info::Bridge;
use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/;
$VERSION = '3.05';
$VERSION = '3.07';
@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 = '3.05';
$VERSION = '3.07';
%MIBS = (
'CISCO-VTP-MIB' => 'vtpVlanName',

2
Info/EDP.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%MIBS = (
'EXTREME-EDP-MIB' => 'extremeEdpPortIfIndex',

2
Info/Entity.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info;
use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = ( 'IEEE802dot11-MIB' => 'dot11DesiredSSID', );

2
Info/IPv6.pm
View File

@@ -44,7 +44,7 @@ use constant {
IPV6MIB => 3,
};
$VERSION = '3.05';
$VERSION = '3.07';

2
Info/LLDP.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
# 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 = '3.05';
$VERSION = '3.07';
# 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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::MIBS, %SNMP::Info::Bridge::MIBS,

2
Info/Layer2/Airespace.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::Airespace;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%GLOBALS = ( %SNMP::Info::Layer2::GLOBALS );

2
Info/Layer2/Baystack.pm
View File

@@ -46,7 +46,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::CiscoConfig::MIBS,

2
Info/Layer2/CiscoSB.pm
View File

@@ -50,7 +50,7 @@ use SNMP::Info::CDP;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
# This will be filled in with the device's index into the EntPhysicalEntry
# table by the serial() function.

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

2
Info/Layer2/NWSS2300.pm
View File

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

2
Info/Layer2/Netgear.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
# This will be filled in with the device's index into the EntPhysicalEntry
# table by the serial() function.

2
Info/Layer2/Orinoco.pm
View File

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

2
Info/Layer2/Trapeze.pm
View File

@@ -40,7 +40,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::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 = '3.05';
$VERSION = '3.07';
# 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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/AlcatelLucent.pm
View File

@@ -49,7 +49,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
# 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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
# 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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/CiscoASA.pm
View File

@@ -55,7 +55,7 @@ use SNMP::Info::Layer3::Cisco;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::Cisco::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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::CDP::MIBS,

2
Info/Layer3/Extreme.pm
View File

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

2
Info/Layer3/F5.pm
View File

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

2
Info/Layer3/Force10.pm
View File

@@ -43,7 +43,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/H3C.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Juniper.pm
View File

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

2
Info/Layer3/Lantronix.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/NetSNMP.pm
View File

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

2
Info/Layer3/Netscreen.pm
View File

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

2
Info/Layer3/Nexus.pm
View File

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

2
Info/Layer3/PacketFront.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer3::MIBS,

2
Info/Layer3/Pica8.pm
View File

@@ -39,7 +39,7 @@ use SNMP::Info::LLDP;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = ( %SNMP::Info::Layer3::MIBS, );

2
Info/Layer3/Tasman.pm
View File

@@ -41,7 +41,7 @@ use SNMP::Info::MAU;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer7::MIBS,

2
Info/Layer7/Neoteris.pm
View File

@@ -38,7 +38,7 @@ use SNMP::Info::Layer7;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%MIBS = (
%SNMP::Info::Layer7::MIBS,

2
Info/Layer7/Netscaler.pm
View File

@@ -38,7 +38,7 @@ use SNMP::Info::Layer7;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%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 = '3.05';
$VERSION = '3.07';
%MIBS = (

2
Info/PowerEthernet.pm
View File

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

Some files were not shown because too many files have changed in this diff Show More