Re: Procmail vs perl script syntax

Ruud H.G. van Tol schreef:

>     REMOTEIP = '127.0.0.1'
>     :0
>     * ^Received: from [^[]+\[\/[0-9.]+]\).*by\
>        mxhost[0-9]+\.myisp\.tld[ ]
>     * MATCH ?? ^^\/[0-9.]+
>     { REMOTEIP = $MATCH }
>
>     :0
>     * ! ? rblcheck -q -s dnsbl.sorbs.net $REMOTEIP
>     {
>         :0 fhw
>         | formail -A"X-$HOST-Spam: dnsbl.sorbs.net"
>         :0:
>         $REVIEWBOX
>     }

Corrections:
There should be a space after by. I forgot to cater for private address
space. Also you might need -c with rblcheck.

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

     :0
     * ! REMOTEIP ??
^^(10|127|172\.(1[6-9)|2[0-9]|3[01])|192\.168|169\.254)\.
     * ! ? rblcheck -qc -s dnsbl.sorbs.net $REMOTEIP
     {
         :0 fhw
         | formail -A"X-$HOST-Spam: dnsbl.sorbs.net"
         :0
         suspect/
     }

-- 
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