1 <% @header [("title", ["Mailing list creation requests"])];
3 val admin = Group.inGroupName "lists";
7 if Util.validEmail dom then
8 val id = MailingList.add (Init.getUserId(), dom, $"msg");
9 if not (MailingList.notifyNew id) then
10 %><h3><b>Error sending e-mail notification</b></h3><%
12 %><h3><b>Request added</b></h3><%
14 %><h3><b>Invalid list e-mail address</b></h3><%
17 elseif $"cmd" = "open" then
18 %><h3><b>Open requests</b></h3>
19 <a href="list?cmd=list">List all requests</a><%
21 foreach (name, req) in MailingList.listOpen () do %>
24 <tr> <td align="right"><b>By</b>:</td> <td><a href="user?id=<% #usr req %>"><% name %></a></td> </tr>
25 <tr> <td align="right"><b>Time</b>:</td> <td><% #stamp req %></td> </tr>
26 <tr> <td align="right"><b>List name</b>:</td> <td><% #data req %></td> </tr>
27 <tr> <td align="right" valign="top"><b>Reason</b>:</td> <td colspan="2"><% Web.html (#msg req) %></td> </tr>
32 <a href="list?mod=<% #id req %>">[Modify]</a>
33 <a href="list?del=<% #id req %>">[Delete]</a><br>
34 To set up, run: <tt>newlist <% #data req %> <% name %>@hcoop.net <% Util.randomPassword () %></tt>
39 elseif $"cmd" = "list" then
40 %><h3><b>All requests</b></h3><%
42 foreach (name, req) in MailingList.list () do %>
45 <tr> <td align="right"><b>By</b>:</td> <td colspan="2"><a href="user?id=<% #usr req %>"><% name %></a></td> </tr>
46 <tr> <td align="right"><b>Time</b>:</td> <td colspan="2"><% #stamp req %></td> </tr>
47 <tr> <td align="right"><b>List name</b>:</td> <td><% #data req %></td> </tr>
48 <tr> <td align="right" valign="top"><b>Reason</b>:</td> <td colspan="2"><% Web.html (#msg req) %></td> </tr>
53 <a href="list?mod=<% #id req %>">[Modify]</a>
54 <a href="list?del=<% #id req %>">[Delete]</a>
59 elseif $"mod" <> "" then
60 Group.requireGroupName "lists";
61 val id = Web.stoi ($"mod");
62 val req = MailingList.lookup id;
63 val user = Init.lookupUser (#usr req) %>
64 <h3><b>Handle request</b></h3>
67 <input type="hidden" name="save" value="<% id %>">
69 <tr> <td align="right"><b>Requestor</b>:</td> <td><a href="user?id=<% #usr req %>"><% #name user %></a></td> </tr>
70 <tr> <td align="right"><b>Time</b>:</td> <td><% #stamp req %></td> </tr>
71 <tr> <td align="right"><b>Status</b>:</td> <td><select name="status">
72 <option value="0"<% if #status req = MailingList.NEW then %> selected<% end %>>New</option>
73 <option value="1"<% if #status req = MailingList.INSTALLED then %> selected<% end %>>Installed</option>
74 <option value="2"<% if #status req = MailingList.REJECTED then %> selected<% end %>>Rejected</option>
76 <tr> <td align="right"><b>List name</b>:</td> <td><input name="dom" value="<% #data req %>"></td> </tr>
77 <tr> <td align="right" valign="top"><b>Message</b>:</td> <td><textarea name="msg" rows="10" cols="80" wrap="soft"><% Web.html (#msg req) %></textarea></td> </tr>
78 <tr> <td><input type="submit" value="Save"></td> </tr>
82 <% elseif $"save" <> "" then
83 Group.requireGroupName "lists";
84 val id = Web.stoi ($"save");
85 val req = MailingList.lookup id;
86 val oldStatus = #status req;
87 val newStatus = MailingList.statusFromInt (Web.stoi ($"status"));
88 MailingList.modify {req with data = $"dom", msg = $"msg", status = newStatus};
89 if oldStatus <> newStatus then
90 if not (MailingList.notifyMod (oldStatus, newStatus, Init.getUserName(), id)) then
91 %><h3><b>Error sending e-mail notification</b></h3><%
94 %><h3><b>Request modified</b></h3>
95 Back to: <a href="list?cmd=open">open requests</a>, <a href="list?cmd=list">all requests</a>
97 <% elseif $"del" <> "" then
98 Group.requireGroupName "lists";
99 val id = Web.stoi ($"del");
100 val req = MailingList.lookup id;
101 val user = Init.lookupUser (#usr req)
102 %><h3><b>Are you sure you want to delete request by <% #name user %> for <tt><% #data req %></tt>?</b></h3>
103 <a href="list?del2=<% id %>">Yes, I'm sure!</a>
105 <% elseif $"del2" <> "" then
106 Group.requireGroupName "lists";
107 val id = Web.stoi ($"del2");
108 MailingList.delete id
109 %><h3><b>Request deleted</b><h3>
110 Back to: <a href="list?cmd=open">open requests</a>, <a href="list?cmd=list">all requests</a>
114 <h3><b>Request new mailing list</b></h3>
116 <p>Enter here the e-mail address you would like for your list. Please keep in mind that the part of your list address before the "@" must be unique across all mailing lists we run. We may reject applications with overly general names here, especially names of current users or UNIX usernames that are likely to be chosen by future members. The "Reason" field is optional.</p>
118 <p>If you want to use the Mailman web interface on your new list, and you want this to appear on a different web virtual host than hcoop.net, you should create a file <tt>.mailman</tt> in the domtool directory for this domain, before submitting a request. In that file, put the hostname of the vhost you want to use.</p>
122 <tr> <td align="right" valign="top"><b>List name</b>:</td> <td><input name="req"></td> </tr>
123 <tr> <td align="right" valign="top"><b>Reason</b>:</td> <td><textarea name="msg" rows="5" cols="80" wrap="soft"></textarea></td> </tr>
124 <tr> <td><input type="submit" value="Request"></td> </tr>