<%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'}) { % } else { % } % }
Address Status Which message?
<% $row->{'emailaddr'} |h %><% $row->{'desc'} |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 %>"

<&| txtable, tx => $row &> % $sthi->execute($row->{'textid'}); % while (my $rowi= $sthi->fetchrow_hashref()) { Used for:<% $rowi->{'emailaddr'} |h %> % } 
<% $row->{'text'} |h %>
% }

Add new message