From 0ca5e97d456bc72df24804997d2c446878113032 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Sun, 21 May 2006 00:12:51 +0000
Subject: Move files into proper place

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@99 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede
---
 oftc-listmod-process-outbox | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 oftc-listmod-process-outbox

(limited to 'oftc-listmod-process-outbox')

diff --git a/oftc-listmod-process-outbox b/oftc-listmod-process-outbox
new file mode 100755
index 0000000..032c88b
--- /dev/null
+++ b/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
-- 
cgit v1.2.3