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 "out of office" setup</title>
   8 </head><body>
   9 <h1>Email "out of office" 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 <h2>Outbound messages</h2>
  43 <%perl>
  44 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
  45 $sthi = $dbh->prepare(<<END);
  46     SELECT * FROM addresses
  47      WHERE textid = ?
  48      ORDER BY emailaddr
  49 END
  50 $sth->execute();
  51 </%perl>
  52 % while (my $row= $sth->fetchrow_hashref()) {
  53 <form action="edit" method="get">
  54 <h3>Message "<% $row->{'desc'} |h %>"</h3>
  55
  56 <&| txtable, tx => $row &>
  57 %    $sthi->execute($row->{'textid'});
  58 %    while (my $rowi= $sthi->fetchrow_hashref()) {
  59 <tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
  60 %    }
  61 </&>
  62 <pre>
  63 <% $row->{'text'} |h %>
  64 </pre>
  65
  66 <input type="submit" name="t<% $row->{'textid'} %>"
  67    value="Edit or configure this message">
  68 % }
  69 <h3>Add new message</h3>
  70 <input type="submit" name="create"
  71    value="Start adding new message">
  72 </form>