6 <title>Email "out of office" setup</title>
8 <h1>Email "out of office" setup</h1>
9 <h2>Our email addresses</h2>
14 my $sth = $dbh->prepare(<<END);
15 SELECT emailaddr, textid, expires
17 LEFT JOIN addresses USING (emailaddr)
18 LEFT JOIN texts USING (textid)
27 <td>Which message?</td>
30 % while (my $row= $sth->fetchrow_hashref()) {
32 <td><% $row->{'emailaddr'} |h %></td>
33 % if (defined $row->{'textid'}) {
34 % my $expiry = expires2timet($row->{'expires'});
35 % if ($expiry > time) {
40 <td><% $row->{'textid'} |h %></td>
41 <td><% $row->{'expires'} |h %></td>