contrib/sendmail-8.13.4/cf/feature/greet_pause.m4

   1 divert(-1)
   2 #
   3 # Copyright (c) 2004 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 #
  11
  12 divert(0)
  13 VERSIONID(`$Id: greet_pause.m4,v 1.4 2004/07/06 20:49:51 ca Exp $')
  14 divert(-1)
  15
  16 ifelse(len(X`'_ARG_),`1',`ifdef(`_ACCESS_TABLE_', `',
  17         `errprint(`*** ERROR: FEATURE(`greet_pause') requires FEATURE(`access_db')
  18 ')')')
  19
  20 define(`_GREET_PAUSE_', `')
  21
  22 LOCAL_RULESETS
  23 ######################################################################
  24 ###  greet_pause: lookup pause time before 220 greeting
  25 ###
  26 ###     Parameters:
  27 ###             $1: {client_name}
  28 ###             $2: {client_addr}
  29 ######################################################################
  30 SLocal_greet_pause
  31 Sgreet_pause
  32 R$*                     $: <$1><?> $| $>"Local_greet_pause" $1
  33 R<$*><?> $| $#$*        $#$2
  34 R<$*><?> $| $*          $: $1
  35 ifdef(`_ACCESS_TABLE_', `dnl
  36 R$+ $| $+               $: $>D < $1 > <?> <! GreetPause> < $2 >
  37 R   $| $+               $: $>A < $1 > <?> <! GreetPause> <>     empty client_name
  38 R<?> <$+>               $: $>A < $1 > <?> <! GreetPause> <>     no: another lookup
  39 ifelse(len(X`'_ARG_),`1',
  40 `R<?> <$*>              $@',
  41 `R<?> <$*>              $# _ARG_')
  42 R<$* <TMPF>> <$*>       $@
  43 R<$+> <$*>              $# $1',`dnl
  44 R$*                     $# _ARG_')