Rev 14 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 6807 | georgesk | 1 | #! /usr/bin/perl |
| 2 | use strict; |
||
| 3 | use IPC::Open3; |
||
| 14 | reyssat | 4 | |
| 6807 | georgesk | 5 | my $launcher = -f "../chroot/usr/local/bin/chemeq" ? "ch..root" : "wrap..exec"; |
| 14 | reyssat | 6 | |
| 6807 | georgesk | 7 | my $wims_exec_parm = $ENV{'wims_exec_parm'}; |
| 14 | reyssat | 8 | |
| 6807 | georgesk | 9 | my $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR, "bin/$launcher chemeq -c") or die "open3() failed $!"; |
| 10 | |||
| 11 | print CHLD_IN "$wims_exec_parm\n"; |
||
| 12 | close(CHLD_IN); |
||
| 13 | my $tmp = <CHLD_OUT>; |
||
| 14 | my $err = <CHLD_ERR>; |
||
| 15 | print $err; |