mason/main

   1 <%init>
   2 use AwayMsg;
   3 db_connect();
   4 </%init>
   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(<<END);
  15     SELECT emailaddr, textid, expires
  16      FROM        config
  17        LEFT JOIN addresses USING (emailaddr)
  18        LEFT JOIN texts     USING (textid)
  19      ORDER BY emailaddr
  20 END
  21 </%perl>
  22
  23 <table>
  24 <tr>
  25 <td>Address</td>
  26 <td>O-o-o status</td>
  27 <td>Which message?</td>
  28 <td>Expiry date</td>
  29 </tr><tr>
  30 % while (my $row= $sth->fetchrow_hashref()) {
  31 <tr>
  32 <td><% $row->{'emailaddr'} |h %></td>
  33 %     if (defined $row->{'textid'}) {
  34 %         my $expiry = expires2timet($row->{'expires'});
  35 %         if ($expiry > time) {
  36 <td>active</td>
  37 %         } else {
  38 <td>expired</td>
  39 %         }
  40 <td><% $row->{'textid'} |h %></td>
  41 <td><% $row->{'expires'} |h %></td>
  42 %     } else {
  43 <td>inactive</td>
  44 <td></td>
  45 <td></td>
  46 %     }
  47 </tr>
  48 % }
  49 </table>