<%init> use AwayMsg; db_connect(); Email "out of office" setup

Email "out of office" setup

Our email addresses

<%perl> my %row; my $sth = $dbh->prepare(< % while (my $row= $sth->fetchrow_hashref()) { % if (defined $row->{'textid'}) { % my $expiry = expires2timet($row->{'expires'}); % if ($expiry > time) { % } else { % } % } else { % } % }
Address O-o-o status Which message? Expiry date
<% $row->{'emailaddr'} |h %>activeexpired<% $row->{'textid'} |h %> <% $row->{'expires'} |h %>inactive