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