Re-instate the blocklist of banned posters

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

diff --git a/webstump/scripts/filter.lib.pl b/webstump/scripts/filter.lib.pl
index 891f7c926f7a17b4774db47f19c57b26f123342a..b82a55a52e836b46979827242141b983c6ca66e8 100644 (file)
--- a/webstump/scripts/filter.lib.pl
+++ b/webstump/scripts/filter.lib.pl
@@ -92,6 +92,11 @@ sub review_incoming_message { # Newsgroup, From, Subject, RealSubject, Message,
   my $from = pop( @_ );
   my $newsgroup = pop( @_ );
 
+  if( &name_is_in_list( $from, "bad.posters.list" ) ) {
+    &process_approval_decision( $subject, $newsgroup, $dir, "reject blocklist", "", "auto bad poster" );
+    return;
+  }
+
   my $warning_file = &article_file_name( $dir ) . "/stump-warning.txt";
   my $match;