plan9port

fork of plan9port with libvec, libstr and libsdb
Log | Files | Refs | README | LICENSE

isspam (535B)

      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 }