From d15bbedb2c836624c7790289de075140865e7db8 Mon Sep 17 00:00:00 2001
From: cotton
Date: Thu, 5 Nov 1998 11:15:52 +0000
Subject: Makefile.in: added arch script to integrate an mbox bin/arch: script
 to integrate an mbox intove html archives. I'm hoping to extend the
 functionality of this script one day, hence the general name. scott

---
 bin/Makefile.in |  3 ++-
 bin/arch        | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+), 1 deletion(-)
 create mode 100644 bin/arch

(limited to 'bin')

diff --git a/bin/Makefile.in b/bin/Makefile.in
index dcbcf994d..b366c40fc 100644
--- a/bin/Makefile.in
+++ b/bin/Makefile.in
@@ -44,7 +44,8 @@ SCRIPTSDIR= 	$(prefix)/bin
 SHELL=		/bin/sh
 
 SCRIPTS=	convert_list digest_arch mmsitepass newlist \
-populate_new_list rmlist subscribe_enmasse update_to_10b6.py
+populate_new_list rmlist subscribe_enmasse update_to_10b6.py \
+arch
 
 # Modes for directories and executables created by the install
 # process.  Default to group-writable directories but
diff --git a/bin/arch b/bin/arch
new file mode 100644
index 000000000..9edf107ca
--- /dev/null
+++ b/bin/arch
@@ -0,0 +1,52 @@
+#! /usr/bin/env python
+# Copyright (C) 1998 by the Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software 
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+import sys
+import os
+
+import paths
+from Mailman.MailList import MailList
+from Mailman.Archiver.HyperArch import HyperArchive, Article
+from Mailman.Errors import *
+
+try:
+    listname, mbox = sys.argv[1:]
+except IndexError:
+    print "usage: arch <listname> <mbox>"
+    sys.exit(0)
+
+
+try:
+    list = MailList(listname)
+except MMUnknownListError:
+    print "no such list:", listname
+    sys.exit(1)
+try:
+    f = open(mbox)
+except IOError, rest:
+    print "error opening %s: %s" % (mbox, str(rest))
+    sys.exit(1)
+
+archiver = HyperArchive(list)
+archiver.VERBOSE = 1
+archiver.processUnixMailbox(f, Article)
+archiver.close()
+f.close()
+
+    
+
+
-- 
cgit v1.2.3-70-g09d2