clean scalance
a few typos info::bridge & info::lldp get pulled in via info::layer3 use Socket could be dropped in favor of resolve_desthost(), but needs testing. (not tested waiting for what travis says)
This commit is contained in:
@@ -40,18 +40,13 @@ package SNMP::Info::Layer3::Scalance;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use Exporter;
|
use Exporter;
|
||||||
|
use Socket;
|
||||||
use SNMP::Info::Layer3;
|
use SNMP::Info::Layer3;
|
||||||
use SNMP::Info::MAU;
|
use SNMP::Info::MAU;
|
||||||
use SNMP::Info::LLDP;
|
|
||||||
use SNMP::Info::Bridge;
|
|
||||||
use Socket;
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
@SNMP::Info::Layer3::Scalance::ISA = qw/
|
@SNMP::Info::Layer3::Scalance::ISA = qw/
|
||||||
SNMP::Info::Layer3
|
SNMP::Info::Layer3
|
||||||
SNMP::Info::MAU
|
SNMP::Info::MAU
|
||||||
SNMP::Info::Bridge
|
|
||||||
SNMP::Info::LLDP
|
|
||||||
Exporter
|
Exporter
|
||||||
/;
|
/;
|
||||||
@SNMP::Info::Layer3::Scalance::EXPORT_OK = qw//;
|
@SNMP::Info::Layer3::Scalance::EXPORT_OK = qw//;
|
||||||
@@ -63,8 +58,6 @@ $VERSION = '3.70';
|
|||||||
%MIBS = (
|
%MIBS = (
|
||||||
%SNMP::Info::Layer3::MIBS,
|
%SNMP::Info::Layer3::MIBS,
|
||||||
%SNMP::Info::MAU::MIBS,
|
%SNMP::Info::MAU::MIBS,
|
||||||
%SNMP::Info::LLDP::MIBS,
|
|
||||||
%SNMP::Info::Bridge::MIBS,
|
|
||||||
'SN-MSPS-SCX-MIB' => 'snMsps',
|
'SN-MSPS-SCX-MIB' => 'snMsps',
|
||||||
'AUTOMATION-SYSTEM-MIB' => 'automationManufacturerId',
|
'AUTOMATION-SYSTEM-MIB' => 'automationManufacturerId',
|
||||||
);
|
);
|
||||||
@@ -72,8 +65,6 @@ $VERSION = '3.70';
|
|||||||
%GLOBALS = (
|
%GLOBALS = (
|
||||||
%SNMP::Info::Layer3::GLOBALS,
|
%SNMP::Info::Layer3::GLOBALS,
|
||||||
%SNMP::Info::MAU::GLOBALS,
|
%SNMP::Info::MAU::GLOBALS,
|
||||||
%SNMP::Info::LLDP::GLOBALS,
|
|
||||||
%SNMP::Info::Bridge::GLOBALS,
|
|
||||||
'serial1' => 'automationSerialNumber.0',
|
'serial1' => 'automationSerialNumber.0',
|
||||||
'ps1_status' => 'snMspsPowerSupply1State.0',
|
'ps1_status' => 'snMspsPowerSupply1State.0',
|
||||||
'ps2_status' => 'snMspsPowerSupply2State.0',
|
'ps2_status' => 'snMspsPowerSupply2State.0',
|
||||||
@@ -83,16 +74,12 @@ $VERSION = '3.70';
|
|||||||
%FUNCS = (
|
%FUNCS = (
|
||||||
%SNMP::Info::Layer3::FUNCS,
|
%SNMP::Info::Layer3::FUNCS,
|
||||||
%SNMP::Info::MAU::FUNCS,
|
%SNMP::Info::MAU::FUNCS,
|
||||||
%SNMP::Info::LLDP::FUNCS,
|
|
||||||
%SNMP::Info::Bridge::FUNCS,
|
|
||||||
);
|
);
|
||||||
|
|
||||||
%MUNGE = (
|
%MUNGE = (
|
||||||
# Inherit all the built in munging
|
# Inherit all the built in munging
|
||||||
%SNMP::Info::Layer3::MUNGE,
|
%SNMP::Info::Layer3::MUNGE,
|
||||||
%SNMP::Info::MAU::MUNGE,
|
%SNMP::Info::MAU::MUNGE,
|
||||||
%SNMP::Info::LLDP::MUNGE,
|
|
||||||
%SNMP::Info::Bridge::MUNGE,
|
|
||||||
);
|
);
|
||||||
|
|
||||||
sub layers {
|
sub layers {
|
||||||
@@ -206,7 +193,7 @@ Christoph Handel
|
|||||||
Provides abstraction to the configuration information obtainable from a
|
Provides abstraction to the configuration information obtainable from a
|
||||||
Siemens Scalance Switch via SNMP.
|
Siemens Scalance Switch via SNMP.
|
||||||
|
|
||||||
Tested only with sclance xr524
|
Tested only with scalance xr524
|
||||||
|
|
||||||
=head2 Inherited Classes
|
=head2 Inherited Classes
|
||||||
|
|
||||||
@@ -216,22 +203,13 @@ Tested only with sclance xr524
|
|||||||
|
|
||||||
=item SNMP::Info::MAU
|
=item SNMP::Info::MAU
|
||||||
|
|
||||||
=item SNMP::Info::LLDP
|
|
||||||
|
|
||||||
=item SNMP::Info::Bridge
|
|
||||||
|
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
=head2 Required MIBs
|
=head2 Required MIBs
|
||||||
|
|
||||||
=over
|
=over
|
||||||
|
|
||||||
=item F<SN-MSPS-SCX-MIB>
|
=item F<AUTOMATION-SMI>
|
||||||
|
|
||||||
=item F<AUTOMATION-SYSTEM-MIB>
|
|
||||||
|
|
||||||
=item F<AUTOMATION-SMI.txt>
|
|
||||||
|
|
||||||
=item F<AUTOMATION-SYSTEM-MIB>
|
=item F<AUTOMATION-SYSTEM-MIB>
|
||||||
|
|
||||||
@@ -239,6 +217,8 @@ Tested only with sclance xr524
|
|||||||
|
|
||||||
=item F<SIEMENS-SMI>
|
=item F<SIEMENS-SMI>
|
||||||
|
|
||||||
|
=item F<SN-MSPS-SCX-MIB>
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
L<https://support.industry.siemens.com/cs/document/22015045/private-mibs%3A-scalance-x-scalance-w-and-snmp-opc-profile?dti=0&lc=en-DE>
|
L<https://support.industry.siemens.com/cs/document/22015045/private-mibs%3A-scalance-x-scalance-w-and-snmp-opc-profile?dti=0&lc=en-DE>
|
||||||
@@ -268,7 +248,7 @@ Returns siemens
|
|||||||
|
|
||||||
=item $scalance->model()
|
=item $scalance->model()
|
||||||
|
|
||||||
extrace a meaningful name from description
|
extract a meaningful name from description
|
||||||
|
|
||||||
=item $scalance->mac()
|
=item $scalance->mac()
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user