Can't use string ("") as a HASH ref while "strict refs" in use at /usr/local/share/perl5/Net/Ping.pm

[bakkc]

Hi Gerard,
after moving form centos6 to rhel8 we encounter the following issue with the plugin with the following command:
check_nwc_health --hostname xxx.xxx.xxx.xxx --protocol 2c --community something --mode connect-vips --verbose
Can't use string ("") as a HASH ref while "strict refs" in use at /usr/local/share/perl5/Net/Ping.pm line 1418.
Issue reproduced with Ping.pm 2.55 and 2.74

[lausser]

There should be the code:

    foreach (@{$self->{vips}}) {
      $ping->port_number($_->{ltmVirtualServPort});
      my $now = time;
      $ping->ping_syn($_->{ltmVirtualServAddr},
          inet_aton($_->{ltmVirtualServAddr}),
          $now, $now + 2);
    }

Can you check if $_->{ltmVirtualServAddr} is perhaps undef or does not have a valid ip address value?

[bakkc]

Hi Gerhard,
thaks for repying. Perl is not really my thing, how can i debug the script to gather the info? ( like set -x in bash/ksh )

If i'm correct the --mode connect-vips should connect to the F5 (-H ip adres/management ip ) and connect to each virtual server ? Otherwise maybe i'm confusing the fuctionality of the check.

P.S. in the --help mode there is a double line "watch-vips (Watch load balancer vips)"

[lausser]

Insert a line:

   foreach (@{$self->{vips}}) {
      printf "%s\n", Data::Dumper::Dumper($_);
      $ping->port_number($_->{ltmVirtualServPort});

[bakkc]

Hi Gergard,
below the output.

$VAR1 = bless( {
'ltmVirtualServEnabled' => 'true',
'ltmVirtualServGtmScore' => 0,
'ltmVirtualServActualPvaAccel' => 'none',
'ltmVirtualServWildmask' => '255.255.255.255',
'ltmVirtualServConnLimit' => 0,
'ltmVirtualServIpProto' => 6,
'indices' => [
'18',
'47',
'67',
'111',
'109',
'109',
'111',
'110',
'47',
'65',
'79',
'86',
'80',
'78',
'95',
'83',
'83',
'84',
'80'
],
'ltmVirtualServTranslatePort' => 'true',
'ltmVirtualServSnatpoolName' => '',
'ltmVirtualServSnatType' => 'none',
'ltmVirtualServDefaultPool' => '/Common/ANICENAME',
'ltmVirtualServSourceAddressTranslationType' => 'automap',
'ltmVirtualServAvailabilityState' => 'none',
'ltmVirtualServName' => '/Common/ANICENAME',
'ltmVirtualServWildmaskType' => 'ipv4',
'ltmVirtualServLasthopPoolName' => '',
'ltmVirtualServRclass' => '',
'ltmVirtualServTranslateAddr' => 'true',
'ltmVirtualServPort' => 443,
'ltmVirtualServListedEnabledVlans' => 'false',
'ltmVirtualServFallbackPersist' => '',
'ltmVirtualServAddr' => '172.16.1.72',
'ltmVirtualServDisabledParentType' => 0,
'ltmVirtualServEnabledState' => 'none',
'flat_indices' => '18.47.67.111.109.109.111.110.47.65.79.86.80.78.95.83.83.84.80',
'ltmVirtualServType' => 'poolbased',
'ltmVirtualServAddrType' => 'ipv4',
'ltmVirtualServCmpEnabled' => 'true',
'ltmVirtualServSfFlags' => 'disabled',
'ltmVirtualServSrcport' => 'srcportreserve',
'ltmVirtualServSourceAddressTranslationPool' => '',
'ltmVirtualServStatusReason' => '',
'ltmVirtualServVaName' => '/Common/172.16.1.72'
}, 'Classes::F5::F5BIGIP::Component::VipSubsystem::VIP' );

Can't use string ("") as a HASH ref while "strict refs" in use at /usr/local/share/perl5/Net/Ping.pm line 1418.

[bakkc]

I have tested the same version on the old centos 6 just to compare.

$VAR1 = bless( {
'ltmVirtualServWildmask' => '255.255.255.255',
'ltmVirtualServEnabledState' => 'none',
'ltmVirtualServRclass' => '',
'ltmVirtualServListedEnabledVlans' => 'false',
'ltmVirtualServSrcport' => 'srcportreserve',
'ltmVirtualServDefaultPool' => '/Common/ANICENAME',
'ltmVirtualServConnLimit' => 0,
'ltmVirtualServType' => 'poolbased',
'flat_indices' => '18.47.67.111.109.109.111.110.47.65.79.86.80.78.95.83.83.84.80',
'ltmVirtualServAddrType' => 'ipv4',
'ltmVirtualServVaName' => '/Common/172.16.1.72',
'ltmVirtualServStatusReason' => '',
'ltmVirtualServTranslateAddr' => 'true',
'ltmVirtualServGtmScore' => 0,
'ltmVirtualServSnatpoolName' => '',
'ltmVirtualServFallbackPersist' => '',
'ltmVirtualServIpProto' => 6,
'ltmVirtualServCmpEnabled' => 'true',
'ltmVirtualServDisabledParentType' => 0,
'ltmVirtualServSourceAddressTranslationType' => 'automap',
'ltmVirtualServTranslatePort' => 'true',
'ltmVirtualServActualPvaAccel' => 'none',
'ltmVirtualServSourceAddressTranslationPool' => '',
'indices' => [
'18',
'47',
'67',
'111',
'109',
'109',
'111',
'110',
'47',
'65',
'79',
'86',
'80',
'78',
'95',
'83',
'83',
'84',
'80'
],
'ltmVirtualServAddr' => '172.16.1.72',
'ltmVirtualServSfFlags' => 'disabled',
'ltmVirtualServEnabled' => 'true',
'ltmVirtualServAvailabilityState' => 'none',
'ltmVirtualServName' => '/Common/ANICENAME',
'ltmVirtualServSnatType' => 'none',
'ltmVirtualServPort' => 443,
'ltmVirtualServWildmaskType' => 'ipv4',
'ltmVirtualServLasthopPoolName' => ''
}, 'Classes::F5::F5BIGIP::Component::VipSubsystem::VIP' );

[bakkc]

I noticed that on rhel8 the check stops at the first virtual server. On the old centos it returns all the virtual servers (54 in total)