X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=make-britney-counts;h=a603b801d6cd0ce306712c8d99d91f22797cbf1b;hp=9a784329c630861c931dc71873a3ac57cf779231;hb=c6c21e31883775d12d06f104c91c6b1a00b48df0;hpb=5e9977948a37d9ff7ae73479a72b2b2e01c19b16

diff --git a/make-britney-counts b/make-britney-counts
index 9a78432..a603b80 100755
--- a/make-britney-counts
+++ b/make-britney-counts
@@ -41,33 +41,52 @@ scanlib::readstatus($statusfile);
 my %testingbugs = ();
 my %unstablebugs = ();
 
-for my $bug (values %scanlib::bugs) {
+while (my ($nr, $bug) = each %scanlib::bugs) {
 	for my $package (split /[,\s]+/, $bug->{'package'}) {
 		$package =~ y/A-Z/a-z/;
-		$package = $` if ($package =~ /[^-+._a-z0-9]/);
+		$package = $` if ($package =~ /[^-+._:a-z0-9]/);
 
-		if (scanlib::check_worry_unstable($bug)) {
-			++$unstablebugs{$package};
+		# this hack is specific to britney counts, and ignores
+		# bugs tagged ignore for the next testing release
+		if (scanlib::check_worry_unstable($bug) and not $bug->{'squeeze-ignore'}) {
+			push @{$unstablebugs{$package}}, $nr;
 		}
 		if (scanlib::check_worry($bug)) {
-			++$testingbugs{$package};
+			push @{$testingbugs{$package}}, $nr;
 		}
 	}
 }
 
-open TESTING, ">", "britney/testing"
-	or die "britney/testing: $!";
+open TESTING, ">", "britney/testing.new"
+	or die "britney/testing.new: $!";
+open TESTINGNR, ">", "britney/testing-nr.new"
+	or die "britney/testing-nr.new: $!";
 for my $pkg (sort keys %testingbugs) {
-	print TESTING "$pkg $testingbugs{$pkg}\n";
+	print TESTING   "$pkg ", scalar @{$testingbugs{$pkg}}, "\n";
+	print TESTINGNR "$pkg ", join(',', @{$testingbugs{$pkg}}), "\n";
 }
 close TESTING;
+close TESTINGNR;
 
-open UNSTABLE, ">", "britney/unstable"
-	or die "britney/unstable: $!";
+open UNSTABLE, ">", "britney/unstable.new"
+	or die "britney/unstable.new: $!";
+open UNSTABLENR, ">", "britney/unstable-nr.new"
+	or die "britney/unstable-nr.new: $!";
 for my $pkg (sort keys %unstablebugs) {
-	print UNSTABLE "$pkg $unstablebugs{$pkg}\n";
+	print UNSTABLE   "$pkg ", scalar @{$unstablebugs{$pkg}}, "\n";
+	print UNSTABLENR "$pkg ", join(',', @{$unstablebugs{$pkg}}), "\n";
 }
 close UNSTABLE;
+close UNSTABLENR;
+
+rename "britney/testing.new", "britney/testing"
+	or die "renaming britney/testing.new to britney/testing: $!";
+rename "britney/testing-nr.new", "britney/testing-nr"
+	or die "renaming britney/testing-nr.new to britney/testing-nr: $!";
+rename "britney/unstable.new", "britney/unstable"
+	or die "renaming britney/unstable.new to britney/unstable: $!";
+rename "britney/unstable-nr.new", "britney/unstable-nr"
+	or die "renaming britney/unstable-nr.new to britney/unstable-nr: $!";
 
 exit 0;