Mailing List Archive

Author: jm
Date: Mon Dec 5 22:00:59 2005
New Revision: 354327

URL: http://svn.apache.org/viewcvs?rev=354327&view=rev
Log:
add scrapable data for promotion

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=354327&r1=354326&r2=354327&view=diff
==============================================================================
--- spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi (original)
+++ spamassassin/trunk/masses/rule-qa/automc/ruleqa.cgi Mon Dec 5 22:00:59 2005
@@ -81,19 +81,24 @@

# when and what
my $daterev = $q->url_param('daterev') || '';
+# all known date/revision combos. warning: could get slow in future
+my @daterevs = get_all_daterevs();

# sanitise daterev string
if (defined $daterev) {
- $daterev =~ /(\d+)[\/-](r\d+)-(\S+)/; undef $daterev;
- if ($2) {
- $daterev = "$1-$2-$3";
- } else {
- $daterev = undef;
+ if ($daterev eq 'last-night') {
+ $daterev = get_last_night_daterev();
+ }
+ else {
+ $daterev =~ /(\d+)[\/-](r\d+)-(\S+)/; undef $daterev;
+ if ($2) {
+ $daterev = "$1-$2-$3";
+ } else {
+ $daterev = undef;
+ }
}
}

-# all known date/revision combos. warning: could get slow in future
-my @daterevs = get_all_daterevs();
# turn possibly-empty $daterev into a real date/rev combo (that exists)
$daterev = date_in_direction($daterev, 0);

@@ -492,6 +497,17 @@
return undef; # couldn't find one
}

+sub get_last_night_daterev {
+ foreach my $dr (reverse @daterevs) {
+ my $t = get_daterev_description($dr);
+ next unless $t;
+ if ($t =~ / tag=n /) {
+ return $dr;
+ }
+ }
+ return undef;
+}
+
sub show_all_sets_for_daterev {
my ($path, $strdate) = @_;

@@ -769,6 +785,9 @@
<td>[% USERNAME %]</td>
<td>[% AGE %]</td>
</tr>
+ <!--
+ <rule><n>[% NAME %]</n><p>[% PROMO %]</p><sp>[% SPAMPC %]</sp><hp>[% HAMPC %]</hp><so>[% SO %]</so><href>[% NAMEREF %]</href></rule>
+ -->

};