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 -l") or die "open3() failed $!";

print CHLD_IN "$wims_exec_parm\n";
close(CHLD_IN);

my $tmp ="";
while(<CHLD_OUT>){
    $tmp .= $_;
}

my $err = <CHLD_ERR>;
print $tmp;


if ($err =~ /ERROR/){
    my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime(time);
    my $d = sprintf qq{%04d/%02d/%02d-%02d:%02d:%02d},
      1900+$yr19, $month, $day, $hour, $min, $sec;
    print "Write to log:\n$d chemeq: $wims_exec_parm";
    my $log;
    open $log, ">>../log/user_error.log" or die $!;
    print $log "$d chemeq: $wims_exec_parm";
}