divert(-1) # # Copyright (c) 2001 Derek J. Balling # All rights reserved. # # Permission to use granted for all purposes. If modifications are made # they are requested to be sent to for inclusion in future # versions # # Allows (hopefully) for checking of access.db whitelisting now. This ONLY # works on sendmail-8.12.x ... use on any other version may require tinkering # by you the downloader. # divert(0) ifdef(`_RHSBL_R_',`dnl',`dnl VERSIONID(`$Id: rhsbl.m4,v 1.1 2001/08/27 15:41:15 dredd Exp $') define(`_RHSBL_R_',`') ifdef(`_DNSBL_R_',`dnl',`dnl LOCAL_CONFIG # map for DNS based blacklist lookups based on the sender RHS Kdnsbl host -T')') divert(-1) define(`_RHSBL_SRV_', `_ARG_')dnl define(`_RHSBL_MSG_', `ifelse(len(X`'_ARG2_),`1',`"550 Mail from " $`'&{RHS} " refused by blackhole site '_RHSBL_SRV_`"',`_ARG2_')')dnl define(`_RHSBL_MSG_TMP_', `ifelse(_ARG3_,`t',`"451 Temporary lookup failure of " $`'&{RHS} " at '_RHSBL_SRV_`"',`_ARG2_')')dnl divert(8) LOCAL_RULESETS SLocal_check_mail # DNS based RHS spam list _RHSBL_SRV_ R$+ $: <@> $>CanonAddr $&f R<@> $*<@$+.> $:<@>$1<@$2.>$|$>SearchList<+ rhs>$|<> R$* $| <$={Accept}> $: OKSOFAR R<@> $*<@$+.> $| $* $: $(dnsbl $2._RHSBL_SRV_. $: OK $) $(macro {RHS} $@ $2 $) R<@> $* $: OKSOFAR ROK $: OKSOFAR ifelse(len(X`'_ARG3_),`1', `R$+ $: TMPOK', `R$+ $#error $@ 4.7.1 $: _RHSBL_MSG_TMP_') R$+ $#error $@ 5.7.1 $: _RHSBL_MSG_ divert(-1)