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

fix bayrs match, rcs tag

Browse Source
This commit is contained in:
Eric Miller
2004-11-04 17:46:28 +00:00
parent 5bb4252cf0
commit 19b5d34c10
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Info.pm
View File

@@ -6,6 +6,7 @@
# All rights reserved. # All rights reserved.
# #
# See COPYRIGHT at bottom # See COPYRIGHT at bottom
# $Id$
package SNMP::Info; package SNMP::Info;
$VERSION = 0.9; $VERSION = 0.9;
@@ -767,7 +768,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 =~ /^\sImage:\s+rel\//; $objtype = 'SNMP::Info::Layer3::BayRS' if $desc =~ /^\s*Image:\s+rel\//;
# 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);