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

WIP. Telindus

Browse Source
This commit is contained in:
Andrey Pazychev
2020-05-17 23:43:02 +03:00
parent 5655486b80
commit b73f0d8d57
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/SNMP/Info/Layer2/Telindus.pm
View File

@@ -41,17 +41,22 @@ sub os {
sub os_ver { sub os_ver {
my $obj = shift; my $obj = shift;
$obj->description =~ /\$Telindus\s(\d+)(\$\s(.*)|\s(.*)\$)\s(T\d+\/\d+)/; $obj->description =~ /\$Telindus\s(\d+)(\$\s(.*)|\s(.*)\$)\s(T\d+\/\d+)/;
return $5; return $5
if defined $5;
return $obj->SUPER::os_ver();
} }
sub model { sub model {
my $obj = shift; my $obj = shift;
$obj->description =~ /\$Telindus\s(\d+)(\$\s(.*)|\s(.*)\$)\s(T\d+\/\d+)/; $obj->description =~ /\$Telindus\s(\d+)(\$\s(.*)|\s(.*)\$)\s(T\d+\/\d+)/;
if (defined $3) { if (defined $1 and defined $3) {
return $1 . ' ' . $3; return $1 . ' ' . $3;
} }
else { elsif (defined $1 and defined $4) {
return $1 . ' ' . $4; return $1 . ' ' . $4;
} }
return $obj->SUPER::model();
} }
1; 1;