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

Qtech. Added enterprises.27514.1.3.13

Browse Source
This commit is contained in:
Andrey Pazychev
2020-05-20 16:46:49 +03:00
parent 14e9da0fb7
commit 02f667a05b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/SNMP/Info/Layer3/Qtech.pm
View File

@@ -38,8 +38,9 @@ sub main {
#no strict 'refs'; #no strict 'refs';
my $obj = shift; my $obj = shift;
my $response = undef; my $serial = undef; my $model = undef; my $hw = undef; my $os_ver = undef; my $brom = undef; my $response = undef; my $serial = undef; my $model = undef; my $hw = undef; my $os_ver = undef; my $brom = undef;
if ( $obj->id() =~ /27514\.1\.3\.25\.2$/ ) { if ( $obj->id() =~ /27514\.1\.3\.(13$)|(25\.2$)/ ) {
#QSW-2900 enterprises.27514.1.3.25.2 #QSW-2900 enterprises.27514.1.3.25.2
#QSW-2900-24T enterprises.27514.1.3.13
$response = $obj->session()->get('enterprises.27514.1.2.1.1.2.2.0'); $response = $obj->session()->get('enterprises.27514.1.2.1.1.2.2.0');
$response =~ s/QTECH\s+//; $response =~ s/QTECH\s+//;
($model, $os_ver) = $response =~ /([\w,\d,-]+)\s([\w,\d]+)$/; ($model, $os_ver) = $response =~ /([\w,\d,-]+)\s([\w,\d]+)$/;