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("SELECT emailaddr, textid, expires"
16 " RIGHT JOIN addresses USING (emailaddr)".
17 " JOIN texts USING (textid)",
18 " ORDER BY emailaddr");
25 <td>Which message?</td>
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) {
34 <td><% $row->{'textid'} |h %></td>
35 <td><% $row->{'expires'} |h %></td>