mason/main

   1 <%init>
   2 use AwayMsg;
   3 </%init>
   4 <html lang="en"><head>
   5 <title>Email "out of office" setup</title>
   6 </head><body>
   7 <h1>Email "out of office" setup</h1>
   8 <h2>Our email addresses</h2>
   9
  10
  11 <%perl>
  12 my %row;
  13 my $sth = $dbh->prepare("SELECT emailaddr, textid, expires"
  14                         " FROM schema
  15                         " RIGHT JOIN addresses USING (emailaddr)".
  16                         " JOIN texts USING (textid)",
  17                         " ORDER BY emailaddr");
  18 </%perl>
  19
  20 <table>
  21 <tr>
  22 <td>Address</td>
  23 <td>O-o-o status</td>
  24 <td>Which message?</td>
  25 <td>Expiry date</td>
  26 </tr><tr>
  27 % while ($row= $sth->fetchrow_hashref()) {
  28 <td><% $row->{'emailaddr'} |h %></td>
  29 %     if (defined $row->{'textid'}) {
  30 %         my $expiry = expires2timet($row->{'expires'});
  31 %         if ($expiry > time) {
  32 <td>active</td>
  33 <td><% $row->{'textid'} |h %></td>
  34 <td><% $row->{'expires'} |h %></td>
  35 <td>