Subversion Repositories wimsdev

Rev

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

Rev 14 Rev 6807
Line 1... Line 1...
1 
#! /bin/sh
 1 
#! /usr/bin/perl
- 
 
 2 
use strict;
- 
 
 3 
use IPC::Open3;
2 
 
 4 
 
3 
if [ -f ../chroot/usr/local/bin/chemeq ]; then
 5 
my $launcher = -f "../chroot/usr/local/bin/chemeq" ? "ch..root" : "wrap..exec";
4 
 launcher=ch..root
 - 
 
5 
else
 - 
 
6 
 launcher=wrap..exec
 - 
 
7 
fi
 - 
 
8 
 
 6 
 
9 
tmp=`echo "$wims_exec_parm" | bin/$launcher chemeq -c | grep ERROR`
 7 
my $wims_exec_parm = $ENV{'wims_exec_parm'};
10 
echo "$tmp"
 - 
 
11 
 
 8 
 
- 
 
 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;