4 my ($sth,$row,$sthi,$rowi);
7 <title>Email "out of office" setup</title>
9 <h1>Email "out of office" setup</h1>
11 <h2>Email addresses and their configuration</h2>
13 $sth = $dbh->prepare(<<END);
16 LEFT JOIN config USING (emailaddr)
17 LEFT JOIN texts USING (textid)
26 <td>Which message?</td>
29 % while (my $row= $sth->fetchrow_hashref()) {
31 <td><% $row->{'emailaddr'} |h %></td>
32 % if (defined $row->{'textid'}) {
33 % my $expires = expires2timet($row->{'expires'});
34 % if (defined($expires) && $expires < time) {
39 <td><% $row->{'desc'} |h %></td>
40 <td><% expirestime2show($expires) |h %></td>
50 <h2>Outbound messages</h2>
52 $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
53 $sthi = $dbh->prepare(<<END);
54 SELECT * FROM addresses
60 % while (my $row= $sth->fetchrow_hashref()) {
61 <h3>Message "<% $row->{'desc'} |h %>"</h3>
63 <tr><td>Short name:</td><td><% $row->{'desc'} |h %></td></tr>
64 <tr><td>Expires:</td><td><%
65 expirestime2show(expires2timet($row->{'expires'}))
68 <td><code><% $row->{'subject'} |h %></code></td></tr>
72 <% $row->{'text'} |h %>