5 my ($sth,$row,$sthi,$rowi);
10 <&htmlhead, subpage => 'Overview' &>
12 <h2>Email addresses and their configuration</h2>
14 $sth = $dbh->prepare(<<END);
17 LEFT JOIN addresses USING (emailaddr)
18 LEFT JOIN texts USING (textid)
27 <td>Which message?</td>
29 % while (my $row= $sth->fetchrow_hashref()) {
31 <td><% $row->{'emailaddr'} |h %></td>
32 % if (defined $row->{'textid'}) {
34 <td><% $row->{'desc'} |h %></td>
44 <h2>Outbound messages</h2>
46 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY textid");
47 $sthi = $dbh->prepare(<<END);
48 SELECT * FROM addresses
54 % while (my $row= $sth->fetchrow_hashref()) {
55 <form action="<% $ENV{'URL'} %>/edit" method="POST">
56 <% $ar->secret_hidden_html() %>
57 <h3>Message "<% $row->{'desc'} |h %>"</h3>
59 <&| txtable, tx => $row &>
60 % $sthi->execute($row->{'textid'});
62 % while (my $rowi= $sthi->fetchrow_hashref()) {
63 <tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
67 <tr><td colspan=2>Not currently in use</td></tr>
71 <% $row->{'text'} |h %>
74 <input type="submit" name="t_<% $row->{'textid'} %>"
75 value="Edit or configure this message">
78 <h3>Add new message</h3>
79 <input type="submit" name="create"
80 value="Start adding new message">