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

prep 1.04, capture older versions of BayRS

Browse Source
This commit is contained in:
Eric Miller
2006-07-08 01:25:40 +00:00
parent b55e15a568
commit 799a06b63a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Info.pm
View File

@@ -9,7 +9,7 @@
# $Id$ # $Id$
package SNMP::Info; package SNMP::Info;
$VERSION = '1.03'; $VERSION = '1.04';
use strict; use strict;
use Exporter; use Exporter;
@@ -891,7 +891,7 @@ sub device_type {
# Nortel Contivity # Nortel Contivity
$objtype = 'SNMP::Info::Layer3::Contivity' if $desc =~ /\bCES\b/; $objtype = 'SNMP::Info::Layer3::Contivity' if $desc =~ /\bCES\b/;
# Nortel BayRS # Nortel BayRS
$objtype = 'SNMP::Info::Layer3::BayRS' if $desc =~ /^\s*Image:\s+rel\//; $objtype = 'SNMP::Info::Layer3::BayRS' if $desc =~ /^\s*Image:\s+re[lv]\/(\d+\.){1,3}\d+\//;
# Allied Telesyn Layer2 managed switches. They report they have L3 support # Allied Telesyn Layer2 managed switches. They report they have L3 support
$objtype = 'SNMP::Info::Layer2::Allied' if ($desc =~ /Allied.*AT-80\d{2}\S*/i); $objtype = 'SNMP::Info::Layer2::Allied' if ($desc =~ /Allied.*AT-80\d{2}\S*/i);