<%init> use AwayMsg; 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"); % while ($row= $sth->fetchrow_hashref()) { % if (defined $row->{'textid'}) { % my $expiry = expires2timet($row->{'expires'}); % if ($expiry > time) {
Address O-o-o status Which message? Expiry date
<% $row->{'emailaddr'} |h %>active <% $row->{'textid'} |h %> <% $row->{'expires'} |h %>