%init>
use AwayMsg;
%init>
Email "out of office" setup
Email "out of office" setup
Our email addresses
<%perl>
my %row;
my $sth = $dbh->prepare("SELECT emailaddr, textid, expires"
" FROM schema
" RIGHT JOIN addresses USING (emailaddr)".
" JOIN texts USING (textid)",
" ORDER BY emailaddr");
%perl>
Address |
O-o-o status |
Which message? |
Expiry date |
% while ($row= $sth->fetchrow_hashref()) {
<% $row->{'emailaddr'} |h %> |
% if (defined $row->{'textid'}) {
% my $expiry = expires2timet($row->{'expires'});
% if ($expiry > time) {
active |
<% $row->{'textid'} |h %> |
<% $row->{'expires'} |h %> |
|