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

New globals

Browse Source
This commit is contained in:
Eric A. Miller
2012-11-26 19:29:10 -05:00
parent 6f54cb429e
commit b9fb232859
1 changed files with 29 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Info/Layer3/Tasman.pm
View File

@@ -59,6 +59,10 @@ $VERSION = '2.09';
'ps1_status' => 'nnenvPwrsupStatus.1', 'ps1_status' => 'nnenvPwrsupStatus.1',
'ps2_type' => 'nnenvPwrsupType.2', 'ps2_type' => 'nnenvPwrsupType.2',
'ps2_status' => 'nnenvPwrsupStatus.2', 'ps2_status' => 'nnenvPwrsupStatus.2',
'nn_sys_ver' => 'nnsysVersion',
'nn_ch_model' => 'nnchassisModel',
'nn_ch_op_stat' => 'nnchassisOperStatus',
'nn_ch_serial' => 'nnchassisSerialNumber',
); );
%FUNCS = ( %FUNCS = (
@@ -87,7 +91,7 @@ sub os {
sub os_ver { sub os_ver {
my $tasman = shift; my $tasman = shift;
my $version = $tasman->nnsysVersion() || ""; my $version = $tasman->nn_sys_ver() || "";
my $descr = $tasman->description() || ""; my $descr = $tasman->description() || "";
# Newer versions # Newer versions
@@ -102,7 +106,7 @@ sub model {
my $tasman = shift; my $tasman = shift;
my $id = $tasman->id(); my $id = $tasman->id();
my $ch_model = $tasman->nnchassisModel(); my $ch_model = $tasman->nn_ch_model();
return $ch_model if $ch_model; return $ch_model if $ch_model;
@@ -118,12 +122,12 @@ sub serial {
# Newer versions of the software redefined the MIB in a non-backwards # Newer versions of the software redefined the MIB in a non-backwards
# compatible manner. Try the old OID first. # compatible manner. Try the old OID first.
my $serial = $tasman->nnchassisOperStatus(); my $serial = $tasman->nn_ch_op_stat();
# Newer versions populate status, serial should contain some numbers # Newer versions populate status, serial should contain some numbers
return $serial if ($serial !~ /^\D+$/); return $serial if ($serial !~ /^\D+$/);
# Unfortunately newer versions don't seem to populate the newer OID. # Unfortunately newer versions don't seem to populate the newer OID.
return $tasman->nnchassisSerialNumber(); return $tasman->nn_ch_serial();
} }
1; 1;
@@ -228,6 +232,22 @@ Grabs the os version from C<nnsysVersion>
(C<nnenvPwrsupStatus.2>) (C<nnenvPwrsupStatus.2>)
=item $tasman->nn_sys_ver()
(C<nnsysVersion.0>)
=item $tasman->nn_ch_model()
(C<nnchassisModel.0>)
=item $tasman->nn_ch_op_stat()
(C<nnchassisOperStatus.0>)
=item $tasman->nn_ch_serial()
(C<nnchassisSerialNumber.0>)
=item $tasman->serial() =item $tasman->serial()
Tries both (C<nnchassisOperStatus>) and (C<nnchassisSerialNumber>) as OID's Tries both (C<nnchassisOperStatus>) and (C<nnchassisSerialNumber>) as OID's