GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-11 12:32:37 +01:00
Code Issues Projects Releases Wiki Activity

compiler_vm: Add constants to easily customize time-out and nographic options in compiler_server.pl

Browse Source
This commit is contained in:
Pragmatic Software 2014-02-25 11:47:57 +00:00
parent 0b2b18d93a
commit d66d3d2a31
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 487, BUILD_REVISION => 488,
BUILD_DATE => "2014-02-24", BUILD_DATE => "2014-02-25",
}; };
1; 1;

7
modules/compiler_vm/compiler_server.pl
View File

@ -12,6 +12,9 @@ my $MONITOR_PORT = 3335;
my $SERIAL_PORT = 3333; my $SERIAL_PORT = 3333;
my $HEARTBEAT_PORT = 3336; my $HEARTBEAT_PORT = 3336;
my $COMPILE_TIMEOUT = 7;
my $NOGRAPHIC = 0;
sub server_listen { sub server_listen {
my $port = shift @_; my $port = shift @_;
@ -43,7 +46,7 @@ sub vm_start {
} }
if($pid == 0) { if($pid == 0) {
my $command = "nice -n -20 qemu-system-x86_64 -M pc -net none -hda /home/compiler/compiler/compiler-savedvm.qcow2 -m 128 -monitor tcp:127.0.0.1:$MONITOR_PORT,server,nowait -serial tcp:127.0.0.1:$SERIAL_PORT,server,nowait -serial tcp:127.0.0.1:$HEARTBEAT_PORT,server -boot c -loadvm 1 -enable-kvm -no-kvm-irqchip -nographic"; my $command = "nice -n -20 qemu-system-x86_64 -M pc -net none -hda /home/compiler/compiler/compiler-savedvm.qcow2 -m 128 -monitor tcp:127.0.0.1:$MONITOR_PORT,server,nowait -serial tcp:127.0.0.1:$SERIAL_PORT,server,nowait -serial tcp:127.0.0.1:$HEARTBEAT_PORT,server -boot c -loadvm 1 -enable-kvm -no-kvm-irqchip" . ($NOGRAPHIC ? "" : " -nographic");
my @command_list = split / /, $command; my @command_list = split / /, $command;
exec(@command_list); exec(@command_list);
} else { } else {
@ -82,7 +85,7 @@ sub execute {
my $pid = open(my $fh, '-|', "$cmdline 2>&1"); my $pid = open(my $fh, '-|', "$cmdline 2>&1");
local $SIG{ALRM} = sub { print "Time out\n"; kill 9, $pid; die "Timed-out: $result\n"; }; local $SIG{ALRM} = sub { print "Time out\n"; kill 9, $pid; die "Timed-out: $result\n"; };
alarm(7); alarm($COMPILE_TIMEOUT);
while(my $line = <$fh>) { while(my $line = <$fh>) {
$result .= $line; $result .= $line;