X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugcounts;h=ac49f8c405e86748dbd36b03cbe9d03a0af8d752;hp=038769b2c05c398a62188cdf47868884bd1c5a97;hb=HEAD;hpb=c254a0d0c6ce35fab30d43d9e4e7e3015e250013 diff --git a/bugcounts b/bugcounts index 038769b..ac49f8c 100755 --- a/bugcounts +++ b/bugcounts @@ -1,13 +1,15 @@ #! /usr/bin/perl -# vim: ts=4 sw=4 nowrap +# vim: ts=8 sw=8 nowrap # Generate some counts for the bugreports use Getopt::Std; -require scanlib; -require bugcfg; +use File::Basename; +use lib dirname(__FILE__); +use bugcfg; +use scanlib; use strict; -use warnings; +# use warnings; my $Version = "BugCount 1.1\nCopyright (C) Wichert Akkerman \n"; my $statusfile = "status"; @@ -41,21 +43,18 @@ scanlib::readstatus($statusfile); my $total=0; # total number of bugs my $patchcount=0; # Number of bugs that have a fix proposed my $pendingcount=0; # Number of bugs that will have a fix uploaded RSN -my $ignorecount=0; # Number of bugs being ignored +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}->{'pending'}); - $patchcount++ if ($scanlib::bugs{$nr}->{'patch'}); - $ignorecount++ if ($scanlib::bugs{$nr}->{'etch-ignore'}); - $worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr})); - $stablecount++ if (scanlib::check_worry_stable($scanlib::bugs{$nr})); - } +for my $bug (values %scanlib::bugs) { + $total++; + $pendingcount++ if ($bug->{'pending'}); + $patchcount++ if ($bug->{'patch'}); + $ignorecount++ if ($bug->{$bugcfg::debian_releases->{stable}.'-ignore'} || + $bug->{$bugcfg::debian_releases->{testing}.'-ignore'}); + $worrycount++ if (scanlib::check_worry($bug)); + $stablecount++ if (scanlib::check_worry_stable($bug)); } printf("%d %d %d 0 %d 0 %d %d\n", $total, $pendingcount, $patchcount, $ignorecount, $worrycount, $stablecount);