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 ) );