From f1007ee0c6a2dfdc5512a1be3dada65cbc5d5391 Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Sun, 21 May 2006 18:39:29 +0000
Subject: new

---
 bin/upas/spambox | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 bin/upas/spambox

(limited to 'bin/upas/spambox')

diff --git a/bin/upas/spambox b/bin/upas/spambox
new file mode 100755
index 00000000..b34cd300
--- /dev/null
+++ b/bin/upas/spambox
@@ -0,0 +1,14 @@
+#!/usr/local/plan9/bin/rc
+
+if (~ $#* 0)
+	echo usage: spambox mailfs/mbox && exit "usage"
+box=$1
+msgs=(`{9p ls $box>[2=1]|awk '$10 ~ /[0-9][0-9]*/{print $10}'})
+if (~ $#msgs 0)
+	echo no messages in $box && exit "none"
+
+echo -n adding
+for (m in $msgs){
+	echo -n ' '$m
+	spam $box/$m
+}
-- 
cgit v1.2.3