1divert(-1)
2#
3# Copyright (c) 2000-2002 Sendmail, Inc. and its suppliers.
4#	All rights reserved.
5#
6# By using this file, you agree to the terms and conditions set
7# forth in the LICENSE file which can be found at the top level of
8# the sendmail distribution.
9#
10#ident	"%Z%%M%	%I%	%E% SMI"
11#
12divert(0)
13VERSIONID(`$Id: compat_check.m4,v 1.4 2002/02/26 22:15:31 gshapiro Exp $')
14divert(-1)
15ifdef(`_ACCESS_TABLE_', `',
16`errprint(`FEATURE(`compat_check') requires FEATURE(`access_db')
17')')
18
19LOCAL_RULESETS
20Scheck_compat
21# look up the pair of addresses
22# (we use <@> as the separator.  Note this in the map too!)
23R< $+ > $| $+		$: $1 $| $2
24R$+ $| < $+ >		$: $1 $| $2
25R$+ $| $+		$: <$(access Compat:$1<@>$2 $:OK $)>
26R$* $| $*		$@ ok
27# act on the result,
28# it must be one of the following... anything else will be allowed..
29dnl for consistency with the other two even though discard does not take a
30dnl reply code
31R< DISCARD:$* >	$#discard $: $1 " - discarded by check_compat"
32R< DISCARD $* >	$#discard $: $1 " - discarded by check_compat"
33R< TEMP:$* >	$#error $@ TEMPFAIL $: $1 " error from check_compat. Try again later"
34R< ERROR:$* >	$#error $@ UNAVAILABLE $: $1 " error from check_compat"
35