cogkit-svn

[Cogkit-svn] SF.net SVN: cogkit: [1975] trunk/current/src/cog/modules/provider-coaster/ resources/worker.pl

[<ha...@us...>]

Revision: 1975
          http://cogkit.svn.sourceforge.net/cogkit/?rev=1975&view=rev
Author:   hategan
Date:     2008-04-22 16:05:43 -0700 (Tue, 22 Apr 2008)

Log Message:
-----------
waitpid returns more than just the exit code

Modified Paths:
--------------
    trunk/current/src/cog/modules/provider-coaster/resources/worker.pl

Modified: trunk/current/src/cog/modules/provider-coaster/resources/worker.pl
===================================================================
--- trunk/current/src/cog/modules/provider-coaster/resources/worker.pl	2008-04-22 22:12:02 UTC (rev 1974)
+++ trunk/current/src/cog/modules/provider-coaster/resources/worker.pl	2008-04-22 23:05:43 UTC (rev 1975)
@@ -368,7 +368,7 @@
 		else {
 			wlog "Forked process $pid. Waiting for its completion\n";
 			waitpid($pid, 0);
-			$status = $?;
+			$status = $? & 0xff;
 			wlog "Child process $pid terminated. Status is $status. $!\n";
 			queueCmd(\&nullCB, "JOBSTATUS", $JOBID, "$COMPLETED", "$status", "");
 		}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Cogkit-svn] SF.net SVN: cogkit: [1976] trunk/current/src/cog/modules/provider-coaster/ resources/worker.pl

[<ha...@us...>]

Revision: 1976
          http://cogkit.svn.sourceforge.net/cogkit/?rev=1976&view=rev
Author:   hategan
Date:     2008-04-23 06:37:34 -0700 (Wed, 23 Apr 2008)

Log Message:
-----------
don't ignore job directory

Modified Paths:
--------------
    trunk/current/src/cog/modules/provider-coaster/resources/worker.pl

Modified: trunk/current/src/cog/modules/provider-coaster/resources/worker.pl
===================================================================
--- trunk/current/src/cog/modules/provider-coaster/resources/worker.pl	2008-04-22 23:05:43 UTC (rev 1975)
+++ trunk/current/src/cog/modules/provider-coaster/resources/worker.pl	2008-04-23 13:37:34 UTC (rev 1976)
@@ -397,7 +397,11 @@
 		close STDERR;
 		open STDERR, $stderr;
 	}
-	exec { $executable } @JOBARGS or queueCmd(\&nullCB, "JOBSTATUS", $JOBID, "$FAILED", "513", "Could not execute $executable: $!");		
+	if (defined $JOB{directory}) {
+	    chdir $JOB{directory};
+	}
+	wlog "Command: @JOBARGS\n";
+	exec { $executable } @JOBARGS or queueCmd(\&nullCB, "JOBSTATUS", $JOBID, "$FAILED", "513", "Could not execute $executable: $!");
 	die "Could not execute $executable: $!";
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.