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

final whitespace cleanup

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

24
lib/SNMP/Info.pm
View File

@@ -1327,7 +1327,7 @@ sub new {
$new_obj->{mibdirs} = $args{MibDirs}; $new_obj->{mibdirs} = $args{MibDirs};
delete $sess_args{MibDirs}; delete $sess_args{MibDirs};
} }
# For IPv6 hosts set transport # For IPv6 hosts set transport
if ( defined $sess_args{DestHost} ) { if ( defined $sess_args{DestHost} ) {
$sess_args{DestHost} = resolve_desthost($sess_args{DestHost}); $sess_args{DestHost} = resolve_desthost($sess_args{DestHost});
@@ -2590,13 +2590,13 @@ See documentation in L<SNMP::Info::IPv6> for IPv6 Address Table.
Maps the IPv4 addresses to the interface index Maps the IPv4 addresses to the interface index
(C<ipAdEntIfIndex>) or filtered and index modified (C<ipAddressIfIndex>) (C<ipAdEntIfIndex>) or filtered and index modified (C<ipAddressIfIndex>)
=item $info->ip_table() =item $info->ip_table()
Maps the Table to the IPv4 address Maps the Table to the IPv4 address
(C<ipAdEntAddr>) or address extracted from (C<ipAddressIfIndex>) (C<ipAdEntAddr>) or address extracted from (C<ipAddressIfIndex>)
=item $info->ip_netmask() =item $info->ip_netmask()
@@ -3874,12 +3874,12 @@ sub resolve_desthost {
$desthost =~ s/^(?:udp6:|udpv6:|udpipv6:)//x; $desthost =~ s/^(?:udp6:|udpv6:|udpipv6:)//x;
my $ip = NetAddr::IP::Lite->new($desthost); my $ip = NetAddr::IP::Lite->new($desthost);
if ($ip and $ip->bits == 32) { if ($ip and $ip->bits == 32) {
return $ip->addr; return $ip->addr;
} }
elsif ($ip and $ip->bits == 128) { elsif ($ip and $ip->bits == 128) {
return 'udp6:' . $ip->addr; return 'udp6:' . $ip->addr;
} }
else { else {
croak "Unable to resolve DestHost: $desthost to an IP\n"; croak "Unable to resolve DestHost: $desthost to an IP\n";
@@ -4456,7 +4456,7 @@ sub _load_attr {
# requests # requests
my ($leaf) = $qual_leaf =~ /::(.+)$/; my ($leaf) = $qual_leaf =~ /::(.+)$/;
# If we weren't able to translate, we'll only have an OID # If we weren't able to translate, we'll only have an OID
$leaf = $oid unless defined $leaf; $leaf = $oid unless defined $leaf;
@@ -4655,7 +4655,7 @@ sub snmp_connect_ip {
my $comm = $self->snmp_comm(); my $comm = $self->snmp_comm();
return if $self->{Offline}; return if $self->{Offline};
$ip = resolve_desthost($ip); $ip = resolve_desthost($ip);
return if ( $ip eq '0.0.0.0' ) or ( $ip =~ /^127\./ ); return if ( $ip eq '0.0.0.0' ) or ( $ip =~ /^127\./ );
@@ -4831,7 +4831,7 @@ sub _validate_autoload_method {
# Validate that we have proper access for the operation # Validate that we have proper access for the operation
my $access = ''; my $access = '';
# Prevent autovivification by checking that MIB leaf exists # Prevent autovivification by checking that MIB leaf exists
if (exists $SNMP::MIB{$oid}) { if (exists $SNMP::MIB{$oid}) {
$access = $SNMP::MIB{$oid}{'access'} || ''; $access = $SNMP::MIB{$oid}{'access'} || '';
@@ -4851,23 +4851,23 @@ sub _validate_autoload_method {
} }
my $table_leaf = 0; my $table_leaf = 0;
# This is an expensive check so we assume anything in the funcs and globals # This is an expensive check so we assume anything in the funcs and globals
# hashes are known. Only for actual MIB leafs should we have to check the # hashes are known. Only for actual MIB leafs should we have to check the
# MIB. If the parent of the leaf has indexes it is contained within a table. # MIB. If the parent of the leaf has indexes it is contained within a table.
if ($funcs->{$attr}) { if ($funcs->{$attr}) {
$table_leaf = 1; $table_leaf = 1;
} }
elsif (!$globals->{$attr}) { elsif (!$globals->{$attr}) {
# Prevent autovivification # Prevent autovivification
if (exists $SNMP::MIB{$oid} && if (exists $SNMP::MIB{$oid} &&
exists $SNMP::MIB{$oid}{'parent'} && exists $SNMP::MIB{$oid}{'parent'} &&
exists $SNMP::MIB{$oid}{'parent'}{'indexes'} && exists $SNMP::MIB{$oid}{'parent'}{'indexes'} &&
defined $SNMP::MIB{$oid}{'parent'}{'indexes'} && defined $SNMP::MIB{$oid}{'parent'}{'indexes'} &&
scalar( @{$SNMP::MIB{$oid}{'parent'}{'indexes'}} ) > 0) scalar( @{$SNMP::MIB{$oid}{'parent'}{'indexes'}} ) > 0)
{ {
$table_leaf = 1; $table_leaf = 1;
} }
} }