From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 30 Aug 2012 00:49:24 +0000 (+0100)
Subject: wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=commitdiff_plain;h=a4492000ae412dddf77ab5149a7a0c4d57035bf0

wip
---

diff --git a/mason/main b/mason/main
index e8c29e6..07a5efe 100755
--- a/mason/main
+++ b/mason/main
@@ -58,12 +58,17 @@ END
 $sth->execute();
 </%perl>
 % while (my $row= $sth->fetchrow_hashref()) {
+<form action="edit" method="get">
 <h3>Message "<% $row->{'desc'} |h %>"</h3>
 <table>
 <tr><td>Short name:</td><td><% $row->{'desc'} |h %></td></tr>
 <tr><td>Expires:</td><td><%
   expirestime2show(expires2timet($row->{'expires'}))
                                               |h %></td></tr>
+%    $sthi->execute($row->{'textid'});
+%    while (my $rowi= $sthi->fetchrow_hashref()) {
+<tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
+%    }
 <tr><td>Subject:</td>
   <td><code><% $row->{'subject'} |h %></code></td></tr>
 </table>
@@ -71,4 +76,10 @@ $sth->execute();
 <pre>
 <% $row->{'text'} |h %>
 </pre>
+<input type="submit" name="t<% $row->{'textid'} %>"
+   value="Edit or configure this message">
 % }
+<h3>Add new message</h3>
+<input type="submit" name="create"
+   value="Start adding new message">
+</form>