par show cd, -e dir if verbose

git-svn-id: https://ws10smt.googlecode.com/svn/trunk@78 ec762483-ff6d-05da-a07a-a48fb63a330f

1 files changed, 9 insertions, 5 deletions

diff --git a/vest/parallelize.pl b/vest/parallelize.pl
index cd2576a9..9ac0f30d 100755
--- a/vest/parallelize.pl
+++ b/vest/parallelize.pl
@@ -203,8 +203,7 @@ if (my $pid = fork){
 	  sleep 2; # give other thread time to start sentserver
     $script =
         qq{wait
-$cdcmd
-$sentclient $host:$port:$key $cmd
+$cdcmd$sentclient $host:$port:$key $cmd
 };
 	if ($verbose){
 		print STDERR "Client script:\n====\n";
@@ -247,11 +246,12 @@ sub numof_live_jobs {
 	return ($#livejobs + 1);
 }
 my (@errors,@outs,@cmds);
-my $scriptfile=extend_path("$errordir/","$executable.sh",1,1);
+my $scriptfile=extend_path("$errordir","$executable.sh",1,1);
 if ($errordir) {
     open SF,">",$scriptfile || die;
-    print SF $cmd,"\n";
+    print SF "$cdcmd$cmd\n";
     close SF;
+    chmod 0755,$scriptfile;
 }
 sub launch_job_on_node {
 		my $node = $_[0];
@@ -286,7 +286,11 @@ sub launch_job_on_node {
 			$jobid =~ s/^(\d+)(.*?)$/\1/g;
             $jobid =~ s/^Your job (\d+) .*$/\1/;
 			print STDERR " short job id $jobid\n";
-            if ($verbose){ print STDERR "cmd: $cmd\n"; }
+            if ($verbose){
+                print STDERR "-e dir: $errordir\n" if $errordir;
+                print STDERR "cd: $abscwd\n";
+                print STDERR "cmd: $cmd\n";
+            }
 			if ($joblist == "") { $joblist = $jobid; }
 			else {$joblist = $joblist . "\|" . $jobid; }
             my $cleanfn="`qdel $jobid 2> /dev/null`";