3 files changed, 54 insertions, 2 deletions

diff --git a/Mailman/Archiver/Archiver.py b/Mailman/Archiver/Archiver.py
index a619bc28e..b87405c63 100644
--- a/Mailman/Archiver/Archiver.py
+++ b/Mailman/Archiver/Archiver.py
@@ -1,4 +1,3 @@
-
 # Copyright (C) 1998 by the Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or
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()
+
+    
+
+