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.
package SNMP::Info::CDP;
$VERSION = '1.04';
$VERSION = '1.05';
# $Id$
use strict;
@@ -154,7 +154,7 @@ __END__
=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

13
Info/EtherLike.pm
View File

@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::EtherLike;
$VERSION = '1.04';
$VERSION = '1.05';
# $Id$
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::EXPORT_OK = qw//;
%MIBS = ('ETHERLIKE-MIB' => 'etherMIB' );
%MIBS = (
'ETHERLIKE-MIB' => 'etherMIB'
);
%GLOBALS = ();
@@ -69,8 +71,9 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
'el_coll_freq' => 'dot3CollFrequencies'
);
%MUNGE = ( %SNMP::Info::MUNGE,
'el_duplex' => \&munge_el_duplex,
%MUNGE = (
%SNMP::Info::MUNGE,
'el_duplex' => \&munge_el_duplex,
);
sub munge_el_duplex {
@@ -88,7 +91,7 @@ __END__
=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

12
Info/FDP.pm
View File

@@ -42,9 +42,11 @@ use SNMP::Info;
@SNMP::Info::FDP::EXPORT_OK = qw//;
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 = (
# CDP-Compatibility
@@ -84,8 +86,6 @@ sub munge_caps {
my $bits = substr(unpack("B*",$caps),-7);
return $bits;
}
sub cdp_run {
@@ -103,8 +103,6 @@ sub hasFDP {
my $ver = $fdp->{_version};
#my $ver = $fdp->fdp_ver;
# SNMP v1 clients dont have the globals
if (defined $ver and $ver == 1){
my $fdp_ip = $fdp->fdp_ip();
@@ -147,7 +145,7 @@ __END__
=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

2
Info/Layer2/Centillion.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::Centillion;
$VERSION = '1.04';
$VERSION = '1.05';
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.
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.
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 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::EXPORT_OK = qw//;
@@ -102,7 +102,7 @@ __END__
=head1 NAME
SNMP::Info::Layer3::Juniper - Perl5 Interface to L3 Juniper Devices
SNMP::Info::Layer3::Juniper - SNMP Interface to L3 Juniper Devices
=head1 AUTHOR

2
Info/Layer3/NetSNMP.pm
View File

@@ -124,7 +124,7 @@ __END__
=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

12
Info/MAU.pm
View File

@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::MAU;
$VERSION = '1.04';
$VERSION = '1.05';
# $Id$
use strict;
@@ -259,7 +259,8 @@ __END__
=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
@@ -281,13 +282,14 @@ Max Baker
=head1 DESCRIPTION
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 = Media Access Unit.
MAU-MIB (RFC 2668). This MIB is sometimes implemented on Layer 2 network
devices like HP Switches. MAU = Media Access Unit.
The MAU table contains link and duplex info for the port itself and the device
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