[darwinbuild-changes] [289] trunk/darwinbuild/log-index.pl

Wed Oct 4 02:02:21 PDT 2006

Revision: 289
          http://trac.macosforge.org/projects/darwinbuild/changeset/289
Author:   kevin
Date:     2006-10-04 02:02:21 -0700 (Wed, 04 Oct 2006)

Log Message:
-----------
- print title information along with the build number

Modified Paths:
--------------
    trunk/darwinbuild/log-index.pl

Modified: trunk/darwinbuild/log-index.pl
===================================================================

--- trunk/darwinbuild/log-index.pl	2005-10-31 22:21:55 UTC (rev 288)
+++ trunk/darwinbuild/log-index.pl	2006-10-04 09:02:21 UTC (rev 289)
@@ -47,11 +47,26 @@
 	return @projects;
 }
 
+sub getTitle {
+	my $build = shift;
+	my $result = "";
+	local *STREAM;
+	open STREAM, '-|', $darwinxref, '-b', $build, 'darwin' || die;
+	while(<STREAM>) { $result .= $_; }
+	close STREAM;
+	$result .= " (";
+	open STREAM, '-|', $darwinxref, '-b', $build, 'macosx' || die;
+	while(<STREAM>) { $result .= $_; }
+	close STREAM;
+	$result .= ")";
+	return $result;
+}
+
 ###
 ### Main
 ###
 
-my $BUILD = &getBuild();
+my $BUILD = $ARGV[0] ? $ARGV[0] : &getBuild();
 
 if (!$BUILD) {
 	print STDERR <<EOB;
@@ -63,6 +78,8 @@
 	exit 1;
 }
 
+my $TITLE = &getTitle($BUILD);
+
 my $LOGDIR;
 if ($ENV{'DARWIN_BUILDROOT'}) {
 	$LOGDIR = $ENV{'DARWIN_BUILDROOT'} . "/Logs";
@@ -138,6 +155,7 @@
 
 <body>
 <h2>$BUILD</h2>
+<h3>$TITLE</h3>
 <p>Build log summary.</p>
 
 <table id="logtab">

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/darwinbuild-changes/attachments/20061004/ac0f19bc/attachment-0001.html
