X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=bugreport;h=85c77168d2af8b44c48d5c0c0f523129fa4cc08f;hb=2ac9f966bf5cb4efd07581bd5531fc9733784904;hp=566e3a7a4e36a8d8fdbf5598b7821bbd49c15ff3;hpb=4927e40eee6dfac4a25bb0646f93c7cd4bae1549;p=bugscan.git
diff --git a/bugreport b/bugreport
index 566e3a7..85c7716 100755
--- a/bugreport
+++ b/bugreport
@@ -80,24 +80,16 @@ sub MakeBuglist() {
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 "";
- }
- }
$header=1;
&PrintPackageHeader($p);
print $scanlib::comments{$p};
}
- for $nr (sort split(/ /, $scanlib::packagelist{$p})) {
+ for $nr (sort @{$scanlib::packagelist{$p}}) {
next if (defined $bugcfg::exclude{$nr});
if (! $header) {
$header = 1;
@@ -131,7 +123,6 @@ sub MakeBuglist() {
print "" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
$scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
}
- print "" if ($fontset);
if ($header) {
&PrintPackageFooter($p);
}
@@ -141,7 +132,6 @@ sub MakeBuglist() {
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
@@ -153,27 +143,22 @@ sub MakeStatistics() {
my $count = 0; # Number of bugs for this package
next if (defined $scanlib::exclude{$p});
- for my $nr (split(/ /, $scanlib::packagelist{$p})) {
+ for my $nr (@{$scanlib::packagelist{$p}}) {
$pendingtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*P/);
$patchtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
$ignoretotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
$nottestingtotal++ if ($scanlib::bugs{$nr} =~ m/ \[[^]]*X/);
- $worrytotal++ unless (
- $scanlib::bugs{$nr} =~ m/^\[[^]]*I/ or
- $scanlib::bugs{$nr} =~ m/ \[[^]]*X/ or
- ($scanlib::bugs{$nr} =~ m/ \[[^]]*[OSUE]/ and $scanlib::bugs{$nr} !~ m/ \[[^]]*T/));
+ $worrytotal++ if (scanlib::check_worry($scanlib::bugs{$nr}));
if (not defined($scanlib::exclude{$nr})) {
$bugcount++;
$count++;
}
}
- $remtotal+=$count if (defined($scanlib::comments{$p}) && $scanlib::comments{$p} =~ m/^\[REMOVE\]/);
}
if ($html) {
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);
@@ -181,7 +166,6 @@ sub MakeStatistics() {
printf("Number concerning the next release (excluding ignored and not-in-testing): %d
\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); @@ -201,8 +185,8 @@ sub FilterPackages($) { sub FilterBugs() { for my $p (sort keys %scanlib::packagelist) { - $scanlib::packagelist{$p} = join(' ', grep { scanlib::check_worry($scanlib::bugs{$_}) } split / /, $scanlib::packagelist{$p}); - delete $scanlib::packagelist{$p} if ($scanlib::packagelist{$p} eq ''); + $scanlib::packagelist{$p} = [ grep { scanlib::check_worry($scanlib::bugs{$_}) } @{$scanlib::packagelist{$p}} ]; + delete $scanlib::packagelist{$p} if (scalar @{$scanlib::packagelist{$p}} == 0); } }