mason/main

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