mason/main

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