mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-05 02:19:26 +01:00
b5d8f72254
This patch adds the file LICENSE which is the verbatim copy of the Mozilla Public License Version 2.0 as retreived from https://www.mozilla.org/media/MPL/2.0/index.815ca599c9df.txt on 2017-03-05. This patch also places license headers for the MPL2 type A variant of the license header in the following files: PBot/AntiFlood.pm PBot/BanTracker.pm PBot/BlackList.pm PBot/BotAdminCommands.pm PBot/BotAdmins.pm PBot/ChanOpCommands.pm PBot/ChanOps.pm PBot/Channels.pm PBot/Commands.pm PBot/DualIndexHashObject.pm PBot/EventDispatcher.pm PBot/FactoidCommands.pm PBot/FactoidModuleLauncher.pm PBot/Factoids.pm PBot/HashObject.pm PBot/IRCHandlers.pm PBot/IgnoreList.pm PBot/IgnoreListCommands.pm PBot/Interpreter.pm PBot/LagChecker.pm PBot/Logger.pm PBot/MessageHistory.pm PBot/MessageHistory_SQLite.pm PBot/NickList.pm PBot/PBot.pm PBot/Plugins.pm PBot/Plugins/AntiAway.pm PBot/Plugins/AntiKickAutoRejoin.pm PBot/Plugins/AntiRepeat.pm PBot/Plugins/AntiTwitter.pm PBot/Plugins/AutoRejoin.pm PBot/Plugins/Counter.pm PBot/Plugins/Quotegrabs.pm PBot/Plugins/Quotegrabs/Quotegrabs_Hashtable.pm PBot/Plugins/Quotegrabs/Quotegrabs_SQLite.pm PBot/Plugins/UrlTitles.pm PBot/Plugins/_Example.pm PBot/Refresher.pm PBot/Registerable.pm PBot/Registry.pm PBot/RegistryCommands.pm PBot/SQLiteLogger.pm PBot/SQLiteLoggerLayer.pm PBot/SelectHandler.pm PBot/StdinReader.pm PBot/Timer.pm PBot/Utils/ParseDate.pm PBot/VERSION.pm build/update-version.pl modules/acronym.pl modules/ago.pl modules/c11std.pl modules/c2english.pl modules/c2english/CGrammar.pm modules/c2english/c2eng.pl modules/c99std.pl modules/cdecl.pl modules/cfaq.pl modules/cjeopardy/IRCColors.pm modules/cjeopardy/QStatskeeper.pm modules/cjeopardy/Scorekeeper.pm modules/cjeopardy/cjeopardy.pl modules/cjeopardy/cjeopardy_answer.pl modules/cjeopardy/cjeopardy_filter.pl modules/cjeopardy/cjeopardy_hint.pl modules/cjeopardy/cjeopardy_qstats.pl modules/cjeopardy/cjeopardy_scores.pl modules/cjeopardy/cjeopardy_show.pl modules/codepad.pl modules/compiler_block.pl modules/compiler_client.pl modules/compiler_vm/Diff.pm modules/compiler_vm/cc modules/compiler_vm/compiler_client.pl modules/compiler_vm/compiler_server.pl modules/compiler_vm/compiler_server_vbox_win32.pl modules/compiler_vm/compiler_server_watchdog.pl modules/compiler_vm/compiler_vm_client.pl modules/compiler_vm/compiler_vm_server.pl modules/compiler_vm/compiler_watchdog.pl modules/compiler_vm/languages/_c_base.pm modules/compiler_vm/languages/_default.pm modules/compiler_vm/languages/bash.pm modules/compiler_vm/languages/bc.pm modules/compiler_vm/languages/bf.pm modules/compiler_vm/languages/c11.pm modules/compiler_vm/languages/c89.pm modules/compiler_vm/languages/c99.pm modules/compiler_vm/languages/clang.pm modules/compiler_vm/languages/clang11.pm modules/compiler_vm/languages/clang89.pm modules/compiler_vm/languages/clang99.pm modules/compiler_vm/languages/clangpp.pm modules/compiler_vm/languages/clisp.pm modules/compiler_vm/languages/cpp.pm modules/compiler_vm/languages/freebasic.pm modules/compiler_vm/languages/go.pm modules/compiler_vm/languages/haskell.pm modules/compiler_vm/languages/java.pm modules/compiler_vm/languages/javascript.pm modules/compiler_vm/languages/ksh.pm modules/compiler_vm/languages/lua.pm modules/compiler_vm/languages/perl.pm modules/compiler_vm/languages/python.pm modules/compiler_vm/languages/python3.pm modules/compiler_vm/languages/qbasic.pm modules/compiler_vm/languages/scheme.pm modules/compiler_vm/languages/server/_c_base.pm modules/compiler_vm/languages/server/_default.pm modules/compiler_vm/languages/server/c11.pm modules/compiler_vm/languages/server/c89.pm modules/compiler_vm/languages/server/c99.pm modules/compiler_vm/languages/server/clang.pm modules/compiler_vm/languages/server/clang11.pm modules/compiler_vm/languages/server/clang89.pm modules/compiler_vm/languages/server/clang99.pm modules/compiler_vm/languages/server/cpp.pm modules/compiler_vm/languages/server/freebasic.pm modules/compiler_vm/languages/server/haskell.pm modules/compiler_vm/languages/server/java.pm modules/compiler_vm/languages/server/qbasic.pm modules/compiler_vm/languages/server/tendra.pm modules/compiler_vm/languages/sh.pm modules/compiler_vm/languages/tendra.pm modules/compliment modules/cstd.pl modules/define.pl modules/dice_roll.pl modules/excuse.sh modules/expand_macros.pl modules/fnord.pl modules/funnyish_quote.pl modules/g.pl modules/gdefine.pl modules/gen_cfacts.pl modules/gencstd.pl modules/get_title.pl modules/getcfact.pl modules/google.pl modules/gspy.pl modules/gtop10.pl modules/gtop15.pl modules/headlines.pl modules/horoscope modules/horrorscope modules/ideone.pl modules/insult.pl modules/love_quote.pl modules/man.pl modules/map.pl modules/math.pl modules/prototype.pl modules/qalc.pl modules/random_quote.pl modules/seen.pl modules/urban modules/weather.pl modules/wikipedia.pl pbot.pl pbot.sh It is highly recommended that this list of files is reviewed to ensure that all files are the copyright of the sole maintainer of the repository. If any files with license headers contain the intellectual property of anyone else, it is recommended that a request is made to revise this patch or that the explicit permission of the co-author is gained to allow for the license of the work to be changed. I (Tomasz Kramkowski), the contributor, take no responsibility for any legal action taken against the maintainer of this repository for incorrectly claiming copyright to any work not owned by the maintainer of this repository.
275 lines
6.5 KiB
Perl
Executable File
275 lines
6.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use IO::Select;
|
|
use IO::Socket;
|
|
use Net::hostent;
|
|
use Win32::MMF;
|
|
|
|
my $fh = select STDOUT;
|
|
$| = 1;
|
|
select $fh;
|
|
|
|
my $VBOX = '/cygdrive/e/VirtualBox/VBoxManage';
|
|
my $SERVER_PORT = 9000;
|
|
my $SERIAL_PORT = 3333;
|
|
my $HEARTBEAT_PORT = 3336;
|
|
|
|
my $COMPILE_TIMEOUT = 5;
|
|
my $NOGRAPHIC = 0;
|
|
|
|
$SIG{INT} = sub { vm_stop(); exit 1; };
|
|
|
|
sub server_listen {
|
|
my $port = shift @_;
|
|
|
|
my $server = IO::Socket::INET->new(
|
|
Proto => 'tcp',
|
|
LocalPort => $port,
|
|
Listen => SOMAXCONN,
|
|
Reuse => 1);
|
|
|
|
die "can't setup server: $!" unless $server;
|
|
|
|
print "[Server $0 accepting clients]\n";
|
|
|
|
return $server;
|
|
}
|
|
|
|
sub vm_stop {
|
|
system("$VBOX controlvm compiler poweroff");
|
|
sleep 2;
|
|
}
|
|
|
|
sub vm_start {
|
|
print "\nStarting vbox\n";
|
|
system("$VBOX snapshot compiler restore compiler");
|
|
sleep 2;
|
|
system("$VBOX startvm compiler" . ($NOGRAPHIC ? " --type headless" : ""));
|
|
}
|
|
|
|
sub execute {
|
|
my ($cmdline) = @_;
|
|
|
|
print "execute($cmdline)\n";
|
|
|
|
my ($ret, $result);
|
|
|
|
my $child = fork;
|
|
|
|
if($child == 0) {
|
|
($ret, $result) = eval {
|
|
my $result = '';
|
|
|
|
my $pid = open(my $fh, '-|', "$cmdline 2>&1");
|
|
|
|
local $SIG{ALRM} = sub { print "Time out\n"; kill 'INT', $pid; die "Timed-out: $result\n"; };
|
|
alarm($COMPILE_TIMEOUT);
|
|
|
|
while(my $line = <$fh>) {
|
|
$result .= $line;
|
|
}
|
|
|
|
close $fh;
|
|
|
|
my $ret = $? >> 8;
|
|
alarm 0;
|
|
return ($ret, $result);
|
|
};
|
|
|
|
alarm 0;
|
|
if($@ =~ /Timed-out: (.*)/) {
|
|
return (-13, "[Timed-out] $1");
|
|
}
|
|
|
|
return ($ret, $result);
|
|
} else {
|
|
waitpid($child, 0);
|
|
my $result = $? >> 8;
|
|
print "child exited, parent continuing [result = $result]\n";
|
|
return (undef, $result);
|
|
}
|
|
}
|
|
|
|
sub compiler_server {
|
|
my ($server, $heartbeat_pid, $heartbeat_monitor);
|
|
|
|
while(1) {
|
|
vm_start;
|
|
print "vm started\n";
|
|
|
|
$heartbeat_pid = fork;
|
|
die "Fork failed: $!" if not defined $heartbeat_pid;
|
|
|
|
if($heartbeat_pid == 0) {
|
|
my $ns = Win32::MMF->new();
|
|
|
|
while(not $ns->findvar('running')) {
|
|
print "Child waiting for running status\n";
|
|
sleep 1;
|
|
}
|
|
|
|
$heartbeat_monitor = undef;
|
|
while(not $heartbeat_monitor) {
|
|
print "Connecting to heartbeat ...";
|
|
$heartbeat_monitor = IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort => $HEARTBEAT_PORT, Proto => 'tcp', Type => SOCK_STREAM);
|
|
if(not $heartbeat_monitor) {
|
|
print " failed.\n";
|
|
sleep 2;
|
|
} else {
|
|
print " success!\n";
|
|
}
|
|
}
|
|
|
|
my $select = IO::Select->new();
|
|
$select->add($heartbeat_monitor);
|
|
|
|
while($ns->getvar('running')) {
|
|
my @ready = $select->can_read(1);
|
|
foreach my $fh (@ready) {
|
|
my $ret = sysread($fh, my $buf, 32);
|
|
|
|
if(not defined $ret) {
|
|
print "Heartbeat read error: $!\n";
|
|
$ns->setvar('running', 0);
|
|
}
|
|
|
|
if($ret == 0) {
|
|
print "Heartbeat disconnected.\n";
|
|
$ns->setvar('running', 0);
|
|
}
|
|
|
|
$ns->setvar('heartbeat', 1);
|
|
print ".";
|
|
}
|
|
}
|
|
|
|
$heartbeat_monitor->shutdown(3);
|
|
$ns->deletevar('heartbeat');
|
|
$ns->deletevar('running');
|
|
print "child no longer running\n";
|
|
exit;
|
|
} else {
|
|
print "Heartbeat pid: $heartbeat_pid\n";
|
|
|
|
if(not defined $server) {
|
|
print "Starting compiler server on port $SERVER_PORT\n";
|
|
$server = server_listen($SERVER_PORT);
|
|
} else {
|
|
print "Compiler server already listening on port $SERVER_PORT\n";
|
|
}
|
|
|
|
my $ns = Win32::MMF->new();
|
|
|
|
$ns->setvar('running', 1);
|
|
$ns->setvar('heartbeat', 0);
|
|
|
|
while ($ns->getvar('running') and my $client = $server->accept()) {
|
|
$client->autoflush(1);
|
|
my $hostinfo = gethostbyaddr($client->peeraddr);
|
|
print '-' x 20, "\n";
|
|
printf "[Connect from %s at %s]\n", $client->peerhost, scalar localtime;
|
|
my $timed_out = 0;
|
|
my $killed = 0;
|
|
|
|
eval {
|
|
my $lang;
|
|
my $nick;
|
|
my $channel;
|
|
my $code = "";
|
|
|
|
local $SIG{ALRM} = sub { die 'Timed-out'; };
|
|
alarm 5;
|
|
|
|
while (my $line = <$client>) {
|
|
$line =~ s/[\r\n]+$//;
|
|
next if $line =~ m/^\s*$/;
|
|
alarm 5;
|
|
print "got: [$line]\n";
|
|
|
|
if($line =~ m/^compile:end$/) {
|
|
if(not $ns->getvar('heartbeat')) {
|
|
print "No heartbeat yet, ignoring compile attempt.\n";
|
|
print $client "$nick: Recovering from previous snippet, please wait.\n";
|
|
last;
|
|
}
|
|
|
|
print "Attempting compile...\n";
|
|
alarm 0;
|
|
|
|
my ($ret, $result) = execute("./compiler_vm_client.pl \Q$nick\E \Q$channel\E -lang=\Q$lang\E \Q$code\E");
|
|
|
|
if(not defined $ret) {
|
|
#print "parent continued\n";
|
|
print "parent continued [$result]\n";
|
|
$timed_out = 1 if $result == 243; # -13 == 243
|
|
$killed = 1 if $result == 242; # -14 = 242
|
|
$client->shutdown(3);
|
|
last;
|
|
}
|
|
|
|
$result =~ s/\s+$//;
|
|
print "Ret: $ret; result: [$result]\n";
|
|
|
|
if($result =~ m/\[Killed\]$/) {
|
|
print "Process was killed\n";
|
|
$killed = 1;
|
|
}
|
|
|
|
if($ret == -13) {
|
|
print $client "$nick: ";
|
|
}
|
|
|
|
print $client $result . "\n";
|
|
$client->shutdown(3);
|
|
|
|
$ret = -14 if $killed;
|
|
|
|
# child exit
|
|
print "child exit\n";
|
|
exit $ret;
|
|
}
|
|
|
|
if($line =~ /compile:([^:]+):([^:]+):(.*)$/) {
|
|
$nick = $1;
|
|
$channel = $2;
|
|
$lang = $3;
|
|
$code = "";
|
|
next;
|
|
}
|
|
|
|
$code .= $line . "\n";
|
|
}
|
|
|
|
alarm 0;
|
|
};
|
|
|
|
alarm 0;
|
|
|
|
$client->shutdown(3);
|
|
|
|
next unless ($timed_out);
|
|
|
|
$server->shutdown(3);
|
|
undef $server;
|
|
print "stopping vm\n";
|
|
$ns->setvar('running', 0);
|
|
vm_stop;
|
|
last;
|
|
}
|
|
print "Compiler server no longer running, restarting...\n";
|
|
}
|
|
print "Waiting for heartbeat $heartbeat_pid to die\n";
|
|
waitpid($heartbeat_pid, 0);
|
|
print "Heartbeat dead.\n";
|
|
}
|
|
}
|
|
|
|
compiler_server;
|