Guantanamo: use sh to parse command
This commit is contained in:
parent
5fe1d4c80d
commit
a0f9002efd
|
@ -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 = "";
|
||||
|
|
Reference in New Issue
Block a user