# junkfilter
# a junk e-mail filter system for procmail
# Copyright 1997-98, Gregory Sutter <gsutter@pobox.com>
#
# $Id: junkfilter.bodychk,v 1.5 1998/08/24 00:10:47 gsutter Exp $
#
# Please read the file "junkfilter.readme" and the page
# http://www.pobox.com/~gsutter/junkfilter/ before using
# junkfilter.  junkfilter is copyright 1997-98 Gregory
# Sutter and is licensed under the terms of the GNU
# General Public License, version 2.  See the file
# junkfilter.readme for details.

# Is there a listed phrase in the body of the message?

JFSEC="bodychk"

JFBODYCHK=(`cat $JFDIR/jf-bodychk`)

:0HB
* $ ${JFBODYCHK:-$JFNOMATCH}
* < 60000
{
	:0B
	* $ ()\/($JFBODYCHK)
	{ JFMATCH="$JFSEC: $MATCH" INCLUDERC=$JFDIR/junkfilter.match }
}

:0
* $ $JF_BODYCHK_USER^0
{

	JFUSERBODYCHK=(`cat $JF_BODYCHK_USER_LOC`)

	:0HB
	* $ ${JFUSERBODYCHK:-$JFNOMATCH}
	* < 60000
	{
		:0B
		* $ ()\/($JFUSERBODYCHK)
		{ JFMATCH="${JFSEC}-User: $MATCH" INCLUDERC=$JFDIR/junkfilter.match }
	}

	JFUSERBODYCHK

}

JFBODYCHK
JFSEC

# EOF junkfilter.bodychk