Subj : background scripts
To   : All
From : James Vahn
Date : Sat Mar 30 2002 04:30 am

How do you fork a child process from within Perl? I think that's
the proper terminolgy- I want to run a script that exits but
remains running in memory. For some reason the init scripts don't
like "&", I'm currently running this via startup script and atd:

#!/usr/bin/perl
#
# block harvester rcpt_to probes
# sendmail.mc:  define(`confBAD_RCPT_THROTTLE',`10')dnl
#
open IN, "/var/log/mail/mail.log" or die "$!\n";
    seek(IN,0,2);
    for (;;) {
        $_ = <IN>;
        if ( m/SMTP RCPT flood/g ) {
            @data = split /:/;
            @addr = split /\[/, $data[4];
            chop $addr[1];
            system ("/sbin/ipchains -I input 1 -p tcp -s $addr[1] -j REJECT");
            system ("echo no_probe: $data[4]| mail -s probe_detected root");
        }
        sleep 1;
        seek(IN,0,1);
    }
close IN;

--- Debian GNU/Linux
 * Origin: 300 Miles East (1:346/3)

.