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

l7 whitespace cleanup

Browse Source
This commit is contained in:
inphobia
2019-01-19 05:18:41 +01:00
parent a8766a0b0b
commit f2b0f67b5f
6 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/SNMP/Info/Layer7/APC.pm
View File

@@ -63,7 +63,7 @@ $VERSION = '3.64';
%FUNCS = (
%SNMP::Info::Layer7::FUNCS,
);
%MUNGE = (
@@ -115,14 +115,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 $apc = new SNMP::Info(
AutoSpecify => 1,
Debug => 1,
DestHost => 'myswitch',
Community => 'public',
Version => 2
)
)
or die "Can't connect to DestHost.\n";
my $class = $apc->class();
@@ -130,11 +130,11 @@ Jeroen van Ingen
=head1 DESCRIPTION
Provides abstraction to the configuration information obtainable from a
APC UPS via SNMP.
Provides abstraction to the configuration information obtainable from a
APC UPS via 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 $apc = new SNMP::Info::Layer7::APC(...);
@@ -235,6 +235,6 @@ See documentation in L<SNMP::Info::Layer7/"TABLE METHODS"> for details.
These are methods that provide SNMP set functionality for overridden methods
or provide a simpler interface to complex set operations. See
L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
operations.
operations.
=cut

12
lib/SNMP/Info/Layer7/CiscoIPS.pm
View File

@@ -68,10 +68,10 @@ my ($serial, $descr, $model);
sub _fetch_info {
my $self = shift;
foreach my $id ( keys %{ $self->e_id() } ){
if (
$self->e_name->{$id} =~ m/^Module$/ and
$self->e_model->{$id} =~ m/IPS/
$self->e_model->{$id} =~ m/IPS/
) {
$serial = $self->e_serial->{$id};
$descr = $self->e_descr->{$id};
@@ -79,7 +79,7 @@ sub _fetch_info {
}
}
}
sub layers {
@@ -113,14 +113,14 @@ sub productname {
sub b_mac {
my ( $self ) = shift;
foreach my $mac ( values %{$self->i_mac()} ){
next unless defined $mac;
next unless $mac =~ m/^e4:d3:f1/;
return $mac;
}
return '';
}
@@ -162,7 +162,7 @@ Moe Kraus
=head1 DESCRIPTION
Subclass for Cisco IPS Module
Subclass for Cisco IPS Module
=head2 Inherited Classes

4
lib/SNMP/Info/Layer7/Gigamon.pm
View File

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

4
lib/SNMP/Info/Layer7/Liebert.pm
View File

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

4
lib/SNMP/Info/Layer7/Neoteris.pm
View File

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

6
lib/SNMP/Info/Layer7/Netscaler.pm
View File

@@ -80,7 +80,7 @@ sub serial {
sub model {
my $ns = shift;
my $desc = $ns->sys_hw_desc() || '';
$desc =~ s/^.+\bNS//i;
return $desc;
@@ -121,14 +121,14 @@ Eric Miller
=head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you.
# Let SNMP::Info determine the correct subclass for you.
my $ns = new SNMP::Info(
AutoSpecify => 1,
Debug => 1,
DestHost => 'myrouter',
Community => 'public',
Version => 2
)
)
or die "Can't connect to DestHost.\n";
my $class = $ns->class();