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>