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

Support Siemens Scalance Switch (#361)

Browse Source
This commit is contained in:
Christoph Handel
2019-10-15 19:26:49 +02:00
committed by Oliver Gorwits
parent 78c194faee
commit 0791b7cccb
3 changed files with 454 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/SNMP/Info.pm
View File

@@ -1002,6 +1002,12 @@ Subclass for redlion routers.
See documentation in L<SNMP::Info::Layer3::Redlion> for details.
=item SNMP::Info::Layer3::Scalance
Subclass for Siemens Scalance devices.
See documentation in L<SNMP::Info::Layer3::Scalance> for details.
=item SNMP::Info::Layer3::SonicWALL
Subclass for generic SonicWALL devices.
@@ -1903,6 +1909,14 @@ sub device_type {
$objtype = 'SNMP::Info::Layer2::NWSS2300'
if (
$desc =~ /^(Nortel\s)??Wireless\sSecurity\sSwitch\s23[568][012]\b/);
# Siemens Simatic Scalance
# Scalance overwrites layers later,
# so if we don't add it here (layer3) and at other
# it would flip/flop between those
$objtype = 'SNMP::Info::Layer3::Scalance'
if ( $soid =~ /\.1\.3\.6\.1\.4\.1\.4329\.6\.1\.2/i );
# Generic device classification based upon sysObjectID
if ( ( $objtype eq 'SNMP::Info::Layer3' )
@@ -1911,7 +1925,6 @@ sub device_type {
{
$objtype = $l3sysoidmap{$id};
}
# Layer 2 Supported
}
elsif ( $info->has_layer(2) ) {
@@ -2103,6 +2116,13 @@ sub device_type {
$objtype = 'SNMP::Info::Layer7::CiscoIPS'
if ( $soid =~ /\.1\.3\.6\.1\.4\.1\.9\.1\.1545/i );
# Siemens Simatic Scalance
# Scalance overwrites layers later,
# so if we don't add it here (layer3) and at other
# it would flip/flop between those
$objtype = 'SNMP::Info::Layer3::Scalance'
if ( $soid =~ /\.1\.3\.6\.1\.4\.1\.4329\.6\.1\.2/i );
# Generic device classification based upon sysObjectID
if ( defined($id) and $objtype eq 'SNMP::Info') {
if ( defined $l3sysoidmap{$id} ) {