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

WIP. Reaisecom

Browse Source
This commit is contained in:
Andrey Pazychev
2020-05-17 23:31:22 +03:00
parent cc935a580d
commit 5655486b80
1 changed files with 4 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/SNMP/Info/Layer3/Raisecom.pm
View File

@@ -16,10 +16,6 @@ our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.70-135'; $VERSION = '3.70-135';
# This will be filled in with the device's index into the EntPhysicalEntry
# table by the serial() function.
our $index = undef;
%MIBS = ( %SNMP::Info::Layer3::MIBS, ); %MIBS = ( %SNMP::Info::Layer3::MIBS, );
%GLOBALS = ( %GLOBALS = (
@@ -89,7 +85,7 @@ sub model {
elsif ($id =~ /41752\.26\.502/) { elsif ($id =~ /41752\.26\.502/) {
return $obj->model_oid_41752 . ' HW:' . $obj->hvver; return $obj->model_oid_41752 . ' HW:' . $obj->hvver;
} }
return $obj->id(); return $obj->SUPER::model();
} }
sub serial { sub serial {
@@ -108,6 +104,7 @@ sub hvver {
$obj->hw_oid_41752 =~ /.*\sversion\s(.*)/; $obj->hw_oid_41752 =~ /.*\sversion\s(.*)/;
return $1; return $1;
} }
return $obj->SUPER::hvver()
} }
1; 1;
__END__ __END__
@@ -155,15 +152,11 @@ These are methods that return scalar value from SNMP
=item $obj->vendor() =item $obj->vendor()
Returns 'adtran' Returns 'raisecom'
=item $obj->os() =item $obj->os()
Returns 'caos' Returns 'ros' or 'rcios'
=item $obj->layers()
Ensures that layer two is reported, at least.
=item $obj->os_ver() =item $obj->os_ver()