svn commit: r329672 - /spamassassin/trunk/masses/rule-qa/rule-hits-over-time

[jm...@apache.org]

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 '' };
 
     }