3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-12 22:09:31 +01:00
pbot/modules/compiler_vm/languages/server/tendra.pm
2019-05-28 09:19:42 -07:00

40 lines
797 B
Perl
Executable File

#!/usr/bin/perl
use warnings;
use strict;
package tendra;
use parent '_default';
sub postprocess {
my $self = shift;
$self->SUPER::postprocess;
# no errors compiling, but if output contains something, it must be diagnostic messages
if(length $self->{output}) {
$self->{output} =~ s/^\s+//;
$self->{output} =~ s/\s+$//;
$self->{output} = "[$self->{output}]\n";
}
my ($retval, $result) = $self->execute(60, "date -s \@$self->{date}; ulimit -t 5; cat .input | /home/compiler/prog > .output");
$self->{error} = $retval;
$result = "";
open(FILE, '.output');
while(<FILE>) {
$result .= $_;
last if length $result >= 1024 * 20;
}
close(FILE);
$result =~ s/\s+$//;
$self->{no_output} = 1 if not length $result;
$self->{output} .= $result;
}
1;