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 Date field format
#
# проверка формата даты
#
dnl #
dnl # use define(`confCHECK_DATE_SKIP_MFC') for enable fucking MFC date format
dnl #
dnl # RFC date format:
dnl # Tue, 22 Oct 2002 16:31:30 +0300
dnl #
dnl # MFC date format:
dnl # Mon, 31 Mar 03 10:51:16 Russian Daylight Time
dnl # Tue, 22 Oct 02 17:31:26 Russian Standard Time
dnl # Tue, 22 Oct 02 17:31:26 GTB Standard Time
dnl # Mon, 31 Mar 03 10:51:16 GTB Daylight Time
dnl #
divert(0)
VERSIONID(`$Id: check_date.m4,v 8.12-0.03 2003/09/20 22:22:27 corvax Exp $')dnl
divert(-1)
dnl
dnl
LOCAL_CONFIG
dnl
dnl
D{Msg_date}"554 Bogus date format"
dnl
dnl
LOCAL_RULESETS
dnl
dnl
HDate: $>Check_Date
dnl
SCheck_Date
dnl
R $*			$: <?> $1

# skip checks for authentificated senders
R <?> $*		$: <?> < $&{auth_type} > $1
R <?> < $+ > $*		$: <$1> $2
R <?> < $* > $*		$: <?> $2

ifdef(`confCHECK_DATE_SKIP_MFC', `ifelse(confCHECK_DATE_SKIP_MFC, `YES', `dnl
# for enable fucking MFC date format
R <?> $*						$: <?> $1 $| $1
R <?> $+ $| $+ $- $- $-:$-:$- Russian Daylight Time	$: <SKIP> $1
R <?> $+ $| $+ $- $- $-:$-:$- Russian Standard Time	$: <SKIP> $1
R <?> $+ $| $+ $- $- $-:$-:$- GTB Standard Time		$: <SKIP> $1
R <?> $+ $| $+ $- $- $-:$-:$- GTB Daylight Time		$: <SKIP> $1
R <?> $* $| $*						$: <?> $1
')')
R <?> $+ Standard Time		$#error $@ 5.7.1 $: ${Msg_date}
R <?> $+ Daylight Time		$#error $@ 5.7.1 $: ${Msg_date}
R <?> $+ AM			$#error $@ 5.7.1 $: ${Msg_date}
R <?> $+ PM			$#error $@ 5.7.1 $: ${Msg_date}
R <?> $- . $- . $- $- : $- : $-	$#error $@ 5.7.1 $: ${Msg_date}
R <?> $* $- : $- : $-		$#error $@ 5.7.1 $: ${Msg_date}
R <?> $+ -1600			$#error $@ 5.7.1 $: "554 Invalid timezone"
R <?> $+ -1900			$#error $@ 5.7.1 $: "554 Invalid timezone"
dnl
R <?> $*		$: $1
dnl