#!/bin/sh

SPAMASSASSIN_BASE_DIR=/usr/local/debug/mail/spamassassin

[ -f ${SPAMASSASSIN_BASE_DIR}/rc.conf.sa.default ] && . ${SPAMASSASSIN_BASE_DIR}/rc.conf.sa.default
[ -f ${SPAMASSASSIN_BASE_DIR}/rc.conf.sa ] && . ${SPAMASSASSIN_BASE_DIR}/rc.conf.sa

FILE=$1
if [ -z "${FILE}" ]; then
	FILE=test.in
	cat > ${FILE}
	OUT=test.out
else
	if [ -z "$2" ] ; then
		OUT=${FILE}.out
	else
		OUT=$2
		if [ "${FILE}" = "${OUT}" ] ; then
			OUT2=${OUT}
			OUT=test.tmp
		fi
	fi
fi

(if [ -z "`head -n 1 ${FILE} | grep '^From '`" ] ; then cat ${FILE}; else cat ${FILE} | tail -n +2; fi ) \
	| perl -n -e 'if (1.../^\r?\n?$/) { print $_ unless (/^\r?\n?$/);}' \
	| strip_headers.pl 'X-Spam-\S+' \
	> ${OUT}

(if [ -z "`head -n 1 ${FILE} | grep '^From '`" ] ; then cat ${FILE}; else cat ${FILE} | tail -n +2; fi ) \
	| strip_headers.pl 'X-Spam-\S+' \
	| ${SPAMASASSIN_PATH} \
	| fetch_headers.pl 'X-Spam-\S+' \
	>> ${OUT}

perl -n -e 'print $_ if (/^\r?\n?$/...eof());' < ${FILE} >> ${OUT}

[ -z "${OUT2}" ] || mv ${OUT} ${OUT2}