/[secure-testing]/bin/checklist
ViewVC logotype

Diff of /bin/checklist

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1242 by joeyh, Mon Jun 20 03:46:47 2005 UTC revision 1243 by joeyh, Mon Jun 20 04:07:52 2005 UTC
# Line 19  if (! @ARGV) { Line 19  if (! @ARGV) {
19    
20    
21  my %data;  my %data;
 my @urgencies=("high", "medium", "low", "unknown");  
22  my %needkernel=qw/2.4.27 0 2.6.11 0/;  my %needkernel=qw/2.4.27 0 2.6.11 0/;
23  my $list_unknown=1; #set to 1 to display kernel images with unknown source version  my $list_unknown=1; #set to 1 to display kernel images with unknown source version
24  my $sources=$ENV{SOURCES_FILE};  my $sources=$ENV{SOURCES_FILE};
25  my $need_rebuild=0;  my $need_rebuild=0;
26    
27    my @urgencies=("high", "medium", "low", "unknown");
28    my %colormap=(
29            high => "#FF0000",
30            medium => "#FF9999",
31            low => "#FFFFFF",
32            unknown => "#FFFFFF"
33    );
34    
35  my $unprop = my $unprop_all = my $unfixed = my $todos = 0;  my $unprop = my $unprop_all = my $unfixed = my $todos = 0;
36    
37  sub record {  sub record {
# Line 152  foreach my $package (sort keys %data) { Line 159  foreach my $package (sort keys %data) {
159                          print ", " if $items > 0;                          print ", " if $items > 0;
160    
161                          if ($html) {                          if ($html) {
162                                  # TODO: replace with html for shades of red.                                  my $color=$colormap{$i->{urgency}};
163                                  if ($i->{urgency} eq 'high') {                                  print "<span style=\"background:$color\">";
                                         print "!!!";  
                                 }  
                                 elsif ($i->{urgency} eq 'medium') {  
                                         print "!";  
                                 }  
164                          }                          }
165                          print $i->{item};                          print $i->{item};
166                            if ($html) {
167                                    print "</span>";
168                            }
169    
170                          $items++;                          $items++;
171                  }                  }
Legend:
Removed from v.1242  
changed lines
  Added in v.1243
  ViewVC Help
Powered by ViewVC 1.1.5