diff --git a/lib/SNMP/Info/Layer3/NetSNMP.pm b/lib/SNMP/Info/Layer3/NetSNMP.pm index f8ed14bd..7cfdfe66 100644 --- a/lib/SNMP/Info/Layer3/NetSNMP.pm +++ b/lib/SNMP/Info/Layer3/NetSNMP.pm @@ -143,14 +143,14 @@ Bradley Baetz and Bill Fenner =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $netsnmp = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $netsnmp->class(); diff --git a/lib/SNMP/Info/Layer3/Nexus.pm b/lib/SNMP/Info/Layer3/Nexus.pm index 5b5eeb07..fd772f6c 100644 --- a/lib/SNMP/Info/Layer3/Nexus.pm +++ b/lib/SNMP/Info/Layer3/Nexus.pm @@ -65,8 +65,8 @@ $VERSION = '3.64'; 'mac' => 'dot1dBaseBridgeAddress', ); -%FUNCS = ( - %SNMP::Info::Layer3::CiscoSwitch::FUNCS, +%FUNCS = ( + %SNMP::Info::Layer3::CiscoSwitch::FUNCS, 'vrf_name' => 'cContextMappingVrfName', ); @@ -258,7 +258,7 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $nexus = new SNMP::Info( AutoSpecify => 1, Debug => 1, @@ -266,7 +266,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $nexus->class(); @@ -274,10 +274,10 @@ Eric Miller =head1 DESCRIPTION -Abstraction subclass for Cisco Nexus Switches running NX-OS. +Abstraction subclass for Cisco Nexus Switches running NX-OS. 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 $nexus = new SNMP::Info::Layer3::Nexus(...); @@ -340,12 +340,12 @@ C =head3 IP Address Table -Each entry in this table is an IP address in use on this device. Some +Each entry in this table is an IP address in use on this device. Some versions do not index the table with the IPv4 address in accordance with the MIB definition, these overrides correct that behavior. -Also, the table is augmented with IP addresses in use by UDP sockets on the -device, as determined by checking F. Valid +Also, the table is augmented with IP addresses in use by UDP sockets on the +device, as determined by checking F. Valid addresses from this table (any IPv4 that is not localhost, 0.0.0.0, Class D (multicast) or Class E (experimental) are added as a /32 on interface ID 0. This is a workaround to determine possible VPC Keepalive IP addresses on the diff --git a/lib/SNMP/Info/Layer3/PacketFront.pm b/lib/SNMP/Info/Layer3/PacketFront.pm index 01e182a5..0e8803be 100644 --- a/lib/SNMP/Info/Layer3/PacketFront.pm +++ b/lib/SNMP/Info/Layer3/PacketFront.pm @@ -110,12 +110,12 @@ sub i_ignore { sub layers { my $pfront = shift; - + my $layers = $pfront->SUPER::layers(); # Some models or softwware versions don't report L2 properly # so add L2 capability to the output if the device has bridge ports. my $bports = $pfront->b_ports(); - + if ($bports) { my $l = substr $layers, 6, 1, "1"; } @@ -137,14 +137,14 @@ initial version based on SNMP::Info::Layer3::NetSNMP by Bradley Baetz and Bill F =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $pfront = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $pfront->class(); @@ -202,7 +202,7 @@ Returns the software version extracted from C. =item $pfront->serial() -Returns the value of C. +Returns the value of C. =back @@ -227,7 +227,7 @@ Ignores loopback =item $pfront->layers() -L2 capability isn't always reported correctly by the device itself; what the +L2 capability isn't always reported correctly by the device itself; what the device reports is augmented with L2 capability if the device has bridge ports. =back diff --git a/lib/SNMP/Info/Layer3/Passport.pm b/lib/SNMP/Info/Layer3/Passport.pm index 7f5044a4..08d903ee 100644 --- a/lib/SNMP/Info/Layer3/Passport.pm +++ b/lib/SNMP/Info/Layer3/Passport.pm @@ -676,7 +676,7 @@ sub fw_status { my $qb = $passport->SUPER::fw_status($partial); return $qb if (ref {} eq ref $qb and scalar keys %$qb); - + return $passport->rcBridgeTpFdbStatus($partial); } @@ -1179,14 +1179,14 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $passport = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $passport->class(); @@ -1197,12 +1197,12 @@ Eric Miller Abstraction subclass for modular Avaya Ethernet Routing Switch 8000 Series (formerly Nortel/Bay Passport/Accelar) and VSP 9000 Series switches. -These devices have some of the same characteristics as the stackable Avaya -Ethernet Switches (Baystack). For example, extended interface information is +These devices have some of the same characteristics as the stackable Avaya +Ethernet Switches (Baystack). For example, extended interface information is gleaned from F. 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 $passport = new SNMP::Info::Layer3::Passport(...); @@ -1240,7 +1240,7 @@ These are methods that return scalar value from SNMP =item $passport->model() -Returns model type. Checks $passport->id() against the +Returns model type. Checks $passport->id() against the F and then parses out C. =item $passport->vendor() @@ -1364,7 +1364,7 @@ problems with F These methods utilize, in order; F, F, and F to obtain the forwarding table information. -=over +=over =item $passport->fw_mac() diff --git a/lib/SNMP/Info/Layer3/Pf.pm b/lib/SNMP/Info/Layer3/Pf.pm index 260b6583..17f3952a 100644 --- a/lib/SNMP/Info/Layer3/Pf.pm +++ b/lib/SNMP/Info/Layer3/Pf.pm @@ -132,7 +132,7 @@ Max Baker =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $pf = new SNMP::Info( AutoSpecify => 1, Debug => 1, @@ -140,7 +140,7 @@ Max Baker DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $pf->class(); @@ -157,7 +157,7 @@ that the available CDP/LLDP modules for net-snmp don't work on FreeBSD (on which pfSense is based) as they assume certain Linux specific Ethernet structures. This problem is apparently solved on PF based firewall appliances by using the ladvd package, for which a port may be found here: -L. I'm not sure if this module ties into +L. I'm not sure if this module ties into Net-SNMP or not. =head2 Inherited Classes @@ -205,7 +205,7 @@ Returns 'Pf' =item $pf->os_ver() Tries to reference $pf->id() to one of the product MIBs listed above. -Will probably return a truncation of the default OID for pf-based systems +Will probably return a truncation of the default OID for pf-based systems C. =back diff --git a/lib/SNMP/Info/Layer3/Pica8.pm b/lib/SNMP/Info/Layer3/Pica8.pm index 1ff6896a..912e8316 100644 --- a/lib/SNMP/Info/Layer3/Pica8.pm +++ b/lib/SNMP/Info/Layer3/Pica8.pm @@ -102,14 +102,14 @@ Jeroen van Ingen =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $pica8 = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $pica8->class(); diff --git a/lib/SNMP/Info/Layer3/Steelhead.pm b/lib/SNMP/Info/Layer3/Steelhead.pm index e0089c13..0bdf0dca 100644 --- a/lib/SNMP/Info/Layer3/Steelhead.pm +++ b/lib/SNMP/Info/Layer3/Steelhead.pm @@ -72,7 +72,7 @@ sub model { my $riverbed = shift; my $model = $riverbed->rb_model() || ''; - + if ($model =~ /^(\d+)/) { return $1; } @@ -85,19 +85,19 @@ sub os { sub os_ver { my $riverbed = shift; - + my $ver = $riverbed->systemVersion() || ''; if ( $ver =~ /(\d+[\.\d]+)/ ) { return $1; } - + return $ver; } sub serial { my $riverbed = shift; - + return $riverbed->serialNumber(); } @@ -115,14 +115,14 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $riverbed = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $riverbed->class(); @@ -133,7 +133,7 @@ Eric Miller Abstraction subclass for Riverbed Steelhead WAN optimization appliances. 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 $riverbed = new SNMP::Info::Layer3::Steelhead(...); diff --git a/lib/SNMP/Info/Layer3/Sun.pm b/lib/SNMP/Info/Layer3/Sun.pm index 51253ada..e42695cc 100644 --- a/lib/SNMP/Info/Layer3/Sun.pm +++ b/lib/SNMP/Info/Layer3/Sun.pm @@ -113,14 +113,14 @@ begemot =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $sun = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'mysunrouter', Community => 'public', Version => 1 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $sun->class(); diff --git a/lib/SNMP/Info/Layer3/Tasman.pm b/lib/SNMP/Info/Layer3/Tasman.pm index a1423d85..8d08925f 100644 --- a/lib/SNMP/Info/Layer3/Tasman.pm +++ b/lib/SNMP/Info/Layer3/Tasman.pm @@ -340,7 +340,7 @@ Eric Miller =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $tasman = new SNMP::Info( AutoSpecify => 1, Debug => 1, @@ -348,7 +348,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $tasman->class(); @@ -400,7 +400,7 @@ Returns C<'avaya'> =item $tasman->model() -Tries to get the model from C and if not available +Tries to get the model from C and if not available cross references $tasman->id() to F. Substitutes 'SR' for C<'ntSecureRouter'> in the name for readability. @@ -487,7 +487,7 @@ C =head2 Pseudo F information These methods emulate F Physical Table methods using -F. +F. =over diff --git a/lib/SNMP/Info/Layer3/Timetra.pm b/lib/SNMP/Info/Layer3/Timetra.pm index 5f067ae0..2934792c 100644 --- a/lib/SNMP/Info/Layer3/Timetra.pm +++ b/lib/SNMP/Info/Layer3/Timetra.pm @@ -275,7 +275,7 @@ sub i_duplex_admin { sub agg_ports { my $alu = shift; - + return $alu->agg_ports_ifstack(); } @@ -402,7 +402,7 @@ Bill Fenner =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $alu = new SNMP::Info( AutoSpecify => 1, Debug => 1, @@ -410,7 +410,7 @@ Bill Fenner DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $alu->class(); @@ -527,7 +527,7 @@ upon the transceiver inserted. =item $alu->lldp_if() -Returns the mapping to the SNMP Interface Table. Utilizes (C) +Returns the mapping to the SNMP Interface Table. Utilizes (C) from the (C) index. =back diff --git a/lib/SNMP/Info/Layer3/VyOS.pm b/lib/SNMP/Info/Layer3/VyOS.pm index 0bb3157e..9e15515c 100644 --- a/lib/SNMP/Info/Layer3/VyOS.pm +++ b/lib/SNMP/Info/Layer3/VyOS.pm @@ -43,12 +43,10 @@ $VERSION = '3.64'; %MIBS = ( %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, - ); %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::Layer3::GLOBALS, - ); %FUNCS = ( %SNMP::Info::Layer2::FUNCS, %SNMP::Info::Layer3::FUNCS, ); @@ -106,14 +104,14 @@ SNMP::Info::Layer3::VyOS - SNMP Interface to Vyatta Devices =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $vyos = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $vyos->class();