my $nr; # Current bugnumber
my $sect; # BTS-subsection for bugnumber
my $header; # Flag if packagename has already been printed
- my $fontset; # Did we change the font?
for my $p (sort {$a cmp $b} keys %scanlib::packagelist) {
next if (defined $bugcfg::exclude{$p});
$header = 0;
- $fontset = 0;
if (defined $scanlib::comments{$p}) {
- if ($html && defined($scanlib::comments{$p})) {
- if ($scanlib::comments{$p} =~ m/^\[REMOVE\]/) {
- $fontset=1;
- print "<span style=\"color: red\">";
- }
- }
$header=1;
&PrintPackageHeader($p);
print $scanlib::comments{$p};
print "</span>" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
$scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
}
- print "</span>" if ($fontset);
if ($header) {
&PrintPackageFooter($p);
}
sub MakeStatistics() {
my $bugcount=0; # Total number of bugs so far
- my $remtotal=0; # Total number of bugs for packages marked REMOVE
my $patchtotal=0; # Total number of bugs marked patch
my $pendingtotal=0; # Total number of bugs marked pending
my $ignoretotal=0; # Total number of bugs marked ignore
$count++;
}
}
- $remtotal+=$count if (defined($scanlib::comments{$p}) && $scanlib::comments{$p} =~ m/^\[REMOVE\]/);
}
if ($html) {
print "<strong>Total number of release-critical bugs:</strong> $bugcount<BR>\n";
- printf("<strong>Number that will disappear after removing packages marked [REMOVE]:</strong> %d<BR>\n", $remtotal);
printf("<strong>Number that have a patch:</strong> %d<BR>\n", $patchtotal);
printf("<strong>Number that have a fix prepared and waiting to upload:</strong> %d<BR>\n", $pendingtotal);
printf("<strong>Number that are being ignored:</strong> %d<BR>\n", $ignoretotal);
printf("<strong>Number concerning the next release (excluding ignored and not-in-testing):</strong> %d<P>\n", $worrytotal);
} else {
print "Total number of release-critical bugs: $bugcount\n";
- printf("Number that will disappear after removing packages marked [REMOVE]: %d\n", $remtotal);
printf("Number that have a patch: %d\n", $patchtotal);
printf("Number that have a fix prepared and waiting to upload: %d\n", $pendingtotal);
printf("Number that are being ignored: %d\n", $ignoretotal);