wip

[nj-awaymsg.git] / mason / main

diff --git a/mason/main b/mason/main
index e8c29e6fd7c864ec49941a2fc02e56d33ad10162..07a5efebf1b8ebcdca80f4713348cd88ad75c99a 100755 (executable)
--- 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>