From 5b4c201e794fd1cced21e8d54e83ae498e5372b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bgustavsson@gmail.com>
Date: Sun, 6 Dec 2009 14:01:45 +0100
Subject: page, cook: Include the OTP application(s)

For each topic, list the application(s) that is touched by the
topic branch.
---
 cook | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'cook')

diff --git a/cook b/cook
index 48041ceb8f..5ca1cf7e91 100755
--- a/cook
+++ b/cook
@@ -6,9 +6,11 @@ use File::Spec;
 -d '.git' or die "$0: Not a Git repository";
 
 my $root = dirname($0);
+my $application = "$root/application";
 my $last = `(cd $root; git ls-files "whats" | tail -1)`;
 @ARGV = ("$root/$last");
 
+
 my $date;
 my $output_file;
 {
@@ -134,7 +136,11 @@ sub print_commits {
     my(@revs) = `git rev-list $range`;
     my $commits = @revs == 1 ? "1 commit" : scalar(@revs) . " commits";
     my $max = 12;
-    system qq[git show -s --date=short --format="* $topic (%ad) $commits" $topic];
+    my $diff_range = $range;
+    $diff_range =~ s/[.][.]/.../;
+    my $apps = `$application $diff_range`;
+    chomp $apps;
+    system qq[git show -s --date=short --format="* $topic ($apps) (%ad) $commits" $topic];
     system qq[git --no-pager log -n $max --format=" - %s (%h)" $range];
     print ".\n.\n\.\n" if @revs > $max;
 }
-- 
cgit v1.2.3