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

source_changes at macosforge.org source_changes at macosforge.org
Wed Oct 4 02:02:18 PDT 2006


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

Log Message:
-----------
- show files from this build that haven't been built yet.

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

Modified: trunk/darwinbuild/log-index.pl
===================================================================
--- trunk/darwinbuild/log-index.pl	2005-09-29 18:56:43 UTC (rev 281)
+++ trunk/darwinbuild/log-index.pl	2006-10-04 09:02:18 UTC (rev 282)
@@ -35,7 +35,7 @@
 	my $build = shift;
 
 	local *PROJECTS;
-	open PROJECTS, '-|', $darwinxref, '-b', $build, 'version', '*' || die;
+	open PROJECTS, '-|', $darwinxref, '-b', $build, 'version', '?' || die;
 	my @projects;
 	while (<PROJECTS>) {
 		my $project = $_;
@@ -166,9 +166,8 @@
 	my $logfile;
 	
 	if ( -e "$LOGDIR/$projnam" ) {
-		#$build_version = getBuildVersion bsd_glob("$LOGDIR/$projnam/$project.*");
-		#my $logfile = "$LOGDIR/$projnam/$project.log~$build_version";
-		$logfile = bsd_glob("$LOGDIR/$projnam/*.log~*");
+		$build_version = getBuildVersion(bsd_glob("$LOGDIR/$projnam/$project.*"));
+		$logfile = "$LOGDIR/$projnam/$project.log~$build_version";
 		if ( -e $logfile ) {
 			local *LOG;
 			open LOG, $logfile;
@@ -205,6 +204,14 @@
   <td align="right" $color>$exitstatus</td>
 </tr>
 EOB
+	} else {
+		print <<EOB;
+<tr>
+  <td>$project</td>
+  <td></td>
+  <td></td>
+  <td></td>
+EOB
 	}
 }
 

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


More information about the darwinbuild-changes mailing list