GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-23 02:24:25 +01:00
Code Issues Projects Releases Wiki Activity

Properly pass date to default VM languages

Browse Source
This commit is contained in:
Pragmatic Software 2017-09-08 00:21:41 -07:00
parent 6fb1c3a142
commit 9608cac9cb
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,8 +45,7 @@ sub preprocess {
close $fh;
print "Executing [$self->{cmdline}] without print_last_statement\n";
my ($retval, $result) = $self->execute(60, $self->{cmdline});
my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date} > /dev/null; ulimit -t 5; $self->{cmdline}\"");
$self->{output} = $result;
$self->{error} = $retval;
@ -57,7 +56,7 @@ sub preprocess {
close $fh;
print "Executing [$self->{cmdline}] with print_last_statement\n";
$self->execute(60, $self->{cmdline});
my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date} > /dev/null; ulimit -t 5; $self->{cmdline}\"");
}
} else {
open(my $fh, '>', $self->{sourcefile}) or die $!;
@ -65,8 +64,7 @@ sub preprocess {
close $fh;
print "Executing [$self->{cmdline}]\n";
my ($retval, $result) = $self->execute(60, $self->{cmdline});
my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date} > /dev/null; ulimit -t 5; $self->{cmdline}\"");
$self->{output} = $result;
$self->{error} = $retval;
}