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 $nottestingcount=0; # Number of bugs on packages not in testing
my $worrycount=0; # Number of bugs we're actually worried about
for my $p (keys %scanlib::packagelist) {
$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/);
$worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr}));
}
}
-printf("%d %d %d 0 %d %d %d\n", $total, $pendingcount, $patchcount, $ignorecount, $nottestingcount, $worrycount);
+printf("%d %d %d 0 %d 0 %d\n", $total, $pendingcount, $patchcount, $ignorecount, $worrycount);
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
- my $nottestingtotal=0; # Total number of bugs on packages not in testing
my $worrytotal=0; # Total number of bugs we're actually worried about
my %list; # List of bugnumber associated with package
$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++ if (scanlib::check_worry($scanlib::bugs{$nr}));
if (not defined($scanlib::exclude{$nr})) {
printf("<strong>Number that have a patch:</strong> %d<BR>\n", $patchtotal);
printf("<strong>Number that have a fix prepared and waiting to upload:</strong> %d<BR>\n", $pendingtotal);
printf("<strong>Number that are being ignored:</strong> %d<BR>\n", $ignoretotal);
- printf("<strong>Number on packages not in testing:</strong> %d<BR>\n", $nottestingtotal);
printf("<strong>Number concerning the next release (excluding ignored and not-in-testing):</strong> %d<P>\n", $worrytotal);
} else {
print "Total number of release-critical bugs: $bugcount\n";
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);
- printf("Number on packages not in testing: %d\n", $nottestingtotal);
printf("Number concerning the next release (excluding ignored and not-in-testing): %d\n", $worrytotal);
}
}
<p>
The second set of tags indicate what releases a bug applies to:
O for oldstable (woody), S for stable (sarge), T for testing (etch),
-U for unstable (sid) or E for experimental. X indicates that the
-package is not in testing.
+U for unstable (sid) or E for experimental.
<p>
The second set of tags indicate what releases a bug applies to:
O for oldstable (woody), S for stable (sarge), T for testing (etch),
-U for unstable (sid) or E for experimental. X indicates that the
-package is not in testing.
+U for unstable (sid) or E for experimental.
------------------------------------------------------------------------------
EOF
# This is needed for now
my $exists = 0;
- for my $arch (@bugcfg::architectures) {
- for my $pkg (split /[,\s]+/, $bug->{'package'}) {
- my @versions = Debbugs::Packages::getversions($pkg, $dist, $arch);
- $exists = 1 if (scalar @versions > 0);
- }
- last if $exists;
+ for my $pkg (split /[,\s]+/, $bug->{'package'}) {
+ my @versions = Debbugs::Packages::getversions($pkg, $dist, undef);
+ $exists = 1 if (scalar @versions > 0);
}
-
next if !$exists;
my $presence = Debbugs::Status::bug_presence(
for my $package (split /[,\s]+/, $bug->{'package'}) {
$_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9]/;
- if (not defined $section{$_}) {
- if (defined $debbugssection{$_}) {
- $relinfo .= "X";
- } else {
- next; # Skip unavailable packages
- }
- }
-
push @{$packagelist{$_}}, $f;
}
my ($status) = @_;
if ($status =~ m/^\[[^]]*I/ or
- $status =~ m/ \[[^]]*X/ or
$status !~ m/ \[[^]]*T/) {
return 0;
}