Hello Brother!
22 Apr 21 23:30, you wrote to me:
Perhaps they are in conflict.
Ok, I'll disable the former PING and enable only pingpong.
require "/home/husky/bin/pingpong.pm";
}
You have to do it differently ...
[fido@host-187 perl]$ perldoc ./pingpong.pm
Put pingpong.pm somewhere in the @INC path. It's strongly
recommended for
Windows users to put it in the same directory with filter.pl.
place to filter.pl something like this:
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)