webstump: use "reject blocklist" for the hardcoded blocklist-related rejection reason

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

diff --git a/webstump/scripts/webstump.lib.pl b/webstump/scripts/webstump.lib.pl
index c76d25dfd1e9f48ca99ba0377af52aad5df1f3d2..cafa469a32da835db9a5557db12af9c19f557339 100644 (file)
--- a/webstump/scripts/webstump.lib.pl
+++ b/webstump/scripts/webstump.lib.pl
@@ -187,7 +187,7 @@ sub init_webstump {
 
       open( FILE, $file ) or die $!;
       $addr = <FILE>;
-      defined $addr or die $!
+      defined $addr or die $!;
       chop $addr;
       close( FILE );
 
@@ -585,7 +585,7 @@ sub approval_decision {
       $decision = "reject thread" if $thread_decision eq "ban";
       $decision = "approve" if $thread_decision eq "preapprove";
 
-      $decision = "reject abuse" if $poster_decision eq "ban";
+      $decision = "reject blocklist" if $poster_decision eq "ban";
       $decision = "approve" if $poster_decision eq "preapprove";
 
       if( -r $fullpath && open( MESSAGE, "$fullpath" ) ) {
@@ -628,7 +628,7 @@ sub approval_decision {
                if $thread_decision eq "watch";
 
 # Subject, newsgroup, ShortDirectoryName, decision, comment
-        &process_approval_decision( $Subject, $newsgroup, $file, $decision, $comment );
+        &process_approval_decision( $Subject, $newsgroup, $file, $decision, $comment, "moderator \U$request{'moderator'}" );
 
       }
     }
@@ -712,6 +712,9 @@ sub processWebRequest {
   } elsif( $action eq "change_password" ) {
     &authenticate( $newsgroup, $moderator, $password );
     &html_change_password;
+  } elsif( $action eq "search_logs" ) {
+    &authenticate( $newsgroup, $moderator, $password );
+    &html_search_logs;
   } elsif( $action eq "validate_change_password" ) {
     &authenticate( $newsgroup, $moderator, $password );
     &validate_change_password;