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

add support for Nortel 1600 and 8100 series

Browse Source
This commit is contained in:
Eric Miller
2005-06-03 04:14:55 +00:00
parent 88f31110a7
commit 4da90c4f9b
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Info.pm
View File

@@ -438,10 +438,16 @@ See SNMP::Info::Layer3::Foundry for more info.
=item SNMP::Info::Layer3::Passport
Subclass for Nortel Networks' Passport 8600 and Accelar series switches.
Subclass for Nortel Passport 8000 series and Accelar series switches.
See SNMP::Info::Layer3::Passport for where to get MIBs required.
=item SNMP::Info::Layer3::N1600
Subclass for Nortel 1600 series switches.
See SNMP::Info::Layer3::N1600 for where to get MIBs required.
=back
=back
@@ -779,6 +785,7 @@ Algorithm for Subclass Detection:
HP Procurve -> SNMP::Info::Layer2::HP
Nortel/Bay Centillion ATM -> SNMP::Info::Layer2::Centillion
Nortel/Bay Baystack -> SNMP::Info::Layer2::Baystack
Nortel Passport/Accelar 8100 -> SNMP::Info::Layer3::Passport
Nortel AP 222x -> SNMP::Info::Layer2::NAP222x
Orinco AP -> SNMP::Info::Layer2::Orinoco
Elsif Layer1 Support -> SNMP::Info::Layer1
@@ -821,9 +828,9 @@ sub device_type {
$objtype = 'SNMP::Info::Layer3::C6500' if ($desc =~ /cisco/i and $desc =~ /3750/);
$objtype = 'SNMP::Info::Layer3::C6500' if $desc =~ /Catalyst 4000/;
$objtype = 'SNMP::Info::Layer3::C6500' if $desc =~ /s72033_rp/;
# Nortel Passport 8600, 1100, 1200 Series
# Nortel Passport 8600, 1600, 1100, 1200 Series
$objtype = 'SNMP::Info::Layer3::Passport' if $desc =~ /Passport-86/;
$objtype = 'SNMP::Info::Layer3::Passport' if $desc =~ /Passport-[1][012]/;
$objtype = 'SNMP::Info::Layer3::Passport' if $desc =~ /Passport-[1][0126]/;
$objtype = 'SNMP::Info::Layer3::Passport' if $desc =~ /Accelar-1/;
# Nortel Alteon AD Series
$objtype = 'SNMP::Info::Layer3::AlteonAD' if $desc =~ /Alteon\s[1A][8D]/;
@@ -876,6 +883,10 @@ sub device_type {
# BayStack Numbered
$objtype = 'SNMP::Info::Layer2::Baystack' if ($desc =~ /BayStack\s[345]\d/);
# Accelar/Passport 8100
$objtype = 'SNMP::Info::Layer3::Passport' if $desc =~ /Passport-81/;
$objtype = 'SNMP::Info::Layer3::Passport' if $desc =~ /Accelar-81/;
# Nortel AP 222X
$objtype = 'SNMP::Info::Layer2::NAP222x' if ($desc =~ /Access\s+Point\s+222/);