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

Add vendor-based & layer-based fallback classification for Layer7

Browse Source
This commit is contained in:
Jeroen van Ingen
2011-11-11 10:44:16 +01:00
parent ccd03ae6d2
commit 2dd1cdc281
2 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@@ -2,6 +2,9 @@ SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
version 2.07 () version 2.07 ()
[NEW FEATURES]
* Basic support for APC UPS devices
[BUG FIXES] [BUG FIXES]
* [2988163] Detect Juniper SSG firewalls as Layer3::Netscreen (R. Kerr) * [2988163] Detect Juniper SSG firewalls as Layer3::Netscreen (R. Kerr)

8
Info.pm
View File

@@ -1266,6 +1266,10 @@ sub device_type {
14823 => 'SNMP::Info::Layer3::Aruba', 14823 => 'SNMP::Info::Layer3::Aruba',
); );
my %l7sysoidmap = (
318 => 'SNMP::Info::Layer7::APC',
);
# Get just the enterprise number for generic mapping # Get just the enterprise number for generic mapping
$id = $1 if ( defined($id) && $id =~ /^\.1\.3\.6\.1\.4\.1\.(\d+)/ ); $id = $1 if ( defined($id) && $id =~ /^\.1\.3\.6\.1\.4\.1\.(\d+)/ );
@@ -1517,6 +1521,10 @@ sub device_type {
$objtype = $l3sysoidmap{$id}; $objtype = $l3sysoidmap{$id};
} elsif ( defined $l2sysoidmap{$id}) { } elsif ( defined $l2sysoidmap{$id}) {
$objtype = $l2sysoidmap{$id}; $objtype = $l2sysoidmap{$id};
} elsif ( defined $l7sysoidmap{$id}) {
$objtype = $l7sysoidmap{$id};
} elsif ($info->has_layer(7)) {
$objtype = 'SNMP::Info::Layer7'
} }
} }
} }