svn commit: r157061 - spamassassin/trunk/masses/mass-check

[qu...@apache.org]

Author: quinlan
Date: Fri Mar 11 00:49:25 2005
New Revision: 157061

URL: http://svn.apache.org/viewcvs?view=rev&rev=157061
Log:
automatically zero scores for reused rules

Modified:
    spamassassin/trunk/masses/mass-check

Modified: spamassassin/trunk/masses/mass-check
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/mass-check?view=diff&r1=157060&r2=157061
==============================================================================
--- spamassassin/trunk/masses/mass-check (original)
+++ spamassassin/trunk/masses/mass-check Fri Mar 11 00:49:25 2005
@@ -94,6 +94,7 @@
 eval "use bytes";
 use Mail::SpamAssassin::ArchiveIterator;
 use Mail::SpamAssassin;
+use File::Copy;
 use Getopt::Long;
 use POSIX qw(strftime);
 use constant HAS_TIME_PARSEDATE => eval { require Time::ParseDate; };
@@ -137,10 +138,29 @@
   $opt_debug ||= 'all';
 }
 
+my $user_prefs = "$opt_p/user_prefs";
+# generated user_prefs
+if ($opt_reuse) {
+  # copy current prefs if it exists
+  if (-f $user_prefs) {
+    copy($user_prefs, "$opt_p/mass_prefs");
+  }
+
+  # append zeroed scores to prefs
+  $user_prefs = "$opt_p/mass_prefs";
+  my @zero = sort grep { defined $reuse{$_}->{skip} } keys %reuse;
+  open(PREFS, ">> $user_prefs");
+  for my $zero (@zero) {
+    print PREFS "score $zero 0\n";
+  }
+  close(PREFS);
+}
+
+
 $spamtest = new Mail::SpamAssassin ({
   'debug'              			=> $opt_debug,
   'rules_filename'     			=> $opt_c,
-  'userprefs_filename' 			=> "$opt_p/user_prefs",
+  'userprefs_filename' 			=> $user_prefs,
   'site_rules_filename'			=> "$opt_p/local.cf",
   'userstate_dir'     			=> "$opt_p",
   'save_pattern_hits'  			=> $opt_loghits,