1 files changed, 84 insertions, 0 deletions
diff --git a/alias-list-form.txr b/alias-list-form.txr
new file mode 100644
index 0000000..11adaa9
--- /dev/null
+++ b/alias-list-form.txr
@@ -0,0 +1,84 @@
+@(define alias-list-form (userid))
+@  (load-aliases userid aliases)
+@  (headers)
+@  (output)
+<!doctype html public "-//W3C//DTD HTML 4.01//EN">
+<html>
+<head>
+<title>Tamarind Throwaway Mail Alias Manager</title>
+@csslink
+</head>
+<body onload="document.aliaslist.memo.focus();">
+<h2>Welcome to Tamarind, @userid!</h2>
+<form name="logout" method="post" action="?logout">
+  <div>
+    <input type="submit" name="logout" value="Log Out">
+  </div>
+</form>
+<h3>Your mail aliases:</h2>
+<form name="aliaslist" method="post" action="?update-aliases">
+@  (end)
+@  (if aliases)
+@    (output)
+  <div>
+    <table cellspacing="10">
+      <tr>
+        <th align="right">
+          <input type="button" name="delete" value="Del" onclick="submit();"
+                 title="Permantently delete the checkboxed aliases."></th>
+        <th align="left">Alias</th>
+        <th align="left">Date Created</th>
+        <th align="left">Memo</th>
+      </tr>
+@(repeat :vars (aliases))
+      <tr>
+        <td align="center">
+          <input type="checkbox" name="chkbox-@{aliases.address}"
+                 title="Check this box if you wish to delete this alias. @\
+                        You can check multiple aliases and then delete @\
+                        them at the same time with @\
+                        the Del button above."></td>
+        <td><a href="mailto:@{aliases.address}@@@domain"
+               title="This is an e-mail alias. Messages sent to this @\
+                      address are delivered to your @userid@@@domain @\
+                      inbox.  You can tell these messages are for the @\
+                      alias because they are addressed @\
+                      To: <@{aliases.address}@@@domain>. If you @\
+                      delete the alias, it can no longer be used to @\
+                      send you e-mail. Attempts to send e-mail to a deleted @\
+                      alias result in a non-delivery notice (bounce).">@\
+            @{aliases.address}@@@domain</a></td>
+        <td>@(time-string-local aliases.creation-time "%Y-%m-%d %H:%M %Z")</td>
+        <td>@{aliases.(get-html-memo)}&nbsp;@\
+            <sup>[<a href="?edit=@{aliases.address}">edit</a>]</sup></td>
+      </tr>
+@(end)
+    </table>
+  </div>
+  <div>
+  </div>
+@    (end)
+@  (else)
+@    (output)
+  <p>You have none. Use the field and button below to create one.</p>
+@    (end)
+@  (end)
+@  (output)
+  <div>
+    <label for="memo">Memo:</label>
+    <input type="text" name="memo" value="" size="60"
+           title="When you click Create New to generate a new @\
+                  e-mail alias, information entered into this box @\
+                  will be associated with that alias. Use it to track @\
+                  the purpose of the alias, such as who it was given @\
+                  to (which web site or vendor and so forth). Do not @\
+                  include the date; aliases are dated.">
+    <input type="submit" name="create" value="Create New"
+           title="Create a new random e-mail alias, @\
+                  with the Memo attached.">
+  </div>
+</form>
+</body>
+</html>
+@  (end)
+@(end)