diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-03-02 06:57:09 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-03-02 06:57:09 -0800 |
| commit | 92241abe22d0976d115fbd4caacbf5121d5d5c04 (patch) | |
| tree | 6336e561ea34d297a25413594a29f1a4359581be /edit-memo-form.txr | |
| parent | 84ffdada07f03facc90cb7cfc6adacd19025d2c9 (diff) | |
| download | tamarind-92241abe22d0976d115fbd4caacbf5121d5d5c04.tar.gz tamarind-92241abe22d0976d115fbd4caacbf5121d5d5c04.tar.bz2 tamarind-92241abe22d0976d115fbd4caacbf5121d5d5c04.zip | |
Tamarind.
Diffstat (limited to 'edit-memo-form.txr')
| -rw-r--r-- | edit-memo-form.txr | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/edit-memo-form.txr b/edit-memo-form.txr new file mode 100644 index 0000000..36e1679 --- /dev/null +++ b/edit-memo-form.txr @@ -0,0 +1,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) |