my $pendingcount=0; # Number of bugs that will have a fix uploaded RSN
my $ignorecount=0; # Number of bugs being ignored
my $worrycount=0; # Number of bugs we're actually worried about
+my $stablecount=0; # Number of bugs affecting stable
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/);
+ $pendingcount++ if ($scanlib::bugs{$nr}->{'pending'});
+ $patchcount++ if ($scanlib::bugs{$nr}->{'patch'});
+ $ignorecount++ if ($scanlib::bugs{$nr}->{'sarge-ignore'} || $scanlib::bugs{$nr}->{'etch-ignore'});
$worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr}));
+ $stablecount++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));
}
}
-printf("%d %d %d 0 %d 0 %d\n", $total, $pendingcount, $patchcount, $ignorecount, $worrycount);
+printf("%d %d %d 0 %d 0 %d %d\n", $total, $pendingcount, $patchcount, $ignorecount, $worrycount, $stablecount);