Added raisecom 41752
This commit is contained in:
Andrey Pazychev
2020-05-17 23:12:19 +03:00
parent 40ff825a3a
commit cc935a580d
2 changed files with 46 additions and 9 deletions

View File

@@ -25,7 +25,7 @@ our
($VERSION, %FUNCS, %GLOBALS, %MIBS, %MUNGE, $AUTOLOAD, $INIT, $DEBUG, %SPEED_MAP, ($VERSION, %FUNCS, %GLOBALS, %MIBS, %MUNGE, $AUTOLOAD, $INIT, $DEBUG, %SPEED_MAP,
$NOSUCH, $BIGINT, $REPEATERS); $NOSUCH, $BIGINT, $REPEATERS);
$VERSION = '3.70-135.20.5.3'; $VERSION = '3.70-135.20.5.4';
=head1 NAME =head1 NAME
@@ -1731,6 +1731,7 @@ sub device_type {
40310 => 'SNMP::Info::Layer3::Cumulus', 40310 => 'SNMP::Info::Layer3::Cumulus',
41112 => 'SNMP::Info::Layer2::Ubiquiti', 41112 => 'SNMP::Info::Layer2::Ubiquiti',
44641 => 'SNMP::Info::Layer3::VyOS', 44641 => 'SNMP::Info::Layer3::VyOS',
41752 => 'SNMP::Info::Layer3::Raisecom',
); );
my %l2sysoidmap = ( my %l2sysoidmap = (
@@ -1776,6 +1777,7 @@ sub device_type {
27514 => 'SNMP::Info::Layer3::Qtech', 27514 => 'SNMP::Info::Layer3::Qtech',
34300 => 'SNMP::Info::Layer3::Eltex', 34300 => 'SNMP::Info::Layer3::Eltex',
35265 => 'SNMP::Info::Layer3::Eltex', 35265 => 'SNMP::Info::Layer3::Eltex',
41752 => 'SNMP::Info::Layer3::Raisecom',
); );
my %l1sysoidmap = ( my %l1sysoidmap = (

View File

@@ -24,11 +24,16 @@ our $index = undef;
%GLOBALS = ( %GLOBALS = (
%SNMP::Info::Layer3::GLOBALS, %SNMP::Info::Layer3::GLOBALS,
'model_oid' => 'mib-2.47.1.1.1.1.13.1', 'model_oid' => 'mib-2.47.1.1.1.1.13.1',
'serial_oid' => 'mib-2.47.1.1.1.1.11.1', 'model_oid_41752' => 'enterprises.41752.6.1.1.1.19.0',
'os_ver_oid' => 'mib-2.47.1.1.1.1.10.1', 'serial_oid' => 'mib-2.47.1.1.1.1.11.1',
'brom_oid' => 'mib-2.47.1.1.1.1.9.1', 'serial_oid_41752' => 'enterprises.41752.6.1.1.1.14.0',
'hw_oid' => 'mib-2.47.1.1.1.1.8.1', 'os_ver_oid' => 'mib-2.47.1.1.1.1.10.1',
'os_ver_oid_41752' => 'enterprises.41752.6.1.1.1.1.0',
'brom_oid' => 'mib-2.47.1.1.1.1.9.1',
'brom_oid_41752' => 'enterprises.41752.6.1.1.1.13.0',
'hw_oid' => 'mib-2.47.1.1.1.1.8.1',
'hw_oid_41752' => 'enterprises.41752.6.1.1.1.2.0'
); );
%FUNCS = ( %SNMP::Info::Layer3::FUNCS, ); %FUNCS = ( %SNMP::Info::Layer3::FUNCS, );
@@ -40,13 +45,28 @@ sub vendor {
} }
sub os { sub os {
my $obj = shift;
my $id = $obj->id();
if ($id =~ /41752\.26\.502/) {
return 'ros';
}
return 'rcios'; return 'rcios';
} }
sub os_ver { sub os_ver {
my $obj = shift; my $obj = shift;
my $os_ver = $obj->os_ver_oid || undef; my $os_ver; my $brom;
my $brom = $obj->brom_oid || undef; if ($obj->id() =~ /41752\.26\.502/) {
$obj->os_ver_oid_41752 =~ /ROS_(.*)\.(\d+)/;
$os_ver = $1 . ' (' . $2 . ')';
$obj->brom_oid_41752 =~ /.*_BOOT_(.*)_(\d+)/;
$brom = $1 . ' (' . $2 . ')';
}
else {
$os_ver = $obj->os_ver_oid || undef;
$brom = $obj->brom_oid || undef;
}
if (defined $os_ver and defined $brom) { if (defined $os_ver and defined $brom) {
return $os_ver . ' bootrom: ' . $brom; return $os_ver . ' bootrom: ' . $brom;
} }
@@ -57,6 +77,7 @@ sub os_ver {
} }
sub model { sub model {
my $obj = shift; my $obj = shift;
my $id = $obj->id();
my $model = $obj->model_oid || undef; my $model = $obj->model_oid || undef;
my $hw = $obj->hw_oid || undef; my $hw = $obj->hw_oid || undef;
if (defined $model and defined $hw) { if (defined $model and defined $hw) {
@@ -65,15 +86,29 @@ sub model {
elsif (defined $model) { elsif (defined $model) {
return $model; return $model;
} }
return 'unknown'; elsif ($id =~ /41752\.26\.502/) {
return $obj->model_oid_41752 . ' HW:' . $obj->hvver;
}
return $obj->id();
} }
sub serial { sub serial {
my $obj = shift; my $obj = shift;
my $serial = $obj->serial_oid || 'unknown'; my $serial = $obj->serial_oid || 'unknown';
if ($obj->id() =~ /41752\.26\.502/) {
return $obj->serial_oid_41752;
}
return $serial; return $serial;
} }
sub hvver {
my $obj = shift;
my $id = $obj->id();
if ($id =~ /41752\.26\.502/) {
$obj->hw_oid_41752 =~ /.*\sversion\s(.*)/;
return $1;
}
}
1; 1;
__END__ __END__