<%init> use AwayMsg; db_connect(); my ($sth,$row,$sthi,$rowi); Email "out of office" setup

Email "out of office" setup

Email addresses and their configuration

<%perl> $sth = $dbh->prepare(<execute(); % while (my $row= $sth->fetchrow_hashref()) { % if (defined $row->{'textid'}) { % my $expires = expires2timet($row->{'expires'}); % if (defined($expires) && $expires < time) { % } else { % } % } else { % } % }
Address Status Which message? Expiry date
<% $row->{'emailaddr'} |h %>expiredactive<% $row->{'desc'} |h %> <% expirestime2show($expires) |h %>inactive

Outbound messages

<%perl> $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc"); $sthi = $dbh->prepare(<execute(); % while (my $row= $sth->fetchrow_hashref()) {

Message "<% $row->{'desc'} |h %>"

% $sthi->execute($row->{'textid'}); % while (my $rowi= $sthi->fetchrow_hashref()) { % }
Short name:<% $row->{'desc'} |h %>
Expires:<% expirestime2show(expires2timet($row->{'expires'})) |h %>
Used for:<% $rowi->{'emailaddr'} |h %>
Subject: <% $row->{'subject'} |h %>

<% $row->{'text'} |h %>
% }

Add new message