Author: jm
Date: Mon Jul 11 18:28:31 2005
New Revision: 215906
URL: http://svn.apache.org/viewcvs?rev=215906&view=rev
Log:
damn, there can be multiple mutable sections
Modified:
spamassassin/trunk/masses/enable-all-evolved-rules
Modified: spamassassin/trunk/masses/enable-all-evolved-rules
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/enable-all-evolved-rules?rev=215906&r1=215905&r2=215906&view=diff
==============================================================================
--- spamassassin/trunk/masses/enable-all-evolved-rules (original)
+++ spamassassin/trunk/masses/enable-all-evolved-rules Mon Jul 11 18:28:31 2005
@@ -29,13 +29,17 @@
use strict;
-while (<>) {
- print;
- last if /<gen:mutable>/;
-}
+my $in_mut_sect = 0;
while (<>) {
- if (/^\s*score\s+(.+?)$/) {
+ if (/<gen:mutable>/) {
+ $in_mut_sect = 1;
+ }
+ elsif (/<\/gen:mutable>/) {
+ $in_mut_sect = 0;
+ }
+
+ if ($in_mut_sect && /^\s*score\s+(.+?)$/) {
my @vals = split(' ', $1);
my $new = '';
foreach my $score (@vals) {
@@ -45,14 +49,11 @@
$new .= "$score ";
}
}
+ $new =~ s/ +$//;
print "score $new\n";
}
else {
print;
}
- last if /<\/gen:mutable>/;
}
-while (<>) {
- print;
-}
Date: Mon Jul 11 18:28:31 2005
New Revision: 215906
URL: http://svn.apache.org/viewcvs?rev=215906&view=rev
Log:
damn, there can be multiple mutable sections
Modified:
spamassassin/trunk/masses/enable-all-evolved-rules
Modified: spamassassin/trunk/masses/enable-all-evolved-rules
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/enable-all-evolved-rules?rev=215906&r1=215905&r2=215906&view=diff
==============================================================================
--- spamassassin/trunk/masses/enable-all-evolved-rules (original)
+++ spamassassin/trunk/masses/enable-all-evolved-rules Mon Jul 11 18:28:31 2005
@@ -29,13 +29,17 @@
use strict;
-while (<>) {
- print;
- last if /<gen:mutable>/;
-}
+my $in_mut_sect = 0;
while (<>) {
- if (/^\s*score\s+(.+?)$/) {
+ if (/<gen:mutable>/) {
+ $in_mut_sect = 1;
+ }
+ elsif (/<\/gen:mutable>/) {
+ $in_mut_sect = 0;
+ }
+
+ if ($in_mut_sect && /^\s*score\s+(.+?)$/) {
my @vals = split(' ', $1);
my $new = '';
foreach my $score (@vals) {
@@ -45,14 +49,11 @@
$new .= "$score ";
}
}
+ $new =~ s/ +$//;
print "score $new\n";
}
else {
print;
}
- last if /<\/gen:mutable>/;
}
-while (<>) {
- print;
-}