[darwinbuild-changes] [289] trunk/darwinbuild/log-index.pl
source_changes at macosforge.org
source_changes at macosforge.org
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
More information about the darwinbuild-changes
mailing list