<%init> use AwayMsg; db_connect(); www_begin($r,$m); my ($sth,$row,$sthi,$rowi); <%shared> our ($cgi,$ar); <&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 textid"); $sthi = $dbh->prepare(<execute(); % while (my $row= $sth->fetchrow_hashref()) {
<% $ar->secret_hidden_html() %>

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

<&| txtable, tx => $row &> % $sthi->execute($row->{'textid'}); % my $anyused = 0; % while (my $rowi= $sthi->fetchrow_hashref()) { Used for:<% $rowi->{'emailaddr'} |h %> % $anyused++; % } % if ($anyused) { Not currently in use % } 
<% $row->{'text'} |h %>
% }

Add new message