--- /dev/null
+<%@ page import = "java.util.*" %>
+<%@ page import = "javax.servlet.*" %>
+<%@ page import = "org.ibex.mail.*" %>
+<%@ page import = "org.prevayler.*" %>
+<%@ page import = "org.ibex.mail.target.*" %>
+<%@ page import = "org.ibex.mail.List" %>
+<html>
+ <title> Mailing Lists </title>
+ <body>
+ <form method=get>
+ <%
+ String action = request.getParameter("action");
+ boolean admin = "true".equals(request.getParameter("admin"));
+
+ // Display //////////////////////////////////////////////////////////////////////////////
+ if (action == null) {
+ %> <table border=1> <tr><td>List Address</td> <td>Description</td></tr> <%
+ List[] all = (List[])List.p.execute(List.all());
+ for(int i=0; i<all.length; i++) {
+ %>
+ <tr>
+ <td> <a href="?action=List&list=<%=all[i].address%>"> <%= all[i].address %> </td>
+ <td> <%= all[i].one_line_description %> </td>
+ if (admin) {
+ <td><input type=submit name=action
+ value="Delete <%=all[i].address.user+"@"+all[i].address.host%>"></td>
+ }
+ </tr>
+ <%
+ }
+ if (admin) {
+ %> <tr>
+ <td> <input type=text size=20 name=name> </td>
+ <td> <input type=text size=40 name=description> </td>
+ <td> <input type=submit name=action value=Add> </td>
+ </tr> </table> <%
+ }
+
+ // Add //////////////////////////////////////////////////////////////////////////////
+ } else if ("Add".equals(action)) {
+ Address a = new Address(request.getParameter("name"));
+ Transaction t =
+ List.create(a,
+ FileBasedMailbox.getFileBasedMailbox(List.ROOT + "/" + a.user + "@" + a.host + "/pending", true),
+ FileBasedMailbox.getFileBasedMailbox(List.ROOT + "/" + a.user + "@" + a.host + "/archive", true));
+ List.p.execute((Transaction)t);
+
+ // Specific List ///////////////////////////////////////////////////////////////////////
+ } else if (action.startsWith("List")) {
+ List list = (List)List.p.execute(List.forAddress(Address.parse(request.getParameter("list"))));
+ %><table border=1>
+ <tr><td>List:</td><td><%=list.address%></td></tr>
+ <tr><td>Description:</td><td><%=list.one_line_description%></td></tr>
+ </table>
+ <input type=hidden name=list value=<%=list.address%>>
+ <input type=text size=30 name=email>
+ <input type=submit name=action value=Subscribe>
+ <%
+
+ // Subscribe //////////////////////////////////////////////////////////////////////////////
+ } else if (action.startsWith("Subscribe")) {
+ List.p.execute(List.subscribeNewUser(Address.parse(request.getParameter("email")), request.getParameter("list")));
+ %><h3>Please check your email</h3>
+ A confirmation message has been sent to you.
+ response.sendRedirect("");
+ <%
+
+ // Delete //////////////////////////////////////////////////////////////////////////////
+ } else if (action.startsWith("Delete")) {
+ Transaction t = List.delete(new Address(action.substring(6).trim()));
+ List.p.execute((Transaction)t);
+ response.sendRedirect("");
+ }
+ %>
+ </form>
+
+ </body>
+</html>
\ No newline at end of file
projects / org.ibex.mail.git / commitdiff