Show dates of DECISIONs

[modbot-mtm.git] / webstump / scripts / filter.lib.pl

diff --git a/webstump/scripts/filter.lib.pl b/webstump/scripts/filter.lib.pl
index 700920da9912f470263da152820513ee29291ca6..8aef45fe54112f53e4d590f157fe4b000849951d 100644 (file)
--- 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 ) );