4 my ($sth,$row,$sthi,$rowi);
7 <title>Email away message setup</title>
9 <h1>Email away message setup</h1>
11 <h2>Email addresses and their configuration</h2>
13 $sth = $dbh->prepare(<<END);
16 LEFT JOIN addresses USING (emailaddr)
17 LEFT JOIN texts USING (textid)
26 <td>Which message?</td>
28 % while (my $row= $sth->fetchrow_hashref()) {
30 <td><% $row->{'emailaddr'} |h %></td>
31 % if (defined $row->{'textid'}) {
33 <td><% $row->{'desc'} |h %></td>
43 <h2>Outbound messages</h2>
45 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
46 $sthi = $dbh->prepare(<<END);
47 SELECT * FROM addresses
53 % while (my $row= $sth->fetchrow_hashref()) {
54 <form action="edit" method="get">
55 <h3>Message "<% $row->{'desc'} |h %>"</h3>
57 <&| txtable, tx => $row &>
58 % $sthi->execute($row->{'textid'});
59 % while (my $rowi= $sthi->fetchrow_hashref()) {
60 <tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
64 <% $row->{'text'} |h %>
67 <input type="submit" name="t<% $row->{'textid'} %>"
68 value="Edit or configure this message">
71 <h3>Add new message</h3>
72 <input type="submit" name="create"
73 value="Start adding new message">