diff options
Diffstat (limited to 'alias-list-form.txr')
| -rw-r--r-- | alias-list-form.txr | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/alias-list-form.txr b/alias-list-form.txr index c9293ae..eeea9d0 100644 --- a/alias-list-form.txr +++ b/alias-list-form.txr @@ -18,6 +18,18 @@ <h3>Your mail aliases:</h2> <form name="aliaslist" method="post" action="?update-aliases"> @ (end) +@ (if (cdddr aliases)) +@ (output) + <div> + <label for="query">Find:</label> + <input type="text" name="query" value="@{(html-encode search-query)}" @\ + size="60"> + <input type="submit" name="search" value="Search"> + </div> +@ (end) +@ (end) +@ (do (if search-regex + (set aliases (keep-if (op (umeth match) @1 search-regex) aliases)))) @ (if aliases) @ (output) <div> @@ -47,7 +59,7 @@ 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>@(time-string-local aliases.creation-time date-format)</td> <td>@{aliases.(get-html-memo)} @\ <sup>[<a href="?edit=@{aliases.address}">edit</a>]</sup></td> </tr> |