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 relays
# Проверка dial-up/dsl/cable рилеев
#
ifdef(`_CHECK_RELAY_DIALUP_TOKEN_', `dnl', `dnl
dnl
divert(0)
VERSIONID(`$Id: check_relay_dialup_token.m4,v 8.12-0.01 2004/08/18 14:25:50 corvax Exp $')dnl
divert(-1)
dnl
define(`_CHECK_RELAY_DIALUP_TOKEN_')dnl
dnl
ifelse(len(X`'_ARG_),`1',`
errprint(`*** ERROR: HACK(check_relay_dialup_token) requires tokens and optional error message
')')
dnl
ifdef(`_CHECK_RELAY_DIALUP_',`',`
errprint(`*** ERROR: HACK(check_relay_dialup_token) requires HACK(check_relay_dialup)
')')
dnl
')dnl
dnl
dnl
LOCAL_RULESETS
dnl
dnl
SLocal_check_dialup_relay
dnl
ifelse(len(X`'_ARG2_),`1',`
R _ARG_ $| $*		$#error $@ 5.7.1 $: "550 Access from dsl/dial-up/cable relays denied according to the local policy"
', `
R _ARG_ $| $*		$#error $@ 5.7.1 $: "_ARG2_"
')
dnl