Subversion Repositories wimsdev

#! /usr/bin/perl
use strict;
use IPC::Open3;

my $launcher = -f "../chroot/usr/local/bin/chemeq" ? "ch..root" : "wrap..exec";

my $wims_exec_parm = $ENV{'wims_exec_parm'};

my $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR, "bin/$launcher chemeq -c") or die "open3() failed $!";

print CHLD_IN "$wims_exec_parm\n";
close(CHLD_IN);
my $tmp = <CHLD_OUT>;
my $err = <CHLD_ERR>;
print $err;