From e7560915650b3255fd9a746bab5190757943fcba Mon Sep 17 00:00:00 2001 From: Andrey Pazychev Date: Wed, 20 May 2020 16:53:05 +0300 Subject: [PATCH] WIP. Qtech - more wide model mask for group enterprises.27514.1.3* --- lib/SNMP/Info/Layer3/Qtech.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/SNMP/Info/Layer3/Qtech.pm b/lib/SNMP/Info/Layer3/Qtech.pm index 27edbfd0..6135d312 100644 --- a/lib/SNMP/Info/Layer3/Qtech.pm +++ b/lib/SNMP/Info/Layer3/Qtech.pm @@ -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]+)$/;