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

almost done whitespace cleanup

Browse Source
This commit is contained in:
inphobia
2019-01-19 05:24:32 +01:00
parent 4230a07c94
commit e356189010
14 changed files with 81 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/SNMP/Info/AMAP.pm
View File

@@ -240,10 +240,10 @@ Eric Miller
=head1 SYNOPSIS =head1 SYNOPSIS
my $amap = new SNMP::Info ( my $amap = new SNMP::Info (
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'router', DestHost => 'router',
Community => 'public', Community => 'public',
Version => 2 Version => 2
); );
@@ -269,7 +269,7 @@ Eric Miller
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::AMAP is a subclass of SNMP::Info that provides an object oriented SNMP::Info::AMAP is a subclass of SNMP::Info that provides an object oriented
interface to Alcatel Mapping Adjacency Protocol (AMAP) information through interface to Alcatel Mapping Adjacency Protocol (AMAP) information through
SNMP. SNMP.
@@ -299,7 +299,7 @@ These are methods that return scalar values from SNMP
=item $amap->hasAMAP() =item $amap->hasAMAP()
Is AMAP is active in this device? Is AMAP is active in this device?
=back =back
@@ -322,7 +322,7 @@ Returns the mapping to the SNMP Interface Table.
Returns remote IPv4 addresses. Note: AMAP returns all IP addresses associated Returns remote IPv4 addresses. Note: AMAP returns all IP addresses associated
with the remote device. It would be preferable to include only one address with the remote device. It would be preferable to include only one address
since they should all originate from the same device, but amap_ip() can not since they should all originate from the same device, but amap_ip() can not
determine if all addresses are reachable from the network management determine if all addresses are reachable from the network management
application therefore all addresses are returned and the calling application application therefore all addresses are returned and the calling application
must determine which address to use and if they are in fact from the same must determine which address to use and if they are in fact from the same

8
lib/SNMP/Info/AdslLine.pm
View File

