harvey/mail/lib/isspam.rc

#!/bin/rc

if (~ $#USER 0)
	USER=$user
cd /mail/box/$USER
rfork en

TMP=/tmp/spam.$sysname.$pid
sed '/^$/,$ s/^From / From /' >$TMP.msg
upas/fs -f $TMP.msg
{
	echo '# hash table'
	upas/msgcat $TMP.msg | upas/msgtok |
		grep -v '^....................(.*)	' |
		sed 's/$/	1/'
	} >$TMP.tok

x=`{upas/bayes -k _prof.mbox _prof.spam ~ $TMP.tok}
#echo xx $x xx >>/tmp/spam
#ls -l _prof.mbox _prof.spam  $TMP.tok>>/tmp/spam
where=$x(1)
prob=$x(2)
echo $where $prob
*=($x)
shift 2
while(! ~ $#* 0){
	echo '	' $1 $2
	shift 2
}
rm -f $TMP.tok $TMP.msg
if (~ $where *spam*){
	exit ''
}
if not {
	exit 'is ok'
}