This commit is contained in:
Max Baker
2003-03-06 21:12:46 +00:00
parent 0cd3ba27c0
commit b86cf86fa6
8 changed files with 13 additions and 98 deletions

View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Bridge;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;

View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::EtherLike;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -68,9 +68,10 @@ SNMP::Info::EtherLike - Perl5 Interface to SNMP ETHERLIKE-MIB
=head1 DESCRIPTION
ETHERLIKE-MIB is used by some Layer 3 Devices such as Cisco routers.
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.
Inherits all methods from SNMP::Info
Use SNMP::Info directly, or create a subclass that inherits this one.
=head1 AUTHOR
@@ -100,17 +101,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $el;
=item $el->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $el->session();
# Set
my $newsession = new SNMP::Session(...);
$el->session($newsession);
=back
=head1 GLOBALS

View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -170,8 +170,6 @@ SNMP::Info::Layer1 - Perl5 Interface to Layer1 network devices.
Provides abstraction to the configuration information obtainable from a
Layer1 device through SNMP. Information is stored in a number of MIBs.
See super classes for descriptions of other available methods.
Inherits from:
SNMP::Info
@@ -207,17 +205,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $l1;
=item $l1->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $l1->session();
# Set
my $newsession = new SNMP::Session(...);
$l1->session($newsession);
=back
=head1 GLOBALS

View File

@@ -1,7 +1,7 @@
# SNMP::Info::Layer1::Allied
# Max Baker <max@warped.org>
#
# Copyright (c) 2002, Regents of the University of California
# Copyright (c) 2002,2003 Regents of the University of California
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Allied;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -152,17 +152,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $allied;
=item $allied->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $allied->session();
# Set
my $newsession = new SNMP::Session(...);
$allied->session($newsession);
=back
=head1 GLOBALS

View File

@@ -1,7 +1,7 @@
# SNMP::Info::Layer1::Asante
# Max Baker <max@warped.org>
#
# Copyright (c) 2002, Regents of the University of California
# Copyright (c) 2002,2003 Regents of the University of California
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Asante;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -195,17 +195,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $asante;
=item $asante->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $asante->session();
# Set
my $newsession = new SNMP::Session(...);
$asante->session($newsession);
=back
=head1 GLOBALS

View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -211,17 +211,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $l2;
=item $l2->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $l2->session();
# Set
my $newsession = new SNMP::Session(...);
$l2->session($newsession);
=back
=head1 GLOBALS

View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer3;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -273,17 +273,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $l3;
=item $l3->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $l3->session();
# Set
my $newsession = new SNMP::Session(...);
$l3->session($newsession);
=back
=head1 GLOBALS

View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::MAU;
$VERSION = 0.2;
$VERSION = 0.3;
# $Id$
use strict;
@@ -144,24 +144,6 @@ Arguments passed to new() are passed on to SNMP::Session::new()
)
die "Couldn't connect.\n" unless defined $mau;
=item $mau->session()
Sets or returns the SNMP::Session object
# Get
my $sess = $mau->session();
# Set
my $newsession = new SNMP::Session(...);
$mau->session($newsession);
=item $mau->all(), $mau->load_all()
Queries each of the methods listed in %FUNCS and returns a hash reference.
$mau->all() will call $mau->load_all() once and then return cahced valued.
Use $mau->load_all() to reload from the device.
=back
=head1 MAU Global Configuration Values