From 949c621cf0be2186fc5d91bd75cb1ac891968087 Mon Sep 17 00:00:00 2001
From: Junio C Hamano <gitster@pobox.com>
Date: Thu, 8 Jul 2010 07:55:01 -0700
Subject: [PATCH] Meta/candidates: show number of patches in candidate topics

---
 candidates | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 candidates

diff --git a/candidates b/candidates
new file mode 100755
index 0000000000..549e632b33
--- /dev/null
+++ b/candidates
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+# Feed whats-cooking to this to find what to merge to 'master'
+
+sub merged {
+	my ($topic, $base) = @_;
+	my $fh;
+	(open $fh, "-|", qw(git rev-list), "^$base", $topic)
+	    or die "$!";
+	my $count = 0;
+	while (<$fh>) {
+		$count++;
+	}
+	(close $fh)
+	    or die "$! (after $count for $topic)";
+	return $count;
+}
+
+my ($topic, $topic_date);
+my (@candidate);
+
+while (<>) {
+	if (/^\* ([a-z][a-z]\/[-a-z0-9_]+) \(([-0-9]{10})\) \d+ commit/) {
+		$topic = $1;
+		$topic_date = $2;
+		next;
+	}
+	if (defined $topic) {
+		if (/^  \(merged to 'next' on ([-0-9]{10}) at/) {
+			push @candidate, [$topic, $1, $topic_date];
+			next;
+		}
+		$topic = undef;
+		$topic_date = undef;
+	}
+}
+
+for $topic (sort { ($a->[1] cmp $b->[1]) || ($a->[2] cmp $b->[2]) } @candidate) {
+	my $count = merged($topic->[0], 'master');
+	if ($count) {
+		print "$topic->[1] $topic->[2] ($count)	$topic->[0]\n";
+	}
+}
+
-- 
2.47.3