X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fmain;h=206da109eaf01b13f7e995abbccacdf5245a964c;hp=b70a3de9e395e86c22e5ea54411cff70dbedd72a;hb=9cc1c4dfcca1ae70756fef8b9ebf37aa357c8e60;hpb=a8266f995aee0cf7c39c27d9d73b267e56049374 diff --git a/mason/main b/mason/main index b70a3de..206da10 100755 --- a/mason/main +++ b/mason/main @@ -3,17 +3,14 @@ use AwayMsg; db_connect(); my ($sth,$row,$sthi,$rowi); - -Email "out of office" setup - -

Email "out of office" setup

+<&htmlhead, subpage => 'Overview'&>

Email addresses and their configuration

<%perl> $sth = $dbh->prepare(<execute(); Address Status Which message? -Expiry date % while (my $row= $sth->fetchrow_hashref()) { <% $row->{'emailaddr'} |h %> % if (defined $row->{'textid'}) { -% my $expires = expires2timet($row->{'expires'}); -% if (defined($expires) && $expires < time) { -expired -% } else { active -% } <% $row->{'desc'} |h %> -<% expirestime2show($expires) |h %> % } else { inactive - % } % } +

Outbound messages

<%perl> $sth = $dbh->prepare("SELECT * FROM texts ORDER BY desc"); @@ -61,18 +51,19 @@ $sth->execute();

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

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