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 MAIL FROM field
#
# проверка MAIL FROM регулярными выражениями и проверка на наличие цифровых ящиков
#
divert(0)
VERSIONID(`$Id: check_mail_from.m4,v 8.12-0.03 2003/09/20 21:43:54 corvax Exp $')dnl
divert(-1)
dnl
dnl
LOCAL_CONFIG
dnl
dnl
HACK(`precheck_envelope')dnl
ifdef(`confCHECK_MAIL_FROM_NUMERIC_MAILBOX', `ifelse(confCHECK_MAIL_FROM_NUMERIC_MAILBOX, `YES', `dnl
HACK(`check_numeric_mailbox')dnl
')')
dnl
dnl
LOCAL_RULESETS
dnl
dnl
dnl
SLocal_check_mail
# R $*					$: $>Parse0 $>3 $1
dnl
ifdef(`confCHECK_MAIL_FROM_REGEXP', `ifelse(confCHECK_MAIL_FROM_REGEXP, `YES', `dnl
# check MAIL FROM address against various regex checks
R $+					$: $(checkaddress_canonified $1 $)
R @MATCH			$#error $: 554 rejected by Local_check_mail
')')
dnl

ifdef(`confCHECK_MAIL_FROM_NUMERIC_MAILBOX', `ifelse(confCHECK_MAIL_FROM_NUMERIC_MAILBOX, `YES', `dnl
dnl
R $+ < @ $+ > $*			$: $1 < @ $2 > $3 $| $>CheckNumericMailbox $1@$2
R $+ < @ $+ > $* $| $#error $*	$#error $: 554 5.1.7 rejected by Local_check_mail
R $+ < @ $+ > $* $| $*			$: $1 < @ $2 > $3
')')
dnl