page, cook: Include the OTP application(s)

For each topic, list the application(s) that is touched by the
topic branch.

1 files changed, 8 insertions, 1 deletions

diff --git a/page b/page
index 3ddda003c5..b7f607dc3d 100755
--- a/page
+++ b/page
@@ -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 $output_file = "GH-PAGES/index.html";
 open STDOUT, ">", $output_file or
     die "$0: Failed to open $output_file for writing: $!\n";
@@ -57,8 +59,13 @@ foreach (`git log --oneline --first-parent dev..pu`) {
 	my(@revs) = `git rev-list $range`;
 	my $commits = @revs == 1 ? "1 commit" : scalar(@revs) . " commits";
 	my $max = 12;
+	my $apps = `$application $child^1...$child^2`;
+	chomp $apps;
+
 	system "git", "show", "-s", "--date=short",
-	qq[--format=<li><a href="$root_url/%H">$topic</a>:], "$child";
+	qq[--format=<li><a href="$root_url/%H">$topic</a> ($apps):],
+	"$child";
+
 	print "<ul>\n";
 	my $format = qq[<li><a href="$root_url/%H">%s</a></li>];
 	system "git",  "--no-pager", "log", "-n", $max,