1 files changed, 0 insertions, 400 deletions

diff --git a/mailman/Cgi/create.py b/mailman/Cgi/create.py
deleted file mode 100644
index 3caf9fcc0..000000000
--- a/mailman/Cgi/create.py
+++ /dev/null
@@ -1,400 +0,0 @@
-# Copyright (C) 2001-2008 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/>.
-
-"""Create mailing lists through the web."""
-
-import cgi
-import sha
-import sys
-import logging
-
-from Mailman import Errors
-from Mailman import MailList
-from Mailman import Message
-from Mailman import i18n
-from Mailman import passwords
-from Mailman.configuration import config
-from Mailman.htmlformat import *
-
-# Set up i18n
-_ = i18n._
-i18n.set_language(config.DEFAULT_SERVER_LANGUAGE)
-__i18n_templates__ = True
-
-log = logging.getLogger('mailman.error')
-
-
-
-def main():
-    doc = Document()
-    doc.set_language(config.DEFAULT_SERVER_LANGUAGE)
-
-    cgidata = cgi.FieldStorage()
-    parts = Utils.GetPathPieces()
-    if parts:
-        # Bad URL specification
-        title = _('Bad URL specification')
-        doc.SetTitle(title)
-        doc.AddItem(
-            Header(3, Bold(FontAttr(title, color='#ff0000', size='+2'))))
-        log.error('Bad URL specification: %s', parts)
-    elif cgidata.has_key('doit'):
-        # We must be processing the list creation request
-        process_request(doc, cgidata)
-    elif cgidata.has_key('clear'):
-        request_creation(doc)
-    else:
-        # Put up the list creation request form
-        request_creation(doc)
-    doc.AddItem('<hr>')
-    # Always add the footer and print the document
-    doc.AddItem(_('Return to the ') +
-                Link(Utils.ScriptURL('listinfo'),
-                     _('general list overview')).Format())
-    doc.AddItem(_('<br>Return to the ') +
-                Link(Utils.ScriptURL('admin'),
-                     _('administrative list overview')).Format())
-    doc.AddItem(MailmanLogo())
-    print doc.Format()
-
-
-
-def process_request(doc, cgidata):
-    # Lowercase the listname since this is treated as the 'internal' name.
-    listname = cgidata.getvalue('listname', '').strip().lower()
-    owner    = cgidata.getvalue('owner', '').strip()
-    try:
-        autogen = bool(int(cgidata.getvalue('autogen', '0')))
-    except ValueError:
-        autogen = False
-    try:
-        notify = bool(int(cgidata.getvalue('notify', '0')))
-    except ValueError:
-        notify = False
-    try:
-        moderate = bool(int(cgidata.getvalue('moderate',
-                        config.DEFAULT_DEFAULT_MEMBER_MODERATION)))
-    except ValueError:
-        moderate = config.DEFAULT_DEFAULT_MEMBER_MODERATION
-
-    password = cgidata.getvalue('password', '').strip()
-    confirm  = cgidata.getvalue('confirm', '').strip()
-    auth     = cgidata.getvalue('auth', '').strip()
-    langs    = cgidata.getvalue('langs', [config.DEFAULT_SERVER_LANGUAGE])
-
-    if not isinstance(langs, list):
-        langs = [langs]
-    # Sanity checks
-    safelistname = Utils.websafe(listname)
-    if '@' in listname:
-        request_creation(doc, cgidata,
-                         _('List name must not include "@": $safelistname'))
-        return
-    if not listname:
-        request_creation(doc, cgidata,
-                         _('You forgot to enter the list name'))
-        return
-    if not owner:
-        request_creation(doc, cgidata,
-                         _('You forgot to specify the list owner'))
-        return
-    if autogen:
-        if password or confirm:
-            request_creation(
-                doc, cgidata,
-                _("""Leave the initial password (and confirmation) fields
-                blank if you want Mailman to autogenerate the list
-                passwords."""))
-            return
-        password = confirm = Utils.MakeRandomPassword(
-            config.ADMIN_PASSWORD_LENGTH)
-    else:
-        if password <> confirm:
-            request_creation(doc, cgidata,
-                             _('Initial list passwords do not match'))
-            return
-        if not password:
-            request_creation(
-                doc, cgidata,
-                # The little <!-- ignore --> tag is used so that this string
-                # differs from the one in bin/newlist.  The former is destined
-                # for the web while the latter is destined for email, so they
-                # must be different entries in the message catalog.
-                _('The list password cannot be empty<!-- ignore -->'))
-            return
-    # The authorization password must be non-empty, and it must match either
-    # the list creation password or the site admin password
-    ok = False
-    if auth:
-        ok = Utils.check_global_password(auth, False)
-        if not ok:
-            ok = Utils.check_global_password(auth)
-    if not ok:
-        request_creation(
-            doc, cgidata,
-            _('You are not authorized to create new mailing lists'))
-        return
-    # Make sure the url host name matches one of our virtual domains.  Then
-    # calculate the list's posting address.
-    url_host = Utils.get_request_domain()
-    # Find the IDomain matching this url_host if there is one.
-    for email_host, domain in config.domains:
-        if domain.url_host == url_host:
-            email_host = domain.email_host
-            break
-    else:
-        safehostname = Utils.websafe(url_host)
-        request_creation(doc, cgidata,
-                         _('Unknown virtual host: $safehostname'))
-        return
-    fqdn_listname = '%s@%s' % (listname, email_host)
-    # We've got all the data we need, so go ahead and try to create the list
-    mlist = MailList.MailList()
-    try:
-        scheme = passwords.lookup_scheme(config.PASSWORD_SCHEME.lower())
-        pw = passwords.make_secret(password, scheme)
-        try:
-            mlist.Create(fqdn_listname, owner, pw, langs)
-        except Errors.EmailAddressError, s:
-            request_creation(doc, cgidata, _('Bad owner email address: $s'))
-            return
-        except Errors.MMListAlreadyExistsError:
-            safelistname = Utils.websafe(listname)
-            request_creation(doc, cgidata,
-                             _('List already exists: $safelistname'))
-            return
-        except Errors.InvalidEmailAddress, s:
-            request_creation(doc, cgidata, _('Illegal list name: $s'))
-            return
-        except Errors.MMListError:
-            request_creation(
-                doc, cgidata,
-                _("""Some unknown error occurred while creating the list.
-                Please contact the site administrator for assistance."""))
-            return
-        # Initialize the host_name and web_page_url attributes, based on
-        # virtual hosting settings and the request environment variables.
-        mlist.default_member_moderation = moderate
-        mlist.Save()
-    finally:
-        mlist.Unlock()
-    # Now do the MTA-specific list creation tasks
-    if config.MTA:
-        modname = 'Mailman.MTA.' + config.MTA
-        __import__(modname)
-        sys.modules[modname].create(mlist, cgi=True)
-    # And send the notice to the list owner.
-    if notify:
-        text = Utils.maketext(
-            'newlist.txt',
-            {'listname'    : listname,
-             'password'    : password,
-             'admin_url'   : mlist.GetScriptURL('admin', absolute=True),
-             'listinfo_url': mlist.GetScriptURL('listinfo', absolute=True),
-             'requestaddr' : mlist.GetRequestEmail(),
-             'siteowner'   : mlist.no_reply_address,
-             }, mlist=mlist)
-        msg = Message.UserNotification(
-            owner, mlist.no_reply_address,
-            _('Your new mailing list: $listname'),
-            text, mlist.preferred_language)
-        msg.send(mlist)
-    # Success!
-    listinfo_url = mlist.GetScriptURL('listinfo')
-    admin_url = mlist.GetScriptURL('admin')
-    create_url = Utils.ScriptURL('create')
-
-    title = _('Mailing list creation results')
-    doc.SetTitle(title)
-    table = Table(border=0, width='100%')
-    table.AddRow([Center(Bold(FontAttr(title, size='+1')))])
-    table.AddCellInfo(table.GetCurrentRowIndex(), 0,
-                      bgcolor=config.WEB_HEADER_COLOR)
-    table.AddRow([_("""You have successfully created the mailing list
-    <b>$listname</b> and notification has been sent to the list owner
-    <b>$owner</b>.  You can now:""")])
-    ullist = UnorderedList()
-    ullist.AddItem(Link(listinfo_url, _("Visit the list's info page")))
-    ullist.AddItem(Link(admin_url, _("Visit the list's admin page")))
-    ullist.AddItem(Link(create_url, _('Create another list')))
-    table.AddRow([ullist])
-    doc.AddItem(table)
-
-
-
-# Because the cgi module blows
-class Dummy:
-    def getvalue(self, name, default):
-        return default
-dummy = Dummy()
-
-
-
-def request_creation(doc, cgidata=dummy, errmsg=None):
-    # What virtual domain are we using?
-    hostname = Utils.get_request_domain()
-    # Set up the document
-    title = _('Create a $hostname Mailing List')
-    doc.SetTitle(title)
-    table = Table(border=0, width='100%')
-    table.AddRow([Center(Bold(FontAttr(title, size='+1')))])
-    table.AddCellInfo(table.GetCurrentRowIndex(), 0,
-                      bgcolor=config.WEB_HEADER_COLOR)
-    # Add any error message
-    if errmsg:
-        table.AddRow([Header(3, Bold(
-            FontAttr(_('Error: '), color='#ff0000', size='+2').Format() +
-            Italic(errmsg).Format()))])
-    table.AddRow([_("""You can create a new mailing list by entering the
-    relevant information into the form below.  The name of the mailing list
-    will be used as the primary address for posting messages to the list, so
-    it should be lowercased.  You will not be able to change this once the
-    list is created.
-
-    <p>You also need to enter the email address of the initial list owner.
-    Once the list is created, the list owner will be given notification, along
-    with the initial list password.  The list owner will then be able to
-    modify the password and add or remove additional list owners.
-
-    <p>If you want Mailman to automatically generate the initial list admin
-    password, click on `Yes' in the autogenerate field below, and leave the
-    initial list password fields empty.
-
-    <p>You must have the proper authorization to create new mailing lists.
-    Each site should have a <em>list creator's</em> password, which you can
-    enter in the field at the bottom.  Note that the site administrator's
-    password can also be used for authentication.
-    """)])
-    # Build the form for the necessary input
-    GREY = config.WEB_ADMINITEM_COLOR
-    form = Form(Utils.ScriptURL('create'))
-    ftable = Table(border=0, cols='2', width='100%',
-                   cellspacing=3, cellpadding=4)
-
-    ftable.AddRow([Center(Italic(_('List Identity')))])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, colspan=2)
-
-    safelistname = Utils.websafe(cgidata.getvalue('listname', ''))
-    ftable.AddRow([Label(_('Name of list:')),
-                   TextBox('listname', safelistname)])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    safeowner = Utils.websafe(cgidata.getvalue('owner', ''))
-    ftable.AddRow([Label(_('Initial list owner address:')),
-                   TextBox('owner', safeowner)])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    try:
-        autogen = bool(int(cgidata.getvalue('autogen', '0')))
-    except ValueError:
-        autogen = False
-    ftable.AddRow([Label(_('Auto-generate initial list password?')),
-                   RadioButtonArray('autogen', (_('No'), _('Yes')),
-                                    checked=autogen,
-                                    values=(0, 1))])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    safepasswd = Utils.websafe(cgidata.getvalue('password', ''))
-    ftable.AddRow([Label(_('Initial list password:')),
-                   PasswordBox('password', safepasswd)])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    safeconfirm = Utils.websafe(cgidata.getvalue('confirm', ''))
-    ftable.AddRow([Label(_('Confirm initial password:')),
-                   PasswordBox('confirm', safeconfirm)])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    try:
-        notify = bool(int(cgidata.getvalue('notify', '1')))
-    except ValueError:
-        notify = True
-    try:
-        moderate = bool(int(cgidata.getvalue('moderate',
-                        config.DEFAULT_DEFAULT_MEMBER_MODERATION)))
-    except ValueError:
-        moderate = config.DEFAULT_DEFAULT_MEMBER_MODERATION
-
-    ftable.AddRow([Center(Italic(_('List Characteristics')))])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, colspan=2)
-
-    ftable.AddRow([
-        Label(_("""Should new members be quarantined before they
-    are allowed to post unmoderated to this list?  Answer <em>Yes</em> to hold
-    new member postings for moderator approval by default.""")),
-        RadioButtonArray('moderate', (_('No'), _('Yes')),
-                         checked=moderate,
-                         values=(0,1))])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-    # Create the table of initially supported languages, sorted on the long
-    # name of the language.
-    revmap = {}
-    for key, (name, charset) in config.LC_DESCRIPTIONS.items():
-        revmap[_(name)] = key
-    langnames = revmap.keys()
-    langnames.sort()
-    langs = []
-    for name in langnames:
-        langs.append(revmap[name])
-    try:
-        langi = langs.index(config.DEFAULT_SERVER_LANGUAGE)
-    except ValueError:
-        # Someone must have deleted the servers's preferred language.  Could
-        # be other trouble lurking!
-        langi = 0
-    # BAW: we should preserve the list of checked languages across form
-    # invocations.
-    checked = [0] * len(langs)
-    checked[langi] = 1
-    deflang = _(
-        config.languages.get_description(config.DEFAULT_SERVER_LANGUAGE))
-    ftable.AddRow([Label(_(
-        """Initial list of supported languages.  <p>Note that if you do not
-        select at least one initial language, the list will use the server
-        default language of $deflang""")),
-                   CheckBoxArray('langs',
-                                 [_(config.languges.get_description(code))
-                                  for code in langs],
-                                 checked=checked,
-                                 values=langs)])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    ftable.AddRow([Label(_('Send "list created" email to list owner?')),
-                   RadioButtonArray('notify', (_('No'), _('Yes')),
-                                    checked=notify,
-                                    values=(0, 1))])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    ftable.AddRow(['<hr>'])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, colspan=2)
-    ftable.AddRow([Label(_("List creator's (authentication) password:")),
-                   PasswordBox('auth')])
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 0, bgcolor=GREY)
-    ftable.AddCellInfo(ftable.GetCurrentRowIndex(), 1, bgcolor=GREY)
-
-    ftable.AddRow([Center(SubmitButton('doit', _('Create List'))),
-                   Center(SubmitButton('clear', _('Clear Form')))])
-    form.AddItem(ftable)
-    table.AddRow([form])
-    doc.AddItem(table)