X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?a=blobdiff_plain;f=webstump%2Fscripts%2Ffilter.lib.pl;h=8aef45fe54112f53e4d590f157fe4b000849951d;hb=23672115664d56f63565c7c8aafa5e084f1f1ae5;hp=700920da9912f470263da152820513ee29291ca6;hpb=07e50e338eceafb3882a54adefe3dd25ad14f835;p=modbot-mtm.git 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 ) );