X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=mason%2Fmain;fp=mason%2Fmain;h=07a5efebf1b8ebcdca80f4713348cd88ad75c99a;hb=a4492000ae412dddf77ab5149a7a0c4d57035bf0;hp=e8c29e6fd7c864ec49941a2fc02e56d33ad10162;hpb=8b294424211f992a399bc48919b4f868c23530b9;p=nj-awaymsg.git

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>