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

even more whitespace cleanup

Browse Source
This commit is contained in:
inphobia
2019-01-19 05:17:04 +01:00
parent b78b1b4860
commit a8766a0b0b
11 changed files with 50 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/SNMP/Info/Layer3/NetSNMP.pm
View File

@@ -143,14 +143,14 @@ Bradley Baetz and Bill Fenner
=head1 SYNOPSIS =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( my $netsnmp = 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 = $netsnmp->class(); my $class = $netsnmp->class();

18
lib/SNMP/Info/Layer3/Nexus.pm
View File

@@ -65,8 +65,8 @@ $VERSION = '3.64';
'mac' => 'dot1dBaseBridgeAddress', 'mac' => 'dot1dBaseBridgeAddress',
); );
%FUNCS = ( %FUNCS = (
%SNMP::Info::Layer3::CiscoSwitch::FUNCS, %SNMP::Info::Layer3::CiscoSwitch::FUNCS,
'vrf_name' => 'cContextMappingVrfName', 'vrf_name' => 'cContextMappingVrfName',
); );
@@ -258,7 +258,7 @@ 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 $nexus = new SNMP::Info( my $nexus = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
@@ -266,7 +266,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";
my $class = $nexus->class(); my $class = $nexus->class();
@@ -274,10 +274,10 @@ Eric Miller
=head1 DESCRIPTION =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 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(...); my $nexus = new SNMP::Info::Layer3::Nexus(...);
@@ -340,12 +340,12 @@ C<dot1dBaseBridgeAddress>
=head3 IP Address Table =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 versions do not index the table with the IPv4 address in accordance with
the MIB definition, these overrides correct that behavior. the MIB definition, these overrides correct that behavior.
Also, the table is augmented with IP addresses in use by UDP sockets on the Also, the table is augmented with IP addresses in use by UDP sockets on the
device, as determined by checking F<RFC1213-MIB::udpLocalAddress>. Valid device, as determined by checking F<RFC1213-MIB::udpLocalAddress>. Valid
addresses from this table (any IPv4 that is not localhost, 0.0.0.0, Class D 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. (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 This is a workaround to determine possible VPC Keepalive IP addresses on the

12
lib/SNMP/Info/Layer3/PacketFront.pm
View File

@@ -110,12 +110,12 @@ sub i_ignore {
sub layers { sub layers {
my $pfront = shift; my $pfront = shift;
my $layers = $pfront->SUPER::layers(); my $layers = $pfront->SUPER::layers();
# Some models or softwware versions don't report L2 properly # Some models or softwware versions don't report L2 properly
# so add L2 capability to the output if the device has bridge ports. # so add L2 capability to the output if the device has bridge ports.
my $bports = $pfront->b_ports(); my $bports = $pfront->b_ports();
if ($bports) { if ($bports) {
my $l = substr $layers, 6, 1, "1"; 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 =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( my $pfront = 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 = $pfront->class(); my $class = $pfront->class();
@@ -202,7 +202,7 @@ Returns the software version extracted from C<sysDescr>.
=item $pfront->serial() =item $pfront->serial()
Returns the value of C<productSerialNo>. Returns the value of C<productSerialNo>.
=back =back
@@ -227,7 +227,7 @@ Ignores loopback
=item $pfront->layers() =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. device reports is augmented with L2 capability if the device has bridge ports.
=back =back

16
lib/SNMP/Info/Layer3/Passport.pm
View File

@@ -676,7 +676,7 @@ sub fw_status {
my $qb = $passport->SUPER::fw_status($partial); my $qb = $passport->SUPER::fw_status($partial);
return $qb if (ref {} eq ref $qb and scalar keys %$qb); return $qb if (ref {} eq ref $qb and scalar keys %$qb);
return $passport->rcBridgeTpFdbStatus($partial); return $passport->rcBridgeTpFdbStatus($partial);
} }
@@ -1179,14 +1179,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 $passport = new SNMP::Info( my $passport = 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 = $passport->class(); my $class = $passport->class();
@@ -1197,12 +1197,12 @@ Eric Miller
Abstraction subclass for modular Avaya Ethernet Routing Switch 8000 Series Abstraction subclass for modular Avaya Ethernet Routing Switch 8000 Series
(formerly Nortel/Bay Passport/Accelar) and VSP 9000 Series switches. (formerly Nortel/Bay Passport/Accelar) and VSP 9000 Series switches.
These devices have some of the same characteristics as the stackable Avaya These devices have some of the same characteristics as the stackable Avaya
Ethernet Switches (Baystack). For example, extended interface information is Ethernet Switches (Baystack). For example, extended interface information is
gleaned from F<RAPID-CITY>. gleaned from F<RAPID-CITY>.
For speed or debugging purposes you can call the subclass directly, but not 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(...); my $passport = new SNMP::Info::Layer3::Passport(...);
@@ -1240,7 +1240,7 @@ These are methods that return scalar value from SNMP
=item $passport->model() =item $passport->model()
Returns model type. Checks $passport->id() against the Returns model type. Checks $passport->id() against the
F<RAPID-CITY-MIB> and then parses out C<rcA>. F<RAPID-CITY-MIB> and then parses out C<rcA>.
=item $passport->vendor() =item $passport->vendor()
@@ -1364,7 +1364,7 @@ problems with F<BRIDGE-MIB>
These methods utilize, in order; F<Q-BRIDGE-MIB>, F<BRIDGE-MIB>, and These methods utilize, in order; F<Q-BRIDGE-MIB>, F<BRIDGE-MIB>, and
F<RAPID-CITY> to obtain the forwarding table information. F<RAPID-CITY> to obtain the forwarding table information.
=over =over
=item $passport->fw_mac() =item $passport->fw_mac()

8
lib/SNMP/Info/Layer3/Pf.pm
View File

@@ -132,7 +132,7 @@ 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 $pf = new SNMP::Info( my $pf = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
@@ -140,7 +140,7 @@ Max Baker
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 = $pf->class(); 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 which pfSense is based) as they assume certain Linux specific Ethernet
structures. This problem is apparently solved on PF based firewall appliances structures. This problem is apparently solved on PF based firewall appliances
by using the ladvd package, for which a port may be found here: by using the ladvd package, for which a port may be found here:
L<http://www.freshports.org/net/ladvd/>. I'm not sure if this module ties into L<http://www.freshports.org/net/ladvd/>. I'm not sure if this module ties into
Net-SNMP or not. Net-SNMP or not.
=head2 Inherited Classes =head2 Inherited Classes
@@ -205,7 +205,7 @@ Returns 'Pf'
=item $pf->os_ver() =item $pf->os_ver()
Tries to reference $pf->id() to one of the product MIBs listed above. 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<enterprises.12325.1.1.2.1.1>. C<enterprises.12325.1.1.2.1.1>.
=back =back

4
lib/SNMP/Info/Layer3/Pica8.pm
View File

@@ -102,14 +102,14 @@ Jeroen van Ingen
=head1 SYNOPSIS =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( my $pica8 = 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 = $pica8->class(); my $class = $pica8->class();

14
lib/SNMP/Info/Layer3/Steelhead.pm
View File

@@ -72,7 +72,7 @@ sub model {
my $riverbed = shift; my $riverbed = shift;
my $model = $riverbed->rb_model() || ''; my $model = $riverbed->rb_model() || '';
if ($model =~ /^(\d+)/) { if ($model =~ /^(\d+)/) {
return $1; return $1;
} }
@@ -85,19 +85,19 @@ sub os {
sub os_ver { sub os_ver {
my $riverbed = shift; my $riverbed = shift;
my $ver = $riverbed->systemVersion() || ''; my $ver = $riverbed->systemVersion() || '';
if ( $ver =~ /(\d+[\.\d]+)/ ) { if ( $ver =~ /(\d+[\.\d]+)/ ) {
return $1; return $1;
} }
return $ver; return $ver;
} }
sub serial { sub serial {
my $riverbed = shift; my $riverbed = shift;
return $riverbed->serialNumber(); return $riverbed->serialNumber();
} }
@@ -115,14 +115,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 $riverbed = new SNMP::Info( my $riverbed = 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 = $riverbed->class(); my $class = $riverbed->class();
@@ -133,7 +133,7 @@ Eric Miller
Abstraction subclass for Riverbed Steelhead WAN optimization appliances. Abstraction subclass for Riverbed Steelhead WAN optimization appliances.
For speed or debugging purposes you can call the subclass directly, but not 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(...); my $riverbed = new SNMP::Info::Layer3::Steelhead(...);

4
lib/SNMP/Info/Layer3/Sun.pm
View File

@@ -113,14 +113,14 @@ begemot
=head1 SYNOPSIS =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( my $sun = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'mysunrouter', DestHost => 'mysunrouter',
Community => 'public', Community => 'public',
Version => 1 Version => 1
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $sun->class(); my $class = $sun->class();

8
lib/SNMP/Info/Layer3/Tasman.pm
View File

@@ -340,7 +340,7 @@ 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 $tasman = new SNMP::Info( my $tasman = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
@@ -348,7 +348,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";
my $class = $tasman->class(); my $class = $tasman->class();
@@ -400,7 +400,7 @@ Returns C<'avaya'>
=item $tasman->model() =item $tasman->model()
Tries to get the model from C<nnchassisModel> and if not available Tries to get the model from C<nnchassisModel> and if not available
cross references $tasman->id() to F<NT-ENTERPRISE-DATA-MIB>. cross references $tasman->id() to F<NT-ENTERPRISE-DATA-MIB>.
Substitutes 'SR' for C<'ntSecureRouter'> in the name for readability. Substitutes 'SR' for C<'ntSecureRouter'> in the name for readability.
@@ -487,7 +487,7 @@ C<portAdminSpeed>
=head2 Pseudo F<ENTITY-MIB> information =head2 Pseudo F<ENTITY-MIB> information
These methods emulate F<ENTITY-MIB> Physical Table methods using These methods emulate F<ENTITY-MIB> Physical Table methods using
F<CHASSIS-MIB>. F<CHASSIS-MIB>.
=over =over

8
lib/SNMP/Info/Layer3/Timetra.pm
View File

@@ -275,7 +275,7 @@ sub i_duplex_admin {
sub agg_ports { sub agg_ports {
my $alu = shift; my $alu = shift;
return $alu->agg_ports_ifstack(); return $alu->agg_ports_ifstack();
} }
@@ -402,7 +402,7 @@ Bill Fenner
=head1 SYNOPSIS =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( my $alu = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
@@ -410,7 +410,7 @@ Bill Fenner
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 = $alu->class(); my $class = $alu->class();
@@ -527,7 +527,7 @@ upon the transceiver inserted.
=item $alu->lldp_if() =item $alu->lldp_if()
Returns the mapping to the SNMP Interface Table. Utilizes (C<ifIndex>) Returns the mapping to the SNMP Interface Table. Utilizes (C<ifIndex>)
from the (C<tmnxLldpRemEntry >) index. from the (C<tmnxLldpRemEntry >) index.
=back =back

6
lib/SNMP/Info/Layer3/VyOS.pm
View File

@@ -43,12 +43,10 @@ $VERSION = '3.64';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS,
); );
%GLOBALS = ( %GLOBALS = (
%SNMP::Info::Layer2::GLOBALS, %SNMP::Info::Layer3::GLOBALS, %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::Layer3::GLOBALS,
); );
%FUNCS = ( %SNMP::Info::Layer2::FUNCS, %SNMP::Info::Layer3::FUNCS, ); %FUNCS = ( %SNMP::Info::Layer2::FUNCS, %SNMP::Info::Layer3::FUNCS, );
@@ -106,14 +104,14 @@ SNMP::Info::Layer3::VyOS - SNMP Interface to Vyatta Devices
=head1 SYNOPSIS =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( my $vyos = 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 = $vyos->class(); my $class = $vyos->class();