%init>
use AwayMsg;
db_connect();
www_begin($r,$m);
my ($sth,$row,$sthi,$rowi);
%init>
<&htmlhead, subpage => 'Overview' &>
Email addresses and their configuration
<%perl>
$sth = $dbh->prepare(<execute();
%perl>
Address |
Status |
Which message? |
% while (my $row= $sth->fetchrow_hashref()) {
<% $row->{'emailaddr'} |h %> |
% if (defined $row->{'textid'}) {
active |
<% $row->{'desc'} |h %> |
% } else {
inactive |
|
% }
% }
Outbound messages
<%perl>
$sth = $dbh->prepare("SELECT * FROM texts ORDER BY textid");
$sthi = $dbh->prepare(<execute();
%perl>
% while (my $row= $sth->fetchrow_hashref()) {