usr/src/cmd/sendmail/cf/feature/compat_check.m4

   1 divert(-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 #
  12 divert(0)
  13 VERSIONID(`$Id: compat_check.m4,v 1.4 2002/02/26 22:15:31 gshapiro Exp $')
  14 divert(-1)
  15 ifdef(`_ACCESS_TABLE_', `',
  16 `errprint(`FEATURE(`compat_check') requires FEATURE(`access_db')
  17 ')')
  18
  19 LOCAL_RULESETS
  20 Scheck_compat
  21 # look up the pair of addresses
  22 # (we use <@> as the separator.  Note this in the map too!)
  23 R< $+ > $| $+           $: $1 $| $2
  24 R$+ $| < $+ >           $: $1 $| $2
  25 R$+ $| $+               $: <$(access Compat:$1<@>$2 $:OK $)>
  26 R$* $| $*               $@ ok
  27 # act on the result,
  28 # it must be one of the following... anything else will be allowed..
  29 dnl for consistency with the other two even though discard does not take a
  30 dnl reply code
  31 R< DISCARD:$* > $#discard $: $1 " - discarded by check_compat"
  32 R< DISCARD $* > $#discard $: $1 " - discarded by check_compat"
  33 R< TEMP:$* >    $#error $@ TEMPFAIL $: $1 " error from check_compat. Try again later"
  34 R< ERROR:$* >   $#error $@ UNAVAILABLE $: $1 " error from check_compat"