mason/main

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