Subj : Strange behaviour with PERL
To   : Fabio Bizzi
From : Brother Rabbit
Date : Mon Apr 26 2021 03:51:50

Hi, Fabio!

25 апр 21 17:54, Fabio Bizzi -> Brother Rabbit:

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

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

 FB> 8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<
 FB> --

#!/usr/bin/perl
#
use warnings;
#

use pingpong.pm;
require "/home/husky/bin/netcheck.pl";
require "/home/husky/bin/netpoint.pl";

sub filter{

   if ( !defined( $area ) ) {
     ping_pong( $fromname, $fromaddr, $toname, $toaddr, $subject,
                $text, $PVT+$K_S, 100 );
   }

   &netcheck;
   &netpoint;
 }

#

sub route{
      return route_to();
 }

 FB> 8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<--8<
 FB> --

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

I think so.

Have nice nights.
       Brother Rabbit.

--- Свободная баба должна показывать сиськи. Замужняя не должна,но тоже вправе
 * Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/58.10)

.