new

1 files changed, 35 insertions, 0 deletions

diff --git a/bin/upas/isspam b/bin/upas/isspam
new file mode 100755
index 00000000..03be23f7
--- /dev/null
+++ b/bin/upas/isspam
@@ -0,0 +1,35 @@
+#!/usr/local/plan9/bin/rc
+
+rfork en
+
+if (~ $#* 0)
+	echo usage: isspam mesg && exit 'usage'
+
+TMP=/tmp/isspam.$USER.$pid
+{
+	echo '# hash table'
+	msgcat $1|sed '/^$/,$ s/^From / From /'|upas/msgtok|
+		grep -v '^....................(.*)	'|
+			sed 's/$/	1/'
+} >$TMP.tok
+
+x=`{upas/bayes -k $HOME/mail/_prof.mbox $HOME/mail/_prof.spam ~ $TMP.tok}
+where=$x(1)
+prob=$x(2)
+echo $where $prob
+*=($x)
+shift 2
+while(! ~$#* 0){
+	echo ' ' $1 $2
+	shift 2
+}
+
+rm -f $TMP.tok
+if (~ $where *spam*){
+	echo spam
+	exit ''
+} 
+if not {
+	echo ok
+	exit 'is ok'
+}