svn commit: r1861441 - /spamassassin/trunk/build/mkupdates/listpromotable

[pd...@apache.org]

Author: pds
Date: Sun Jun 16 09:03:26 2019
New Revision: 1861441

URL: http://svn.apache.org/viewvc?rev=1861441&view=rev
Log:
make active.list uniq and pretty

Modified:
    spamassassin/trunk/build/mkupdates/listpromotable

Modified: spamassassin/trunk/build/mkupdates/listpromotable
URL: http://svn.apache.org/viewvc/spamassassin/trunk/build/mkupdates/listpromotable?rev=1861441&r1=1861440&r2=1861441&view=diff
==============================================================================
--- spamassassin/trunk/build/mkupdates/listpromotable (original)
+++ spamassassin/trunk/build/mkupdates/listpromotable Sun Jun 16 09:03:26 2019
@@ -33,6 +33,7 @@ my @doc = ();
 my $cache = 'ruleqa.cache.';
 my $submitters = '';
 my $last_net;
+my %outputs;
 
 if (!$FROM_CACHE || !-f "${cache}net" || (-M "${cache}net") > 0.5) {
   my $neturl = $cgi_url."last-net?xml=1";
@@ -269,8 +270,7 @@ foreach my $netrule (sort keys %{$netlis
   next;
 publish:
 
-  print "\n# $notes\n$name\n";
-
+  $outputs{$name} = $notes unless defined $outputs{$name};
 }
 
 # base most of our decisions off day 1 (last night's mass-checks)
@@ -359,7 +359,11 @@ foreach my $plistkey (sort keys %{$plist
 
 publish:
 
-  print "\n# $notes\n$name\n";
+  $outputs{$name} = $notes unless defined $outputs{$name};
+}
+
+foreach my $key (sort(keys %outputs)) {
+  print "\n# ", $outputs{$key}, "\n", $key, "\n";
 }
 exit;