divert(-1)
#
# Copyright (c) 2004 Datapark corp.
#	All rights reserved.
#
# By using this file, you agree to the terms and conditions set
# forth in the LICENSE file which can be found at the top level of
# the sendmail distribution.
#
#

dnl 8.13: ifdef(`DPURB_MAP', `', `define(`DPURB_MAP', `dns -R A')')
ifdef(`DPURB_MAP', `', `define(`DPURB_MAP', `dns -R PTR -a<OK>')')
divert(0)
ifdef(`_DPURB_R_',`dnl',`dnl
VERSIONID(`$Id: datapark_unresolved.m4,v 1.00 2004/04/07 21:22:40 maxime Exp $')
define(`_DPURB_R_',`')
LOCAL_CONFIG
# map for DNS lookups for unresolved clients
Kdpurb DPURB_MAP -T<TMP>ifdef(`DPURB_MAP_OPT',` DPURB_MAP_OPT')')
divert(-1)
define(`_DPURB_MSG_', `ifelse(len(X`'_ARG_),`1',`"550 Rejected unresolved: " $`'&{client_addr} ',`_ARG_')')dnl
define(`_DPURB_MSG_TMP_', `ifelse(_ARG2_,`t',`"451 Temporary lookup failure of " $`'&{client_addr} ',`_ARG2_')')dnl
divert(8)
# DNS based IP address lookups
R$*			$: $&{client_addr}
R$-.$-.$-.$-		$: <?> $(dpurb $4.$3.$2.$1.IN-ADDR.ARPA. $: UNR $)
R<?>UNR			$#error $@ 4.7.1 $: _DPURB_MSG_
ifelse(len(X`'_ARG2_),`1',
`R<?>$+<TMP>		$: TMPOK',
`R<?>$+<TMP>		$#error $@ 4.7.1 $: _DPURB_MSG_TMP_')
R<?>$+			$: OKSOFAR
divert(-1)