summaryrefslogtreecommitdiffstats
path: root/alias-list-form.txr
blob: 9f46b415260f116a9ccd655f91b727f458a46295 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
@(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">Select</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}"
                 @(if (slot aliases 'selected) "checked=\"checked\"" "")
                 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>
  <div>
    <table cellspacing="10">
      <tr>
        <td><input type="submit" name="move-up" value="Move up"
                   title="Move checkboxed aliases up one row."></td>
        <td><input type="submit" name="move-down" value="Move down"
                   title="Move the checkboxed aliases down one row."></td>
        <td><input type="submit" name="move-top" value="Move to top"
                   title="Move checkboxed aliases to top of list."></td>
        <td><input type="submit" name="move-bot" value="Move to bottom"
                   title="Move checkboxed aliases to bottom of list."></td>
        <td><input type="submit" name="delete" value="Delete Selected"
                   title="Permantently delete the checkboxed aliases."></td>
      </tr>
    <table>
  </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)