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

Prep 1.05

Browse Source
This commit is contained in:
Eric Miller
2007-06-13 02:52:43 +00:00
parent 2070f9b9e0
commit 4c33cfecff
8 changed files with 27 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Info/CDP.pm
View File

@@ -31,7 +31,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::CDP; package SNMP::Info::CDP;
$VERSION = '1.04'; $VERSION = '1.05';
# $Id$ # $Id$
use strict; use strict;
@@ -154,7 +154,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::CDP - Perl5 Interface to Cisco Discovery Protocol (CDP) using SNMP SNMP::Info::CDP - SNMP Interface to Cisco Discovery Protocol (CDP) using SNMP
=head1 AUTHOR =head1 AUTHOR

11
Info/EtherLike.pm
View File

@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::EtherLike; package SNMP::Info::EtherLike;
$VERSION = '1.04'; $VERSION = '1.05';
# $Id$ # $Id$
use strict; use strict;
@@ -42,7 +42,9 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
@SNMP::Info::EtherLike::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::EtherLike::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::EtherLike::EXPORT_OK = qw//; @SNMP::Info::EtherLike::EXPORT_OK = qw//;
%MIBS = ('ETHERLIKE-MIB' => 'etherMIB' ); %MIBS = (
'ETHERLIKE-MIB' => 'etherMIB'
);
%GLOBALS = (); %GLOBALS = ();
@@ -69,7 +71,8 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
'el_coll_freq' => 'dot3CollFrequencies' 'el_coll_freq' => 'dot3CollFrequencies'
); );
%MUNGE = ( %SNMP::Info::MUNGE, %MUNGE = (
%SNMP::Info::MUNGE,
'el_duplex' => \&munge_el_duplex, 'el_duplex' => \&munge_el_duplex,
); );
@@ -88,7 +91,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::EtherLike - Perl5 Interface to SNMP ETHERLIKE-MIB RFC 1398 SNMP::Info::EtherLike - SNMP Interface to SNMP ETHERLIKE-MIB RFC 1398
=head1 AUTHOR =head1 AUTHOR

12
Info/FDP.pm
View File

@@ -42,9 +42,11 @@ use SNMP::Info;
@SNMP::Info::FDP::EXPORT_OK = qw//; @SNMP::Info::FDP::EXPORT_OK = qw//;
use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
$VERSION = '1.04'; $VERSION = '1.05';
%MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' ); %MIBS = (
'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun'
);
%GLOBALS = ( %GLOBALS = (
# CDP-Compatibility # CDP-Compatibility
@@ -84,8 +86,6 @@ sub munge_caps {
my $bits = substr(unpack("B*",$caps),-7); my $bits = substr(unpack("B*",$caps),-7);
return $bits; return $bits;
} }
sub cdp_run { sub cdp_run {
@@ -103,8 +103,6 @@ sub hasFDP {
my $ver = $fdp->{_version}; my $ver = $fdp->{_version};
#my $ver = $fdp->fdp_ver; #my $ver = $fdp->fdp_ver;
# SNMP v1 clients dont have the globals # SNMP v1 clients dont have the globals
if (defined $ver and $ver == 1){ if (defined $ver and $ver == 1){
my $fdp_ip = $fdp->fdp_ip(); my $fdp_ip = $fdp->fdp_ip();
@@ -147,7 +145,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::FDP - Perl5 Interface to Foundry Discovery Protocol (FDP) using SNMP SNMP::Info::FDP - SNMP Interface to Foundry Discovery Protocol (FDP) using SNMP
=head1 AUTHOR =head1 AUTHOR

2
Info/Layer2/Centillion.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::Centillion; package SNMP::Info::Layer2::Centillion;
$VERSION = '1.04'; $VERSION = '1.05';
use strict; use strict;

2
Info/Layer3/Foundry.pm
View File

@@ -622,7 +622,7 @@ If multiple entries exist with the same local port, c_if(), with the same IPv4
address, c_ip(), it may be a duplicate entry. address, c_ip(), it may be a duplicate entry.
If multiple entries exist with the same local port, c_if(), with different IPv4 If multiple entries exist with the same local port, c_if(), with different IPv4
addresses, c_ip(), there is either a non-SONMP/LLDP device in between two or addresses, c_ip(), there is either a non-FDP/LLDP device in between two or
more devices or multiple devices which are not directly connected. more devices or multiple devices which are not directly connected.
Use the data from the Layer2 Topology Table below to dig deeper. Use the data from the Layer2 Topology Table below to dig deeper.

4
Info/Layer3/Juniper.pm
View File

@@ -32,7 +32,7 @@ use Exporter;
use SNMP::Info::Layer3; use SNMP::Info::Layer3;
use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ; use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE $INIT/ ;
$VERSION = '1.04'; $VERSION = '1.05';
@SNMP::Info::Layer3::Juniper::ISA = qw/SNMP::Info::Layer3 Exporter/; @SNMP::Info::Layer3::Juniper::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Juniper::EXPORT_OK = qw//; @SNMP::Info::Layer3::Juniper::EXPORT_OK = qw//;
@@ -102,7 +102,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::Layer3::Juniper - Perl5 Interface to L3 Juniper Devices SNMP::Info::Layer3::Juniper - SNMP Interface to L3 Juniper Devices
=head1 AUTHOR =head1 AUTHOR

2
Info/Layer3/NetSNMP.pm
View File

@@ -124,7 +124,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::Layer3::NetSNMP - Perl5 Interface to L3 Net-SNMP Devices SNMP::Info::Layer3::NetSNMP - SNMP Interface to L3 Net-SNMP Devices
=head1 AUTHORS =head1 AUTHORS

12
Info/MAU.pm
View File

@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::MAU; package SNMP::Info::MAU;
$VERSION = '1.04'; $VERSION = '1.05';
# $Id$ # $Id$
use strict; use strict;
@@ -259,7 +259,8 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::MAU - Perl5 Interface to Medium Access Unit (MAU) MIB (RFC 2668) via SNMP SNMP::Info::MAU - SNMP Interface to Medium Access Unit (MAU) MIB (RFC 2668)
via SNMP
=head1 AUTHOR =head1 AUTHOR
@@ -281,13 +282,14 @@ Max Baker
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::MAU is a sublcass of SNMP::Info that supplies access to the SNMP::Info::MAU is a sublcass of SNMP::Info that supplies access to the
MAU-MIB (RFC 2668). This MIB is sometimes implemented on Layer 2 network devices like HP Switches. MAU-MIB (RFC 2668). This MIB is sometimes implemented on Layer 2 network
MAU = Media Access Unit. devices like HP Switches. MAU = Media Access Unit.
The MAU table contains link and duplex info for the port itself and the device The MAU table contains link and duplex info for the port itself and the device
connected to that port. connected to that port.
Normally you use or create a subclass of SNMP::Info that inherits this one. Do not use directly. Normally you use or create a subclass of SNMP::Info that inherits this one. Do
not use directly.
For debugging purposes call the class directly as you would SNMP::Info For debugging purposes call the class directly as you would SNMP::Info