divert(-1)
#
# Copyright (c) 2000-2002 Sendmail, Inc. and its suppliers.
# 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.
#
#ident "%Z%%M% %I% %E% SMI"
#
divert(0)
VERSIONID(`$Id: compat_check.m4,v 1.4 2002/02/26 22:15:31 gshapiro Exp $')
divert(-1)
ifdef(`_ACCESS_TABLE_', `',
`errprint(`FEATURE(`compat_check') requires FEATURE(`access_db')
')')
LOCAL_RULESETS
Scheck_compat
# look up the pair of addresses
# (we use <@> as the separator. Note this in the map too!)
R< $+ > $| $+ $: $1 $| $2
R$+ $| < $+ > $: $1 $| $2
R$+ $| $+ $: <$(access Compat:$1<@>$2 $:OK $)>
R$* $| $* $@ ok
# act on the result,
# it must be one of the following... anything else will be allowed..
dnl for consistency with the other two even though discard does not take a
dnl reply code
R< DISCARD:$* > $#discard $: $1 " - discarded by check_compat"
R< DISCARD $* > $#discard $: $1 " - discarded by check_compat"
R< TEMP:$* > $#error $@ TEMPFAIL $: $1 " error from check_compat. Try again later"
R< ERROR:$* > $#error $@ UNAVAILABLE $: $1 " error from check_compat"