Merge lp:~stylistica/systers/adminUI into lp:~systers-dev/systers/development

[Sneha Priscilla]

Added admin UI for essays, essay questions and full name .

Made changes to one file from Mailman : ../Mailman/Gui/General.py and added it.
 Changed lines 383-401

[Robin J (robin-jeffries)]

Looks good

review: Approve

[Anna SdG (anna-granudd)]

I agree with Robin but maybe you could add a "." at the end of each sentence of the description text (to match the other fields on the page)? Sorry for being picky... Thanks.

[Sneha Priscilla (stylistica)]

That's alright :) I had totally missed that !

On Fri, Jul 6, 2012 at 12:40 AM, Anna SdG <email address hidden> wrote:
> I agree with Robin but maybe you could add a "." at the end of each sentence of the description text (to match the other fields on the page)? Sorry for being picky... Thanks.
> --
> https://code.launchpad.net/~stylistica/systers/adminUI/+merge/113416
> You are the owner of lp:~stylistica/systers/adminUI.

[Anna SdG (anna-granudd)]

Thanks for adding the dots. :)

review: Approve

[Nicki Hutchens (nhutchen)]

Thanks for explaining the changes. It looks good.

review: Approve

=== added directory 'Mailman/Gui'
=== added file 'Mailman/Gui/General.py'
--- Mailman/Gui/General.py	1970-01-01 00:00:00 +0000
+++ Mailman/Gui/General.py	2012-07-13 15:35:28 +0000
@@ -0,0 +1,501 @@
+# Copyright (C) 2001-2007 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.
+
+"""MailList mixin class managing the general options."""
+
+import re
+
+from types import IntType
+
+from Mailman import mm_cfg
+from Mailman import Utils
+from Mailman import Errors
+#from Mailman import MailList   #sneha
+#from Mailman.DlistUserDesc import DlistUserDesc
+from Mailman.i18n import _
+from Mailman.Gui.GUIBase import GUIBase
+
+OPTIONS = ('hide', 'ack', 'notmetoo', 'nodupes')
+
+
+
 
