Subj : Strange behaviour with PERL
To   : All
From : Fabio Bizzi
Date : Thu Apr 22 2021 14:53:54

Hello All!

I'm trying to run the Stas's PING robot, but it doesn't list the Links, so I digged about it and some strange things appeared.

This is my filter.pl file:

8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--

#!/usr/bin/perl
#
use warnings;
#
BEGIN { require "/home/husky/bin/pong.pl";
        require "/home/husky/bin/netcheck.pl";
        require "/home/husky/bin/netpoint.pl";
#        require "/home/husky/bin/echocleaner.pl";
        require "/home/husky/bin/pingpong.pm";
}
sub filter{
  w_log( "CheckPoint 1" );
  w_log( "$config{name}" );
  w_log( "CheckPoint 2" );
  w_log( "$config{sysop}" );
  w_log( "CheckPoint 3" );
  w_log( "$config{origin}" );
  w_log( "CheckPoint 4" );
  w_log( "$hpt_version" );
  w_log( "CheckPoint 5" );
  w_log( "$links{'2:221/6'}{'password'}" );
  w_log( "CheckPoint 6" );
  w_log( "$links{'2:221/6'}{'password'}" );
  w_log( "CheckPoint 7" );
  if ( !defined( $area ) ) {
    ping_pong( $fromname, $fromaddr, $toname, $toaddr, $subject, $text, $PVT+$K_S, 100 );
  }
  sub route{
     return route_to();
  }
  &pong;
  &netcheck;
  &netpoint;
#  &echocleaner;
}

8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--

And this is the log of HPT:

8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--

----------  Thu 22 Apr 21, hpt/lnx 1.9.0-cur 2020-11-09
1 13:58:43  Start
1 13:58:43  Start tossing...
7 13:58:43  pkt: /home/husky/in.sec/79520570.tos [2:335/364.1]
6 13:58:43  CheckPoint 1
6 13:58:43  ]\/[imac Rebirth
6 13:58:43  CheckPoint 2
6 13:58:43  e riservate
6 13:58:43  CheckPoint 3
6 13:58:43  ]\/[imac Rebirth
6 13:58:43  CheckPoint 4
6 13:58:43  hpt/lnx 1.9.0-cur 2020-11-09
6 13:58:43  CheckPoint 5
6 13:58:43  Tommy Koivula
6 13:58:43  CheckPoint 6
6 13:58:43  6 13:58:43  CheckPoint 7
6 13:58:43  Ping message detected.
6 13:58:43  Perl(): Make PONG to PING reqiest: area=netmail; toname=PPING; toaddr=2:335/364 fromname=Fabio Bizzi; fromaddr=2:335/364.1
4 13:58:44  Statistics:
4 13:58:44       arc:     0   netMail:    1   echoMail:     0         CC:     1
4 13:58:44     pkt's:     1      dupe:    0   passthru:     0   exported:     0
4 13:58:44      msgs:     1       bad:    0      saved:     0      empty:     0
4 13:58:44     Input:     0.76 mails/sec        Output:     0.00 mails/sec
4 13:58:44                0.27 kb/sec
4 13:58:44                0.35 kb total, processed in    1.318 seconds
4 13:58:44  Areas summary:
4 13:58:44  netmail area NetMailArea - 1 msgs
4 13:58:44  netmail area NetArchive - 1 msgs
1 13:58:44  End tossing
C 13:58:44  Start areafix...
C 13:58:44  Scanning NetMailArea
C 13:58:44  End areafix...
1 13:58:44  End

8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--

As you can see, the output between Checpoints 2 and 3 is garbage, like the output between Checkpoints 6 and 7

P.S. I have changed the To: from PING to PPING so I can test it safely from the PING Warriors. :P

The system is a Devuan Beowulf 64bit, HPT version is 1.9.0-cur 2020-11-09

Meanwhile, on this point (Ubuntu 20.04LTS 64bit) When I call
w_log("$links{'2:221/6'}{'password'}" );
and
w_log( "$links{'2:221/6'}{'password'}" );

I get this:

6 14:52:43  CheckPoint 5
6 14:52:43  PERL: Use of uninitialized value in string at /home/bizzi/husky/bin/filter.pl line 29.
6 14:52:43  6 14:52:43  CheckPoint 6
6 14:52:43  PERL: Use of uninitialized value in string at /home/bizzi/husky/bin/filter.pl line 31.

The filter.pl is similar, but this HPT is hpt/lnx 1.9.0-cur 2019-01-08

Any ideas/suggestion? :)

I'm going mad!

Many thanks!!!

Ciao!
Fabio

--- GoldED+/LNX 1.1.5-b20180707
 * Origin: ]\/[imac Rebirth Boss Point (2:335/364.1)

.