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 = ( %FUNCS = (
%SNMP::Info::Layer7::FUNCS, %SNMP::Info::Layer7::FUNCS,
); );
%MUNGE = ( %MUNGE = (
@@ -115,14 +115,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 $apc = new SNMP::Info( my $apc = 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 = $apc->class(); my $class = $apc->class();
@@ -130,11 +130,11 @@ Jeroen van Ingen
=head1 DESCRIPTION =head1 DESCRIPTION
Provides abstraction to the configuration information obtainable from a Provides abstraction to the configuration information obtainable from a
APC UPS via SNMP. APC UPS via SNMP.
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 $apc = new SNMP::Info::Layer7::APC(...); 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 These are methods that provide SNMP set functionality for overridden methods
or provide a simpler interface to complex set operations. See or provide a simpler interface to complex set operations. See
L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
operations. operations.
=cut =cut

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

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

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

@@ -87,14 +87,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 $g = new SNMP::Info( my $g = 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 = $g->class(); my $class = $g->class();

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

@@ -84,14 +84,14 @@ Netdisco Developers
=head1 SYNOPSIS =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( my $liebert = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myhub', DestHost => 'myhub',
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 = $liebert->class(); my $class = $liebert->class();

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

@@ -81,14 +81,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 $neoteris = new SNMP::Info( my $neoteris = 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 = $neoteris->class(); my $class = $neoteris->class();

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

@@ -80,7 +80,7 @@ sub serial {
sub model { sub model {
my $ns = shift; my $ns = shift;
my $desc = $ns->sys_hw_desc() || ''; my $desc = $ns->sys_hw_desc() || '';
$desc =~ s/^.+\bNS//i; $desc =~ s/^.+\bNS//i;
return $desc; return $desc;
@@ -121,14 +121,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 $ns = new SNMP::Info( my $ns = 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 = $ns->class(); my $class = $ns->class();