[Secure-testing-commits] r1243 - data

[Joey Hess]

Author: joeyh
Date: 2005-06-20 04:07:52 +0000 (Mon, 20 Jun 2005)
New Revision: 1243

Modified:
   data/checklist
Log:
add fancy html colors


Modified: data/checklist
===================================================================
--- data/checklist	2005-06-20 03:46:47 UTC (rev 1242)
+++ data/checklist	2005-06-20 04:07:52 UTC (rev 1243)
@@ -19,12 +19,19 @@
 
 
 my %data;
-my @urgencies=("high", "medium", "low", "unknown");
 my %needkernel=qw/2.4.27 0 2.6.11 0/;
 my $list_unknown=1; #set to 1 to display kernel images with unknown source version
 my $sources=$ENV{SOURCES_FILE};
 my $need_rebuild=0;
 
+my @urgencies=("high", "medium", "low", "unknown");
+my %colormap=(
+	high => "#FF0000",
+	medium => "#FF9999",
+	low => "#FFFFFF",
+	unknown => "#FFFFFF"
+);
+
 my $unprop = my $unprop_all = my $unfixed = my $todos = 0;
 
 sub record {
@@ -152,15 +159,13 @@
 			print ", " if $items > 0;
 			
 			if ($html) {
-				# TODO: replace with html for shades of red.
-				if ($i->{urgency} eq 'high') {
-					print "!!!";
-				}
-				elsif ($i->{urgency} eq 'medium') {
-					print "!";
-				}
+				my $color=$colormap{$i->{urgency}};
+				print "<span style=\"background:$color\">";
 			}
 			print $i->{item};
+			if ($html) {
+				print "</span>";
+			}
 			
 			$items++;
 		}