# Copyright (C) 2001-2006 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 Mailman import mm_cfg
from Mailman import Utils
from Mailman import Errors
from Mailman.i18n import _
from Mailman.Gui.GUIBase import GUIBase
OPTIONS = ('hide', 'ack', 'notmetoo', 'nodupes')
class General(GUIBase):
def GetConfigCategory(self):
return 'general', _('Generals')
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 = [
'<p>' + _('''Fundamental list characteristics, including descriptive
info and basic behaviors.''') + '</p>',
_('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>
<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>
<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>
<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>
<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 <br /> - 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.""") +
'</p>' +
'<p>' +
_('You can also add a sequential number by <tt>%%d</tt> substitution directive. eg.; <tt>[listname %%d] -> [listname 123] (listname %%05d) -> (listname 00123)</tt>.')),
('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>
<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>
<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>
<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>
<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>
<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), 0,
_('''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>' +
'<p>' +
_('Note that this text will be wrapped, according to the following rules:') +
'</p>' +
'''
<ul>
<li>''' + _('Each paragraph is filled so that no line is longer than 70 characters.') + '''</li>
<li>''' + _('Any line that begins with whitespace is not filled.') + '''</li>
<li>''' + _('A blank line separates paragraphs.') + '''</li>
</ul>
<p class="notrendered">'''),
('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')), 0,
_('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')), 0,
_('''(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.''')),
('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.""")),
]
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>
<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(_("""<strong>real_name</strong> 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)
else:
GUIBase._setValue(self, mlist, property, val, doc)
def _escape(self, property, value):
# The 'info' property allows HTML, but let's sanitize it to avoid XSS
# exploits. Everything else should be fully escaped.
if property <> 'info':
return GUIBase._escape(self, property, value)
# Sanitize <script> and </script> tags but nothing else. Not the best
# solution, but expedient.
return re.sub(r'(?i)<([/]?script.*?)>', r'<\1>', value)
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)