# SmartList rc file
# Automatically send a message to submitters of mails that are to large.
# Allow submissions from maintainer and moderators to be of any size.
#
# Author: Hans-Albert Schneider
# Copyright (C) Siemens AG (Dept. CT SE 4), 2001

:0
* ! < $size_limit
{
    # It is too large.  Is it from "authorized personell"?
    # If not, tell sender and maintainer.
    :0 h c
    * $${maintainer:+ -200^0 ^(Resent-)?From[: ](.*\<)?$\maintainer\>}
    * $${moderator_PASSWORD:+ -200^0 ^Approved:.*$moderator_PASSWORD}
    * 1^0
    | ../.bin/toolarge

    # It *is* authorized.  
    :0 E
    {
	# We increase the size_limit, so rc.submit does like it.
	wc = `wc -c`
	size_limit = `expr $wc + 10`

	# Have SmartList remove the Approved: header later on, if
	# any.  Note that the list might really be moderated, so
	# we may not simply remove the header.

	:0 A
	* ^Approved:
	{
	    moderated_flag=yes
	}
    }
}