diff --git a/lib/SNMP/Info/Bridge.pm b/lib/SNMP/Info/Bridge.pm index 39253479..60959340 100644 --- a/lib/SNMP/Info/Bridge.pm +++ b/lib/SNMP/Info/Bridge.pm @@ -189,7 +189,7 @@ sub qb_fw_vlan { foreach my $idx ( keys %$qb_fw_port ) { my ( $fdb_id, $mac ) = _qb_fdbtable_index($idx); # Many devices do not populate the dot1qVlanCurrentTable, so default - # to FDB ID = VID, but if we have a mapping use it. + # to FDB ID = VID, but if we have a mapping use it. my $vlan = $fdb_id; # defined as test since some devices have a vlan 0 if (defined $qb_fdb_ids->{$fdb_id}) { @@ -237,7 +237,7 @@ sub qb_fdb_index { return $vl_fdb_index; } -# Most devices now support Q-BRIDGE-MIB, fall back to +# Most devices now support Q-BRIDGE-MIB, fall back to # BRIDGE-MIB for those that don't. sub fw_mac { my $bridge = shift; @@ -262,7 +262,7 @@ sub fw_status { my $qb = $bridge->qb_fw_status(); return $qb if (ref {} eq ref $qb and scalar keys %$qb); - + return $bridge->SUPER::fw_status(); } @@ -555,10 +555,10 @@ Max Baker =head1 SYNOPSIS - my $bridge = new SNMP::Info ( + my $bridge = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'switch', + DestHost => 'switch', Community => 'public', Version => 2 ); @@ -579,7 +579,7 @@ Max Baker my $port = $interfaces->{$iid}; print "Port:$port forwarding to $mac\n"; - } + } =head1 DESCRIPTION @@ -588,12 +588,12 @@ MAC Forwarding Table and Spanning Tree Protocol info. F holds 802.1q information -- VLANs and Trunking. Cisco tends not to use this MIB, but some proprietary ones. HP and some nicer vendors use -this. This is from C. +this. This is from C. 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 $bridge = new SNMP::Info::Bridge(...); @@ -657,19 +657,19 @@ Returns root of STP. (C) -=item $bridge->qb_vlans_max() +=item $bridge->qb_vlans_max() Maximum number of VLANS supported on this device. (C) -=item $bridge->qb_vlans() +=item $bridge->qb_vlans() Current number of VLANs that are configured in this device. (C) -=item $bridge->qb_next_vlan_index() +=item $bridge->qb_next_vlan_index() The next available value for C of a local VLAN entry in C @@ -701,7 +701,7 @@ IDs. These are the VLANs which are members of the egress list for the port. Example: my $interfaces = $bridge->interfaces(); my $vlans = $bridge->i_vlan_membership(); - + foreach my $iid (sort keys %$interfaces) { my $port = $interfaces->{$iid}; my $vlan = join(',', sort(@{$vlans->{$iid}})); @@ -731,7 +731,7 @@ Returns VLAN IDs =head2 Forwarding Table (C) -=over +=over =item $bridge->fw_mac() @@ -949,7 +949,7 @@ The set of ports which are assigned to the egress list for this VLAN. =item $bridge->qb_cv_untagged() The set of ports which should transmit egress packets for this VLAN as -untagged. +untagged. (C) @@ -987,7 +987,7 @@ for this VLAN. =item $bridge->qb_v_untagged() The set of ports which should transmit egress packets for this VLAN as -untagged. +untagged. (C) @@ -1027,13 +1027,13 @@ Returns reference to hash of forwarding table entries status (C) =back - + =head1 SET METHODS 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 diff --git a/lib/SNMP/Info/CDP.pm b/lib/SNMP/Info/CDP.pm index 9bb0b3fa..3b332fd7 100644 --- a/lib/SNMP/Info/CDP.pm +++ b/lib/SNMP/Info/CDP.pm @@ -245,10 +245,10 @@ Max Baker =head1 SYNOPSIS - my $cdp = new SNMP::Info ( + my $cdp = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'router', + DestHost => 'router', Community => 'public', Version => 2 ); @@ -274,7 +274,7 @@ Max Baker =head1 DESCRIPTION -SNMP::Info::CDP is a subclass of SNMP::Info that provides an object oriented +SNMP::Info::CDP is a subclass of SNMP::Info that provides an object oriented interface to CDP information through SNMP. CDP is a Layer 2 protocol that supplies topology information of devices that @@ -284,7 +284,7 @@ some HP devices. Create or use a device subclass that inherits this class. Do not use directly. -Each device implements a subset of the global and cache entries. +Each device implements a subset of the global and cache entries. Check the return value to see if that data is held by the device. =head2 Inherited Classes @@ -309,7 +309,7 @@ These are methods that return scalar values from SNMP =item $cdp->hasCDP() -Is CDP is active in this device? +Is CDP is active in this device? Accounts for SNMP version 1 devices which may have CDP but not cdp_run() @@ -328,13 +328,13 @@ Interval in seconds at which CDP messages are generated. =item $cdp->cdp_holdtime() -Time in seconds that CDP messages are kept. +Time in seconds that CDP messages are kept. (C) -=item $cdp->cdp_gid() +=item $cdp->cdp_gid() -Returns CDP device ID. +Returns CDP device ID. This is the device id broadcast via CDP to other devices, and is what is retrieved from remote devices with $cdp->id(). @@ -355,9 +355,9 @@ to a hash. =item $cdp->cdp_capabilities() Returns Device Functional Capabilities. Results are munged into an ascii -binary string, MSB. Each digit represents a bit from the table below from +binary string, MSB. Each digit represents a bit from the table below from the CDP Capabilities Mapping to Smartport Type table within the -Cisco Small Business 200 Series Smart Switch Administration Guide, +Cisco Small Business 200 Series Smart Switch Administration Guide, L: (Bit) - Description @@ -407,7 +407,7 @@ C (C) -=item $cdp->cdp_duplex() +=item $cdp->cdp_duplex() Returns the port duplex status from remote devices. @@ -424,7 +424,7 @@ Returns remote device id string Returns the mapping to the SNMP Interface Table. Note that a lot devices don't implement $cdp->cdp_index(), So if it isn't -around, we fake it. +around, we fake it. In order to map the cdp table entry back to the interfaces() entry, we truncate the last number off of it : @@ -435,7 +435,7 @@ truncate the last number off of it : # if not, let's fake it my $cdp_ip = $device->cdp_ip(); - + my %cdp_if foreach my $key (keys %$cdp_ip){ $iid = $key; @@ -443,13 +443,13 @@ truncate the last number off of it : $iid =~ s/\.\d+$//; $cdp_if{$key} = $iid; } - + return \%cdp_if; =item $cdp->cdp_index() -Returns the mapping to the SNMP2 Interface table for CDP Cache Entries. +Returns the mapping to the SNMP2 Interface table for CDP Cache Entries. Most devices don't implement this, so you probably want to use $cdp->cdp_if() instead. @@ -471,9 +471,9 @@ Returns remote address (C) -=item $cdp->cdp_platform() +=item $cdp->cdp_platform() -Returns remote platform id +Returns remote platform id (C) @@ -489,7 +489,7 @@ Returns remote address type received. Usually IP. (C) -=item $cdp->cdp_ver() +=item $cdp->cdp_ver() Returns remote hardware version @@ -508,7 +508,7 @@ for decimal placement. (C) -=item $cdp->cdp_cap() +=item $cdp->cdp_cap() Returns hash of arrays with each array containing the system capabilities supported by the remote system. Possible elements in the array are diff --git a/lib/SNMP/Info/CiscoConfig.pm b/lib/SNMP/Info/CiscoConfig.pm index e48273e8..9de9fe47 100644 --- a/lib/SNMP/Info/CiscoConfig.pm +++ b/lib/SNMP/Info/CiscoConfig.pm @@ -336,10 +336,6 @@ These are methods that return scalar value from SNMP These are methods that return tables of information in the form of a reference to a hash. -=over - -=back - =head2 Config Copy Request Table (C) =over diff --git a/lib/SNMP/Info/CiscoPortSecurity.pm b/lib/SNMP/Info/CiscoPortSecurity.pm index 39967599..47ab6122 100644 --- a/lib/SNMP/Info/CiscoPortSecurity.pm +++ b/lib/SNMP/Info/CiscoPortSecurity.pm @@ -196,10 +196,6 @@ None. These are methods that return scalar values from SNMP -=over - -=back - =head2 F globals =over diff --git a/lib/SNMP/Info/CiscoPower.pm b/lib/SNMP/Info/CiscoPower.pm index c91d4513..bb874b5d 100644 --- a/lib/SNMP/Info/CiscoPower.pm +++ b/lib/SNMP/Info/CiscoPower.pm @@ -46,9 +46,9 @@ $VERSION = '3.64'; %GLOBALS = (); -%FUNCS = ( - 'cpeth_ent_phy' => 'cpeExtPsePortEntPhyIndex', - 'peth_port_power' => 'cpeExtPsePortPwrConsumption', +%FUNCS = ( + 'cpeth_ent_phy' => 'cpeExtPsePortEntPhyIndex', + 'peth_port_power' => 'cpeExtPsePortPwrConsumption', ); %MUNGE = (); @@ -113,14 +113,14 @@ Bill Fenner =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $poe = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $poe->class(); @@ -176,7 +176,7 @@ Maps the C to C by way of the F. Power supplied by PoE ports, in milliwatts (C) - + =back =head2 CDP Port table diff --git a/lib/SNMP/Info/CiscoStpExtensions.pm b/lib/SNMP/Info/CiscoStpExtensions.pm index 9fa16899..e96c61a6 100644 --- a/lib/SNMP/Info/CiscoStpExtensions.pm +++ b/lib/SNMP/Info/CiscoStpExtensions.pm @@ -277,6 +277,19 @@ Carlos Vicente =head1 SYNOPSIS + my $ciscostpext = new SNMP::Info( + AutoSpecify => 1, + Debug => 1, + DestHost => 'myswitch', + Community => 'public', + Version => 2 + ) + + or die "Can't connect to DestHost.\n"; + + my $class = $ciscostpext->class(); + print " Using device sub class : $class\n"; + =head1 DESCRIPTION Create or use a subclass of SNMP::Info that inherits this class. Do not use diff --git a/lib/SNMP/Info/CiscoVTP.pm b/lib/SNMP/Info/CiscoVTP.pm index df9ae631..293fe325 100644 --- a/lib/SNMP/Info/CiscoVTP.pm +++ b/lib/SNMP/Info/CiscoVTP.pm @@ -172,7 +172,7 @@ sub i_vlan { # vtp_trunk_dyn_stat is not useful for down ports # so we use vtp_trunk_dyn to see if trunking is set my $dyn = $trunk_dyn->{$port}; - + if (($stat and $stat =~ /^trunking/ ) or ($dyn and (($dyn eq 'on') or ($dyn eq 'onNoNegotiate')))) { @@ -303,7 +303,7 @@ sub i_vlan_membership_untagged { my $vlan = $vlans->{$port}; push( @{ $i_vlan_membership->{$port} }, $vlan ); } - + return $i_vlan_membership; } @@ -529,14 +529,14 @@ Max Baker =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $vtp = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $vtp->class(); @@ -544,7 +544,7 @@ Max Baker =head1 DESCRIPTION -SNMP::Info::CiscoVTP is a subclass of SNMP::Info that provides +SNMP::Info::CiscoVTP is a subclass of SNMP::Info that provides information about a Cisco device's VLAN and VTP Domain membership. Use or create in a subclass of SNMP::Info. Do not use directly. @@ -620,7 +620,7 @@ IDs. These are the VLANs which are members of enabled VLAN list for the port. Example: my $interfaces = $vtp->interfaces(); my $vlans = $vtp->i_vlan_membership(); - + foreach my $iid (sort keys %$interfaces) { my $port = $interfaces->{$iid}; my $vlan = join(',', sort(@{$vlans->{$iid}})); @@ -722,7 +722,7 @@ for a good treaty of how to connect to the VLANs =item $vtp->i_vlan_type() -Static, Dynamic, or multiVlan. +Static, Dynamic, or multiVlan. (C) @@ -769,7 +769,7 @@ Each bit represents a VLAN. This is 3072 through 4095 =over -=item $vtp->i_voice_vlan() +=item $vtp->i_voice_vlan() (C) @@ -884,7 +884,7 @@ Each bit represents a VLAN. This is 3072 through 4095 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 @@ -896,7 +896,7 @@ VLAN ID and port C. This method should only be used on end station Example: my %if_map = reverse %{$vtp->interfaces()}; - $vtp->set_i_vlan('2', $if_map{'FastEthernet0/1'}) + $vtp->set_i_vlan('2', $if_map{'FastEthernet0/1'}) or die "Couldn't change port VLAN. ",$vtp->error(1); =item $vtp->set_i_pvid ( pvid, ifIndex ) @@ -906,7 +906,7 @@ port C. This method should only be used on trunk ports. Example: my %if_map = reverse %{$vtp->interfaces()}; - $vtp->set_i_pvid('2', $if_map{'FastEthernet0/1'}) + $vtp->set_i_pvid('2', $if_map{'FastEthernet0/1'}) or die "Couldn't change port default VLAN. ",$vtp->error(1); =item $vtp->set_i_untagged ( vlan, ifIndex ) @@ -922,7 +922,7 @@ numeric VLAN ID and port C. Example: my %if_map = reverse %{$vtp->interfaces()}; - $vtp->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) + $vtp->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) or die "Couldn't add port to egress list. ",$vtp->error(1); =item $vtp->set_remove_i_vlan_tagged ( vlan, ifIndex ) @@ -932,7 +932,7 @@ with the numeric VLAN ID and port C. Example: my %if_map = reverse %{$vtp->interfaces()}; - $vtp->set_remove_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) + $vtp->set_remove_i_vlan_tagged('2', $if_map{'FastEthernet0/1'}) or die "Couldn't add port to egress list. ",$vtp->error(1); =back diff --git a/lib/SNMP/Info/EtherLike.pm b/lib/SNMP/Info/EtherLike.pm index 3388f480..d58f965a 100644 --- a/lib/SNMP/Info/EtherLike.pm +++ b/lib/SNMP/Info/EtherLike.pm @@ -95,14 +95,14 @@ Max Baker =head1 SYNOPSIS - my $el = new SNMP::Info ( + my $el = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'router', + DestHost => 'router', Community => 'public', Version => 2 ); - + my $class = $cdp->class(); print " Using device sub class : $class\n"; @@ -110,7 +110,7 @@ Max Baker # ETHERLIKE-MIB my $interfaces = $el->interfaces(); my $el_index = $el->el_index(); - my $el_duplex = $el->el_duplex(); + my $el_duplex = $el->el_duplex(); foreach my $el_port (keys %$el_duplex){ my $duplex = $el_duplex->{$el_port}; @@ -122,7 +122,7 @@ Max Baker =head1 DESCRIPTION -SNMP::Info::EtherLike is a subclass of SNMP::Info that supplies +SNMP::Info::EtherLike is a subclass of SNMP::Info that supplies access to the F used by some Layer 3 Devices such as Cisco routers. @@ -133,7 +133,7 @@ directly. =head2 Inherited Classes -None. +None. =head2 Required MIBs diff --git a/lib/SNMP/Info/Layer1/Allied.pm b/lib/SNMP/Info/Layer1/Allied.pm index 48a8364b..0d731c2a 100644 --- a/lib/SNMP/Info/Layer1/Allied.pm +++ b/lib/SNMP/Info/Layer1/Allied.pm @@ -128,14 +128,14 @@ Max Baker =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $allied = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myhub', Community => 'public', Version => 1 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $allied->class(); @@ -143,8 +143,8 @@ Max Baker =head1 DESCRIPTION -Provides abstraction to the configuration information obtainable from a -Allied device through SNMP. See inherited classes' documentation for +Provides abstraction to the configuration information obtainable from a +Allied device through SNMP. See inherited classes' documentation for inherited methods. =head2 Inherited Classes @@ -181,7 +181,7 @@ Returns 'allied' :) =item $allied->os() -Returns 'allied' +Returns 'allied' =item $allied->os_ver() diff --git a/lib/SNMP/Info/Layer1/Asante.pm b/lib/SNMP/Info/Layer1/Asante.pm index 32a3c96e..ef847ed9 100644 --- a/lib/SNMP/Info/Layer1/Asante.pm +++ b/lib/SNMP/Info/Layer1/Asante.pm @@ -173,14 +173,14 @@ Max Baker =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $asante = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $asante->class(); @@ -188,7 +188,7 @@ Max Baker =head1 DESCRIPTION -Provides abstraction to the configuration information obtainable from a +Provides abstraction to the configuration information obtainable from a Asante device through SNMP. =head2 Inherited Classes @@ -250,7 +250,7 @@ See L for details. Returns reference to the map between IID and physical Port. -=item $asante->i_description() +=item $asante->i_description() Description of the interface. diff --git a/lib/SNMP/Info/Layer1/Bayhub.pm b/lib/SNMP/Info/Layer1/Bayhub.pm index 0d69c9d8..9f60b6a1 100644 --- a/lib/SNMP/Info/Layer1/Bayhub.pm +++ b/lib/SNMP/Info/Layer1/Bayhub.pm @@ -492,7 +492,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; @@ -501,12 +501,12 @@ Eric Miller =head1 DESCRIPTION -Provides abstraction to the configuration information obtainable from a +Provides abstraction to the configuration information obtainable from a Bay hub device through SNMP. Also provides device MAC to port mapping through -the proprietary MIB. +the proprietary MIB. For speed or debugging purposes you can call the subclass directly, but not -after determining a more specific class using the method above. +after determining a more specific class using the method above. my $bayhub = new SNMP::Info::Layer1::Bayhub(...); @@ -607,18 +607,18 @@ to a hash. =item $bayhub->i_index() -Returns reference to map of IIDs to Interface index. +Returns reference to map of IIDs to Interface index. Since hubs do not support C, the interface index is created using the formula (board * 256 + port). =item $bayhub->interfaces() -Returns reference to map of IIDs to physical ports. +Returns reference to map of IIDs to physical ports. =item $bayhub->i_duplex() -Returns half, hubs do not support full duplex. +Returns half, hubs do not support full duplex. =item $bayhub->i_duplex_admin() @@ -644,7 +644,7 @@ State choices are 'up' or 'down' Example: my %if_map = reverse %{$bayhub->interfaces()}; - $bayhub->set_i_up_admin('down', $if_map{'1.1'}) + $bayhub->set_i_up_admin('down', $if_map{'1.1'}) or die "Couldn't change port state. ",$bayhub->error(1); =item $bayhub->bp_index() @@ -671,51 +671,51 @@ L for details. =over -=item $bayhub->e_index() +=item $bayhub->e_index() Returns ns_e_index(). -=item $bayhub->e_class() +=item $bayhub->e_class() Returns ns_e_class(). -=item $bayhub->e_descr() +=item $bayhub->e_descr() Returns ns_e_descr(). -=item $bayhub->e_name() +=item $bayhub->e_name() Returns ns_e_name(). -=item $bayhub->e_fwver() +=item $bayhub->e_fwver() Returns ns_e_fwver(). -=item $bayhub->e_hwver() +=item $bayhub->e_hwver() Returns ns_e_hwver(). -=item $bayhub->e_parent() +=item $bayhub->e_parent() Returns ns_e_parent(). -=item $bayhub->e_pos() +=item $bayhub->e_pos() Returns ns_e_pos(). -=item $bayhub->e_serial() +=item $bayhub->e_serial() Returns ns_e_serial(). -=item $bayhub->e_swver() +=item $bayhub->e_swver() Returns ns_e_swver(). -=item $bayhub->e_type() +=item $bayhub->e_type() Returns ns_e_type(). -=item $bayhub->e_vendor() +=item $bayhub->e_vendor() Returns ns_e_vendor(). diff --git a/lib/SNMP/Info/Layer1/Cyclades.pm b/lib/SNMP/Info/Layer1/Cyclades.pm index df4f6c96..86866584 100644 --- a/lib/SNMP/Info/Layer1/Cyclades.pm +++ b/lib/SNMP/Info/Layer1/Cyclades.pm @@ -486,7 +486,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; @@ -495,11 +495,11 @@ Eric Miller =head1 DESCRIPTION -Provides abstraction to the configuration information obtainable from a +Provides abstraction to the configuration information obtainable from a Cyclades/Avocent device through SNMP. For speed or debugging purposes you can call the subclass directly, but not -after determining a more specific class using the method above. +after determining a more specific class using the method above. my $cyclades = new SNMP::Info::Layer1::Cyclades(...); @@ -602,12 +602,12 @@ to a hash. =item $cyclades->i_index() -Returns reference to map of IIDs to Interface index. +Returns reference to map of IIDs to Interface index. Extended to include serial ports. Serial ports are indexed with the alternative labeling system for the serial port, either the listening socket port C or C name to avoid -conflicts with C. +conflicts with C. =item $cyclades->interfaces() @@ -617,7 +617,7 @@ serial ports, C or C. =item $cyclades->i_speed() Returns interface speed. Extended to include serial ports, -C or C. +C or C. =item $cyclades->i_up() diff --git a/lib/SNMP/Info/Layer1/S3000.pm b/lib/SNMP/Info/Layer1/S3000.pm index e01aae06..5cdfaad2 100644 --- a/lib/SNMP/Info/Layer1/S3000.pm +++ b/lib/SNMP/Info/Layer1/S3000.pm @@ -373,7 +373,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; @@ -382,12 +382,12 @@ Eric Miller =head1 DESCRIPTION -Provides abstraction to the configuration information obtainable from a +Provides abstraction to the configuration information obtainable from a Bay hub device through SNMP. Also provides device MAC to port mapping through the proprietary MIB. For speed or debugging purposes you can call the subclass directly, but not -after determining a more specific class using the method above. +after determining a more specific class using the method above. my $s3000 = new SNMP::Info::Layer1::S3000(...); @@ -447,7 +447,7 @@ Returns the firmware version. (C) =item $s3000->mac() -Returns MAC of the advertised IP address of the device. +Returns MAC of the advertised IP address of the device. =back @@ -477,7 +477,7 @@ to a hash. =item $s3000->i_index() -Returns reference to map of IIDs to Interface index. +Returns reference to map of IIDs to Interface index. Since hubs do not support C, the interface index is created using the formula (board * 256 + port). This is required to support devices with more @@ -485,11 +485,11 @@ than one module. =item $s3000->interfaces() -Returns reference to map of IIDs to physical ports. +Returns reference to map of IIDs to physical ports. =item $s3000->i_duplex() -Returns half, hubs do not support full duplex. +Returns half, hubs do not support full duplex. =item $s3000->i_duplex_admin() @@ -516,7 +516,7 @@ State choices are 'up' or 'down' Example: my %if_map = reverse %{$s3000->interfaces()}; - $s3000->set_i_up_admin('down', $if_map{'1.1'}) + $s3000->set_i_up_admin('down', $if_map{'1.1'}) or die "Couldn't change port state. ",$s3000->error(1); =item $s3000->bp_index() diff --git a/lib/SNMP/Info/Layer2/Baystack.pm b/lib/SNMP/Info/Layer2/Baystack.pm index 62db3a68..a7d67f9c 100644 --- a/lib/SNMP/Info/Layer2/Baystack.pm +++ b/lib/SNMP/Info/Layer2/Baystack.pm @@ -136,7 +136,7 @@ sub model { return '303' if ( defined $descr and $descr =~ /\D303\D/ ); return '304' if ( defined $descr and $descr =~ /\D304\D/ ); return 'BPS' if ( $model =~ /BPS2000/i ); - + # Pull sreg- from all $model =~ s/^sreg-//; # Strip ES/ERS/BayStack etc. from those families @@ -341,7 +341,7 @@ sub peth_port_ifindex { return \%peth_port_ifindex; } -# Currently only ERS 4800 v5.8+ support the rcBridgeSpbmMacTable +# Currently only ERS 4800 v5.8+ support the rcBridgeSpbmMacTable # which holds the FDB for a SPBM edge deployment. # # Q-BRIDGE still holds some entries when the rcBridgeSpbmMacTable is in use @@ -353,7 +353,7 @@ sub fw_mac { my $qb = $rapidcity->SUPER::fw_mac() || {}; my $spbm = $rapidcity->rc_spbm_fw_mac() || {}; my $fw_mac = { %$qb, %$spbm }; - + return $fw_mac; } @@ -363,17 +363,17 @@ sub fw_port { my $qb = $rapidcity->SUPER::fw_port() || {}; my $spbm = $rapidcity->rc_spbm_fw_port() || {}; my $fw_port = { %$qb, %$spbm }; - + return $fw_port; } sub fw_status { my $rapidcity = shift; - my $qb = $rapidcity->SUPER::fw_status() || {}; + my $qb = $rapidcity->SUPER::fw_status() || {}; my $spbm = $rapidcity->rc_spbm_fw_status() || {}; my $fw_status = { %$qb, %$spbm }; - + return $fw_status; } @@ -383,7 +383,7 @@ sub qb_fw_vlan { my $qb = $rapidcity->SUPER::qb_fw_vlan() || {}; my $spbm = $rapidcity->rc_spbm_fw_vlan() || {}; my $qb_fw_vlan = { %$qb, %$spbm }; - + return $qb_fw_vlan; } @@ -417,7 +417,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $baystack->class(); @@ -427,10 +427,10 @@ Eric Miller Provides abstraction to the configuration information obtainable from an Avaya Ethernet Switch (formerly Nortel/Bay Baystack) and VSP 7000 series -through SNMP. +through SNMP. For speed or debugging purposes you can call the subclass directly, but not -after determining a more specific class using the method above. +after determining a more specific class using the method above. my $baystack = new SNMP::Info::Layer2::Baystack(...); @@ -500,7 +500,7 @@ Returns the firmware version extracted from C. =item $baystack->stp_ver() -Returns the particular STP version running on this device. +Returns the particular STP version running on this device. Values: C, C, C, C, C @@ -560,10 +560,10 @@ Returns reference to the map between IID and physical Port. Slot and port numbers on the Baystack switches are determined by the formula: - + port = (Interface index % Index factor) slot = (int(Interface index / Index factor)) + Slot offset - + The physical port name is returned as slot.port. =item $baystack->i_ignore() @@ -572,9 +572,9 @@ Returns reference to hash of IIDs to ignore. =item $baystack->i_mac() -Returns the C table entries. +Returns the C table entries. -Removes all entries matching '00:00:00:00:00:00' -- Certain +Removes all entries matching '00:00:00:00:00:00' -- Certain revisions of Baystack firmware report all zeros for each port mac. =item $baystack->i_name() @@ -602,60 +602,60 @@ L for details on ns_e_* methods. =over -=item $baystack->e_index() +=item $baystack->e_index() If the device doesn't support C, this will try ns_e_index(). Note that this is based on C due to implementation details of SNMP::Info::Entity::e_index(). -=item $baystack->e_class() +=item $baystack->e_class() If the device doesn't support C, this will try ns_e_class(). -=item $baystack->e_descr() +=item $baystack->e_descr() If the device doesn't support C, this will try ns_e_descr(). -=item $baystack->e_name() +=item $baystack->e_name() If the device doesn't support C, this will try ns_e_name(). -=item $baystack->e_fwver() +=item $baystack->e_fwver() If the device doesn't support C, this will try ns_e_fwver(). -=item $baystack->e_hwver() +=item $baystack->e_hwver() If the device doesn't support C, this will try ns_e_hwver(). -=item $baystack->e_parent() +=item $baystack->e_parent() If the device doesn't support C, this will try ns_e_parent(). -=item $baystack->e_pos() +=item $baystack->e_pos() If the device doesn't support C, this will try ns_e_pos(). -=item $baystack->e_serial() +=item $baystack->e_serial() If the device doesn't support C, this will try ns_e_serial(). -=item $baystack->e_swver() +=item $baystack->e_swver() If the device doesn't support C, this will try ns_e_swver(). -=item $baystack->e_type() +=item $baystack->e_type() If the device doesn't support C, this will try ns_e_type(). -=item $baystack->e_vendor() +=item $baystack->e_vendor() If the device doesn't support C, this will try ns_e_vendor(). diff --git a/lib/SNMP/Info/Layer2/C1900.pm b/lib/SNMP/Info/Layer2/C1900.pm index 15f31c7e..a5e94751 100644 --- a/lib/SNMP/Info/Layer2/C1900.pm +++ b/lib/SNMP/Info/Layer2/C1900.pm @@ -291,14 +291,14 @@ Max Baker =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $c1900 = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 1 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $c1900->class(); @@ -312,7 +312,7 @@ Catalyst 1900 device through SNMP. See SNMP::Info for full documentation Note that most of these devices only talk SNMP version 1, but not all. For speed or debugging purposes you can call the subclass directly, but not -after determining a more specific class using the method above. +after determining a more specific class using the method above. my $c1900 = new SNMP::Info::Layer2::C1900(...); @@ -379,8 +379,8 @@ Returns 'catalyst' =item $c1900->os_ver() -Returns CatOS version if obtainable. First tries to use -SNMP::Info::CiscoStats->os_ver() . If that fails then it +Returns CatOS version if obtainable. First tries to use +SNMP::Info::CiscoStats->os_ver() . If that fails then it checks for the presence of $c1900->c1900_flash_status() and culls the version from there. @@ -467,7 +467,7 @@ bridge group IDs. Example: my $interfaces = $c1900->interfaces(); my $vlans = $c1900->i_vlan_membership(); - + foreach my $iid (sort keys %$interfaces) { my $port = $interfaces->{$iid}; my $vlan = join(',', sort(@{$vlans->{$iid}})); @@ -510,7 +510,7 @@ Gives admin setting for Duplex Info =item $c1900->c1900_p_name() -Gives human set name for port +Gives human set name for port (C) @@ -563,7 +563,7 @@ See L for details. 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 @@ -574,7 +574,7 @@ choices are 'auto', 'half', 'full'. Example: my %if_map = reverse %{$c1900->interfaces()}; - $c1900->set_i_duplex_admin('auto', $if_map{'1'}) + $c1900->set_i_duplex_admin('auto', $if_map{'1'}) or die "Couldn't change port duplex. ",$c1900->error(1); =back diff --git a/lib/SNMP/Info/Layer2/Exinda.pm b/lib/SNMP/Info/Layer2/Exinda.pm index 6ef4d990..0f0dcdaa 100644 --- a/lib/SNMP/Info/Layer2/Exinda.pm +++ b/lib/SNMP/Info/Layer2/Exinda.pm @@ -189,7 +189,7 @@ Returns 'exinda'. =back =head2 Global Methods imported from SNMP::Info::Layer2 - + See L for details. =head1 TABLE ENTRIES @@ -197,14 +197,8 @@ See L for details. These are methods that return tables of information in the form of a reference to a hash. -=head2 Overrides - -=over - -=back - =head2 Table Methods imported from SNMP::Info::Layer2 - + See L for details. =cut diff --git a/lib/SNMP/Info/Layer7.pm b/lib/SNMP/Info/Layer7.pm index ecfbf8ac..107b3206 100644 --- a/lib/SNMP/Info/Layer7.pm +++ b/lib/SNMP/Info/Layer7.pm @@ -176,10 +176,6 @@ See L for its MIB requirements. These are methods that return scalar value from SNMP -=over - -=back - =head2 Overrides =over diff --git a/lib/SNMP/Info/MAU.pm b/lib/SNMP/Info/MAU.pm index a8d66b64..4a7f7ffc 100644 --- a/lib/SNMP/Info/MAU.pm +++ b/lib/SNMP/Info/MAU.pm @@ -467,7 +467,7 @@ Max Baker Community => 'public', Version => 2 ); - + my $class = $mau->class(); print " Using device sub class : $class\n"; diff --git a/lib/SNMP/Info/MRO.pm b/lib/SNMP/Info/MRO.pm index 58f7bd85..2584ca10 100644 --- a/lib/SNMP/Info/MRO.pm +++ b/lib/SNMP/Info/MRO.pm @@ -5,7 +5,7 @@ use strict; use vars qw/$VERSION/; $VERSION = '3.64'; - + use PPI; use Class::ISA; ## no critic use Module::Info; @@ -67,7 +67,7 @@ sub _walk_global_data { sub _print_global_data { my $results = _walk_global_data(@_); - + foreach my $key (sort keys %$results) { print $key, "\n"; my @defs = @{ $results->{$key} }; @@ -96,7 +96,7 @@ SNMP::Info::MRO - Method resolution introspection for SNMP::Info use SNMP::Info::MRO; use Data::Printer; - + p SNMP::Info::MRO::all_methods('SNMP::Info::Layer3::Juniper'); =head1 DESCRIPTION diff --git a/lib/SNMP/Info/RapidCity.pm b/lib/SNMP/Info/RapidCity.pm index 7edc4e92..ddade4d7 100644 --- a/lib/SNMP/Info/RapidCity.pm +++ b/lib/SNMP/Info/RapidCity.pm @@ -154,7 +154,7 @@ $VERSION = '3.64'; 'rc2k_mda_part' => 'rc2kMdaCardPartNumber', 'rc2k_mda_date' => 'rc2kMdaCardDateCode', 'rc2k_mda_dev' => 'rc2kMdaCardDeviations', - + # From RAPID-CITY::rcMltTable 'rc_mlt_ports' => 'rcMltPortMembers', 'rc_mlt_index' => 'rcMltIfIndex', @@ -396,13 +396,13 @@ sub i_vlan_membership_untagged { if ($p_tag_opt->{$port}) { if ($p_tag_opt->{$port} eq 'untagPvidOnly') { my $vlan = $i_vlan->{$port}; - push( @{ $members_untagged->{$port} }, $vlan ); + push( @{ $members_untagged->{$port} }, $vlan ); } elsif (($p_tag_opt->{$port} eq 'true') and ($p_untag_def->{$port} and $p_untag_def->{$port} eq 'true')) { my $vlan = $i_vlan->{$port}; - push( @{ $members_untagged->{$port} }, $vlan ); + push( @{ $members_untagged->{$port} }, $vlan ); } elsif ($p_tag_opt->{$port} eq 'tagPvidOnly') { my $vlan = $i_vlan->{$port}; @@ -424,7 +424,7 @@ sub i_vlan_membership_untagged { } } } - + return $members_untagged; } @@ -883,7 +883,7 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $rapidcity = new SNMP::Info( AutoSpecify => 1, Debug => 1, @@ -891,7 +891,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $rapidcity->class(); @@ -980,7 +980,7 @@ Returns serial number of the chassis =item $rapidcity->stp_ver() -Returns the particular STP version running on this device. +Returns the particular STP version running on this device. Values: C, C, C, C, C @@ -1015,7 +1015,7 @@ IDs. These are the VLANs which are members of the egress list for the port. Example: my $interfaces = $rapidcity->interfaces(); my $vlans = $rapidcity->i_vlan_membership(); - + foreach my $iid (sort keys %$interfaces) { my $port = $interfaces->{$iid}; my $vlan = join(',', sort(@{$vlans->{$iid}})); @@ -1486,7 +1486,7 @@ of the Port ID is given by the value of C." =item $rapidcity->stp_p_state() "The port's current state as defined by application of the Spanning Tree -Protocol." +Protocol." =item $rapidcity->stp_p_cost() @@ -1516,7 +1516,7 @@ segment." 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 @@ -1527,7 +1527,7 @@ choices are 'auto', '10', '100', '1000'. Example: my %if_map = reverse %{$rapidcity->interfaces()}; - $rapidcity->set_i_speed_admin('auto', $if_map{'1.1'}) + $rapidcity->set_i_speed_admin('auto', $if_map{'1.1'}) or die "Couldn't change port speed. ",$rapidcity->error(1); =item $rapidcity->set_i_duplex_admin(duplex, ifIndex) @@ -1537,7 +1537,7 @@ choices are 'auto', 'half', 'full'. Example: my %if_map = reverse %{$rapidcity->interfaces()}; - $rapidcity->set_i_duplex_admin('auto', $if_map{'1.1'}) + $rapidcity->set_i_duplex_admin('auto', $if_map{'1.1'}) or die "Couldn't change port duplex. ",$rapidcity->error(1); =item $rapidcity->set_i_vlan(vlan, ifIndex) @@ -1549,7 +1549,7 @@ station (non-trunk) ports. Example: my %if_map = reverse %{$rapidcity->interfaces()}; - $rapidcity->set_i_vlan('2', $if_map{'1.1'}) + $rapidcity->set_i_vlan('2', $if_map{'1.1'}) or die "Couldn't change port VLAN. ",$rapidcity->error(1); =item $rapidcity->set_i_pvid(pvid, ifIndex) @@ -1560,7 +1560,7 @@ port C. This method only changes the PVID, to modify an access Example: my %if_map = reverse %{$rapidcity->interfaces()}; - $rapidcity->set_i_pvid('2', $if_map{'1.1'}) + $rapidcity->set_i_pvid('2', $if_map{'1.1'}) or die "Couldn't change port PVID. ",$rapidcity->error(1); =item $rapidcity->set_add_i_vlan_tagged(vlan, ifIndex) @@ -1570,7 +1570,7 @@ numeric VLAN ID and port C. Example: my %if_map = reverse %{$rapidcity->interfaces()}; - $rapidcity->set_add_i_vlan_tagged('2', $if_map{'1.1'}) + $rapidcity->set_add_i_vlan_tagged('2', $if_map{'1.1'}) or die "Couldn't add port to egress list. ",$rapidcity->error(1); =item $rapidcity->set_remove_i_vlan_tagged(vlan, ifIndex) @@ -1580,7 +1580,7 @@ numeric VLAN ID and port C. Example: my %if_map = reverse %{$rapidcity->interfaces()}; - $rapidcity->set_remove_i_vlan_tagged('2', $if_map{'1.1'}) + $rapidcity->set_remove_i_vlan_tagged('2', $if_map{'1.1'}) or die "Couldn't add port to egress list. ",$rapidcity->error(1); =item $rapidcity->set_delete_vlan(vlan) @@ -1592,7 +1592,7 @@ Deletes the specified VLAN from the device. Creates the specified VLAN on the device. Note: This method only allows creation of Port type VLANs and does not allow -for the setting of the Spanning Tree Group (STG) which defaults to 1. +for the setting of the Spanning Tree Group (STG) which defaults to 1. =back