From 23672115664d56f63565c7c8aafa5e084f1f1ae5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 20 Apr 2010 18:10:24 +0100
Subject: [PATCH] Show dates of DECISIONs

---
 webstump/scripts/filter.lib.pl  | 3 ++-
 webstump/scripts/html_output.pl | 9 ++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/webstump/scripts/filter.lib.pl b/webstump/scripts/filter.lib.pl
index 700920d..8aef45f 100644
--- a/webstump/scripts/filter.lib.pl
+++ b/webstump/scripts/filter.lib.pl
@@ -17,6 +17,7 @@ sub process_approval_decision {
   my $ShortDirectoryName = pop( @_ );
   my $newsgroup = pop( @_ );
   my $Subject = pop( @_ );
+  my $now = time;
 
   my $address = $newsgroups_index{$newsgroup};
 
@@ -31,7 +32,7 @@ sub process_approval_decision {
   my $sanisubj= $Subject;
   $sanisubj =~ s/.*\:\://;
 
-print STDERR "DECISION: $newsgroup | $ShortDirectoryName | $decision | $cathow | $sanisubj\n";
+print STDERR "DECISION: $newsgroup | $ShortDirectoryName | $decision | $cathow | $now | $sanisubj\n";
 
   &rmdir_rf( &article_file_name( $ShortDirectoryName ) );
 
diff --git a/webstump/scripts/html_output.pl b/webstump/scripts/html_output.pl
index d5c225e..1c5fd4d 100644
--- a/webstump/scripts/html_output.pl
+++ b/webstump/scripts/html_output.pl
@@ -703,14 +703,17 @@ and are often quoted in message headers in [square brackets].<p>
       my @vals = split / \| /, $';
       return 0 unless @vals >= 5;
       my $subj= pop @vals;
-      my ($group,$dir,$act,$reason) = @vals;
+      my ($group,$dir,$act,$reason,$timet) = @vals;
+      my $date= $timet ? (strftime "%Y-%M-%d %H:%M:%S GMT", gmtime $timet)
+          : "(unknown)";
       return 0 unless $group eq $request{'newsgroup'};
       return 0 unless $subj =~ m,/(\d+)$,;
       my $treqnum= $1;
       return 0 if defined($reqnum) and $treqnum ne $reqnum;
-      print "<table rules=all><tr><th>Reference<th>Disposal<th>Reason</tr>\n"
+      print "<table rules=all><tr><th>Date<th>Reference<th>Disposal<th>Reason</tr>\n"
           unless $sofar;
-      print "<tr>", (map { "<td>".escapeHTML($_) } $treqnum,$act,$reason);
+      print "<tr>", (map { "<td>".escapeHTML($_) }
+                     $date,$treqnum,$act,$reason);
       print "</tr>\n";
       return defined($reqnum) ? 2 : 1;
   });
-- 
2.30.2