X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/566fd71293b52f72e94433da590b14b4a06b07e2..20acb9257f2b32de71c09455c77f758df1d99b1c:/list.mlt
diff --git a/list.mlt b/list.mlt
index fc59214..e48b5c7 100644
--- a/list.mlt
+++ b/list.mlt
@@ -7,45 +7,46 @@ if $"req" <> "" then
if Util.validEmail dom then
val id = MailingList.add (Init.getUserId(), dom, $"msg");
if not (MailingList.notifyNew id) then
- %>
Error sending e-mail notification
<%
+ %>
Error sending e-mail notification
<%
end
- %>
Request added
<%
+ %>
Request added
<%
else
- %>
Invalid list e-mail address
<%
+ %>
Invalid list e-mail address
<%
end
elseif $"cmd" = "open" then
- %>
Open requests
+ %>
Open requests
List all requests<%
foreach (name, req) in MailingList.listOpen () do %>
-
-<% if admin then %>
+<% if admin then
+ val (user, dom) = MailingList.listWebHost (#data req) %>
[Modify][Delete]
- To set up, run: newlist <% #data req %> <% name %>@hcoop.net <% Util.randomPassword () %>
+ To set up, run: listnew <% user %> <% dom %> <% name %> <% Util.randomPassword () %>
<% end %>
<% end
elseif $"cmd" = "list" then
- %>
All requests
<%
+ %>
All requests
<%
foreach (name, req) in MailingList.list () do %>
-
<% if admin then %>
@@ -61,20 +62,20 @@ elseif $"mod" <> "" then
val id = Web.stoi ($"mod");
val req = MailingList.lookup id;
val user = Init.lookupUser (#usr req) %>
-