diff --git a/lib/SNMP/Info/AMAP.pm b/lib/SNMP/Info/AMAP.pm index a1298f80..40bf8123 100644 --- a/lib/SNMP/Info/AMAP.pm +++ b/lib/SNMP/Info/AMAP.pm @@ -240,10 +240,10 @@ Eric Miller =head1 SYNOPSIS - my $amap = new SNMP::Info ( + my $amap = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'router', + DestHost => 'router', Community => 'public', Version => 2 ); @@ -269,7 +269,7 @@ Eric Miller =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 SNMP. @@ -299,7 +299,7 @@ These are methods that return scalar values from SNMP =item $amap->hasAMAP() -Is AMAP is active in this device? +Is AMAP is active in this device? =back @@ -322,7 +322,7 @@ Returns the mapping to the SNMP Interface Table. Returns remote IPv4 addresses. Note: AMAP returns all IP addresses associated 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 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 diff --git a/lib/SNMP/Info/AdslLine.pm b/lib/SNMP/Info/AdslLine.pm index 854db793..45d3fae9 100644 --- a/lib/SNMP/Info/AdslLine.pm +++ b/lib/SNMP/Info/AdslLine.pm @@ -50,7 +50,7 @@ $VERSION = '3.64'; 'adsl_atuc_curr_tx_rate' => 'adslAtucChanCurrTxRate', 'adsl_atuc_prev_tx_rate' => 'adslAtucChanPrevTxRate', 'adsl_atuc_crc_block_len' => 'adslAtucChanCrcBlockLength', - + # ADSL-LINE-MIB::adslAturChanTable 'adsl_atur_interleave_delay' => 'adslAturChanInterleaveDelay', 'adsl_atur_curr_tx_rate' => 'adslAturChanCurrTxRate', @@ -73,14 +73,14 @@ Alexander Hartmaier =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( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $info->class(); @@ -88,7 +88,7 @@ Alexander Hartmaier =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. Use or create in a subclass of SNMP::Info. Do not use directly. diff --git a/lib/SNMP/Info/Aggregate.pm b/lib/SNMP/Info/Aggregate.pm index 2a554d6d..ddcd1182 100644 --- a/lib/SNMP/Info/Aggregate.pm +++ b/lib/SNMP/Info/Aggregate.pm @@ -84,14 +84,14 @@ SNMP::Info Developers =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( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $info->class(); diff --git a/lib/SNMP/Info/Airespace.pm b/lib/SNMP/Info/Airespace.pm index cfec7bc3..b15715b7 100644 --- a/lib/SNMP/Info/Airespace.pm +++ b/lib/SNMP/Info/Airespace.pm @@ -84,7 +84,7 @@ $VERSION = '3.64'; 'airespace_ess_ifname' => 'bsnDot11EssInterfaceName', 'airespace_ess_aclname' => 'bsnDot11EssAclName', 'airespace_ess_bcast' => 'bsnDot11EssBroadcastSsid', - + # AIRESPACE-WIRELESS-MIB::bsnAPTable 'airespace_ap_mac' => 'bsnAPDot3MacAddress', 'airespace_ap_name' => 'bsnAPName', @@ -764,14 +764,14 @@ sub dot11_cur_tx_pwr_mw { my $partial = shift; my $cur = $airespace->airespace_apif_power($partial); my $pwr_abs = $airespace->airespace_apif_a_pwr($partial); - + my $dot11_cur_tx_pwr_mw = {}; foreach my $idx ( keys %$cur ) { my $pwr = $cur->{$idx}; if ( $pwr >= 1 && $pwr <= 8 ) { - my @pwr_list = split(/,/, $pwr_abs->{$idx} ); - $dot11_cur_tx_pwr_mw->{$idx} = $pwr_list[$pwr-1]; + my @pwr_list = split(/,/, $pwr_abs->{$idx} ); + $dot11_cur_tx_pwr_mw->{$idx} = $pwr_list[$pwr-1]; } else { @@ -1087,7 +1087,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) 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() 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) @@ -1279,7 +1279,7 @@ radio interface. =item $airespace->i_ssidmac() 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 @@ -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 enabled. -(C) +(C) =item $airespace->airespace_ess_bcast() @@ -1672,14 +1672,14 @@ to an empty string. =item $airespace->i_index() -Returns reference to map of IIDs to Interface index. +Returns reference to map of IIDs to Interface index. Extends C to support thin APs and WLAN virtual interfaces as device 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 airespace_apif_slot() are used as the port identifier. Virtual interfaces use airespace_if_name() as the port identifier. @@ -1717,7 +1717,7 @@ for thin AP interfaces. =item $airespace->i_mac() Returns reference to map of IIDs to MAC address of the interface. Returns -C for Ethernet interfaces and airespace_if_mac() for virtual +C for Ethernet interfaces and airespace_if_mac() for virtual interfaces. =item $airespace->i_vlan() @@ -1751,7 +1751,7 @@ the interface iid. =item $airespace->fw_port() 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() diff --git a/lib/SNMP/Info/CiscoAgg.pm b/lib/SNMP/Info/CiscoAgg.pm index 61b5ae78..d28c8edc 100644 --- a/lib/SNMP/Info/CiscoAgg.pm +++ b/lib/SNMP/Info/CiscoAgg.pm @@ -100,14 +100,14 @@ SNMP::Info Developers =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( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $info->class(); diff --git a/lib/SNMP/Info/CiscoConfig.pm b/lib/SNMP/Info/CiscoConfig.pm index 9de9fe47..7c981e8e 100644 --- a/lib/SNMP/Info/CiscoConfig.pm +++ b/lib/SNMP/Info/CiscoConfig.pm @@ -279,7 +279,7 @@ Justin Hunter, Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) 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 or provide a simpler interface to complex set operations. See L for general information on set -operations. +operations. =over @@ -448,7 +448,7 @@ older procedure has been depreciated by Cisco and is utilized only to support devices running older code revisions. 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); =item $ciscoconfig->copy_run_start() diff --git a/lib/SNMP/Info/CiscoPortSecurity.pm b/lib/SNMP/Info/CiscoPortSecurity.pm index 47ab6122..da47cb37 100644 --- a/lib/SNMP/Info/CiscoPortSecurity.pm +++ b/lib/SNMP/Info/CiscoPortSecurity.pm @@ -152,14 +152,14 @@ Eric Miller =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $cps->class(); diff --git a/lib/SNMP/Info/CiscoQOS.pm b/lib/SNMP/Info/CiscoQOS.pm index 6f91ccb4..f6e3283d 100644 --- a/lib/SNMP/Info/CiscoQOS.pm +++ b/lib/SNMP/Info/CiscoQOS.pm @@ -86,14 +86,14 @@ Alexander Hartmaier =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $qos->class(); @@ -101,7 +101,7 @@ Alexander Hartmaier =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. Use or create in a subclass of SNMP::Info. Do not use directly. diff --git a/lib/SNMP/Info/CiscoRTT.pm b/lib/SNMP/Info/CiscoRTT.pm index 3f361edb..c8393c22 100644 --- a/lib/SNMP/Info/CiscoRTT.pm +++ b/lib/SNMP/Info/CiscoRTT.pm @@ -67,14 +67,14 @@ Alexander Hartmaier =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $rtt->class(); @@ -82,7 +82,7 @@ Alexander Hartmaier =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. Use or create in a subclass of SNMP::Info. Do not use directly. diff --git a/lib/SNMP/Info/CiscoStack.pm b/lib/SNMP/Info/CiscoStack.pm index 9be0ba3f..c74b2c55 100644 --- a/lib/SNMP/Info/CiscoStack.pm +++ b/lib/SNMP/Info/CiscoStack.pm @@ -295,14 +295,14 @@ Max Baker =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; 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() -Crosses p_port() with p_type() and returns the results. +Crosses p_port() with p_type() and returns the results. Overrides with C if p_type() isn't available. @@ -425,7 +425,7 @@ C Example: 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); =item $stack->set_i_duplex_admin(duplex, ifIndex) diff --git a/lib/SNMP/Info/CiscoStats.pm b/lib/SNMP/Info/CiscoStats.pm index 3e700360..451aa07e 100644 --- a/lib/SNMP/Info/CiscoStats.pm +++ b/lib/SNMP/Info/CiscoStats.pm @@ -88,7 +88,7 @@ $VERSION = '3.64'; # CISCO-FLASH-MIB::ciscoFlashDeviceTable 'cisco_flash_size' => 'ciscoFlashDeviceSize', - + # CISCO-IMAGE-MIB 'ci_images' => 'ciscoImageString', ); @@ -334,7 +334,7 @@ Eric Miller, Max Baker, Sam Stickland =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( AutoSpecify => 1, Debug => 1, @@ -342,7 +342,7 @@ Eric Miller, Max Baker, Sam Stickland DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $ciscostats->class(); @@ -351,7 +351,7 @@ Eric Miller, Max Baker, Sam Stickland =head1 DESCRIPTION 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. @@ -447,7 +447,7 @@ Tries to parse C version from rom_id() string 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 =item $ciscostats->ios_cpu_1min() diff --git a/lib/SNMP/Info/CiscoStpExtensions.pm b/lib/SNMP/Info/CiscoStpExtensions.pm index e96c61a6..6ef44a97 100644 --- a/lib/SNMP/Info/CiscoStpExtensions.pm +++ b/lib/SNMP/Info/CiscoStpExtensions.pm @@ -1,29 +1,29 @@ # SNMP::Info::CiscoStpExtensions # # 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: -# +# # * Redistributions of source code must retain the above copyright notice, # this list of conditions and the following disclaimer. # * Redistributions in binary form must reproduce the above copyright notice, # this list of conditions and the following disclaimer in the documentation # and/or other materials provided with the distribution. -# * Neither the name of the author nor the -# names of its contributors may be used to endorse or promote products +# * Neither the name of the author nor the +# names of its contributors may be used to endorse or promote products # derived from this software without specific prior written permission. -# +# # 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 -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED +# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE # DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR # 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 -# 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 +# 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 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. package SNMP::Info::CiscoStpExtensions; @@ -106,11 +106,11 @@ sub mst_region_rev { sub mst_vlan2instance { my $self = shift; - + # Get MST vlan-to-instance mapping my $m1k2k = $self->stpx_smst_vlans_mapped_1k2k; my $m3k4k = $self->stpx_smst_vlans_mapped_3k4k; - + # Get list of VLANs my $vlan_membership = $self->i_vlan_membership; my @vlans; @@ -140,7 +140,7 @@ sub mst_vlan2instance { $res{$vlan} = $inst; last; } - } + } } } return \%res; @@ -162,7 +162,7 @@ sub i_rootguard_enabled { $res{$iid} = $enabled; } return \%res; -} +} sub i_loopguard_enabled { my $self = shift; @@ -180,7 +180,7 @@ sub i_loopguard_enabled { $res{$iid} = $enabled; } return \%res; -} +} sub i_bpduguard_enabled { my $self = shift; @@ -189,7 +189,7 @@ sub i_bpduguard_enabled { my $bpdugm_default = $self->stpx_bpduguard_enable(); my $bp_index = $self->bp_index($partial); my $bpdugm = $self->stpx_port_bpduguard_mode(); - + my %res; foreach my $index ( keys %$bpdugm ){ my $mode = $bpdugm->{$index}; @@ -212,7 +212,7 @@ sub i_bpdufilter_enabled { my $bpdufm_default = $self->stpx_bpdufilter_enable(); my $bp_index = $self->bp_index($partial); my $bpdufm = $self->stpx_port_bpdufilter_mode(); - + my %res; foreach my $index ( keys %$bpdufm ){ 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 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(...); @@ -303,9 +303,9 @@ For debugging you can call new() directly as you would in SNMP::Info =over -=item SNMP::Info +=item SNMP::Info -=item SNMP::Info::Bridge +=item SNMP::Info::Bridge =back @@ -319,7 +319,7 @@ These are methods that return scalar values from SNMP =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() Values: C, C, C, C, C @@ -337,25 +337,25 @@ to a hash. =item $stpx->mst_config_digest() -Returns the Multiple Spanning Tree (MST) configuration digest +Returns the Multiple Spanning Tree (MST) configuration digest (C) =item $stpx->mst_region_name() -Returns the Multiple Spanning Tree (MST) region name +Returns the Multiple Spanning Tree (MST) region name (C) =item $stpx->mst_region_rev() -Returns the Multiple Spanning Tree (MST) region name +Returns the Multiple Spanning Tree (MST) region name (C) =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 =item $stpx->i_rootguard_enabled() diff --git a/lib/SNMP/Info/EDP.pm b/lib/SNMP/Info/EDP.pm index dfd47296..4de4f46d 100644 --- a/lib/SNMP/Info/EDP.pm +++ b/lib/SNMP/Info/EDP.pm @@ -64,7 +64,7 @@ sub hasEDP { my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {}; return 1 if ( scalar( keys %$edp_ip ) ); - + return; } @@ -80,7 +80,7 @@ sub _edp_index { my $edp = shift; my $edp_ip = $edp->extremeEdpNeighborVlanIpAddress() || {}; - + my %edp_index; foreach my $key ( keys %$edp_ip ) { my $ip = $edp_ip->{$key}; @@ -103,7 +103,7 @@ sub edp_if { $iid = $1 if $iid =~ /^(\d+)\./; $edp_if{$key} = $iid; } - + return \%edp_if; } @@ -193,10 +193,10 @@ Eric Miller =head1 SYNOPSIS - my $edp = new SNMP::Info ( + my $edp = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'router', + DestHost => 'router', Community => 'public', Version => 2 ); @@ -222,7 +222,7 @@ Eric Miller =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. 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() -Is EDP is active in this device? +Is EDP is active in this device? =back @@ -285,7 +285,7 @@ Returns remote port ID 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) diff --git a/lib/SNMP/Info/Entity.pm b/lib/SNMP/Info/Entity.pm index 156d9f66..3a420421 100644 --- a/lib/SNMP/Info/Entity.pm +++ b/lib/SNMP/Info/Entity.pm @@ -174,14 +174,14 @@ Max Baker =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $entity->class();