%init>
use AwayMsg;
db_connect();
my ($sth,$row,$sthi,$rowi);
%init>
Email "out of office" setup
Email "out of office" setup
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'}) {
<% $row->{'desc'} |h %> |
% } else {
inactive |
|
|
% }
% }
Outbound messages
<%perl>
$sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc");
$sthi = $dbh->prepare(<execute();
%perl>
% while (my $row= $sth->fetchrow_hashref()) {