ref: 9a80a9916b572ba9d79ae8db34073d0b59370272
dir: /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'
}