X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=blobdiff_plain;f=mason%2Fmain;h=ac49c50ccbfa35592dd2fa359a02eceff88a63f1;hp=e8c29e6fd7c864ec49941a2fc02e56d33ad10162;hb=84779d17f630c021da997ea4627d396b78c85d9e;hpb=8b294424211f992a399bc48919b4f868c23530b9 diff --git a/mason/main b/mason/main index e8c29e6..ac49c50 100755 --- a/mason/main +++ b/mason/main @@ -12,8 +12,8 @@ my ($sth,$row,$sthi,$rowi); <%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 @@ -58,17 +50,23 @@ END $sth->execute(); % while (my $row= $sth->fetchrow_hashref()) { +

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

- - - - - -
Short name:<% $row->{'desc'} |h %>
Expires:<% - expirestime2show(expires2timet($row->{'expires'})) - |h %>
Subject:<% $row->{'subject'} |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

+ +