Subj : Strange behaviour with PERL.
To   : Michael Dukelsky
From : Fabio Bizzi
Date : Wed Apr 28 2021 15:32:26

Hello Michael, Stas!

Well, I've modified the filter.pl like suggested by Stas:

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

#!/usr/bin/perl
#
use lib '/home/husky/bin';
#
use warnings;
#
use pingpong;
#
require "/home/husky/bin/netcheck.pl";
require "/home/husky/bin/netpoint.pl";
#
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'}{'name'}" );
  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 );
  }
#
  &netcheck;
  &netpoint;
}
#
  sub route{
     return route_to();
}

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

I've also cloned by the GIT Repository the husky environment and I've compiled and installed the required versions and libraries, now is all up to date.

But the behaviour is the same :(

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

----------  Wed 28 Apr 2021, hpt/lnx 1.9.0-cur 2021-04-26
1 09:39:00  Start
1 09:39:00  Start tossing...
7 09:39:00  pkt: /home/husky/in.sec/83f727bd.tos [2:335/364.1]
6 09:39:00  CheckPoint 1
6 09:39:00  ]\/[imac Rebirth
6 09:39:00  CheckPoint 2
6 09:39:00  e riservate
6 09:39:00  CheckPoint 3
6 09:39:00  ]\/[imac Rebirth
6 09:39:00  CheckPoint 4
6 09:39:00  hpt/lnx 1.9.0-cur 2021-04-26
6 09:39:00  CheckPoint 5
6 09:39:00  Tommy Koivula
6 09:39:00  CheckPoint 6
6 09:39:00  6 09:39:00  CheckPoint 7
6 09:39:00  Ping message detected.
6 09:39:00  Perl(): Make PONG to PING reqiest: area=netmail; toname=PING; toaddr=2:335/364 fromname=Fabio Bizzi; fromaddr=2:335/364.1
4 09:39:01  Statistics:
4 09:39:01       arc:     0   netMail:    1   echoMail:     0         CC:     1
4 09:39:01     pkt's:     1      dupe:    0   passthru:     0   exported:     0
4 09:39:01      msgs:     1       bad:    0      saved:     0      empty:     0
4 09:39:01     Input:     0.75 mails/sec        Output:     0.00 mails/sec
4 09:39:01                0.26 kb/sec
4 09:39:01                0.35 kb total, processed in    1.335 seconds
4 09:39:01  Areas summary:
4 09:39:01  netmail area NetMailArea - 1 msgs
4 09:39:01  netmail area NetArchive - 1 msgs
1 09:39:01  End tossing
C 09:39:01  Start areafix...
C 09:39:01  Scanning NetMailArea
C 09:39:01  End areafix...
1 09:39:01  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 $links{'2:221/6'}{'password'} and $config{sysop} report garbage instead the proper content (checkpoint 2 and 6).

And the %Links in the PING answer is obviusly empty (you can check sending a ping to 2:335/364)

Maybe some strange occours in the HPT's perl API with 64bit environment?

Where I can dig more into it?

Manu thanks for your help. :)

Ciao!
Fabio

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

.