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

Fix Eltex a lot model.

Browse Source 
Add Telindus
Add serial to Zixel
This commit is contained in:
Andrey Pazychev
2020-05-17 15:18:08 +03:00
parent aa44871f83
commit 272b56d625
5 changed files with 205 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -44,9 +44,9 @@ sub os {
}
sub os_ver {
my $rcios = shift;
my $os_ver = $rcios->os_ver_oid || undef;
my $brom = $rcios->brom_oid || undef;
my $obj = shift;
my $os_ver = $obj->os_ver_oid || undef;
my $brom = $obj->brom_oid || undef;
if (defined $os_ver and defined $brom) {
return $os_ver . ' bootrom: ' . $brom;
}
@@ -56,9 +56,9 @@ sub os_ver {
return 'unknown';
}
sub model {
my $rcios = shift;
my $model = $rcios->model_oid || undef;
my $hw = $rcios->hw_oid || undef;
my $obj = shift;
my $model = $obj->model_oid || undef;
my $hw = $obj->hw_oid || undef;
if (defined $model and defined $hw) {
return $model . ' HW:' . $hw;
}
@@ -69,8 +69,8 @@ sub model {
}
sub serial {
my $rcios = shift;
my $serial = $rcios->serial_oid || 'unknown';
my $obj = shift;
my $serial = $obj->serial_oid || 'unknown';
return $serial;
}
@@ -84,7 +84,7 @@ SNMP::Info::Layer3::Raisecom - SNMP Interface to Raisecom Devices
=head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you.
my $rcios = new SNMP::Info(
my $obj = new SNMP::Info(
AutoSpecify => 1,
Debug => 1,
DestHost => 'myrouter',
@@ -93,12 +93,12 @@ SNMP::Info::Layer3::Raisecom - SNMP Interface to Raisecom Devices
)
or die "Can't connect to DestHost.\n";
my $class = $rcios->class();
my $class = $obj->class();
print "SNMP::Info determined this device to fall under subclass : $class\n";
=head1 DESCRIPTION
Subclass for rcios Devices running IOS-like software
Subclass for Raisecom Devices
=head2 Inherited Classes
@@ -118,28 +118,30 @@ These are methods that return scalar value from SNMP
=over
=item $rcios->vendor()
=item $obj->vendor()
Returns 'adtran'
=item $rcios->os()
=item $obj->os()
Returns 'caos'
=item $rcios->layers()
=item $obj->layers()
Ensures that layer two is reported, at least.
=item $rcios->os_ver()
=item $obj->os_ver()
Returns the software version.
=item $rcios->model()
=item $obj->model()
Returns the model extracted.
=item $rcios->serial()
=item $obj->serial()
Returns serial number.
=cut
=back