1 files changed, 153 insertions, 0 deletions

diff --git a/Mailman/bin/rmlist.py b/Mailman/bin/rmlist.py
new file mode 100755
index 000000000..fbaf30641
--- /dev/null
+++ b/Mailman/bin/rmlist.py
@@ -0,0 +1,153 @@
+#! @PYTHON@
+#
+# Copyright (C) 1998-2003 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+"""Remove the components of a mailing list with impunity - beware!
+
+This removes (almost) all traces of a mailing list.  By default, the lists
+archives are not removed, which is very handy for retiring old lists.
+
+Usage:
+    rmlist [-a] [-h] listname
+
+Where:
+    --archives
+    -a
+        Remove the list's archives too, or if the list has already been
+        deleted, remove any residual archives.
+
+    --help
+    -h
+        Print this help message and exit.
+
+"""
+
+import os
+import sys
+import getopt
+import shutil
+
+import paths
+from Mailman import mm_cfg
+from Mailman import Utils
+from Mailman import MailList
+from Mailman.i18n import _
+
+try:
+    True, False
+except NameError:
+    True = 1
+    False = 0
+
+
+
+def usage(code, msg=''):
+    if code:
+        fd = sys.stderr
+    else:
+        fd = sys.stdout
+    print >> fd, _(__doc__)
+    if msg:
+        print >> fd, msg
+    sys.exit(code)
+
+
+
+def remove_it(listname, filename, msg):
+    if os.path.islink(filename):
+        print _('Removing %(msg)s')
+        os.unlink(filename)
+    elif os.path.isdir(filename):
+        print _('Removing %(msg)s')
+        shutil.rmtree(filename)
+    elif os.path.isfile(filename):
+        os.unlink(filename)
+    else:
+        print _('%(listname)s %(msg)s not found as %(filename)s')
+
+
+
+def main():
+    try:
+        opts, args = getopt.getopt(sys.argv[1:], 'ah',
+                                   ['archives', 'help'])
+    except getopt.error, msg:
+        usage(1, msg)
+
+    if len(args) <> 1:
+        usage(1)
+    listname = args[0].lower().strip()
+
+    removeArchives = False
+    for opt, arg in opts:
+        if opt in ('-a', '--archives'):
+            removeArchives = True
+        elif opt in ('-h', '--help'):
+            usage(0)
+
+    if not Utils.list_exists(listname):
+        if not removeArchives:
+            usage(1, _('No such list (or list already deleted): %(listname)s'))
+        else:
+            print _(
+                'No such list: %(listname)s.  Removing its residual archives.')
+
+    if not removeArchives:
+        print _('Not removing archives.  Reinvoke with -a to remove them.')
+
+
+    REMOVABLES = []
+    if Utils.list_exists(listname):
+        mlist = MailList.MailList(listname, lock=0)
+
+        # Do the MTA-specific list deletion tasks
+        if mm_cfg.MTA:
+            modname = 'Mailman.MTA.' + mm_cfg.MTA
+            __import__(modname)
+            sys.modules[modname].remove(mlist)
+
+        REMOVABLES = [
+            (os.path.join('lists', listname), _('list info')),
+            ]
+
+    # Remove any stale locks associated with the list
+    for filename in os.listdir(mm_cfg.LOCK_DIR):
+        fn_listname = filename.split('.')[0]
+        if fn_listname == listname:
+            REMOVABLES.append((os.path.join(mm_cfg.LOCK_DIR, filename),
+                               _('stale lock file')))
+
+    if removeArchives:
+        REMOVABLES.extend([
+            (os.path.join('archives', 'private', listname),
+             _('private archives')),
+            (os.path.join('archives', 'private', listname + '.mbox'),
+             _('private archives')),
+            (os.path.join('archives', 'public', listname),
+             _('public archives')),
+            (os.path.join('archives', 'public', listname + '.mbox'),
+             _('public archives')),
+            ])
+
+    for dirtmpl, msg in REMOVABLES:
+        dir = os.path.join(mm_cfg.VAR_PREFIX, dirtmpl)
+        remove_it(listname, dir, msg)
+
+
+
+if __name__ == '__main__':
+    main()