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

[ 1638153 ] Add rptrAddrTrackNewLastSrcAddress to Layer1's functions

Browse Source
This commit is contained in:
Eric Miller
2007-01-25 04:30:38 +00:00
parent cde34cfc99
commit 54633a7b99
1 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Info/Layer1.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::Layer1; package SNMP::Info::Layer1;
$VERSION = '1.04'; $VERSION = '1.05';
# $Id$ # $Id$
use strict; use strict;
@@ -38,7 +38,7 @@ use strict;
use Exporter; use Exporter;
use SNMP::Info; use SNMP::Info;
use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/; use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
@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//;
@@ -63,11 +63,13 @@ use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/;
'rptr_slot' => 'rptrPortGroupIndex', 'rptr_slot' => 'rptrPortGroupIndex',
'rptr_up_admin' => 'rptrPortAdminStatus', 'rptr_up_admin' => 'rptrPortAdminStatus',
'rptr_up' => 'rptrPortOperStatus', 'rptr_up' => 'rptrPortOperStatus',
'rptr_last_src' => 'rptrAddrTrackNewLastSrcAddress',
); );
%MUNGE = ( %MUNGE = (
# Inherit all the built in munging # Inherit all the built in munging
%SNMP::Info::MUNGE, %SNMP::Info::MUNGE,
'rptr_last_src'=> \&SNMP::Info::munge_mac,
); );
# Method OverRides # Method OverRides
@@ -158,7 +160,7 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::Layer1 - Perl5 Interface to network devices serving Layer1 only. SNMP::Info::Layer1 - SNMP Interface to network devices serving Layer1 only.
=head1 AUTHOR =head1 AUTHOR
@@ -177,7 +179,7 @@ Max Baker
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $l1->class(); my $class = $l1->class();
print "SNMP::Info determined this device to fall under subclass : $class\n"; print "SNMP::Info determined this device to fall under subclass : $class\n";
# Let's get some basic Port information # Let's get some basic Port information
@@ -194,14 +196,15 @@ Max Baker
=head1 DESCRIPTION =head1 DESCRIPTION
This class is usually used as a superclass for more specific device classes listed under This class is usually used as a superclass for more specific device classes
SNMP::Info::Layer1::* Please read all docs under SNMP::Info first. listed under SNMP::Info::Layer1::* Please read all docs under SNMP::Info
first.
Provides abstraction to the configuration information obtainable from a Provides abstraction to the configuration information obtainable from a
Layer1 device through SNMP. Information is stored in a number of MIBs. Layer1 device through SNMP. Information is stored in a number of MIBs.
For speed or debugging purposes you can call the subclass directly, but not after determining For speed or debugging purposes you can call the subclass directly, but not
a more specific class using the method above. after determining a more specific class using the method above.
my $l1 = new SNMP::Info::Layer1(...); my $l1 = new SNMP::Info::Layer1(...);
@@ -219,13 +222,14 @@ a more specific class using the method above.
=item SNMP-REPEATER-MIB =item SNMP-REPEATER-MIB
=item Inherited Classes =back
MIBs required for L<SNMP::Info/"Required MIBs"> MIBs required for L<SNMP::Info/"Required MIBs">
=back See L<SNMP::Info/"Required MIBs"> for its MIB requirements.
SNMP-REPEATER-MIB needs to be extracted from ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz SNMP-REPEATER-MIB needs to be extracted from
ftp://ftp.cisco.com/pub/mibs/v1/v1.tar.gz
=head1 GLOBALS =head1 GLOBALS
@@ -261,7 +265,7 @@ Number of 'groups' in the Repeater MIB
=back =back
=head2 Globals imported from SNMP::Info =head2 Global Methods imported from SNMP::Info
See documentation in L<SNMP::Info/"GLOBALS"> for details. See documentation in L<SNMP::Info/"GLOBALS"> for details.
@@ -312,6 +316,10 @@ Group (slot) Number for given port.
(B<rptrPortOperStatus>) (B<rptrPortOperStatus>)
=item $l1->rptr_last_src()
(B<rptrAddrTrackNewLastSrcAddress>)
=back =back
=head2 Table Methods imported from SNMP::Info =head2 Table Methods imported from SNMP::Info