Re: Procmail vs perl script syntax

Jack Stone schreef:

> This is the procmail recipe I need to recook to first obtain the
> real sender IP and then check it against the SORBS zone. Obviously,
> I need to call something other than the bad script to get the
> "originating IP."
> ----------------------------------------------------------------------
-----------
> # First, get the originating IP using the origip.pl script
> [...]

Just toss all that, and use the recipes that were presented.

Mine was:

    REMOTEIP = '127.0.0.1'
    :0
    * ^Received: from [^[]+\[\/[0-9.]+]\).*by\
       mxhost[0-9]+\.myisp\.tld[ ]
    * MATCH ?? ^^\/[0-9.]+
    { REMOTEIP = $MATCH }

Then continue like you had:

    :0
    * ! ? rblcheck -q -s dnsbl.sorbs.net $REMOTEIP
    {
        :0 fhw
        | formail -A"X-$HOST-Spam: dnsbl.sorbs.net"
        :0:
        $REVIEWBOX
    }

(where REVIEWBOX holds a name of an mbox-file)

-- 
Groet, Ruud


____________________________________________________________
procmail mailing list   Procmail homepage: http://www.procmail.org/
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail