[Secure-testing-commits] r1888 - bin

[Joey Hess]

Author: joeyh
Date: 2005-09-09 22:00:01 +0000 (Fri, 09 Sep 2005)
New Revision: 1888

Modified:
   bin/checklist
Log:
show DTSA fixed issues in green


Modified: bin/checklist
===================================================================
--- bin/checklist	2005-09-09 21:49:35 UTC (rev 1887)
+++ bin/checklist	2005-09-09 22:00:01 UTC (rev 1888)
@@ -62,12 +62,13 @@
 my $need_rebuild=0;
 
 # Set some colours for the urgency types
-my @urgencies=("high", "medium", "low", "unknown");
+my @urgencies=("high", "medium", "low", "unknown", "fixed");
 my %colormap=(
 	high => "#FF0000",
 	medium => "#FF9999",
 	low => "#FFFFFF",
 	unknown => "#FFFF00"
+	fixed => "#00FF00",
 );
 
 my $unprop = my $unprop_all = my $unfixed = my $todos = my $fixedsta = 0;
@@ -192,8 +193,6 @@
 					# Is the version in the archive the same or newer than the fix?
 					my $cmp=system("dpkg --compare-versions '$havver' '>=' '$version'"); 
 					if ($cmp != 0){ # No, so the archive is vulnerable.
-						my $starchive = "";
-						
 						# Does the version exist in the secure-testing archive?
 						my $staversion = `zcat $stasources |grep-dctrl -F Package -e ^$package\$ -s Version -`;
 						chomp $staversion;
@@ -205,7 +204,7 @@
 							if ($stacmp == 0){
 								# Well, the version in the s-t archive fixes the issue
 								# but it's still vulnerable in the main archive
-								$starchive = " (fixed in $staversion in the secure-testing archive)";
+								$urgency='fixed';
 								$fixedsta++;
 							}
 						}
@@ -213,7 +212,7 @@
 						if ($html && $suite eq 'testing') {
 							$havver='<a href="http://bjorn.haxx.se/debian/testing.pl?package='.uri_escape($package).'">'.$havver.'</a>';
 						}
-						record($package, "$version needed, have $havver".(@maddy > 1 ? " [$arches]" : "").$starchive, $id, $urgency);
+						record($package, "$version needed, have $havver".(@maddy > 1 ? " [$arches]" : ""), $id, $urgency);
 						$unprop++;
 						$unprop_all++ unless @maddy > 1;
 					}