6 <title>Email "out of office" setup</title>
8 <h1>Email "out of office" setup</h1>
9 <h2>Email addresses and their configuration</h2>
14 my $sth = $dbh->prepare(<<END);
17 LEFT JOIN config USING (emailaddr)
18 LEFT JOIN texts USING (textid)
27 <td>Which message?</td>
31 % while (my $row= $sth->fetchrow_hashref()) {
33 <td><% $row->{'emailaddr'} |h %></td>
34 % if (defined $row->{'textid'}) {
35 % my $expires = expires2timet($row->{'expires'});
36 % if (defined($expires) && $expires < time) {
41 <td><% $row->{'name'} |h %></td>
42 % if (defined $expires) {
43 <td><% $row->{'expires'} |h %></td>