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

diff --git a/make-britney-counts b/make-britney-counts
new file mode 100755
index 0000000..9a78432
--- /dev/null
+++ b/make-britney-counts
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+# vim: ts=8 sw=8 nowrap
+
+# Generate a report britney can use
+
+use Getopt::Std;
+require scanlib;
+require bugcfg;
+use strict;
+# use warnings;
+
+my $Version		= "make-britney-count 1.0\nCopyright (C) Steinar H. Gunderson <sesse\@debian.org>\n";
+my $statusfile		= "status";
+
+sub ShowVersion() {
+	print "$Version\n";
+	exit 0;
+}
+
+sub ShowUsage() {
+	print <<EOF;
+Usage:
+  $0 [-V] [-h] [-S file]
+Options:
+  -V    show version
+  -h    show this screen
+  -S    use a different status file
+EOF
+	exit 0;
+}
+
+our ($opt_h,$opt_V,$opt_S);
+
+getopts('VhS:');
+ShowUsage() if ($opt_h);
+ShowVersion() if ($opt_V);
+$statusfile = $opt_S if ($opt_S);
+
+scanlib::readstatus($statusfile);
+
+my %testingbugs = ();
+my %unstablebugs = ();
+
+for my $bug (values %scanlib::bugs) {
+	for my $package (split /[,\s]+/, $bug->{'package'}) {
+		$package =~ y/A-Z/a-z/;
+		$package = $` if ($package =~ /[^-+._a-z0-9]/);
+
+		if (scanlib::check_worry_unstable($bug)) {
+			++$unstablebugs{$package};
+		}
+		if (scanlib::check_worry($bug)) {
+			++$testingbugs{$package};
+		}
+	}
+}
+
+open TESTING, ">", "britney/testing"
+	or die "britney/testing: $!";
+for my $pkg (sort keys %testingbugs) {
+	print TESTING "$pkg $testingbugs{$pkg}\n";
+}
+close TESTING;
+
+open UNSTABLE, ">", "britney/unstable"
+	or die "britney/unstable: $!";
+for my $pkg (sort keys %unstablebugs) {
+	print UNSTABLE "$pkg $unstablebugs{$pkg}\n";
+}
+close UNSTABLE;
+
+exit 0;
+