# Subject, newsgroup, ShortDirectoryName, decision, comment
sub process_approval_decision {
-
+ my $cathow = @_>=6 ? pop(@_) : "UNKNOWN";
my $comment = pop( @_ );
my $decision = pop( @_ );
my $ShortDirectoryName = pop( @_ );
$message .= "comment $comment\n" if $comment;
&email_message( $message, $address );
-print STDERR "DECISION: $decision for $ShortDirectoryName sent to $address, for $newsgroup\n";
+ my $sanisubj= $Subject;
+ $sanisubj =~ s/.*\:\://;
+
+print STDERR "DECISION: $newsgroup | $ShortDirectoryName | $decision | $cathow | $sanisubj\n";
&rmdir_rf( &article_file_name( $ShortDirectoryName ) );
my $newsgroup = pop( @_ );
if( &name_is_in_list( $from, "bad.posters.list" ) ) {
- &process_approval_decision( $subject, $newsgroup, $dir, "reject abuse", "" );
+ &process_approval_decision( $subject, $newsgroup, $dir, "reject abuse", "", "auto bad poster" );
return;
}
if( &name_is_in_list( $real_subject, "bad.subjects.list" ) ) {
- &process_approval_decision( $subject, $newsgroup, $dir, "reject thread", "" );
+ &process_approval_decision( $subject, $newsgroup, $dir, "reject thread", "", "auto bad subject" );
return;
}
&process_approval_decision( $subject, $newsgroup, $dir, "reject charter",
"Your message has been autorejected because it appears to be off topic
based on our filtering criteria. Like everything, filters do not
- always work perfectly and you can always appeal this decision." );
+ always work perfectly and you can always appeal this decision.",
+ "auto bad word" );
return;
}
}
if( &name_is_in_list( $from, "good.posters.list" ) ) {
- &process_approval_decision( $subject, $newsgroup, $dir, "approve", "" );
+ &process_approval_decision( $subject, $newsgroup, $dir, "approve", "",
+ "auto good poster" );
return;
}
if( &name_is_in_list( $real_subject, "good.subjects.list" ) ) {
- &process_approval_decision( $subject, $newsgroup, $dir, "approve", "" );
+ &process_approval_decision( $subject, $newsgroup, $dir, "approve", "",
+ "auto good subject" );
return;
}