5 <title>Email "out of office" setup</title>
7 <h1>Email "out of office" setup</h1>
8 <h2>Our email addresses</h2>
13 my $sth = $dbh->prepare("SELECT emailaddr, textid, expires"
15 " RIGHT JOIN addresses USING (emailaddr)".
16 " JOIN texts USING (textid)",
17 " ORDER BY emailaddr");
24 <td>Which message?</td>
27 % while ($row= $sth->fetchrow_hashref()) {
28 <td><% $row->{'emailaddr'} |h %></td>
29 % if (defined $row->{'textid'}) {
30 % my $expiry = expires2timet($row->{'expires'});
31 % if ($expiry > time) {
33 <td><% $row->{'textid'} |h %></td>
34 <td><% $row->{'expires'} |h %></td>