svn commit: r215905 - /spamassassin/trunk/masses/enable-all-evolved-rules

[jm...@apache.org]

Author: jm
Date: Mon Jul 11 18:23:39 2005
New Revision: 215905

URL: http://svn.apache.org/viewcvs?rev=215905&view=rev
Log:
trivial, non-R-T-C change for masses -- helper script to enable zeroed rules

Added:
    spamassassin/trunk/masses/enable-all-evolved-rules   (with props)

Added: spamassassin/trunk/masses/enable-all-evolved-rules
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/enable-all-evolved-rules?rev=215905&view=auto
==============================================================================
--- spamassassin/trunk/masses/enable-all-evolved-rules (added)
+++ spamassassin/trunk/masses/enable-all-evolved-rules Mon Jul 11 18:23:39 2005
@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+
+# enable-all-evolved-rules - ensure that all evolved rules are active in a file
+#
+# usage: enable-all-evolved-rules rules/50_scores.cf > rules/51_newscores.cf
+#        mv rules/51_newscores.cf rules/50_scores.cf
+#
+# Note: this will even enable network rules in the non-net scoresets.
+# However, this should have no effect, since those check their network
+# status before running anyway.  More serious is the proprietary tests;
+# these will also become enabled.  Some manual fixup afterwards is
+# required.
+#
+# <@LICENSE>
+# Copyright 2004 Apache Software Foundation
+# 
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+# 
+#     http://www.apache.org/licenses/LICENSE-2.0
+# 
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+# </...@LICENSE>
+
+use strict;
+
+while (<>) {
+  print;
+  last if /<gen:mutable>/;
+}
+
+while (<>) {
+  if (/^\s*score\s+(.+?)$/) {
+    my @vals = split(' ', $1);
+    my $new = '';
+    foreach my $score (@vals) {
+      if ($score =~ /^[\-\+]*\d/ && $score+0 == 0) {
+        $new .= "0.0001 ";      # replace all zeros with 0.0001
+      } else {
+        $new .= "$score ";
+      }
+    }
+    print "score $new\n";
+  }
+  else {
+    print;
+  }
+  last if /<\/gen:mutable>/;
+}
+
+while (<>) {
+  print;
+}

Propchange: spamassassin/trunk/masses/enable-all-evolved-rules
------------------------------------------------------------------------------
    svn:executable = *