+class General(GUIBase):
+    def GetConfigCategory(self):
+        return 'general', _('General Options')
+
+    def GetConfigInfo(self, mlist, category, subcat):
+        if category <> 'general':
+            return None
+        WIDTH = mm_cfg.TEXTFIELDWIDTH
+
+        # These are for the default_options checkboxes below.
+        bitfields = {'hide'     : mm_cfg.ConcealSubscription,
+                     'ack'      : mm_cfg.AcknowledgePosts,
+                     'notmetoo' : mm_cfg.DontReceiveOwnPosts,
+                     'nodupes'  : mm_cfg.DontReceiveDuplicates
+                     }
+        bitdescrs = {
+            'hide'     : _("Conceal the member's address"),
+            'ack'      : _("Acknowledge the member's posting"),
+            'notmetoo' : _("Do not send a copy of a member's own post"),
+            'nodupes'  :
+            _('Filter out duplicate messages to list members (if possible)'),
+            }
+
+        optvals = [mlist.new_member_options & bitfields[o] for o in OPTIONS]
+        opttext = [bitdescrs[o] for o in OPTIONS]
+
+        rtn = [
+            _('''Fundamental list characteristics, including descriptive
+            info and basic behaviors.'''),
+
+            _('General list personality'),
+
+            ('real_name', mm_cfg.String, WIDTH, 0,
+             _('The public name of this list (make case-changes only).'),
+             _('''The capitalization of this name can be changed to make it
+             presentable in polite company as a proper noun, or to make an
+             acronym part all upper case, etc.  However, the name will be
+             advertised as the email address (e.g., in subscribe confirmation
+             notices), so it should <em>not</em> be otherwise altered.  (Email
+             addresses are not case sensitive, but they are sensitive to
+             almost everything else :-)''')),
+
+            ('owner', mm_cfg.EmailList, (3, WIDTH), 0,
+             _("""The list administrator email addresses.  Multiple
+             administrator addresses, each on separate line is okay."""),
+
+             _('''There are two ownership roles associated with each mailing
+             list.  The <em>list administrators</em> are the people who have
+             ultimate control over all parameters of this mailing list.  They
+             are able to change any list configuration variable available
+             through these administration web pages.
+
+             <p>The <em>list moderators</em> have more limited permissions;
+             they are not able to change any list configuration variable, but
+             they are allowed to tend to pending administration requests,
+             including approving or rejecting held subscription requests, and
+             disposing of held postings.  Of course, the <em>list
+             administrators</em> can also tend to pending requests.
+
+             <p>In order to split the list ownership duties into
+             administrators and moderators, you must
+             <a href="passwords">set a separate moderator password</a>,
+             and also provide the <a href="?VARHELP=general/moderator">email
+             addresses of the list moderators</a>.  Note that the field you
+             are changing here specifies the list administrators.''')),
+
+            ('moderator', mm_cfg.EmailList, (3, WIDTH), 0,
+             _("""The list moderator email addresses.  Multiple
+             moderator addresses, each on separate line is okay."""),
+
+             _('''There are two ownership roles associated with each mailing
+             list.  The <em>list administrators</em> are the people who have
+             ultimate control over all parameters of this mailing list.  They
+             are able to change any list configuration variable available
+             through these administration web pages.
+
+             <p>The <em>list moderators</em> have more limited permissions;
+             they are not able to change any list configuration variable, but
+             they are allowed to tend to pending administration requests,
+             including approving or rejecting held subscription requests, and
+             disposing of held postings.  Of course, the <em>list
+             administrators</em> can also tend to pending requests.
+
+             <p>In order to split the list ownership duties into
+             administrators and moderators, you must
+             <a href="passwords">set a separate moderator password</a>,
+             and also provide the email addresses of the list moderators in
+             this section.  Note that the field you are changing here
+             specifies the list moderators.''')),
+
+            ('description', mm_cfg.String, WIDTH, 0,
+             _('A terse phrase identifying this list.'),
+
+             _('''This description is used when the mailing list is listed with
+                other mailing lists, or in headers, and so forth.  It should
+                be as succinct as you can get it, while still identifying what
+                the list is.''')),
+
+            ('info', mm_cfg.Text, (7, WIDTH), 0,
+             _('''An introductory description - a few paragraphs - about the
+             list.  It will be included, as html, at the top of the listinfo
+             page.  Carriage returns will end a paragraph - see the details
+             for more info.'''),
+             _("""The text will be treated as html <em>except</em> that
+             newlines will be translated to &lt;br&gt; - so you can use links,
+             preformatted text, etc, but don't put in carriage returns except
+             where you mean to separate paragraphs.  And review your changes -
+             bad html (like some unterminated HTML constructs) can prevent
+             display of the entire listinfo page.""")),
+
+            ('subject_prefix', mm_cfg.String, WIDTH, 0,
+             _('Prefix for subject line of list postings.'),
+             _("""This text will be prepended to subject lines of messages
+             posted to the list, to distinguish mailing list messages in
+             mailbox summaries.  Brevity is premium here, it's ok to shorten
+             long mailing list names to something more concise, as long as it
+             still identifies the mailing list.
+             You can also add a sequential number by %%d substitution
+             directive. eg.; [listname %%d] -> [listname 123]
+                            (listname %%05d) -> (listname 00123)
+             """)),
+
+            ('anonymous_list', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _("""Hide the sender of a message, replacing it with the list
+             address (Removes From, Sender and Reply-To fields)""")),
+
+            _('''<tt>Reply-To:</tt> header munging'''),
+
+            ('first_strip_reply_to', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('''Should any existing <tt>Reply-To:</tt> header found in the
+             original message be stripped?  If so, this will be done
+             regardless of whether an explict <tt>Reply-To:</tt> header is
+             added by Mailman or not.''')),
+
+            ('reply_goes_to_list', mm_cfg.Radio,
+             (_('Poster'), _('This list'), _('Explicit address')), 0,
+             _('''Where are replies to list messages directed?
+             <tt>Poster</tt> is <em>strongly</em> recommended for most mailing
+             lists.'''),
+
+             # Details for reply_goes_to_list
+             _("""This option controls what Mailman does to the
+             <tt>Reply-To:</tt> header in messages flowing through this
+             mailing list.  When set to <em>Poster</em>, no <tt>Reply-To:</tt>
+             header is added by Mailman, although if one is present in the
+             original message, it is not stripped.  Setting this value to
+             either <em>This list</em> or <em>Explicit address</em> causes
+             Mailman to insert a specific <tt>Reply-To:</tt> header in all
+             messages, overriding the header in the original message if
+             necessary (<em>Explicit address</em> inserts the value of <a
+             href="?VARHELP=general/reply_to_address">reply_to_address</a>).
+
+             <p>There are many reasons not to introduce or override the
+             <tt>Reply-To:</tt> header.  One is that some posters depend on
+             their own <tt>Reply-To:</tt> settings to convey their valid
+             return address.  Another is that modifying <tt>Reply-To:</tt>
+             makes it much more difficult to send private replies.  See <a
+             href="http://www.unicom.com/pw/reply-to-harmful.html">`Reply-To'
+             Munging Considered Harmful</a> for a general discussion of this
+             issue.  See <a
+             href="http://www.metasystema.net/essays/reply-to.mhtml">Reply-To
+             Munging Considered Useful</a> for a dissenting opinion.
+
+             <p>Some mailing lists have restricted posting privileges, with a
+             parallel list devoted to discussions.  Examples are `patches' or
+             `checkin' lists, where software changes are posted by a revision
+             control system, but discussion about the changes occurs on a
+             developers mailing list.  To support these types of mailing
+             lists, select <tt>Explicit address</tt> and set the
+             <tt>Reply-To:</tt> address below to point to the parallel
+             list.""")),
+
+            ('reply_to_address', mm_cfg.Email, WIDTH, 0,
+             _('Explicit <tt>Reply-To:</tt> header.'),
+             # Details for reply_to_address
+             _("""This is the address set in the <tt>Reply-To:</tt> header
+             when the <a
+             href="?VARHELP=general/reply_goes_to_list">reply_goes_to_list</a>
+             option is set to <em>Explicit address</em>.
+
+             <p>There are many reasons not to introduce or override the
+             <tt>Reply-To:</tt> header.  One is that some posters depend on
+             their own <tt>Reply-To:</tt> settings to convey their valid
+             return address.  Another is that modifying <tt>Reply-To:</tt>
+             makes it much more difficult to send private replies.  See <a
+             href="http://www.unicom.com/pw/reply-to-harmful.html">`Reply-To'
+             Munging Considered Harmful</a> for a general discussion of this
+             issue.  See <a
+             href="http://www.metasystema.net/essays/reply-to.mhtml">Reply-To
+             Munging Considered Useful</a> for a dissenting opinion.
+
+             <p>Some mailing lists have restricted posting privileges, with a
+             parallel list devoted to discussions.  Examples are `patches' or
+             `checkin' lists, where software changes are posted by a revision
+             control system, but discussion about the changes occurs on a
+             developers mailing list.  To support these types of mailing
+             lists, specify the explicit <tt>Reply-To:</tt> address here.  You
+             must also specify <tt>Explicit address</tt> in the
+             <tt>reply_goes_to_list</tt>
+             variable.
+
+             <p>Note that if the original message contains a
+             <tt>Reply-To:</tt> header, it will not be changed.""")),
+
+            _('Umbrella list settings'),
+
+            ('umbrella_list', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('''Send password reminders to, eg, "-owner" address instead of
+             directly to user.'''),
+
+             _("""Set this to yes when this list is intended to cascade only
+             to other mailing lists.  When set, meta notices like
+             confirmations and password reminders will be directed to an
+             address derived from the member\'s address - it will have the
+             value of "umbrella_member_suffix" appended to the member's
+             account name.""")),
+
+            ('umbrella_member_suffix', mm_cfg.String, WIDTH, 0,
+             _('''Suffix for use when this list is an umbrella for other
+             lists, according to setting of previous "umbrella_list"
+             setting.'''),
+
+             _("""When "umbrella_list" is set to indicate that this list has
+             other mailing lists as members, then administrative notices like
+             confirmations and password reminders need to not be sent to the
+             member list addresses, but rather to the owner of those member
+             lists.  In that case, the value of this setting is appended to
+             the member's account name for such notices.  `-owner' is the
+             typical choice.  This setting has no effect when "umbrella_list"
+             is "No".""")),
+
+            _('Notifications'),
+
+            ('send_reminders', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('''Send monthly password reminders?'''),
+
+             _('''Turn this on if you want password reminders to be sent once
+             per month to your members.  Note that members may disable their
+             own individual password reminders.''')),
+
+            ('welcome_msg', mm_cfg.Text, (4, WIDTH), 1,
+             _('''List-specific text prepended to new-subscriber welcome
+             message'''),
+
+             _("""This value, if any, will be added to the front of the
+             new-subscriber welcome message.  The rest of the welcome message
+             already describes the important addresses and URLs for the
+             mailing list, so you don't need to include any of that kind of
+             stuff here.  This should just contain mission-specific kinds of
+             things, like etiquette policies or team orientation, or that kind
+             of thing.
+
+             <p>Note that this text will be wrapped, according to the
+             following rules:
+             <ul><li>Each paragraph is filled so that no line is longer than
+                     70 characters.
+                 <li>Any line that begins with whitespace is not filled.
+                 <li>A blank line separates paragraphs.
+             </ul>""")),
+
+            ('send_welcome_msg', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('Send welcome message to newly subscribed members?'),
+             _("""Turn this off only if you plan on subscribing people manually
+             and don't want them to know that you did so.  This option is most
+             useful for transparently migrating lists from some other mailing
+             list manager to Mailman.""")),
+
+            ('goodbye_msg', mm_cfg.Text, (4, WIDTH), 0,
+             _('''Text sent to people leaving the list.  If empty, no special
+             text will be added to the unsubscribe message.''')),
+
+            ('send_goodbye_msg', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('Send goodbye message to members when they are unsubscribed?')),
+
+            ('admin_immed_notify', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('''Should the list moderators get immediate notice of new
+             requests, as well as daily notices about collected ones?'''),
+
+             _('''List moderators (and list administrators) are sent daily
+             reminders of requests pending approval, like subscriptions to a
+             moderated list, or postings that are being held for one reason or
+             another.  Setting this option causes notices to be sent
+             immediately on the arrival of new requests as well.''')),
+
+            ('admin_notify_mchanges', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('''Should administrator get notices of subscribes and
+             unsubscribes?''')),
+
+            ('respond_to_post_requests', mm_cfg.Radio,
+             (_('No'), _('Yes')), 0,
+             _('Send mail to poster when their posting is held for approval?')
+            ),
+
+            _('Additional settings'),
+
+            ('emergency', mm_cfg.Toggle, (_('No'), _('Yes')), 1,
+             _('Emergency moderation of all list traffic.'),
+             _("""When this option is enabled, all list traffic is emergency
+             moderated, i.e. held for moderation.  Turn this option on when
+             your list is experiencing a flamewar and you want a cooling off
+             period.""")),
+
+            ('new_member_options', mm_cfg.Checkbox,
+             (opttext, optvals, 0, OPTIONS),
+             # The description for new_member_options includes a kludge where
+             # we add a hidden field so that even when all the checkboxes are
+             # deselected, the form data will still have a new_member_options
+             # key (it will always be a list).  Otherwise, we'd never be able
+             # to tell if all were deselected!
+             0, _('''Default options for new members joining this list.<input
+             type="hidden" name="new_member_options" value="ignore">'''),
+
+             _("""When a new member is subscribed to this list, their initial
+             set of options is taken from the this variable's setting.""")),
+
+            ('administrivia', mm_cfg.Radio, (_('No'), _('Yes')), 1,
+             _('''(Administrivia filter) Check postings and intercept ones
+             that seem to be administrative requests?'''),
+
+             _("""Administrivia tests will check postings to see whether it's
+             really meant as an administrative request (like subscribe,
+             unsubscribe, etc), and will add it to the the administrative
+             requests queue, notifying the administrator of the new request,
+             in the process.""")),
+
+            ('max_message_size', mm_cfg.Number, 7, 0,
+             _('''Maximum length in kilobytes (KB) of a message body.  Use 0
+             for no limit.''')),
+
+            ('admin_member_chunksize', mm_cfg.Number, 7, 0,
+             _('''Maximum number of members to show on one page of the
+             Membership List.''')),
+
+            ('host_name', mm_cfg.Host, WIDTH, 0,
+             _('Host name this list prefers for email.'),
+
+             _("""The "host_name" is the preferred name for email to
+             mailman-related addresses on this host, and generally should be
+             the mail host's exchanger address, if any.  This setting can be
+             useful for selecting among alternative names of a host that has
+             multiple addresses.""")),
+
+            ('essay_enabled', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('Should an essay be provided during subscription?'),
+             _("""Turn this on if you want to require subscribers to answer
+	     some questions about their eligibility for the list when they 
+	     request membership. """)),
+
+            ('questions', mm_cfg.Text, (4, WIDTH), 0,
+             _('''Text for subscription essay.'''),
+	     _("""The essay instructions may include the lightweight markup 
+	     language <a href="http://en.wikipedia.org/wiki/Markdown" Title=
+	     "Link to examples of markdown syntax">Markdown</a>.Changing this
+	     section will have no effect until you have set the value of
+	     essay_enabled to True in the previous section. """)),
+
+
+            ('fullname_required', mm_cfg.Radio, (_('No'), _('Yes')), 0,
+             _('''Should a name be provided during subscription?'''),
+             _("""Turn this on if you want to require subscribers to include 
+	     their name as well as email when they request membership.""")),
+
+
+          ]
+
+        if mm_cfg.ALLOW_RFC2369_OVERRIDES:
+            rtn.append(
+                ('include_rfc2369_headers', mm_cfg.Radio,
+                 (_('No'), _('Yes')), 0,
+                 _("""Should messages from this mailing list include the
+                 <a href="http://www.faqs.org/rfcs/rfc2369.html">RFC 2369</a>
+                 (i.e. <tt>List-*</tt>) headers?  <em>Yes</em> is highly
+                 recommended."""),
+
+                 _("""RFC 2369 defines a set of List-* headers that are
+                 normally added to every message sent to the list membership.
+                 These greatly aid end-users who are using standards compliant
+                 mail readers.  They should normally always be enabled.
+
+                 <p>However, not all mail readers are standards compliant yet,
+                 and if you have a large number of members who are using
+                 non-compliant mail readers, they may be annoyed at these
+                 headers.  You should first try to educate your members as to
+                 why these headers exist, and how to hide them in their mail
+                 clients.  As a last resort you can disable these headers, but
+                 this is not recommended (and in fact, your ability to disable
+                 these headers may eventually go away)."""))
+                )
+        # Suppression of List-Post: headers
+        rtn.append(
+            ('include_list_post_header', mm_cfg.Radio,
+             (_('No'), _('Yes')), 0,
+             _('Should postings include the <tt>List-Post:</tt> header?'),
+             _("""The <tt>List-Post:</tt> header is one of the headers
+             recommended by
+             <a href="http://www.faqs.org/rfcs/rfc2369.html">RFC 2369</a>.
+             However for some <em>announce-only</em> mailing lists, only a
+             very select group of people are allowed to post to the list; the
+             general membership is usually not allowed to post.  For lists of
+             this nature, the <tt>List-Post:</tt> header is misleading.
+             Select <em>No</em> to disable the inclusion of this header. (This
+             does not affect the inclusion of the other <tt>List-*:</tt>
+             headers.)"""))
+            )
+
+        # Discard held messages after this number of days
+        rtn.append(
+            ('max_days_to_hold', mm_cfg.Number, 7, 0,
+            _("""Discard held messages older than this number of days.
+            Use 0 for no automatic discarding."""))
+            )
+
+        return rtn
+
+    def _setValue(self, mlist, property, val, doc):
+        if property == 'real_name' and \
+               val.lower() <> mlist.internal_name().lower():
+            # These values can't differ by other than case
+            doc.addError(_("""<b>real_name</b> attribute not
+            changed!  It must differ from the list's name by case
+            only."""))
+        elif property == 'new_member_options':
+            newopts = 0
+            for opt in OPTIONS:
+                bitfield = mm_cfg.OPTINFO[opt]
+                if opt in val:
+                    newopts |= bitfield
+            mlist.new_member_options = newopts
+        elif property == 'subject_prefix':
+            # Convert any html entities to Unicode
+            mlist.subject_prefix = Utils.canonstr(
+                val, mlist.preferred_language)
+        elif property == 'info':
+            if val <> mlist.info:
+                if Utils.suspiciousHTML(val):
+                    doc.addError(_("""The <b>info</b> attribute you saved
+contains suspicious HTML that could potentially expose your users to cross-site
+scripting attacks.  This change has therefore been rejected.  If you still want
+to make these changes, you must have shell access to your Mailman server.
+This change can be made with bin/withlist or with bin/config_list by setting
+mlist.info.
+                        """))
+                else:
+                    mlist.info = val
+        elif property == 'admin_member_chunksize' and (val < 1
+                                          or not isinstance(val, IntType)):
+            doc.addError(_("""<b>admin_member_chunksize</b> attribute not
+            changed!  It must be an integer > 0."""))
+        else:
+            GUIBase._setValue(self, mlist, property, val, doc)
+
+
+    def _postValidate(self, mlist, doc):
+        if not mlist.reply_to_address.strip() and \
+               mlist.reply_goes_to_list == 2:
+            # You can't go to an explicit address that is blank
+            doc.addError(_("""You cannot add a Reply-To: to an explicit
+            address if that address is blank.  Resetting these values."""))
+            mlist.reply_to_address = ''
+            mlist.reply_goes_to_list = 0
+
+    def getValue(self, mlist, kind, varname, params):
+        if varname <> 'subject_prefix':
+            return None
+        # The subject_prefix may be Unicode
+        return Utils.uncanonstr(mlist.subject_prefix, mlist.preferred_language)