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: spam mesg && exit 1
 7 f1007ee0 2006-05-21 devnull 
 8 f1007ee0 2006-05-21 devnull TMP=/tmp/spam.$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 cd $home/mail
17 f1007ee0 2006-05-21 devnull upas/addhash -o _prof.mbox _prof.mbox 1 $TMP.tok -1
18 f1007ee0 2006-05-21 devnull upas/addhash -o _prof.spam _prof.spam 1 $TMP.tok 1
19 f1007ee0 2006-05-21 devnull rm -f $TMP.*