-my %sectcount=(); # Bugs per type
-
-for my $p (keys %scanlib::packagelist) {
- next if (defined $bugcfg::exclude{$p});
- for my $nr (sort @{$scanlib::packagelist{$p}}) {
- next if (defined $bugcfg::exclude{$nr});
- $total++;
- $pendingcount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*P/);
- $patchcount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
- $ignorecount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
- $nottestingcount++ if ($scanlib::bugs{$nr} =~ m/ \[[^]]*X/);
- if (defined $scanlib::comments{$nr}) {
- my $sect = ($scanlib::comments{$nr} =~ m/\[([^]]*)\]/);
- $sectcount{$sect}++;
- }
- unless ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/ or
- $scanlib::bugs{$nr} =~ m/ \[[^]]*X/ or
- ($scanlib::bugs{$nr} =~ m/ \[[^]]*[OSUE]/ and $scanlib::bugs{$nr} !~ m/ \[[^]]*T/)) {
- $worrycount++;
- # print STDERR "$nr $bugs{$nr}\n";
- }
- }
-
- if (defined($scanlib::comments{$p}) && $scanlib::comments{$p} =~ m/^\[REMOVE\]/) {
- $removecount += scalar @{$scanlib::packagelist{$p}};
- }
+my $stablecount=0; # Number of bugs affecting stable
+
+for my $bug (values %scanlib::bugs) {
+ $total++;
+ $pendingcount++ if ($bug->{'pending'});
+ $patchcount++ if ($bug->{'patch'});
+ $ignorecount++ if ($bug->{'etch-ignore'} || $bug->{'lenny-ignore'});
+ $worrycount++ if (scanlib::check_worry($bug));
+ $stablecount++ if (scanlib::check_worry_stable($bug));