divert(-1)
#
# Copyright (c) 2003, 2004 Victor Ustugov <victor+sendmail@corvax.kiev.ua>
# This hack is under BSD License 
# Redistributions of source code must retain the above copyright notice
#
# hacks disscussion's maillist - http://www.mta.org.ua/mailman/listinfo/sendmail-conf
#
#
# Check dial-up/dsl/cable HELO/EHLO
# Проверка dial-up/dsl/cable HELO/EHLO
#
ifdef(`_CHECK_HELO_DIALUP_REGEX_', `dnl', `dnl
dnl
divert(0)
VERSIONID(`$Id: check_helo_dialup_regex.m4,v 8.12-0.01 2004/08/20 10:22:27 corvax Exp $')dnl
divert(-1)
dnl
define(`_CHECK_HELO_DIALUP_REGEX_')dnl
dnl
ifelse(len(X`'_ARG_),`1',`
errprint(`*** ERROR: HACK(check_helo_dialup_regex) requires regex and optional error message
')')
dnl
ifdef(`_CHECK_HELO_DIALUP_',`',`
errprint(`*** ERROR: HACK(check_helo_dialup_regex) requires HACK(check_helo)
')')
dnl
')dnl
dnl
dnl
LOCAL_CONFIG
dnl
dnl
ifdef(`confCHECK_HELO_DIALUP_REGEX_NO', `
define(`confCHECK_HELO_DIALUP_REGEX_TMP', `eval(confCHECK_HELO_DIALUP_REGEX_NO + 1)')
define(`confCHECK_HELO_DIALUP_REGEX_NO', confCHECK_HELO_DIALUP_REGEX_TMP)
', `
define(`confCHECK_HELO_DIALUP_REGEX_NO', `0')
')
dnl
Kdulpat_helo_`'confCHECK_HELO_DIALUP_REGEX_NO regex -a@MATCH _ARG_
dnl
dnl
LOCAL_RULESETS
dnl
dnl
SLocal_check_dialup_helo
dnl
R $*			$: $(dulpat_helo_`'confCHECK_HELO_DIALUP_REGEX_NO $1 $: $1 $)
ifelse(len(X`'_ARG2_),`1',`
R @MATCH $*		$#error $@ 5.7.1 $: "550 Access from dsl/dial-up/cable relays denied according to the local policy"
', `
R @MATCH $*		$#error $@ 5.7.1 $: "_ARG2_"
')
dnl