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

Prep for 1.0:

Browse Source 
- removed all references to $DEBUG, $INIT and $SNMP::debugging
- rev'd version number
- doc updates
- added cdp_run() to FDP.pm
- removed my email addr from all over the place
This commit is contained in:
Max Baker
2005-01-28 08:55:51 +00:00
parent 8193143459
commit 9a5135b9e1
13 changed files with 65 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Info/CDP.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::CDP # SNMP::Info::CDP
# Max Baker <max@warped.org> # Max Baker
# #
# Changes since Version 0.7 Copyright (c) 2004 Max Baker # Changes since Version 0.7 Copyright (c) 2004 Max Baker
# All rights reserved. # All rights reserved.
@@ -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 = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -43,15 +43,11 @@ use Carp;
@SNMP::Info::CDP::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CDP::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::CDP::EXPORT_OK = qw//; @SNMP::Info::CDP::EXPORT_OK = qw//;
use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MIBS_V1 %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
# Debug
$DEBUG=0;
$SNMP::debugging=$DEBUG;
# Five data structures required by SNMP::Info # Five data structures required by SNMP::Info
$INIT = 0;
%MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' ); %MIBS = ( 'CISCO-CDP-MIB' => 'cdpGlobalRun' );
%MIBS_V1 = ( 'CISCO-CDP-MIB-V1SMI' => 'cdpGlobalRun' );
# Notice we dont inherit the default GLOBALS and FUNCS # Notice we dont inherit the default GLOBALS and FUNCS
# only the default MUNGE. # only the default MUNGE.
%GLOBALS = ( %GLOBALS = (
@@ -130,7 +126,7 @@ sub c_if {
my $c_ip = $cdp->c_ip(); my $c_ip = $cdp->c_ip();
unless (defined $c_ip){ unless (defined $c_ip){
$cdp->{error} = "SNMP::Info::CDP::c_if() - Device doesn't have c_ip() data. Can't fake c_index()"; $cdp->{error} = "SNMP::Info::CDP::c_if() - Device doesn't have c_ip() data. Can't fake c_index()";
$DEBUG and carp($cdp->error(1)); carp($cdp->error(1)) if $cdp->debug();
return undef; return undef;
} }
@@ -155,7 +151,7 @@ SNMP::Info::CDP - Perl5 Interface to Cisco Discovery Protocol (CDP) using SNMP
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

10
Info/CiscoStack.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::CiscoStack # SNMP::Info::CiscoStack
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c)2003,2004 Max Baker # Copyright (c)2003,2004 Max Baker
# All rights reserved. # All rights reserved.
@@ -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::CiscoStack; package SNMP::Info::CiscoStack;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -40,10 +40,6 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE %PORTSTAT $INIT/;
@SNMP::Info::CiscoStack::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CiscoStack::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::CiscoStack::EXPORT_OK = qw//; @SNMP::Info::CiscoStack::EXPORT_OK = qw//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
$INIT = 0;
%MIBS = ( %MIBS = (
'CISCO-STACK-MIB' => 'ciscoStackMIB', 'CISCO-STACK-MIB' => 'ciscoStackMIB',
'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB', 'CISCO-PORT-SECURITY-MIB' => 'ciscoPortSecurityMIB',
@@ -269,7 +265,7 @@ SNMP::Info::CiscoStack - Intefaces to data from CISCO-STACK-MIB and CISCO-PORT-S
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

16
Info/CiscoStats.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::CiscoStats # SNMP::Info::CiscoStats
# Max Baker <max@warped.org> # Max Baker
# #
# Changes since Version 0.7 Copyright (c) 2004 Max Baker # Changes since Version 0.7 Copyright (c) 2004 Max Baker
# All rights reserved. # All rights reserved.
@@ -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::CiscoStats; package SNMP::Info::CiscoStats;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -43,10 +43,6 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
@SNMP::Info::CiscoStats::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CiscoStats::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::CiscoStats::EXPORT_OK = qw//; @SNMP::Info::CiscoStats::EXPORT_OK = qw//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
$INIT = 0;
%MIBS = ( %MIBS = (
'RFC1213-MIB' => 'sysDescr', 'RFC1213-MIB' => 'sysDescr',
'CISCO-PROCESS-MIB' => 'cpmCPUTotal5sec', 'CISCO-PROCESS-MIB' => 'cpmCPUTotal5sec',
@@ -150,7 +146,7 @@ SNMP::Info::CiscoStats - Perl5 Interface to CPU and Memory stats for Cisco Devic
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -191,6 +187,12 @@ none.
=item RFC1213-MIB =item RFC1213-MIB
=item OLD-CISCO-SYSTEM-MIB
=item CISCO-STACK-MIB
=item CISCO-ENTITY-VENDORTYPE-OID-MIB
=back =back
MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz

13
Info/CiscoVTP.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::CiscoVTP # SNMP::Info::CiscoVTP
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
# #
@@ -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::CiscoVTP; package SNMP::Info::CiscoVTP;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -42,10 +42,6 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
@SNMP::Info::CiscoVTP::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CiscoVTP::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::CiscoVTP::EXPORT_OK = qw//; @SNMP::Info::CiscoVTP::EXPORT_OK = qw//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
$INIT = 0;
%MIBS = ( %MIBS = (
'CISCO-VTP-MIB' => 'vtpVlanName', 'CISCO-VTP-MIB' => 'vtpVlanName',
'CISCO-VLAN-MEMBERSHIP-MIB' => 'vmMembershipEntry', 'CISCO-VLAN-MEMBERSHIP-MIB' => 'vmMembershipEntry',
@@ -106,11 +102,12 @@ $INIT = 0;
# CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB # CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB
'v_cvi_if' => 'cviRoutedVlanIfIndex', 'v_cvi_if' => 'cviRoutedVlanIfIndex',
# vlanTrunkPortTable
# TODO Add these tables if someone wants them.. # TODO Add these tables if someone wants them..
# vtpEditControlTable # vtpEditControlTable
# vtpVlanEditTable # vtpVlanEditTable
# vtpStatsTable # vtpStatsTable
# vlanTrunkPortTable
); );
%MUNGE = ( %MUNGE = (
@@ -150,7 +147,7 @@ SNMP::Info::CiscoVTP - Perl5 Interface to Cisco's VLAN Management MIBs
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

11
Info/Entity.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::Entity # SNMP::Info::Entity
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
# #
@@ -42,7 +42,6 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
@SNMP::Info::Entity::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::Entity::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::Entity::EXPORT_OK = qw//; @SNMP::Info::Entity::EXPORT_OK = qw//;
$INIT = 0;
%MIBS = ('ENTITY-MIB' => 'entPhysicalSerialNum'); %MIBS = ('ENTITY-MIB' => 'entPhysicalSerialNum');
%GLOBALS = ( %GLOBALS = (
@@ -93,11 +92,11 @@ sub e_port {
=head1 NAME =head1 NAME
SNMP::Info::Entity - Perl5 Interface to SNMP data stored in ENTITY-MIB. SNMP::Info::Entity - Perl5 Interface to SNMP data stored in ENTITY-MIB. RFC 2737
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -117,7 +116,9 @@ Max Baker (C<max@warped.org>)
=head1 DESCRIPTION =head1 DESCRIPTION
ENTITY-MIB is used by some Layer 2 devices like HP Switches and Aironet Access Points ENTITY-MIB is used by Layer 2 devices from HP,Aironet,Foundry,Cisco and more.
See RFC 2737 for full details.
Create or use a device subclass that inherit this class. Do not use directly. Create or use a device subclass that inherit this class. Do not use directly.

16
Info/EtherLike.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::EtherLike # SNMP::Info::EtherLike
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
# #
@@ -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 = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -42,12 +42,6 @@ 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//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
$INIT = 0;
# Same info in both rfc1398 and this?
%MIBS = ('ETHERLIKE-MIB' => 'etherMIB' ); %MIBS = ('ETHERLIKE-MIB' => 'etherMIB' );
%GLOBALS = (); %GLOBALS = ();
@@ -83,11 +77,11 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::EtherLike - Perl5 Interface to SNMP ETHERLIKE-MIB SNMP::Info::EtherLike - Perl5 Interface to SNMP ETHERLIKE-MIB RFC 1398
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -124,6 +118,8 @@ Max Baker (C<max@warped.org>)
SNMP::Info::EtherLike is a subclass of SNMP::Info that supplies SNMP::Info::EtherLike is a subclass of SNMP::Info that supplies
access to the ETHERLIKE-MIB used by some Layer 3 Devices such as Cisco routers. access to the ETHERLIKE-MIB used by some Layer 3 Devices such as Cisco routers.
See RFC 1398 for more details.
Use or create a subclass of SNMP::Info that inherits this one. Do not use directly. Use or create a subclass of SNMP::Info that inherits this one. Do not use directly.
=head2 Inherited Classes =head2 Inherited Classes

24
Info/FDP.pm
View File

@@ -32,7 +32,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::FDP; package SNMP::Info::FDP;
$VERSION = 0.9; $VERSION = 1.0;
use strict; use strict;
@@ -44,19 +44,11 @@ use Carp;
@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/;
# Debug
$DEBUG=1;
$SNMP::debugging=$DEBUG;
# Five data structures required by SNMP::Info
$INIT = 0;
%MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' ); %MIBS = ( 'FOUNDRY-SN-SWITCH-GROUP-MIB' => 'snFdpGlobalRun' );
# Notice we dont inherit the default GLOBALS and FUNCS
# only the default MUNGE.
%GLOBALS = ( %GLOBALS = (
# CDP-Compatibility # CDP-Compatibility
'cdp_run' => 'snFdpGlobalRun',
'cdp_interval' => 'snFdpGlobalMessageInterval', 'cdp_interval' => 'snFdpGlobalMessageInterval',
'cdp_holdtime' => 'snFdpGlobalHoldTime', 'cdp_holdtime' => 'snFdpGlobalHoldTime',
'cdp_id' => 'snFdpGlobalDeviceId', 'cdp_id' => 'snFdpGlobalDeviceId',
@@ -96,6 +88,16 @@ sub munge_caps {
} }
sub cdp_run {
my $fdp = shift;
my $fdp_run = $fdp->fdp_run();
# if fdp_run isn't implemented on device, assume FDP is on
return $fdp_run if defined $fdp_run;
return 1;
}
sub hasFDP { sub hasFDP {
my $fdp = shift; my $fdp = shift;
@@ -128,7 +130,7 @@ sub c_if {
my $fdp_ip = $fdp->c_ip(); my $fdp_ip = $fdp->c_ip();
unless (defined $fdp_ip){ unless (defined $fdp_ip){
$fdp->{error} = "SNMP::Info::FDP:fdp_if() - Device doesn't have fdp_ip() data. Can't fake fdp_index()"; $fdp->{error} = "SNMP::Info::FDP:fdp_if() - Device doesn't have fdp_ip() data. Can't fake fdp_index()";
$DEBUG and carp($fdp->error(1)); carp($fdp->error(1)) if $fdp->debug();
return undef; return undef;
} }
@@ -153,7 +155,7 @@ SNMP::Info::FDP - Perl5 Interface to Foundry Discovery Protocol (FDP) using SNMP
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Bruce Rodger, Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

13
Info/Layer1.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::Layer1 - SNMP Interface to Layer1 Devices # SNMP::Info::Layer1 - SNMP Interface to Layer1 Devices
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker changes from version 0.8 and beyond. # Copyright (c) 2004 Max Baker changes from version 0.8 and beyond.
# #
@@ -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::Layer1; package SNMP::Info::Layer1;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -43,13 +43,6 @@ use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/;
@SNMP::Info::Layer1::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::Layer1::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::Layer1::EXPORT_OK = qw//; @SNMP::Info::Layer1::EXPORT_OK = qw//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
# See SNMP::Info for the details of these data structures and
# the interworkings.
$INIT = 0;
%MIBS = ( %SNMP::Info::MIBS, %MIBS = ( %SNMP::Info::MIBS,
'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex' 'SNMP-REPEATER-MIB' => 'rptrPortGroupIndex'
); );
@@ -169,7 +162,7 @@ SNMP::Info::Layer1 - Perl5 Interface to network devices serving Layer1 only.
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

13
Info/Layer2.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices # SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker -- All changes from Version 0.7 on # Copyright (c) 2004 Max Baker -- All changes from Version 0.7 on
# #
@@ -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::Layer2; package SNMP::Info::Layer2;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -48,13 +48,6 @@ use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/;
SNMP::Info::Entity SNMP::Info::CiscoStats Exporter/; SNMP::Info::Entity SNMP::Info::CiscoStats Exporter/;
@SNMP::Info::Layer2::EXPORT_OK = qw//; @SNMP::Info::Layer2::EXPORT_OK = qw//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
# See SNMP::Info for the details of these data structures and
# the interworkings.
$INIT = 0;
%MIBS = ( %SNMP::Info::MIBS, %MIBS = ( %SNMP::Info::MIBS,
%SNMP::Info::Bridge::MIBS, %SNMP::Info::Bridge::MIBS,
%SNMP::Info::CDP::MIBS, %SNMP::Info::CDP::MIBS,
@@ -194,7 +187,7 @@ SNMP::Info::Layer2 - Perl5 Interface to network devices serving Layer2 only.
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

15
Info/Layer3.pm
View File

@@ -1,5 +1,5 @@
# SNMP::Info::Layer3 - SNMP Interface to Layer3 devices # SNMP::Info::Layer3 - SNMP Interface to Layer3 devices
# Max Baker <max@warped.org> # Max Baker
# #
# Copyright (c) 2004 Max Baker -- All changes from Version 0.7 on # Copyright (c) 2004 Max Baker -- All changes from Version 0.7 on
# #
@@ -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::Layer3; package SNMP::Info::Layer3;
$VERSION = 0.9; $VERSION = 1.0;
# $Id$ # $Id$
use strict; use strict;
@@ -47,11 +47,6 @@ use vars qw/$VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE/;
SNMP::Info::Entity Exporter/; SNMP::Info::Entity Exporter/;
@SNMP::Info::Layer3::EXPORT_OK = qw//; @SNMP::Info::Layer3::EXPORT_OK = qw//;
$DEBUG=0;
$SNMP::debugging=$DEBUG;
$INIT = 0;
%MIBS = ( %SNMP::Info::MIBS, %MIBS = ( %SNMP::Info::MIBS,
%SNMP::Info::Bridge::MIBS, %SNMP::Info::Bridge::MIBS,
%SNMP::Info::EtherLike::MIBS, %SNMP::Info::EtherLike::MIBS,
@@ -107,7 +102,7 @@ sub root_ip {
foreach my $key (keys %$ospf_ip){ foreach my $key (keys %$ospf_ip){
my $ip = $ospf_ip->{$key}; my $ip = $ospf_ip->{$key};
next if $ip eq '0.0.0.0'; next if $ip eq '0.0.0.0';
print " SNMP::Layer3::root_ip() using $ip\n" if $DEBUG; print " SNMP::Layer3::root_ip() using $ip\n" if $l3->debug();
return $ip; return $ip;
} }
} }
@@ -157,7 +152,7 @@ sub model {
my $id = $l3->id(); my $id = $l3->id();
unless (defined $id){ unless (defined $id){
print " SNMP::Info::Layer3::model() - Device does not support sysObjectID\n" if $DEBUG; print " SNMP::Info::Layer3::model() - Device does not support sysObjectID\n" if $l3->debug();
return undef; return undef;
} }
@@ -245,7 +240,7 @@ SNMP::Info::Layer3 - Perl5 Interface to network devices serving Layer3 or Layers
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS

10
Info/NortelStack.pm
View File

@@ -2,7 +2,7 @@
# Eric Miller <eric@jeneric.org> # Eric Miller <eric@jeneric.org>
# $Id$ # $Id$
# #
# Copyright (c) 2004 Max Baker # Copyright (c) 2004 Eric Miller, Max Baker
# #
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met: # modification, are permitted provided that the following conditions are met:
@@ -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::NortelStack; package SNMP::Info::NortelStack;
$VERSION = 0.9; $VERSION = 1.0;
use strict; use strict;
@@ -39,12 +39,6 @@ use SNMP::Info;
@SNMP::Info::NortelStack::EXPORT_OK = qw//; @SNMP::Info::NortelStack::EXPORT_OK = qw//;
use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
# Debug
$DEBUG=0;
$SNMP::debugging=$DEBUG;
# Five data structures required by SNMP::Info
$INIT = 0;
%MIBS = ( %MIBS = (
# S5-ROOT-MIB and S5-TCS-MIB required by the MIBs below # S5-ROOT-MIB and S5-TCS-MIB required by the MIBs below

10
Info/RapidCity.pm
View File

@@ -2,7 +2,7 @@
# Eric Miller <eric@jeneric.org> # Eric Miller <eric@jeneric.org>
# $Id$ # $Id$
# #
# Copyright (c) 2004 Max Baker # Copyright (c) 2004 Eric Miller, Max Baker
# #
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met: # modification, are permitted provided that the following conditions are met:
@@ -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::RapidCity; package SNMP::Info::RapidCity;
$VERSION = 0.9; $VERSION = 1.0;
use strict; use strict;
use Exporter; use Exporter;
@@ -39,12 +39,6 @@ use Carp;
@SNMP::Info::RapidCity::EXPORT_OK = qw//; @SNMP::Info::RapidCity::EXPORT_OK = qw//;
use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
# Debug
$DEBUG=0;
$SNMP::debugging=$DEBUG;
# Five data structures required by SNMP::Info
$INIT = 0;
%MIBS = ( %MIBS = (
'RAPID-CITY' => 'rapidCity', 'RAPID-CITY' => 'rapidCity',

11
Info/SONMP.pm
View File

@@ -2,7 +2,7 @@
# Eric Miller <eric@jeneric.org> # Eric Miller <eric@jeneric.org>
# $Id$ # $Id$
# #
# Copyright (c) 2004 Max Baker # Copyright (c) 2004 Eric Miller, Max Baker
# #
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met: # modification, are permitted provided that the following conditions are met:
@@ -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::SONMP; package SNMP::Info::SONMP;
$VERSION = 0.9; $VERSION = 1.0;
use strict; use strict;
@@ -40,12 +40,6 @@ use Carp;
@SNMP::Info::SONMP::EXPORT_OK = qw//; @SNMP::Info::SONMP::EXPORT_OK = qw//;
use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/; use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
# Debug
$DEBUG=0;
$SNMP::debugging=$DEBUG;
# Five data structures required by SNMP::Info
$INIT = 0;
%MIBS = ( %MIBS = (
'SYNOPTICS-ROOT-MIB' => 'synoptics', 'SYNOPTICS-ROOT-MIB' => 'synoptics',
@@ -301,7 +295,6 @@ SNMP::Info::SONMP - Perl5 Interface to SynOptics Network Management Protocol (SO
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>),
Eric Miller (C<eric@jeneric.org>) Eric Miller (C<eric@jeneric.org>)
=head1 SYNOPSIS =head1 SYNOPSIS