divert(-1)
#
# Check hosts from Received field in dnsbl
#
# никаких копирайтов!
#
dnl
divert(0)
dnl
VERSIONID(`$Id: check-received-dnsbl.m4,v 8.18.16.1 2002/12/22 22:08:21 corvax Exp $')
dnl
divert(-1)
dnl
define(`_DNSBL_SRV_', `ifelse(len(X`'_ARG_),  `1',
    `blackholes.mail-abuse.org',
    `_ARG_')')dnl
define(`_DNSBL_MSG_', `ifelse(len(X`'_ARG2_), `1',
    `"550 Mail from " $`'&{hop_addr} " refused by blackhole site '_DNSBL_SRV_`"',
    `_ARG2_')')dnl
dnl
ifdef(`_RECEIVED_PARSED_',,`HACK(`precheck-received')')
dnl
divert(8)
dnl
dnl
LOCAL_RULESETS
dnl
dnl
SCheckReceived
dnl
# DNS based IP address spam list _DNSBL_SRV_
R $*					$: $(storage_received_host {hop_addr} $@ $) $1
R $- $* ( $* [$-.$-.$-.$-]) $*		$: $(storage_received_host {hop_addr} $@ $4.$5.$6.$7 $) $1 $2 ( $3 [ $4.$5.$6.$7]) $8
R $- $* ( $* [$-.$-.$-.$-]) $*		$: <?> < $(host $7.$6.$5.$4._DNSBL_SRV_. $: OK $) > $1 $2 ( $3 [ $4.$5.$6.$7]) $8
R < ? > < OK > $*			$: $1
R < ? > < $+ > $*			$#error $@ 5.7.1 $: _DNSBL_MSG_
dnl