svn commit: r558324 - /spamassassin/trunk/masses/rule-dev/seek-phrases-in-log

[jm...@apache.org]

Author: jm
Date: Sat Jul 21 05:25:48 2007
New Revision: 558324

URL: http://svn.apache.org/viewvc?view=rev&rev=558324
Log:
allow the rule prefix to be specified by caller

Modified:
    spamassassin/trunk/masses/rule-dev/seek-phrases-in-log

Modified: spamassassin/trunk/masses/rule-dev/seek-phrases-in-log
URL: http://svn.apache.org/viewvc/spamassassin/trunk/masses/rule-dev/seek-phrases-in-log?view=diff&rev=558324&r1=558323&r2=558324
==============================================================================
--- spamassassin/trunk/masses/rule-dev/seek-phrases-in-log (original)
+++ spamassassin/trunk/masses/rule-dev/seek-phrases-in-log Sat Jul 21 05:25:48 2007
@@ -28,12 +28,13 @@
 sub usage {
   die "
 usage: seek-phrases-in-log [--reqhitrate n] [--reqpatlength n]
-   [--rules] [--maxtextread n] --ham hamlog --spam spamlog
+   [--rules] [--ruleprefix FOO] [--maxtextread n] --ham hamlog --spam spamlog
 
 --reqhitrate: percentage hit-rate against spam required (default: 0.5)
 --reqpatlength: required pattern length, in characters (default: 0)
 --maxtextread: bytes of message text examined (default: 32768)
 --rules: generate SpamAssassin rule output (default: 0)
+--ruleprefix: specify prefix string for rules (default: 'SEEK_')
 ";
 }
 
@@ -48,12 +49,14 @@
 $opt{reqpatlength} = 0;
 $opt{maxtextread} = 32768;
 $opt{rules} = 0;
+$opt{ruleprefix} = 'SEEK_';
 
 my $fs;
 my $fh;
 my @files = ();
 GetOptions(
         "rules" => \$opt{rules},
+        "ruleprefix" => \$opt{ruleprefix},
         "reqhitrate=s" => \$opt{reqhitrate},
         "reqpatlength=s" => \$opt{reqpatlength},
         "ham=s" => \$fh,
@@ -277,7 +280,7 @@
       foreach my $pat (@pats) {
         $pat =~ s/([!-+\`\^\~\\\/\|\.\(\)\[\]\@])/\\$1/gs;
         my $name = generate_rule_name($pat);
-        print "body SEEK_${name}  /$pat/\n";
+        print "body $opt{ruleprefix}${name}  /$pat/\n";
       }
 
     } else {