<%init> use AwayMsg; db_connect(); www_begin($r,$m); my ($sth,$row,$sthi,$rowi); <&htmlhead, subpage => 'Overview' &>

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 %>active <% $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