Mailing List Archive

Author: jm
Date: Sun Oct 30 16:28:36 2005
New Revision: 329672

URL: http://svn.apache.org/viewcvs?rev=329672&view=rev
Log:
move spam chart above ham chart; move legend to top-left corner of graph; add smoothed average line as well as the raw datapoints; set period to 1 week

Modified:
spamassassin/trunk/masses/rule-qa/rule-hits-over-time

Modified: spamassassin/trunk/masses/rule-qa/rule-hits-over-time
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/rule-qa/rule-hits-over-time?rev=329672&r1=329671&r2=329672&view=diff
==============================================================================
--- spamassassin/trunk/masses/rule-qa/rule-hits-over-time (original)
+++ spamassassin/trunk/masses/rule-qa/rule-hits-over-time Sun Oct 30 16:28:36 2005
@@ -66,7 +66,7 @@

my $rule_re = qr/[, ]${opt_rule}[, ]/;

-my $period = $opt_period || (24 * 60 * 60 * 1);
+my $period = $opt_period || (24 * 60 * 60 * 7);

my $graph_x = $opt_size_x || 800;
my $graph_y = $opt_size_y || 400;
@@ -99,13 +99,13 @@
}

my $file_sets = [ ]; # split into ham and spam
-$file_sets = [ [ 'TITLE:hits in ham' ], [ 'TITLE:hits in spam' ] ];
+$file_sets = [ [ 'TITLE:hits in spam' ], [ 'TITLE:hits in ham' ] ];

foreach my $file (@ARGV) {
if ($file =~ /\bham\b/) {
- push @{$file_sets->[0]}, $file;
- } else {
push @{$file_sets->[1]}, $file;
+ } else {
+ push @{$file_sets->[0]}, $file;
}
}

@@ -321,6 +321,8 @@
set timefmt "%Y-%m-%d"
set title "$title"

+ set key left top Left nobox
+
};
}

@@ -356,13 +358,17 @@
# to not plot "undefined" values at all (linespoints rec'd)
qq{ 1:(\$$col >= 0 ? \$$col : 1/0) }.

- ## smoothing: not so useful
- # qq{ smooth bezier }.
-
# qq{ with lines lt $style }.
qq{ with linespoints lt $style pt $style }.

qq{ title '$legend' };
+
+ push @plot,
+ qq{ '$tmpdir/plot.data' using }.
+ qq{ 1:(\$$col >= 0 ? \$$col : 1/0) }.
+ qq{ smooth bezier }.
+ qq{ with lines lt $style lw 3 }.
+ qq{ title '' };

}