blob: 36e1679c69a897c31d586aac5fa9005ba9c7cc54 (
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
|
@(define edit-memo-form (userid edit-alias))
@ (local alias)
@ (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.editmemo.memo.focus();">
<h2>Edit the memo for @{edit-alias}</h2>
<form name="editmemo" method="post" action="?update-memo&@{edit-alias}">
@ (end)
@ (bind alias @(find edit-alias aliases))
@ (if alias)
@ (output)
<div>
<label for="memo">Memo:</label>
<input type="text" name="memo" @\
value="@{alias.(get-decoded-memo)}" size="60">
<input type="submit" name="update" value="Update">
</div>
</form>
</body>
</html>
@ (end)
@ (else)
@ (output)
<h2>Oops, something is wrong: @{edit-alias} doesn't seem to exist.</h2>
@ (end)
@ (end)
@(end)
|
