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        addresses
  16        LEFT JOIN config    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 <td>Expiry date</td>
  28 </tr><tr>
  29 % while (my $row= $sth->fetchrow_hashref()) {
  30 <tr>
  31 <td><% $row->{'emailaddr'} |h %></td>
  32 %     if (defined $row->{'textid'}) {
  33 %         my $expires = expires2timet($row->{'expires'});
  34 %         if (defined($expires) && $expires < time) {
  35 <td>expired</td>
  36 %         } else {
  37 <td>active</td>
  38 %         }
  39 <td><% $row->{'desc'} |h %></td>
  40 <td><% expirestime2show($expires) |h %></td>
  41 %     } else {
  42 <td>inactive</td>
  43 <td></td>
  44 <td></td>
  45 %     }
  46 </tr>
  47 % }
  48 </table>
  49
  50 <h2>Outbound messages</h2>
  51 <%perl>
  52 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
  53 $sthi = $dbh->prepare(<<END);
  54     SELECT * FROM addresses
  55      WHERE textid = ?
  56      ORDER BY emailaddr
  57 END
  58 $sth->execute();
  59 </%perl>
  60 % while (my $row= $sth->fetchrow_hashref()) {
  61 <form action="edit" method="get">
  62 <h3>Message "<% $row->{'desc'} |h %>"</h3>
  63
  64 <& txtable, tx => $row &>
  65 %#    $sthi->execute($row->{'textid'});
  66 % #   while (my $rowi= $sthi->fetchrow_hashref()) {
  67 %#<tr><td>Used for:</td><td><% $rowi->{'emailaddr'} |h %></td></tr>
  68 %#    }
  69 %#</&>
  70 <pre>
  71 <% $row->{'text'} |h %>
  72 </pre>
  73
  74 <input type="submit" name="t<% $row->{'textid'} %>"
  75    value="Edit or configure this message">
  76 % }
  77 <h3>Add new message</h3>
  78 <input type="submit" name="create"
  79    value="Start adding new message">
  80 </form>