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

WIP. Qtech - more wide model mask for group enterprises.27514.1.3*

Browse Source
This commit is contained in:
Andrey Pazychev
2020-05-20 16:53:05 +03:00
parent 02f667a05b
commit e756091565
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,9 +38,10 @@ sub main {
#no strict 'refs';
my $obj = shift;
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\.(13$)|(25\.2$)/ ) {
if ( $obj->id() =~ /27514\.1\.3\./ ) {
#QSW-2900 enterprises.27514.1.3.25.2
#QSW-2900-24T enterprises.27514.1.3.13
#QSW-3900 enterprises.27514.1.3.26.2 and other...
$response = $obj->session()->get('enterprises.27514.1.2.1.1.2.2.0');
$response =~ s/QTECH\s+//;
($model, $os_ver) = $response =~ /([\w,\d,-]+)\s([\w,\d]+)$/;