X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fmain;h=42cfaac56e48329390f41856deb226eb73c93593;hp=de9a0a3b9b4ab9238acde36d15881e0a3a2e181c;hb=47aa1f68c037b4f199b66740c94f837a7110ca2f;hpb=fa1084e8d681187707259ed712f6d5d5c7b99526 diff --git a/mason/main b/mason/main old mode 100644 new mode 100755 index de9a0a3..42cfaac --- a/mason/main +++ b/mason/main @@ -1,36 +1,74 @@ -<%doc> -<%/doc> <%init> use AwayMsg; +db_connect(); +my ($sth,$row,$sthi,$rowi); +%init>
-Address | -O-o-o status | +Status | Which message? | -Expiry date | |||
<% $row->{'emailaddr'} |h %> | % if (defined $row->{'textid'}) { -% my $expiry = expires2timet($row->{'expires'}); -% if ($expiry > time) {active | -<% $row->{'textid'} |h %> | -<% $row->{'expires'} |h %> | -+ | <% $row->{'desc'} |h %> | +% } else { +inactive | ++% } + |