X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugcounts;h=ac49f8c405e86748dbd36b03cbe9d03a0af8d752;hp=d7adb4d2ea4099f3e7f6781f8818274429f812eb;hb=HEAD;hpb=9199c4eac048f4443133023f938885f95ea7251b diff --git a/bugcounts b/bugcounts index d7adb4d..ac49f8c 100755 --- a/bugcounts +++ b/bugcounts @@ -1,11 +1,13 @@ #! /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; @@ -49,7 +51,8 @@ for my $bug (values %scanlib::bugs) { $total++; $pendingcount++ if ($bug->{'pending'}); $patchcount++ if ($bug->{'patch'}); - $ignorecount++ if ($bug->{'sarge-ignore'} || $bug->{'etch-ignore'}); + $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)); }