Blob
1 #!/usr/local/plan9/bin/rc3 rfork en5 if (~ $#* 0)6 echo usage: isspam mesg && exit 'usage'8 TMP=/tmp/isspam.$USER.$pid9 {10 echo '# hash table'11 msgcat $1|sed '/^$/,$ s/^From / From /'|upas/msgtok|12 grep -v '^....................(.*) '|13 sed 's/$/ 1/'14 } >$TMP.tok16 x=`{upas/bayes -k $HOME/mail/_prof.mbox $HOME/mail/_prof.spam ~ $TMP.tok}17 where=$x(1)18 prob=$x(2)19 echo $where $prob20 *=($x)21 shift 222 while(! ~$#* 0){23 echo ' ' $1 $224 shift 225 }27 rm -f $TMP.tok28 if (~ $where *spam*){29 echo spam30 exit ''31 }32 if not {33 echo ok34 exit 'is ok'35 }