Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
SUSE:SLE-12-SP1:GA
mailman.10473
mailman-2.1.2-list_lists.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File mailman-2.1.2-list_lists.patch of Package mailman.10473
Index: bin/list_lists =================================================================== --- bin/list_lists.orig 2014-02-14 18:29:12.303052735 +0100 +++ bin/list_lists 2014-02-14 19:38:37.557981060 +0100 @@ -37,6 +37,13 @@ -b / --bare Displays only the list name, with no description. + -r / --private-archives + Displays only those lists with private archives. + + -u / --public-archives + Displays only those lists with public archives. + (compatibility spelling for -p / --public-archive) + -h / --help Print this text and exit. @@ -68,8 +75,10 @@ def main(): try: - opts, args = getopt.getopt(sys.argv[1:], 'apbV:h', + opts, args = getopt.getopt(sys.argv[1:], 'apbruV:h', ['advertised', 'public-archive', 'bare', + 'private-archives', + 'public-archives', 'virtual-host-overview=', 'help']) except getopt.error, msg: @@ -79,17 +88,20 @@ public = 0 vhost = None bare = 0 + private_archives = 0 for opt, arg in opts: if opt in ('-h', '--help'): usage(0) elif opt in ('-a', '--advertised'): advertised = 1 - elif opt in ('-p', '--public-archive'): + elif opt in ('-p', '--public-archive', '-u', '--public-archives'): public = 1 elif opt in ('-V', '--virtual-host-overview'): vhost = arg elif opt in ('-b', '--bare'): bare = 1 + elif opt in ('-r', '--private-archives'): + private_archives = 1 names = Utils.list_names() names.sort() @@ -102,6 +114,8 @@ continue if public and mlist.archive_private: continue + if private_archives and not 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:
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor