37 lines
600 B
Bash
Executable File
37 lines
600 B
Bash
Executable File
#!/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'
|
|
}
|