Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:55:40 -04:00
Code Issues Releases Wiki Activity

adding stuff

Browse source
This commit is contained in:
Ryan Voots 2011-10-20 22:49:51 -04:00
parent e90ed9d8dc
commit 1207c2d6f5
7 changed files with 23 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Makefile.PL
View file

@ -28,4 +28,7 @@ requires 'DBI' => 0;
requires 'Net::DNS' => 0;
requires 'HTML::TreeBuilder' => 0;
requires 'Net::Dict' => 0;
requires 'HTML::TreeBuilder::XPath' => 0;
WriteAll;

12
etc/bb3.conf
View file

@ -67,10 +67,10 @@ http_plugin_port 1092
ignore EvanCarol
ignore EC
server irc.freenode.net
server localhost
username perlbot
password superbadola
port 6667
password sindarin
port 65432
root_mask p3m/member/simcop2387
</bot>
@ -78,7 +78,9 @@ http_plugin_port 1092
channel \#freenode-perl-cabal
channel \#perl-help
server irc.perl.org
port 6667
server localhost
username perlbot-magnet
password sindarin
port 65432
root_mask ~simcop238@c-98-192-22-197.hsd1.ga.comcast.net
</bot>

6
etc/plugins.conf
View file

@ -1,7 +1,7 @@
server "*" {
channel "*" {
plugin "*" { addressed: true }
plugin "join" { access: root; addressed: true }
plugin "join" { access: op; addressed: true }
plugin "part" { access: op }
plugin "reload_plugins" { access: root }
plugin "restart" { access: root }
@ -14,4 +14,8 @@ server "*" {
plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; }
}
channel "#perl-cats" {
plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; }
}
}

2
lib/Bot/BB3.pm
View file

@ -167,7 +167,7 @@ sub parse_main_conf {
my %conf_defaults = (
start_plugin_children => 1,
max_plugin_children => 2,
max_plugin_children => 6,
child_handle_count => 10,
http_plugin_port => 10080,
pastebot_plugin_port => 10081,

8
lib/EvalServer.pm
View file

@ -1,7 +1,5 @@
package EvalServer;
use lib '/home/farnsworth/perl5/lib/perl5/';
$ENV{PERL5LIB}="/home/farnsworth/perl5/lib/perl5/x86_64-linux-gnu-thread-multi:/home/farnsworth/perl5/lib/perl5";
use POE;
use POE::Wheel::SocketFactory;
use POE::Wheel::ReadWrite;
@ -38,11 +36,11 @@ sub spawn_eval {
my $filename = 'eval.pl';
if( not -e $filename ) {
$filename = "lib/$filename";
$filename = "/home/ryan/bots/perlbuut/lib/$filename";
}
warn "Spawning Eval: $args->{code}\n";
my $wheel = POE::Wheel::Run->new(
Program => [ '/home/farnsworth/perl5/perlbrew/perls/perl-5.14.0/bin/perl', $filename ],
Program => [ '/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl', $filename ],
ProgramArgs => [ ],
CloseOnCall => 1, #Make sure all of the filehandles are closed.
@ -167,7 +165,7 @@ sub _start {
warn "Eval Server starting\n";
$self->{socket_factory} = POE::Wheel::SocketFactory->new(
# BindAddress => "127.0.0.1",
BindAddress => "127.0.0.1",
BindPort => '14400',
SuccessEvent => 'socket_new',
FailureEvent => 'socket_fail',

6
lib/eval.pl
View file

@ -1,7 +1,7 @@
#!/home/farnsworth/perl5/perlbrew/perls/perl-5.14.0/bin/perl
#!/home/ryan/perl5/perlbrew/perls/perl-5.14.1/bin/perl
use lib '/home/farnsworth/perl5/lib/perl5/x86_64-linux-gnu-thread-multi';
use lib '/home/farnsworth/perl5/lib/perl5';
#use lib '/home/farnsworth/perl5/lib/perl5/x86_64-linux-gnu-thread-multi';
#use lib '/home/farnsworth/perl5/lib/perl5';
use strict;
use Data::Dumper;

2
plugins/eval.pm
View file

@ -52,7 +52,7 @@ sub command {
warn "Found $type: $code";
my $filter = POE::Filter::Reference->new();
my $socket = IO::Socket::INET->new( PeerAddr => 'home.simcop2387.info', PeerPort => '14400' )
my $socket = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '14400' )
or die "error: cannot connect to eval server";
my $refs = $filter->put( [ { code => "$type $code" } ] );