" " There currently are no publicly-advertised ", Link(mm_cfg.MAILMAN_URL, "mailman"), " mailing lists on %s." % mm_cfg.DEFAULT_HOST_NAME, ) else: welcome_items = ( greeting, "
" " Below is the collection of publicly-advertised ", Link(mm_cfg.MAILMAN_URL, "mailman"), " mailing lists on %s." % mm_cfg.DEFAULT_HOST_NAME, (' Click on a list name to visit the configuration pages' ' for that list.' ) ) welcome_items = (welcome_items + (" To visit the administrators configuration page for" " an unadvertised list, open a URL similar to this" + (" one, but with a '/' and the %slist name appended.
" % ((error and "the right ") or "")) + " General list information can be found at ", Link(os.path.join('../'* Utils.GetNestingLevel(), "listinfo/"), "the mailing list overview page"), "." "
(Send questions and comments to ", Link("mailto:%s" % mm_cfg.MAILMAN_OWNER, mm_cfg.MAILMAN_OWNER), ".)
" ) ) table.AddRow([apply(Container, welcome_items)]) table.AddCellInfo(max(table.GetCurrentRowIndex(), 0), 0, colspan=2) if advertised: table.AddRow([Italic("List"), Italic("Description")]) for l in advertised: table.AddRow([Link(l.GetRelativeScriptURL('admin'), Bold(l.real_name)),l.description]) doc.AddItem(table) print doc.Format(bgcolor="#ffffff") def FormatConfiguration(doc, lst, category, category_suffix): """Produce the overall doc, *except* any processing error messages.""" for k, v in CATEGORIES: if k == category: label = v doc.SetTitle('%s Administration' % lst.real_name) doc.AddItem(Center(Header(2, ('%s Mailing list Configuration - %s Section' % (lst.real_name, label))))) doc.AddItem('
") form.AddItem(FormatOptionsSection(category, lst)) form.AddItem(Center(FormatPasswordStuff())) form.AddItem(lst.GetMailmanFooter()) def FormatOptionsSection(category, lst): """Produce the category-specific options table.""" if category == 'members': # Special case for members section. return FormatMembershipOptions(lst) options = GetConfigOptions(lst, category) big_table = Table(cellspacing=3, cellpadding=4) # Get and portray the text label for the category. for k, v in CATEGORIES: if k == category: label = v big_table.AddRow([Center(Header(2, label))]) big_table.AddCellInfo(max(big_table.GetCurrentRowIndex(), 0), 0, colspan=2, bgcolor="#99ccff") def ColHeader(big_table = big_table): big_table.AddRow([Center(Bold('Description')), Center(Bold('Value'))]) big_table.AddCellInfo(max(big_table.GetCurrentRowIndex(), 0), 0, width="15%") big_table.AddCellInfo(max(big_table.GetCurrentRowIndex(), 0), 1, width="85%") did_col_header = 0 for item in options: if type(item) == types.StringType: # The very first banner option (string in an options list) is # treated as a general description, while any others are # treated as section headers - centered and italicized... if did_col_header: item = "
" % (varname, category, item[4])) doc.AddItem("%s
" % item[5]) form = Form(os.path.join(lst.GetRelativeScriptURL('admin'), category)) valtab = Table(cellspacing=3, cellpadding=4) AddOptionsTableItem(valtab, item, category, lst, nodetails=1) form.AddItem(valtab) # XXX I don't think we want to be able to set options from two places, # since they'll go out of sync. #form.AddItem(Center(FormatPasswordStuff())) doc.AddItem(Center(form)) def GetItemCharacteristics(table_entry): """Break out the components of an item description from its table entry: 0 option-var name 1 type 2 entry size 3 ?dependancies? 4 Brief description 5 Optional description elaboration""" if len(table_entry) == 5: elaboration = None varname, kind, params, dependancies, descr = table_entry elif len(table_entry) == 6: varname, kind, params, dependancies, descr, elaboration = table_entry else: raise ValueError, ("Badly formed options entry:\n %s" % table_entry) return (varname, kind, params, dependancies, descr, elaboration) def GetItemGuiValue(lst, kind, varname, params): """Return a representation of an item's settings.""" if kind == mm_cfg.Radio or kind == mm_cfg.Toggle: return RadioButtonArray(varname, params, getattr(lst, varname)) elif (kind == mm_cfg.String or kind == mm_cfg.Email or kind == mm_cfg.Host or kind == mm_cfg.Number): return TextBox(varname, getattr(lst, varname), params) elif kind == mm_cfg.Text: if params: r, c = params else: r, c = None, None val = getattr(lst, varname) if not val: val = '' return TextArea(varname, val, r, c) elif kind == mm_cfg.EmailList: if params: r, c = params else: r, c = None, None res = string.join(getattr(lst, varname), '\n') return TextArea(varname, res, r, c, wrap='off') def GetItemGuiDescr(lst, category, varname, descr, elaboration, nodetails): """Return a representation of an item's description, with link to elaboration if any.""" descr = '
To View other sections, " "click on the appropriate range listed below") chunk_indices = range(len(chunks)) chunk_indices.remove(chunk) buttons = [] for ci in chunk_indices: start, end = chunks[ci][0], chunks[ci][-1] url = lst.GetAbsoluteScriptURL('admin') buttons.append(" from %s to %s " % \ ( url, ci, start, end)) buttons = apply(UnorderedList, tuple(buttons)) footer = footer + buttons.Format() + "
" else: all.sort() footer = "
" for member in all: cells = [member + "" % (member), "subscribed " +CheckBox(member + "_subscribed", "on", 1).Format(), ] if members.get(member): cells.append("digest " + CheckBox(member + "_digest", "off", 0).Format()) else: cells.append("digest " + CheckBox(member + "_digest", "on", 1).Format()) for opt in ("hide", "nomail", "ack", "norcv", "plain"): if lst.GetUserOption(member, MailCommandHandler.option_info[opt]): value = "on" checked = 1 else: value = "off" checked = 0 box = CheckBox("%s_%s" % (member, opt), value, checked) cells.append("%s %s" % (opt, box.Format())) user_table.AddRow(cells) container.AddItem(Center(user_table)) container.AddItem(footer) t = Table(width="90%") t.AddRow([Center(Header(4, "Mass Subscribe Members"))]) t.AddCellInfo(t.GetCurrentRowIndex(), t.GetCurrentCellIndex(), bgcolor="#cccccc", colspan=8) container.AddItem(Center(t)) container.AddItem(Center(TextArea(name='subscribees', rows=10,cols=60,wrap=None))) container.AddItem(Center(" Enter One address per line
")) return container def FormatPasswordStuff(): submit = Table(bgcolor="#99ccff", border=0, cellspacing=0, cellpadding=2, width="100%") submit.AddRow([Bold(SubmitButton('submit', 'Submit Your Changes'))]) submit.AddCellInfo(submit.GetCurrentRowIndex(), 0, align="middle") change_pw_table = Table(bgcolor="#99cccc", border=0, cellspacing=0, cellpadding=2, width="90%") change_pw_table.AddRow([Bold(Center('To Change The Administrator Password')), '
") password_stuff.AddItem(submit) return password_stuff # XXX klm - looks like turn_on_moderation is orphaned. turn_on_moderation = 0 # Options processing def GetValidValue(lst, prop, my_type, val, dependant): if my_type == mm_cfg.Radio or my_type == mm_cfg.Toggle: if type(val) <> types.IntType: try: # XXX Security!? val = eval(val) except: pass # Don't know what to do here... return val elif my_type == mm_cfg.String or my_type == mm_cfg.Text: return val elif my_type == mm_cfg.Email: try: valid = Utils.ValidEmail(val) if valid: return val except: pass # Revert to the old value. return getattr(lst, prop) elif my_type == mm_cfg.EmailList: def SafeValidAddr(addr): try: valid = Utils.ValidEmail(addr) if valid: return 1 else: return 0 except: return 0 val = filter(SafeValidAddr, map(string.strip, string.split(val, '\n'))) if dependant and len(val): # Wait till we've set everything to turn it on, # as we don't want to clobber our special case. # XXX klm - looks like turn_on_moderation is orphaned? turn_on_moderation = 1 return val elif my_type == mm_cfg.Host: return val ## ## This code is sendmail dependant, so we'll just live w/o ## the error checking for now. ## ## # Shouldn't have to read in the whole file. ## file = open('/etc/sendmail.cf', 'r') ## lines = string.split(file.read(), '\n') ## file.close() ## def ConfirmCWEntry(item): ## return item[0:2] == 'Cw' ## lines = filter(ConfirmCWEntry, lines) ## if not len(lines): ## # Revert to the old value. ## return getattr(list, prop) ## for line in lines: ## if string.lower(string.strip(line[2:])) == string.lower(val): ## return val ## return getattr(list, prop) elif my_type == mm_cfg.Number: try: num = eval(val) if num < 0: return getattr(lst, prop) return num except: return getattr(lst, prop) else: # Should never get here... return val def ChangeOptions(lst, category, cgi_info, document): dirty = 0 confirmed = 0 if cgi_info.has_key('newpw'): if cgi_info.has_key('confirmpw'): if cgi_info.has_key('adminpw'): try: lst.ConfirmAdminPassword(cgi_info['adminpw'].value) confirmed = 1 except Errors.MMBadPasswordError: m = "Error: incorrect administrator password" document.AddItem(Header(3, Italic(FontAttr(m, color="ff5060")))) confirmed = 0 if confirmed: new = cgi_info['newpw'].value confirm = cgi_info['confirmpw'].value if new == confirm: lst.password = crypt(new, Utils.GetRandomSeed()) dirty = 1 else: m = 'Error: Passwords did not match.' document.AddItem(Header(3, Italic(FontAttr(m, color="ff5060")))) else: m = 'Error: You must type in your new password twice.' document.AddItem( Header(3, Italic(FontAttr(m, color="ff5060")))) # # for some reason, the login page mangles important values for the list # such as .real_name so we only process these changes if the category # is not "members" and the request is not from the login page # -scott 19980515 # if category != 'members' and not cgi_info.has_key("request_login") and\ len(cgi_info.keys()) > 1: opt_list = GetConfigOptions(lst, category) for item in opt_list: if len(item) < 5: continue property, kind, args, deps, desc = (item[0], item[1], item[2], item[3], item[4]) if not cgi_info.has_key(property): if (kind <> mm_cfg.Text and kind <> mm_cfg.String and kind <> mm_cfg.EmailList): continue else: val = '' else: val = cgi_info[property].value value = GetValidValue(lst, property, kind, val, deps) if getattr(lst, property) != value: setattr(lst, property, value) dirty = 1 # # mass subscription processing for members category # if cgi_info.has_key('subscribees'): name_text = cgi_info['subscribees'].value name_text = string.replace(name_text, '\r', '') names = string.split(name_text, '\n') if '' in names: names.remove('') subscribe_success = [] subscribe_errors = [] if lst.send_welcome_msg: send_ack = 1 else: send_ack = 0 for new_name in map(string.strip,names): digest = 0 if not lst.digestable: digest = 0 if not lst.nondigestable: digest = 1 try: lst.ApprovedAddMember(new_name, (Utils.GetRandomSeed() + Utils.GetRandomSeed()), digest, send_ack) subscribe_success.append(new_name) except Errors.MMAlreadyAMember: subscribe_errors.append((new_name, 'Already a member')) except Errors.MMBadEmailError: subscribe_errors.append((new_name, "Bad/Invalid email address")) except Errors.MMHostileAddress: subscribe_errors.append((new_name, "Hostile Address (illegal characters)")) if subscribe_success: document.AddItem(Header(5, "Successfully Subscribed:")) document.AddItem(apply(UnorderedList, tuple((subscribe_success)))) document.AddItem("
") if subscribe_errors: document.AddItem(Header(5, "Error Subscribing:")) items = map(lambda x: "%s -- %s" % (x[0], x[1]), subscribe_errors) document.AddItem(apply(UnorderedList, tuple((items)))) document.AddItem("
") # # do the user options for members category # if cgi_info.has_key('user'): user = cgi_info["user"] if type(user) is type([]): users = [] for ui in range(len(user)): users.append(user[ui].value) else: users = [user.value] for user in users: if not cgi_info.has_key('%s_subscribed' % (user)): lst.DeleteMember(user) dirty = 1 continue if not cgi_info.has_key("%s_digest" % (user)): if user in lst.digest_members: list.digest_members.remove(user) dirty = 1 if user not in lst.members: lst.members.append(user) dirty = 1 else: if user not in lst.digest_members: lst.digest_members.append(user) dirty = 1 if user in lst.members: lst.members.remove(user) dirty = 1 for opt in ("hide", "nomail", "ack", "norcv", "plain"): if cgi_info.has_key("%s_%s" % (user, opt)): lst.SetUserOption(user, MailCommandHandler.option_info[opt], 1) dirty = 1 else: lst.SetUserOption(user, MailCommandHandler.option_info[opt], 0) dirty = 1 if dirty: lst.Save() def AddErrorMessage(doc, errmsg, *args): doc.AddItem(Header(3, Italic(FontAttr(errmsg % args, color="#ff66cc")))) _config_info = None def GetConfigOptions(lst, category): global _config_info if _config_info == None: _config_info = lst.GetConfigInfo() return _config_info[category]