svn commit: r329668 - /spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi

[jm...@apache.org]

Author: jm
Date: Sun Oct 30 15:44:37 2005
New Revision: 329668

URL: http://svn.apache.org/viewcvs?rev=329668&view=rev
Log:
note more clearly whose mass-checks are used

Modified:
    spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi

Modified: spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi?rev=329668&r1=329667&r2=329668&view=diff
==============================================================================
--- spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi (original)
+++ spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi Sun Oct 30 15:44:37 2005
@@ -455,7 +455,34 @@
 sub showfreqsubset {
   my ($filename, $strdate) = @_;
   read_freqs_file($filename);
+
+  if ($key eq 'DETAILS.new') {
+    # report which sets we used
+    summarise_head($freqs_head{$key}, $filename, $strdate, $rule);
+  }
+
   get_freqs_for_rule($filename, $strdate, $rule);
+}
+
+sub summarise_head {
+  my ($head, $filename, $strdate, $rule) = @_;
+
+  my @mcfiles = ();
+  if ($head =~ / ham results used for \S+ \S+ \S+: (.*)$/) {
+    @mcfiles = split(' ', $1);
+  }
+
+  map {
+    s/^ham-//; s/\.log$//;
+  } @mcfiles;
+
+  my $who = join(', ', @mcfiles);
+
+  print qq{
+
+    <p><em>(Using mass-check data from: $who)</em></p>
+
+  };
 }
 
 sub read_freqs_file {