X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=mason%2Fmain;h=e0d35c9a46f859d62305fa91662c7ce2a3d41a3d;hb=bf9eedd3878e49ca2c27d8393dad92d3de29e454;hp=11dba6bc637c571f84d0f7b54e070f0b96fe02c5;hpb=71f90a83b22c354ea81a40259d0ced34b73353b9;p=nj-awaymsg.git diff --git a/mason/main b/mason/main index 11dba6b..e0d35c9 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"); @@ -73,6 +63,7 @@ $sth->execute(); +
% }

Add new message