New class L2::HPVC for VirtualConnect blade switches

HP VirtualConnect product family includes ethernet-switch-like products
with their own MIBs. This new class adds basic support for these devices.
This commit is contained in:
Jeroen van Ingen
2011-09-09 17:49:52 +02:00
parent 5d9eec0992
commit 52275e92af
4 changed files with 226 additions and 1 deletions

14
Info.pm
View File

@@ -1332,6 +1332,10 @@ sub device_type {
$objtype = 'SNMP::Info::Layer3::CiscoFWSM'
if ( $desc =~ /Cisco Firewall Services Module/i );
# HP VirtualConnect blade switches
$objtype = 'SNMP::Info::Layer2::HPVC'
if ( $desc =~ /HP\sVC\s/ );
# Generic device classification based upon sysObjectID
if ( ( $objtype eq 'SNMP::Info::Layer3' )
and ( defined($id) )
@@ -1433,6 +1437,10 @@ sub device_type {
if (
$desc =~ /Nortel\s+(Networks\s+)??WLAN\s+-\s+Security\s+Switch/ );
# HP VirtualConnect blade switches
$objtype = 'SNMP::Info::Layer2::HPVC'
if ( $desc =~ /HP\sVC\s/ );
# Generic device classification based upon sysObjectID
if ( ( $objtype eq 'SNMP::Info::Layer2' )
and ( defined($id) )
@@ -1486,8 +1494,12 @@ sub device_type {
$objtype = 'SNMP::Info::Layer3::Cisco'
if ( $desc =~ /Cisco Adaptive Security Appliance/i );
# HP VirtualConnect blade switches
$objtype = 'SNMP::Info::Layer2::HPVC'
if ( $desc =~ /HP\sVC\s/ );
# Generic device classification based upon sysObjectID
if ( defined($id) ) {
if ( defined($id) and !defined $objtype ) {
if ( defined $l3sysoidmap{$id} ) {
$objtype = $l3sysoidmap{$id};
} elsif ( defined $l2sysoidmap{$id}) {