1 #!/usr/local/plan9/bin/rc
2 
3 rfork en
4 
5 if (~ $#* 0)
6 	echo usage: isspam mesg && exit 'usage'
7 
8 TMP=/tmp/isspam.$USER.$pid
9 {
10 	echo '# hash table'
11 	msgcat $1|sed '/^$/,$ s/^From / From /'|upas/msgtok|
12 		grep -v '^....................(.*)	'|
13 			sed 's/$/	1/'
14 } >$TMP.tok
15 
16 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 $prob
20 *=($x)
21 shift 2
22 while(! ~$#* 0){
23 	echo ' ' $1 $2
24 	shift 2
25 }
26 
27 rm -f $TMP.tok
28 if (~ $where *spam*){
29 	echo spam
30 	exit ''
31 } 
32 if not {
33 	echo ok
34 	exit 'is ok'
35 }