Archived
1
0

Guantanamo: use sh to parse command

This commit is contained in:
Mercier Pierre-Olivier 2013-11-28 20:28:52 +01:00
parent 5fe1d4c80d
commit a0f9002efd

View File

@ -53,10 +53,18 @@ sub node_launch
$command->appendText($c->{nodeValue});
$cmd->appendChild($command);
my($wtr, $rdr, $stderr);
my $pid = open3($wtr, $rdr, $stderr, $c->{nodeValue});
waitpid( $pid, 0 );
my $rv = $? >> 8;
my($wtr, $rdr, $rv);
my $stderr = "";
eval {
my $pid = open3($wtr, $rdr, $stderr, "sh", "-c", $c->{nodeValue});
waitpid( $pid, 0 );
$rv = $? >> 8;
};
if ($@)
{
$stderr = $@ . $stderr;
$rv = -1;
}
my $out = $doc->createElement("out");
my $str = "";