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>Email addresses and their configuration</h2>
  10
  11
  12 <%perl>
  13 my %row;
  14 my $sth = $dbh->prepare(<<END);
  15     SELECT *
  16      FROM        addresses
  17        LEFT JOIN config    USING (emailaddr)
  18        LEFT JOIN texts     USING (textid)
  19      ORDER BY emailaddr
  20 END
  21 </%perl>
  22
  23 <table rules="all">
  24 <tr>
  25 <td>Address</td>
  26 <td>Status</td>
  27 <td>Which message?</td>
  28 <td>Expiry date</td>
  29 </tr><tr>
  30 % $sth->execute();
  31 % while (my $row= $sth->fetchrow_hashref()) {
  32 <tr>
  33 <td><% $row->{'emailaddr'} |h %></td>
  34 %     if (defined $row->{'textid'}) {
  35 %         my $expires = expires2timet($row->{'expires'});
  36 %         if (defined($expires) && $expires < time) {
  37 <td>expired</td>
  38 %         } else {
  39 <td>active</td>
  40 %         }
  41 <td><% $row->{'name'} |h %></td>
  42 %         if (defined $expires) {
  43 <td><% $row->{'expires'} |h %></td>
  44 %         } else {
  45 <td>never</td>
  46 %         }
  47 %     } else {
  48 <td>inactive</td>
  49 <td></td>
  50 <td></td>
  51 %     }
  52 </tr>
  53 % }
  54 </table>