summaryrefslogtreecommitdiff
path: root/vest
diff options
context:
space:
mode:
Diffstat (limited to 'vest')
-rwxr-xr-xvest/parallelize.pl14
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`";