my $ShortDirectoryName = pop( @_ );
my $newsgroup = pop( @_ );
my $Subject = pop( @_ );
+ my $now = time;
my $address = $newsgroups_index{$newsgroup};
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 ) );
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;
});