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=c86c8f751b827d8b87b2b799f9f65a7e3f5f5a60 diff --git a/mason/main b/mason/main index de9a0a3..42cfaac 100755 --- 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 | ++% } + |