From 889b0a0f9b93ac56f8c2874e7a0d13cd1f837c39 Mon Sep 17 00:00:00 2001
From: Mark Sapiro <msapiro@value.net>
Date: Sat, 24 Nov 2012 11:15:54 -0800
Subject: list_lists now has an option to list only lists with public archives.
 (LP: 1082711)

---
 NEWS           |  3 +++
 bin/list_lists | 12 ++++++++++--
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/NEWS b/NEWS
index f5b58ebc..6ceeb17b 100644
--- a/NEWS
+++ b/NEWS
@@ -18,6 +18,9 @@ Here is a history of user visible changes to Mailman.
     - The name of the mailmanctl master lock file is now congigurable via the
       mm_cfg.py setting MASTER_LOCK_FILE.  (LP: 1082308)
 
+    - list_lists now has an option to list only lists with public archives.
+      (LP: 1082711)
+
   i18n
 
     - German message catalog has been updated per Ralf Hildebrandt.
diff --git a/bin/list_lists b/bin/list_lists
index 870759b9..3ab71fbf 100644
--- a/bin/list_lists
+++ b/bin/list_lists
@@ -25,6 +25,9 @@ Where:
     -a / --advertised
         List only those mailing lists that are publically advertised
 
+    -p / --public-archive
+        List only those lists with public archives.
+
     --virtual-host-overview=domain
     -V domain
         List only those mailing lists that are homed to the given virtual
@@ -65,14 +68,15 @@ def usage(code, msg=''):
 
 def main():
     try:
-        opts, args = getopt.getopt(sys.argv[1:], 'abV:h',
-                                   ['advertised', 'bare',
+        opts, args = getopt.getopt(sys.argv[1:], 'apbV:h',
+                                   ['advertised', 'public-archive', 'bare',
                                     'virtual-host-overview=',
                                     'help'])
     except getopt.error, msg:
         usage(1, msg)
 
     advertised = 0
+    public = 0
     vhost = None
     bare = 0
     for opt, arg in opts:
@@ -80,6 +84,8 @@ def main():
             usage(0)
         elif opt in ('-a', '--advertised'):
             advertised = 1
+        elif opt in ('-p', '--public-archive'):
+            public = 1
         elif opt in ('-V', '--virtual-host-overview'):
             vhost = arg
         elif opt in ('-b', '--bare'):
@@ -94,6 +100,8 @@ def main():
         mlist = MailList.MailList(n, lock=0)
         if advertised and not mlist.advertised:
             continue
+        if public and mlist.archive_private:
+            continue
         if vhost and mm_cfg.VIRTUAL_HOST_OVERVIEW and \
                vhost.find(mlist.web_page_url) == -1 and \
                mlist.web_page_url.find(vhost) == -1:
-- 
cgit v1.2.3