1 files changed, 129 insertions, 0 deletions
diff --git a/src/mailman/bin/create_list.py b/src/mailman/bin/create_list.py
new file mode 100644
index 000000000..8058a7d67
--- /dev/null
+++ b/src/mailman/bin/create_list.py
@@ -0,0 +1,129 @@
+# Copyright (C) 1998-2009 by the Free Software Foundation, Inc.
+#
+# This file is part of GNU Mailman.
+#
+# GNU Mailman 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 3 of the License, or (at your option)
+# any later version.
+#
+# GNU Mailman 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
+# GNU Mailman.  If not, see <http://www.gnu.org/licenses/>.
+
+import sys
+
+from mailman import Message
+from mailman import Utils
+from mailman import i18n
+from mailman.app.lifecycle import create_list
+from mailman.config import config
+from mailman.core import errors
+from mailman.interfaces.listmanager import ListAlreadyExistsError
+from mailman.options import SingleMailingListOptions
+
+
+_ = i18n._
+
+
+
+class ScriptOptions(SingleMailingListOptions):
+    usage = _("""\
+%prog [options]
+
+Create a new mailing list.
+
+fqdn_listname is the 'fully qualified list name', basically the posting
+address of the list.  It must be a valid email address and the domain must be
+registered with Mailman.
+
+Note that listnames are forced to lowercase.""")
+
+    def add_options(self):
+        super(ScriptOptions, self).add_options()
+        self.parser.add_option(
+            '--language',
+            type='unicode', action='store',
+            help=_("""\
+Make the list's preferred language LANGUAGE, which must be a two letter
+language code."""))
+        self.parser.add_option(
+            '-o', '--owner',
+            type='unicode', action='append', default=[],
+            dest='owners', help=_("""\
+Specific a listowner email address.  If the address is not currently
+registered with Mailman, the address is registered and linked to a user.
+Mailman will send a confirmation message to the address, but it will also send
+a list creation notice to the address.  More than one owner can be
+specified."""))
+        self.parser.add_option(
+            '-q', '--quiet',
+            default=False, action='store_true',
+            help=_("""\
+Normally the administrator is notified by email (after a prompt) that their
+list has been created.  This option suppresses the prompt and
+notification."""))
+        self.parser.add_option(
+            '-a', '--automate',
+            default=False, action='store_true',
+            help=_("""\
+This option suppresses the prompt prior to administrator notification but
+still sends the notification.  It can be used to make newlist totally
+non-interactive but still send the notification, assuming at least one list
+owner is specified with the -o option.."""))
+
+    def sanity_check(self):
+        """Set up some defaults we couldn't set up earlier."""
+        if self.options.language is None:
+            self.options.language = unicode(config.mailman.default_language)
+        # Is the language known?
+        if self.options.language not in config.languages.enabled_codes:
+            self.parser.error(_('Unknown language: $opts.language'))
+        # Handle variable number of positional arguments
+        if len(self.arguments) > 0:
+            parser.error(_('Unexpected arguments'))
+
+
+
+def main():
+    options = ScriptOptions()
+    options.initialize()
+
+    # Create the mailing list, applying styles as appropriate.
+    fqdn_listname = options.options.listname
+    if fqdn_listname is None:
+        options.parser.error(_('--listname is required'))
+    try:
+        mlist = create_list(fqdn_listname, options.options.owners)
+        mlist.preferred_language = options.options.language
+    except errors.InvalidEmailAddress:
+        options.parser.error(_('Illegal list name: $fqdn_listname'))
+    except ListAlreadyExistsError:
+        options.parser.error(_('List already exists: $fqdn_listname'))
+    except errors.BadDomainSpecificationError, domain:
+        options.parser.error(_('Undefined domain: $domain'))
+
+    config.db.commit()
+
+    if not options.options.quiet:
+        d = dict(
+            listname        = mlist.fqdn_listname,
+            admin_url       = mlist.script_url('admin'),
+            listinfo_url    = mlist.script_url('listinfo'),
+            requestaddr     = mlist.request_address,
+            siteowner       = mlist.no_reply_address,
+            )
+        text = Utils.maketext('newlist.txt', d, mlist=mlist)
+        # Set the I18N language to the list's preferred language so the header
+        # will match the template language.  Stashing and restoring the old
+        # translation context is just (healthy? :) paranoia.
+        with i18n.using_language(mlist.preferred_language):
+            msg = Message.UserNotification(
+                owner_mail, mlist.no_reply_address,
+                _('Your new mailing list: $fqdn_listname'),
+                text, mlist.preferred_language)
+            msg.send(mlist)