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