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

Modify detection for newer code levels

Browse Source
This commit is contained in:
Eric Miller
2010-11-17 23:18:39 +00:00
parent c2ce3d81e1
commit ab111a8e93
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Info.pm
View File

@@ -1294,7 +1294,7 @@ sub device_type {
if $desc =~ /Alteon\s[1A][8D]/;
# Nortel Contivity
$objtype = 'SNMP::Info::Layer3::Contivity' if $desc =~ /\bCES\b/;
$objtype = 'SNMP::Info::Layer3::Contivity' if $desc =~ /(\bCES\b|\bNVR\sV\d)/;
# Allied Telesyn Layer2 managed switches. They report they have L3 support
$objtype = 'SNMP::Info::Layer2::Allied'

4
Info/Layer3/Contivity.pm
View File

@@ -1,7 +1,7 @@
# SNMP::Info::Layer3::Contivity
# $Id$
#
# Copyright (c) 2008 Eric Miller
# Copyright (c) 2010 Eric Miller
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@@ -77,7 +77,7 @@ sub model {
my $model = $e_model->{1} || undef;
return $1 if ( defined $model and $model =~ /(CES\d+)/i );
return $1 if ( defined $model and $model =~ /(CES\d+|NVR\d+)/i );
return;
}