chiark / gitweb /
e0d35c9a46f859d62305fa91662c7ce2a3d41a3d
[nj-awaymsg.git] / mason / main
1 <%init>
2 use AwayMsg;
3 db_connect();
4 my ($sth,$row,$sthi,$rowi);
5 </%init>
6 <&htmlhead, subpage => 'Overview' &>
7
8 <h2>Email addresses and their configuration</h2>
9 <%perl>
10 $sth = $dbh->prepare(<<END);
11     SELECT *
12      FROM        config
13        LEFT JOIN addresses USING (emailaddr)
14        LEFT JOIN texts     USING (textid)
15      ORDER BY emailaddr
16 END
17 $sth->execute();
18 </%perl>
19 <table rules="all">
20 <tr>
21 <td>Address</td>
22 <td>Status</td>
23 <td>Which message?</td>
24 </tr><tr>
25 % while (my $row= $sth->fetchrow_hashref()) {
26 <tr>
27 <td><% $row->{'emailaddr'} |h %></td>
28 %     if (defined $row->{'textid'}) {
29 <td>active</td>
30 <td><% $row->{'desc'} |h %></td>
31 %     } else {
32 <td>inactive</td>
33 <td></td>
34 %     }
35 </tr>
36 % }
37 </table>
38
39 <hr>
40 <h2>Outbound messages</h2>
41 <%perl>
42 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
43 $sthi = $dbh->prepare(<<END);
44     SELECT * FROM addresses
45      WHERE textid = ?
46      ORDER BY emailaddr
47 END
48 $sth->execute();
49 </%perl>
50 % while (my $row= $sth->fetchrow_hashref()) {
51 <form action="edit" method="get">
52 <h3>Message "<% $row->{'desc'} |h %>"</h3>
53
54 <&| txtable, tx => $row &>
55 %    $sthi->execute($row->{'textid'});
56 %    while (my $rowi= $sthi->fetchrow_hashref()) {
57 <tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
58 %    }
59 </&>
60 <pre>
61 <% $row->{'text'} |h %>
62 </pre>
63
64 <input type="submit" name="t<% $row->{'textid'} %>"
65    value="Edit or configure this message">
66 <hr>
67 % }
68 <h3>Add new message</h3>
69 <input type="submit" name="create"
70    value="Start adding new message">
71 </form>