mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-07 20:49:31 +01:00
33e13fd993
This is expected to take three commits to complete. This first initial commit does the following: - Begin initial rough-draft of doc/VirtualMachine.md - Begin initial refactoring of scripts The next commit will polish up the initial rough-draft and refactoring. The final commit will quality-check everything and fix anything overlooked.
54 lines
1.1 KiB
Perl
Executable File
54 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
|
|
# SPDX-License-Identifier: MIT
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
package java;
|
|
use parent '_default';
|
|
|
|
sub preprocess {
|
|
my $self = shift;
|
|
$self->SUPER::preprocess;
|
|
|
|
if ($self->{cmdline} =~ m/-version/) {
|
|
$self->{done} = 1;
|
|
}
|
|
}
|
|
|
|
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";
|
|
}
|
|
|
|
print "Executing java\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 5; echo $input_quoted | java prog $self->{arguments} > .output\"");
|
|
|
|
$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;
|