Add oft listmod stuff

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@98 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede

1 files changed, 21 insertions, 0 deletions

diff --git a/spamassassin/oftc-listmod-process-outbox b/spamassassin/oftc-listmod-process-outbox
new file mode 100755
index 0000000..032c88b
--- /dev/null
+++ b/spamassassin/oftc-listmod-process-outbox
@@ -0,0 +1,21 @@
+#!/usr/bin/ruby
+
+OUTBOX="mail/outbox"
+
+def check_maildir(d)
+	throw "#{d} is not a maildir" unless FileTest.directory?(d)
+	throw "#{d} is not a maildir" unless FileTest.directory?(d+"/new")
+	throw "#{d} is not a maildir" unless FileTest.directory?(d+"/cur")
+	throw "#{d} is not a maildir" unless FileTest.directory?(d+"/tmp")
+	true
+end
+
+check_maildir OUTBOX
+
+Dir[OUTBOX+"/new/*"].each do |filename|
+	if system("/usr/sbin/sendmail -t -oi < #{filename}")
+		File.unlink(filename)
+	else
+		STDERR.puts "Mailing of #{filename} failed."
+	end
+end