Subversion Repositories wimsdev

Rev

Rev 6807 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6807 Rev 16191
Line 4... Line 4...
4 
 
 4 
 
5 
my $launcher = -f "../chroot/usr/local/bin/chemeq" ? "ch..root" : "wrap..exec";
 5 
my $launcher = -f "../chroot/usr/local/bin/chemeq" ? "ch..root" : "wrap..exec";
6 
 
 6 
 
7 
my $wims_exec_parm = $ENV{'wims_exec_parm'};
 7 
my $wims_exec_parm = $ENV{'wims_exec_parm'};
8 
 
 8 
 
9 
my $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR, "bin/$launcher chemeq") or die "open3() failed $!";
 9 
my $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR, "bin/$launcher ../other/bin/chemeq") or die "open3() failed $!";
10 
 
 10 
 
11 
print CHLD_IN "$wims_exec_parm\n";
 11 
print CHLD_IN "$wims_exec_parm\n";
12 
close(CHLD_IN);
 12 
close(CHLD_IN);
13 
 
 13 
 
14 
my $tmp ="";
 14 
my $tmp ="";