use debian specific library locations

[debbugs.git] / scripts / spamscan-sa

diff --git a/scripts/spamscan-sa b/scripts/spamscan-sa
index 29a1fb6ff141a9ff9f2879a565cec5d941a5c6ce..26c41729ad1ce7c6e37f985b0bf5eb92eb9638e2 100755 (executable)
--- a/scripts/spamscan-sa
+++ b/scripts/spamscan-sa
@@ -6,8 +6,12 @@
 
 use warnings;
 use strict;
+
+use lib qw(/srv/bugs.debian.org/scripts/);
+
 use Mail::CrossAssassin;
 use Mail::SpamAssassin;
+use Mail::SpamAssassin::Logger;
 
 use Debbugs::Config qw(:config);
 # New versions of debbugs will not allow use in /etc/debbugs/config
@@ -24,19 +28,25 @@ sub header_or_empty ($$) {
     my $value = $mail->get_header($hdr);
     if (defined $value) {
        chomp $value;
-       $value =~ tr/\n/\\n/;
+        # replace newlines with '\n'
+       $value =~ s/\n/\\n/g;
        return $value;
     }
     return '';
 }
 
 my $spam = Mail::SpamAssassin->new({
-        dont_copy_prefs => 1,
-        site_rules_filename => $config{spam_rules_dir},
-        userprefs_filename => $config{spam_user_prefs},
+        #dont_copy_prefs => 1,
+#      debug => 'all',
+        #site_rules_filename => $config{spam_rules_dir},
+        #userprefs_filename => $config{spam_user_prefs},
                local_tests_only => ($config{spam_local_tests_only} || 0),
                debug => ($ENV{DEBBUGS_SPAM_DEBUG} || 0),
 });
+#Mail::SpamAssassin::Logger::add(method => 'file',filename => "/home/debbugs/.spamassassin/debuglog_".time."_$$");
+# wait longer for a lock
+$spam->init_learner({wait_for_lock => 1});
+
 $spam->compile_now(1); # use all user preferences
 
 while (my $id = <STDIN>) {