GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-01 17:16:39 +02:00
Code Issues Projects Releases Wiki Activity

Fix -input option for TenDRA

Browse Source
This commit is contained in:
Pragmatic Software 2015-01-25 13:28:46 -08:00
parent 0f00ceae95
commit 56a926603f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
modules/compiler_vm/languages/server/tendra.pm
View File

@ -16,9 +16,11 @@ sub postprocess {
$self->{output} = "[$self->{output}]\n";
}
my $input_quoted = quotemeta $self->{input};
$input_quoted =~ s/\\"/"'\\"'"/g;
my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date}; ulimit -t 1; /home/compiler/prog <<< echo $input_quoted > .output\"");
open my $fh, '>', '.input';
print $fh $self->{input};
close $fh;
my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date}; ulimit -t 1; cat .input | /home/compiler/prog > .output\"");
$self->{error} = $retval;