divert(-1)
#
# Check from field
#
# никаких копирайтов!
#
dnl
divert(0)
dnl
VERSIONID(`$Id: check-from.m4,v 8.12 2002/12/22 19:10:00 corvax Exp $')
dnl
divert(-1)
dnl
ifdef(`_CHECK_ADDRESSES_INIT_',,`HACK(`precheck-addresses')')
dnl
divert(0)
dnl
dnl
LOCAL_CONFIG
dnl
dnl

#
#  Names that won't be allowed in a From: field
#
ifdef(`confREJECT_FROM_LOCALPARTS', `dnl
F{RejectFromLocalparts}`'confREJECT_FROM_LOCALPARTS',
`dnl')
ifdef(`confREJECT_FROM_MAILBOXES', `dnl
F{RejectFromMailboxes}`'confREJECT_FROM_MAILBOXES',
`dnl')
ifdef(`confREJECT_FROM_DOMAIN', `dnl
F{RejectFromDomains}`'confREJECT_FROM_DOMAIN',
`dnl')
ifdef(`confREJECT_FROM', `dnl
F{RejectFrom}`'confREJECT_FROM',
`dnl')

dnl
dnl
LOCAL_RULESETS
dnl
dnl
######################################################################
#               Reject some mail based on From: header               #
######################################################################
dnl
HFrom: $>CheckFrom
dnl
SCheckFrom
dnl
R Special Offer < $+ @ $+ > $*				$#error $: 554 5.1.7 Bad sender address syntax
R Transport Forum < $+ @ $+ > $*			$#error $: 554 5.1.7 Bad sender address syntax
R Free CDSoftware <> $*					$#error $: 554 5.1.7 Bad sender address syntax
R "ASU-Impuls" $+					$#error $: 554 5.1.7 Bad sender address syntax
R "Атакующий маркетинг (tm)" $+				$#error $: 554 5.1.7 Bad sender address syntax
R ()							$#error $: 554 5.1.7 Bad sender address syntax
dnl
ifdef(`confREJECT_FROM',`dnl
R $={RejectFrom}					$#error $: 554 5.1.7 Bad sender address syntax
R $* , $={RejectFrom}					$#error $: 554 5.1.7 Bad sender address syntax
R $* , $={RejectFrom} , $*				$#error $: 554 5.1.7 Bad sender address syntax
R $={RejectFrom} , $*					$#error $: 554 5.1.7 Bad sender address syntax
R $* < $={RejectFrom} > $*				$#error $: 554 5.1.7 Bad sender address syntax
',`')dnl
ifdef(`confREJECT_FROM_DOMAIN',`dnl
R $* @ $={RejectFromDomains}				$#error $: 554 5.1.7 Bad source system address
R $* @ $={RejectFromDomains} , $*			$#error $: 554 5.1.7 Bad source system address
R $* < $* @ $={RejectFromDomains} > $*			$#error $: 554 5.1.7 Bad source system address
',`')dnl
ifdef(`confREJECT_FROM_MAILBOXES',`dnl
R $={RejectFromMailboxes} @ $*				$#error $: 554 5.1.7 Bad source mailbox address
R $* , $={RejectFromMailboxes} @ $*			$#error $: 554 5.1.7 Bad source mailbox address
R $* < $={RejectFromMailboxes} @ $* > $*		$#error $: 554 5.1.7 Bad source mailbox address
',`')dnl
ifdef(`confREJECT_FROM_LOCALPARTS',`dnl
R $={RejectFromLocalparts} < $+ @ $+ > $*		$#error $: 554 5.1.7 Bad source address localparts
R $* , $={RejectFromLocalparts} < $+ @ $+ > $*		$#error $: 554 5.1.7 Bad source address localparts
R " $={RejectFromLocalparts} " < $+ @ $+ > $*		$#error $: 554 5.1.7 Bad source address localparts
R $* , " $={RejectFromLocalparts} " < $+ @ $+ > $*	$#error $: 554 5.1.7 Bad source address localparts
',`')dnl
dnl
R $+								$: $(checkaddress $1 $)
R @MATCH						$#error $: 554 5.1.7 Bad sender's address syntax
dnl
R $+								$: <!> $1
ifdef(`confNUMERIC_DOMAINS', `dnl
R <!> $+ @ $={NumericDomains}					$: <OK> $1 @ $2
')
R <!> $+ @ $+							$: $(allnumbers     $1 $: <!> $1 @ $2 $)
R @MATCH						$#error $: 554 5.1.7 Bad sender's mailbox address syntax
R <!> $+ @ $+							$: $(allnumbersdots $1 $: <!> $1 @ $2 $)
R @MATCH						$#error $: 554 5.1.7 Bad sender's mailbox address syntax
R <OK> $+ @ $+							$: $1 @ $2
R <!> $+							$: $1
dnl
R $+								$: <!> $1
ifdef(`confNUMERIC_DOMAINS', `dnl
R <!> $* < $+ @ $={NumericDomains} > $*				$: <OK> $1 < $2 @ $3 > $4
')
R <!> $* < $+ @ $+ > $*						$: $(allnumbers     $2 $: <!> $1 < $2 @ $3 > $4 $)
R $* @MATCH $*						$#error $: 554 5.1.7 Bad sender's mailbox address syntax
R <!> $* < $+ @ $+ > $*						$: $(allnumbersdots $2 $: <!> $1 < $2 @ $3 > $4 $)
R $* @MATCH $*						$#error $: 554 5.1.7 Bad sender's mailbox address syntax
R <OK> $* < $+ @ $+ > $*					$: $1 < $2 @ $3 > $4
R <!> $+							$: $1