Subj : Strange behaviour with PERL
To   : Brother Rabbit
From : Fabio Bizzi
Date : Sun Apr 25 2021 17:54:42

Hello Brother!

22 Apr 21 23:30, you wrote to me:

 BR>  Perhaps they are in conflict.

Ok, I'll disable the former PING and enable only pingpong.

 FB>>         require "/home/husky/bin/pingpong.pm";
 FB>> }

 BR> You have to do it differently ...

 BR> [fido@host-187 perl]$ perldoc ./pingpong.pm

 BR>     Put pingpong.pm somewhere in the @INC path. It's strongly
 BR> recommended for
 BR>     Windows users to put it in the same directory with filter.pl.

 BR>     place to filter.pl something like this:

 BR>       use pingpong;

Ok, but how I can rewrite the filer.pl to run also the other modules?

Actually I have three other modules that run on my filter.pl:

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'}{'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 );
  }
  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<--

Please Stas, can you suggest me how to rewrite it? :)

May thanks!

Ciao!
Fabio

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

.