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 header X-Mailer
# Проверка поля X-Mailer
#
divert(0)
VERSIONID(`$Id: check_mailer.m4,v 8.12-0.03 2004/07/23 15:02:44 corvax Exp $')dnl
divert(-1)
dnl
dnl
LOCAL_CONFIG
dnl
dnl
D{BadMailer}MUA field rejected
dnl
dnl
LOCAL_RULESETS
dnl
dnl

SLocal_check_mail
# Clear the macro for the next message
R $*				$: $(macro {Header_X_Mailer} $) $1
R $*				$: $(macro {Header_X_MSMail_Priority} $) $1

######################################################################
#                          X-Mailer field check                      #
######################################################################
dnl
HX-Mailer: $>+Check_X_Mailer
HX-Server: $>+Check_X_Mailer
HX-mail-agent: $>+Check_X_Mailer
HX-Newsreader: $>+Check_X_Mailer
HUser-Agent: $>+Check_X_Mailer
dnl
SCheck_X_Mailer
dnl
# skip checks for authentificated senders
R $*				$: < $&{auth_type} > $1
R < $+ > $*			$@ OK
R < $* > $*			$: $2

# MUAs that won't be allowed
R WinAntiSPAM $*			$#error $@ 5.7.1 $: 554 WinAntiSpam junk rejected
R WAS $*				$#error $@ 5.7.1 $: 554 WinAntiSpam junk rejected
R PersMail 1.3				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Advanced Mass Sender $*		$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mail Bomber $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R LightningMail $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R MailKing $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R The Red Spider $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R $+ emsoft $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R MegaMail $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R DiffondiCool $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Easy Mail $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R MassE-Mail $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Floodgate $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Extractor $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R FastMail $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R WorldMerge $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Advanced Direct Remailer $*		$#error $@ 5.7.1 $: 554 ${BadMailer}
R $* Bomber $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mega-Mailer $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R MMailer $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mailer $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Ligra Mailer $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Dynamic Opt-In Emailer $*		$#error $@ 5.7.1 $: 554 ${BadMailer}
R $* Group Spamer			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mail Sender $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mail Service $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mailloop $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R PersMail $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R LK SendIt $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R WC Mail $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R ZUBA ZUB $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R MailList Express $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Caretop $*				$#error $@ 5.7.1 $: 554 ${BadMailer}
R Mailer Signature			$#error $@ 5.7.1 $: 554 ${BadMailer}
R none					$#error $@ 5.7.1 $: 554 ${BadMailer}
R PG-MAILINGLIST			$#error $@ 5.7.1 $: 554 ${BadMailer}
R $* advcomtest $*			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Krasnaya volna 21 vek			$#error $@ 5.7.1 $: 554 ${BadMailer}
# Real Outlook has long versions, kinda 5.0.23123244
R Microsoft Outlook Express 5.0		$#error $@ 5.7.1 $: 554 ${BadMailer}
R Outlook Express $@			$#error $@ 5.7.1 $: 554 ${BadMailer}
R Version 5.0				$#error $@ 5.7.1 $: 554 ${BadMailer}
dnl
R $*					$: $(macro {Header_X_Mailer} $@ $1 $) $1
dnl
R $*					$: < $1 >
R < >					$#error $@ 5.7.1 $: "554 Illegal header"
R < $+ >				$: $1
dnl

HX-MSMail-Priority: $>Check_X_MSMail_Priority
dnl
SCheck_X_MSMail_Priority
dnl
R $*					$: $(macro {Header_X_MSMail_Priority} $@ $1 $) $1
dnl

Scheck_eoh
# Check the macro
R $*					$: < $&{Header_X_Mailer} > < $&{Header_X_MSMail_Priority} > <$1>
dnl
R < The . Bat ! $* > <$+> <$*>		$#error $@ 5.7.1 $: 554 Your MUA looks like a fake The Bat!
R <$*> <$*> <$*>			$: $3
dnl