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

Override serial() as required since overridden in L2 / L3.

Browse Source 
Doc updates.
This commit is contained in:
Eric Miller
2006-09-01 18:40:12 +00:00
parent 67fd776431
commit acbfa7484b
1 changed files with 27 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Info/NortelStack.pm
View File

@@ -2,7 +2,7 @@
# Eric Miller # Eric Miller
# $Id$ # $Id$
# #
# Copyright (c) 2004-6 Eric Miller, 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 = '1.04'; $VERSION = '1.05';
use strict; use strict;
@@ -57,7 +57,7 @@ use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
'tftp_result' => 's5AgInfoFileStatus', 'tftp_result' => 's5AgInfoFileStatus',
'vlan' => 's5AgSysManagementVlanId', 'vlan' => 's5AgSysManagementVlanId',
# From S5-CHASSIS-MIB # From S5-CHASSIS-MIB
'serial' => 's5ChasSerNum', 'ns_serial' => 's5ChasSerNum',
'ns_cfg_chg' => 's5ChasGblConfChngs', 'ns_cfg_chg' => 's5ChasGblConfChngs',
'ns_cfg_time' => 's5ChasGblConfLstChng', 'ns_cfg_time' => 's5ChasGblConfLstChng',
); );
@@ -89,8 +89,9 @@ use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
); );
sub os_ver { sub os_ver {
my $bayhub = shift; my $stack = shift;
my $ver = $bayhub->ns_ag_ver();
my $ver = $stack->ns_ag_ver();
return undef unless defined $ver; return undef unless defined $ver;
if ($ver =~ m/(\d+\.\d+\.\d+\.\d+)/){ if ($ver =~ m/(\d+\.\d+\.\d+\.\d+)/){
@@ -103,8 +104,9 @@ sub os_ver {
} }
sub os_bin { sub os_bin {
my $bayhub = shift; my $stack = shift;
my $ver = $bayhub->ns_ag_ver();
my $ver = $stack->ns_ag_ver();
return undef unless defined $ver; return undef unless defined $ver;
if ($ver =~ m/(\d+\.\d+\.\d+\.\d+)/i){ if ($ver =~ m/(\d+\.\d+\.\d+\.\d+)/i){
@@ -116,12 +118,23 @@ sub os_bin {
return undef; return undef;
} }
# Need to override here since overridden in Layer2 and Layer3 classes
sub serial {
my $stack = shift;
my $ver = $stack->ns_serial();
return $ver unless !defined $ver;
return undef;
}
1; 1;
__END__ __END__
=head1 NAME =head1 NAME
SNMP::Info::NortelStack - Perl5 Interface to Nortel Stack information using SNMP SNMP::Info::NortelStack - SNMP Interface to the Nortel S5-AGENT-MIB and S5-CHASSIS-MIB
=head1 AUTHOR =head1 AUTHOR
@@ -174,10 +187,6 @@ These are methods that return scalar values from SNMP
=over =over
=item $baystack->serial()
Returns (B<s5ChasSerNum>)
=item $stack->os_ver() =item $stack->os_ver()
Returns the software version extracted from (B<s5AgInfoVer>) Returns the software version extracted from (B<s5AgInfoVer>)
@@ -186,6 +195,12 @@ Returns the software version extracted from (B<s5AgInfoVer>)
Returns the firmware version extracted from (B<s5AgInfoVer>) Returns the firmware version extracted from (B<s5AgInfoVer>)
=item $stack->serial()
Returns serial number of the chassis
(B<s5ChasSerNum>)
=item $stack->ns_ag_ver() =item $stack->ns_ag_ver()
Returns the version of the agent in the form 'major.minor.maintenance[letters]'. Returns the version of the agent in the form 'major.minor.maintenance[letters]'.
@@ -381,6 +396,4 @@ Returns reference to hash. Key: Table entry, Value: Version
(B<s5ChasStoreCntntVer>) (B<s5ChasStoreCntntVer>)
=back
=cut =cut