pbot/applets/pbot-vm/guest/lib/Languages/java.pm

53 lines
1.1 KiB
Perl
Raw Normal View History

2015-04-10 12:43:45 +02:00
#!/usr/bin/perl
2021-07-11 00:00:22 +02:00
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
2015-04-10 12:43:45 +02:00
use warnings;
use strict;
2019-06-26 18:34:19 +02:00
package java;
2015-04-10 12:43:45 +02:00
use parent '_default';
sub preprocess {
my $self = shift;
$self->SUPER::preprocess;
if ($self->{cmdline} =~ m/-version/) {
$self->{done} = 1;
}
}
2015-04-10 12:43:45 +02:00
sub postprocess {
my $self = shift;
# 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";
}
2015-09-04 06:32:44 +02:00
my $input_quoted = quotemeta $self->{input};
$input_quoted =~ s/\\"/"'\\"'"/g;
my ($retval, $result) = $self->execute(60, "bash -c \"date -s \@$self->{date}; ulimit -t 5; echo $input_quoted | java prog $self->{arguments} > .output\"", '/bin/sh');
2015-04-10 12:43:45 +02:00
$result = "";
open(FILE, '.output');
while(<FILE>) {
$result .= $_;
last if length $result >= 1024 * 20;
}
close(FILE);
$result =~ s/\s+$//;
if (not length $result) {
$self->{no_output} = 1;
}
$self->{output} .= $result;
}
1;