@@ -50,7 +50,7 @@ $VERSION = '3.64';
'adsl_atuc_curr_tx_rate' => 'adslAtucChanCurrTxRate', 'adsl_atuc_curr_tx_rate' => 'adslAtucChanCurrTxRate',
'adsl_atuc_prev_tx_rate' => 'adslAtucChanPrevTxRate', 'adsl_atuc_prev_tx_rate' => 'adslAtucChanPrevTxRate',
'adsl_atuc_crc_block_len' => 'adslAtucChanCrcBlockLength', 'adsl_atuc_crc_block_len' => 'adslAtucChanCrcBlockLength',
# ADSL-LINE-MIB::adslAturChanTable # ADSL-LINE-MIB::adslAturChanTable
'adsl_atur_interleave_delay' => 'adslAturChanInterleaveDelay', 'adsl_atur_interleave_delay' => 'adslAturChanInterleaveDelay',
'adsl_atur_curr_tx_rate' => 'adslAturChanCurrTxRate', 'adsl_atur_curr_tx_rate' => 'adslAturChanCurrTxRate',
@@ -73,14 +73,14 @@ Alexander Hartmaier
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $info = new SNMP::Info( my $info = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myrouter', DestHost => 'myrouter',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $info->class(); my $class = $info->class();
@@ -88,7 +88,7 @@ Alexander Hartmaier
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::AdslLine is a subclass of SNMP::Info that provides SNMP::Info::AdslLine is a subclass of SNMP::Info that provides
information about the adsl interfaces of a device. information about the adsl interfaces of a device.
Use or create in a subclass of SNMP::Info. Do not use directly. Use or create in a subclass of SNMP::Info. Do not use directly.

4
lib/SNMP/Info/Aggregate.pm
View File

@@ -84,14 +84,14 @@ SNMP::Info Developers
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $info = new SNMP::Info( my $info = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myrouter', DestHost => 'myrouter',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $info->class(); my $class = $info->class();

24
lib/SNMP/Info/Airespace.pm
View File

@@ -84,7 +84,7 @@ $VERSION = '3.64';
'airespace_ess_ifname' => 'bsnDot11EssInterfaceName', 'airespace_ess_ifname' => 'bsnDot11EssInterfaceName',
'airespace_ess_aclname' => 'bsnDot11EssAclName', 'airespace_ess_aclname' => 'bsnDot11EssAclName',
'airespace_ess_bcast' => 'bsnDot11EssBroadcastSsid', 'airespace_ess_bcast' => 'bsnDot11EssBroadcastSsid',
# AIRESPACE-WIRELESS-MIB::bsnAPTable # AIRESPACE-WIRELESS-MIB::bsnAPTable
'airespace_ap_mac' => 'bsnAPDot3MacAddress', 'airespace_ap_mac' => 'bsnAPDot3MacAddress',
'airespace_ap_name' => 'bsnAPName', 'airespace_ap_name' => 'bsnAPName',
@@ -764,14 +764,14 @@ sub dot11_cur_tx_pwr_mw {
my $partial = shift; my $partial = shift;
my $cur = $airespace->airespace_apif_power($partial); my $cur = $airespace->airespace_apif_power($partial);
my $pwr_abs = $airespace->airespace_apif_a_pwr($partial); my $pwr_abs = $airespace->airespace_apif_a_pwr($partial);
my $dot11_cur_tx_pwr_mw = {}; my $dot11_cur_tx_pwr_mw = {};
foreach my $idx ( keys %$cur ) { foreach my $idx ( keys %$cur ) {
my $pwr = $cur->{$idx}; my $pwr = $cur->{$idx};
if ( $pwr >= 1 && $pwr <= 8 ) { if ( $pwr >= 1 && $pwr <= 8 ) {
my @pwr_list = split(/,/, $pwr_abs->{$idx} ); my @pwr_list = split(/,/, $pwr_abs->{$idx} );
$dot11_cur_tx_pwr_mw->{$idx} = $pwr_list[$pwr-1]; $dot11_cur_tx_pwr_mw->{$idx} = $pwr_list[$pwr-1];
} }
else { else {
@@ -1087,7 +1087,7 @@ Eric Miller
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
@@ -1204,7 +1204,7 @@ valid only when the Transfer Mode is tftp.
=item $airespace->airespace_ul_path() =item $airespace->airespace_ul_path()
Transfer upload tftp path configures the directory path where the file is to Transfer upload tftp path configures the directory path where the file is to
be uploaded to. The switch remembers the last file path used. be uploaded to. The switch remembers the last file path used.
(C<agentTransferUploadPath>) (C<agentTransferUploadPath>)
@@ -1279,7 +1279,7 @@ radio interface.
=item $airespace->i_ssidmac() =item $airespace->i_ssidmac()
With the same keys as i_ssidlist, returns the Basic service set With the same keys as i_ssidlist, returns the Basic service set
identification (BSSID), MAC address, the AP is using for the SSID. identification (BSSID), MAC address, the AP is using for the SSID.
=back =back
@@ -1346,7 +1346,7 @@ Name of the interface used by this WLAN.
Name of ACL for the WLAN. This is applicable only when Web Authentication is Name of ACL for the WLAN. This is applicable only when Web Authentication is
enabled. enabled.
(C<bsnDot11EssAclName>) (C<bsnDot11EssAclName>)
=item $airespace->airespace_ess_bcast() =item $airespace->airespace_ess_bcast()
@@ -1672,14 +1672,14 @@ to an empty string.
=item $airespace->i_index() =item $airespace->i_index()
Returns reference to map of IIDs to Interface index. Returns reference to map of IIDs to Interface index.
Extends C<ifIndex> to support thin APs and WLAN virtual interfaces as device Extends C<ifIndex> to support thin APs and WLAN virtual interfaces as device
interfaces. interfaces.
=item $airespace->interfaces() =item $airespace->interfaces()
Returns reference to map of IIDs to ports. Thin APs are implemented as device Returns reference to map of IIDs to ports. Thin APs are implemented as device
interfaces. The thin AP MAC address airespace_ap_mac() and Slot ID interfaces. The thin AP MAC address airespace_ap_mac() and Slot ID
airespace_apif_slot() are used as the port identifier. Virtual interfaces airespace_apif_slot() are used as the port identifier. Virtual interfaces
use airespace_if_name() as the port identifier. use airespace_if_name() as the port identifier.
@@ -1717,7 +1717,7 @@ for thin AP interfaces.
=item $airespace->i_mac() =item $airespace->i_mac()
Returns reference to map of IIDs to MAC address of the interface. Returns Returns reference to map of IIDs to MAC address of the interface. Returns
C<ifPhysAddress> for Ethernet interfaces and airespace_if_mac() for virtual C<ifPhysAddress> for Ethernet interfaces and airespace_if_mac() for virtual
interfaces. interfaces.
=item $airespace->i_vlan() =item $airespace->i_vlan()
@@ -1751,7 +1751,7 @@ the interface iid.
=item $airespace->fw_port() =item $airespace->fw_port()
Returns reference to a hash, value being airespace_sta_mac() and Returns reference to a hash, value being airespace_sta_mac() and
airespace_sta_slot() combined to match the interface iid. airespace_sta_slot() combined to match the interface iid.
=item $airespace->fw_mac() =item $airespace->fw_mac()

4
lib/SNMP/Info/CiscoAgg.pm
View File

@@ -100,14 +100,14 @@ SNMP::Info Developers
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $info = new SNMP::Info( my $info = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myrouter', DestHost => 'myrouter',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $info->class(); my $class = $info->class();

6
lib/SNMP/Info/CiscoConfig.pm
View File

@@ -279,7 +279,7 @@ Justin Hunter, Eric Miller
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
@@ -431,7 +431,7 @@ Table of Flash copy operation entries.
These are methods that provide SNMP set functionality for overridden methods These are methods that provide SNMP set functionality for overridden methods
or provide a simpler interface to complex set operations. See or provide a simpler interface to complex set operations. See
L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
operations. operations.
=over =over
@@ -448,7 +448,7 @@ older procedure has been depreciated by Cisco and is utilized only to support
devices running older code revisions. devices running older code revisions.
Example: Example:
$ciscoconfig->copy_run_tftp('1.2.3.4', 'myconfig') $ciscoconfig->copy_run_tftp('1.2.3.4', 'myconfig')
or die "Couldn't save config. ",$ciscoconfig->error(1); or die "Couldn't save config. ",$ciscoconfig->error(1);
=item $ciscoconfig->copy_run_start() =item $ciscoconfig->copy_run_start()

4
lib/SNMP/Info/CiscoPortSecurity.pm
View File

@@ -152,14 +152,14 @@ Eric Miller
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $cps = new SNMP::Info( my $cps = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $cps->class(); my $class = $cps->class();

6
lib/SNMP/Info/CiscoQOS.pm
View File

@@ -86,14 +86,14 @@ Alexander Hartmaier
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $qos = new SNMP::Info( my $qos = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $qos->class(); my $class = $qos->class();
@@ -101,7 +101,7 @@ Alexander Hartmaier
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::CiscoQOS is a subclass of SNMP::Info that provides SNMP::Info::CiscoQOS is a subclass of SNMP::Info that provides
information about a cisco device's QoS config. information about a cisco device's QoS config.
Use or create in a subclass of SNMP::Info. Do not use directly. Use or create in a subclass of SNMP::Info. Do not use directly.

6
lib/SNMP/Info/CiscoRTT.pm
View File

@@ -67,14 +67,14 @@ Alexander Hartmaier
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $rtt = new SNMP::Info( my $rtt = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $rtt->class(); my $class = $rtt->class();
@@ -82,7 +82,7 @@ Alexander Hartmaier
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::CiscoRTT is a subclass of SNMP::Info that provides SNMP::Info::CiscoRTT is a subclass of SNMP::Info that provides
information about a cisco device's RTT values. information about a cisco device's RTT values.
Use or create in a subclass of SNMP::Info. Do not use directly. Use or create in a subclass of SNMP::Info. Do not use directly.

8
lib/SNMP/Info/CiscoStack.pm
View File

@@ -295,14 +295,14 @@ Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $ciscostats = new SNMP::Info( my $ciscostats = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $ciscostats->class(); my $class = $ciscostats->class();
@@ -386,7 +386,7 @@ Returns a map to IID for ports that are physical ports, not vlans, etc.
=item $stack->i_type() =item $stack->i_type()
Crosses p_port() with p_type() and returns the results. Crosses p_port() with p_type() and returns the results.
Overrides with C<ifType> if p_type() isn't available. Overrides with C<ifType> if p_type() isn't available.
@@ -425,7 +425,7 @@ C<portAdminSpeed>
Example: Example:
my %if_map = reverse %{$stack->interfaces()}; my %if_map = reverse %{$stack->interfaces()};
$stack->set_i_speed_admin('auto', $if_map{'FastEthernet0/1'}) $stack->set_i_speed_admin('auto', $if_map{'FastEthernet0/1'})
or die "Couldn't change port speed. ",$stack->error(1); or die "Couldn't change port speed. ",$stack->error(1);
=item $stack->set_i_duplex_admin(duplex, ifIndex) =item $stack->set_i_duplex_admin(duplex, ifIndex)

10
lib/SNMP/Info/CiscoStats.pm
View File

@@ -88,7 +88,7 @@ $VERSION = '3.64';
# CISCO-FLASH-MIB::ciscoFlashDeviceTable # CISCO-FLASH-MIB::ciscoFlashDeviceTable
'cisco_flash_size' => 'ciscoFlashDeviceSize', 'cisco_flash_size' => 'ciscoFlashDeviceSize',
# CISCO-IMAGE-MIB # CISCO-IMAGE-MIB
'ci_images' => 'ciscoImageString', 'ci_images' => 'ciscoImageString',
); );
@@ -334,7 +334,7 @@ Eric Miller, Max Baker, Sam Stickland
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $ciscostats = new SNMP::Info( my $ciscostats = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
@@ -342,7 +342,7 @@ Eric Miller, Max Baker, Sam Stickland
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $ciscostats->class(); my $class = $ciscostats->class();
@@ -351,7 +351,7 @@ Eric Miller, Max Baker, Sam Stickland
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::CiscoStats is a subclass of SNMP::Info that provides cpu, memory, SNMP::Info::CiscoStats is a subclass of SNMP::Info that provides cpu, memory,
os and version information about Cisco Devices. os and version information about Cisco Devices.
Use or create in a subclass of SNMP::Info. Do not use directly. Use or create in a subclass of SNMP::Info. Do not use directly.
@@ -447,7 +447,7 @@ Tries to parse C<ROMMON> version from rom_id() string
Current CPU usage in percent. Current CPU usage in percent.
C<1.3.6.1.4.1.9.2.1.56.0> = C<1.3.6.1.4.1.9.2.1.56.0> =
C<OLD-CISCO-CPU-MIB:avgBusyPer> C<OLD-CISCO-CPU-MIB:avgBusyPer>
=item $ciscostats->ios_cpu_1min() =item $ciscostats->ios_cpu_1min()

52
lib/SNMP/Info/CiscoStpExtensions.pm
View File

@@ -1,29 +1,29 @@
# SNMP::Info::CiscoStpExtensions # SNMP::Info::CiscoStpExtensions
# #
# Copyright (c)2009 Carlos Vicente # Copyright (c)2009 Carlos Vicente
# All rights reserved. # All rights reserved.
# #
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met: # modification, are permitted provided that the following conditions are met:
# #
# * Redistributions of source code must retain the above copyright notice, # * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer. # this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright notice, # * Redistributions in binary form must reproduce the above copyright notice,
# this list of conditions and the following disclaimer in the documentation # this list of conditions and the following disclaimer in the documentation
# and/or other materials provided with the distribution. # and/or other materials provided with the distribution.
# * Neither the name of the author nor the # * Neither the name of the author nor the
# names of its contributors may be used to endorse or promote products # names of its contributors may be used to endorse or promote products
# derived from this software without specific prior written permission. # derived from this software without specific prior written permission.
# #
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR # DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::CiscoStpExtensions; package SNMP::Info::CiscoStpExtensions;
@@ -106,11 +106,11 @@ sub mst_region_rev {
sub mst_vlan2instance { sub mst_vlan2instance {
my $self = shift; my $self = shift;
# Get MST vlan-to-instance mapping # Get MST vlan-to-instance mapping
my $m1k2k = $self->stpx_smst_vlans_mapped_1k2k; my $m1k2k = $self->stpx_smst_vlans_mapped_1k2k;
my $m3k4k = $self->stpx_smst_vlans_mapped_3k4k; my $m3k4k = $self->stpx_smst_vlans_mapped_3k4k;
# Get list of VLANs # Get list of VLANs
my $vlan_membership = $self->i_vlan_membership; my $vlan_membership = $self->i_vlan_membership;
my @vlans; my @vlans;
@@ -140,7 +140,7 @@ sub mst_vlan2instance {
$res{$vlan} = $inst; $res{$vlan} = $inst;
last; last;
} }
} }
} }
} }
return \%res; return \%res;
@@ -162,7 +162,7 @@ sub i_rootguard_enabled {
$res{$iid} = $enabled; $res{$iid} = $enabled;
} }
return \%res; return \%res;
} }
sub i_loopguard_enabled { sub i_loopguard_enabled {
my $self = shift; my $self = shift;
@@ -180,7 +180,7 @@ sub i_loopguard_enabled {
$res{$iid} = $enabled; $res{$iid} = $enabled;
} }
return \%res; return \%res;
} }
sub i_bpduguard_enabled { sub i_bpduguard_enabled {
my $self = shift; my $self = shift;
@@ -189,7 +189,7 @@ sub i_bpduguard_enabled {
my $bpdugm_default = $self->stpx_bpduguard_enable(); my $bpdugm_default = $self->stpx_bpduguard_enable();
my $bp_index = $self->bp_index($partial); my $bp_index = $self->bp_index($partial);
my $bpdugm = $self->stpx_port_bpduguard_mode(); my $bpdugm = $self->stpx_port_bpduguard_mode();
my %res; my %res;
foreach my $index ( keys %$bpdugm ){ foreach my $index ( keys %$bpdugm ){
my $mode = $bpdugm->{$index}; my $mode = $bpdugm->{$index};
@@ -212,7 +212,7 @@ sub i_bpdufilter_enabled {
my $bpdufm_default = $self->stpx_bpdufilter_enable(); my $bpdufm_default = $self->stpx_bpdufilter_enable();
my $bp_index = $self->bp_index($partial); my $bp_index = $self->bp_index($partial);
my $bpdufm = $self->stpx_port_bpdufilter_mode(); my $bpdufm = $self->stpx_port_bpdufilter_mode();
my %res; my %res;
foreach my $index ( keys %$bpdufm ){ foreach my $index ( keys %$bpdufm ){
my $mode = $bpdufm->{$index}; my $mode = $bpdufm->{$index};
@@ -295,7 +295,7 @@ Carlos Vicente
Create or use a subclass of SNMP::Info that inherits this class. Do not use Create or use a subclass of SNMP::Info that inherits this class. Do not use
directly. directly.
For debugging you can call new() directly as you would in SNMP::Info For debugging you can call new() directly as you would in SNMP::Info
my $stpx = new SNMP::Info::CiscoStpExtensions(...); my $stpx = new SNMP::Info::CiscoStpExtensions(...);
@@ -303,9 +303,9 @@ For debugging you can call new() directly as you would in SNMP::Info
=over =over
=item SNMP::Info =item SNMP::Info
=item SNMP::Info::Bridge =item SNMP::Info::Bridge
=back =back
@@ -319,7 +319,7 @@ These are methods that return scalar values from SNMP
=item $stpx->stp_ver() =item $stpx->stp_ver()
Returns the particular STP version running on this device. Returns the particular STP version running on this device.
Meant to override SNMP::Info::Brigde::stp_ver() Meant to override SNMP::Info::Brigde::stp_ver()
Values: C<pvstPlus>, C<mistp>, C<mistpPvstPlus>, C<mst>, C<rapidPvstPlus> Values: C<pvstPlus>, C<mistp>, C<mistpPvstPlus>, C<mst>, C<rapidPvstPlus>
@@ -337,25 +337,25 @@ to a hash.
=item $stpx->mst_config_digest() =item $stpx->mst_config_digest()
Returns the Multiple Spanning Tree (MST) configuration digest Returns the Multiple Spanning Tree (MST) configuration digest
(C<stpxSMSTConfigDigest>) (C<stpxSMSTConfigDigest>)
=item $stpx->mst_region_name() =item $stpx->mst_region_name()
Returns the Multiple Spanning Tree (MST) region name Returns the Multiple Spanning Tree (MST) region name
(C<stpxMSTRegionName>) (C<stpxMSTRegionName>)
=item $stpx->mst_region_rev() =item $stpx->mst_region_rev()
Returns the Multiple Spanning Tree (MST) region name Returns the Multiple Spanning Tree (MST) region name
(C<stpxSMSTRegionRevision>) (C<stpxSMSTRegionRevision>)
=item $stpx->mst_vlan2instance() =item $stpx->mst_vlan2instance()
Returns the mapping of vlan to MST instance in the form of a hash reference Returns the mapping of vlan to MST instance in the form of a hash reference
with key = VLAN id, value = STP instance with key = VLAN id, value = STP instance
=item $stpx->i_rootguard_enabled() =item $stpx->i_rootguard_enabled()

16
lib/SNMP/Info/EDP.pm
View File

@@ -64,7 +64,7 @@ sub hasEDP {
my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {}; my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {};
return 1 if ( scalar( keys %$edp_ip ) ); return 1 if ( scalar( keys %$edp_ip ) );
return; return;
} }
@@ -80,7 +80,7 @@ sub _edp_index {
my $edp = shift; my $edp = shift;
my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {}; my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {};
my %edp_index; my %edp_index;
foreach my $key ( keys %$edp_ip ) { foreach my $key ( keys %$edp_ip ) {
my $ip = $edp_ip->{$key}; my $ip = $edp_ip->{$key};
@@ -103,7 +103,7 @@ sub edp_if {
$iid = $1 if $iid =~ /^(\d+)\./; $iid = $1 if $iid =~ /^(\d+)\./;
$edp_if{$key} = $iid; $edp_if{$key} = $iid;
} }
return \%edp_if; return \%edp_if;
} }
@@ -193,10 +193,10 @@ Eric Miller
=head1 SYNOPSIS =head1 SYNOPSIS
my $edp = new SNMP::Info ( my $edp = new SNMP::Info (
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'router', DestHost => 'router',
Community => 'public', Community => 'public',
Version => 2 Version => 2
); );
@@ -222,7 +222,7 @@ Eric Miller
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::EDP is a subclass of SNMP::Info that provides an object oriented SNMP::Info::EDP is a subclass of SNMP::Info that provides an object oriented
interface to EDP information through SNMP. interface to EDP information through SNMP.
EDP is a Layer 2 protocol that allows a network device to advertise its EDP is a Layer 2 protocol that allows a network device to advertise its
@@ -251,7 +251,7 @@ These are methods that return scalar values from SNMP
=item $edp->hasEDP() =item $edp->hasEDP()
Is EDP is active in this device? Is EDP is active in this device?
=back =back
@@ -285,7 +285,7 @@ Returns remote port ID
Returns the operating system version of the remote system. Returns the operating system version of the remote system.
Nulls are removed before the value is returned. Nulls are removed before the value is returned.
(C<extremeEdpNeighborSoftwareVersion>) (C<extremeEdpNeighborSoftwareVersion>)

4
lib/SNMP/Info/Entity.pm
View File

@@ -174,14 +174,14 @@ Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $entity = new SNMP::Info( my $entity = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $entity->class(); my $class = $entity->class();