Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 07:15:41 -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 'Net::DNS' => 0;
requires 'HTML::TreeBuilder' => 0; requires 'HTML::TreeBuilder' => 0;
requires 'Net::Dict' => 0;
requires 'HTML::TreeBuilder::XPath' => 0;
WriteAll; WriteAll;

12
etc/bb3.conf
View file

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

6
etc/plugins.conf
View file

@ -1,7 +1,7 @@
server "*" { server "*" {
channel "*" { channel "*" {
plugin "*" { addressed: true } plugin "*" { addressed: true }
plugin "join" { access: root; addressed: true } plugin "join" { access: op; addressed: true }
plugin "part" { access: op } plugin "part" { access: op }
plugin "reload_plugins" { access: root } plugin "reload_plugins" { access: root }
plugin "restart" { access: root } plugin "restart" { access: root }
@ -14,4 +14,8 @@ server "*" {
plugin "eval" {addressed: false; } plugin "eval" {addressed: false; }
plugin "deparse" {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 = ( my %conf_defaults = (
start_plugin_children => 1, start_plugin_children => 1,
max_plugin_children => 2, max_plugin_children => 6,
child_handle_count => 10, child_handle_count => 10,
http_plugin_port => 10080, http_plugin_port => 10080,
pastebot_plugin_port => 10081, pastebot_plugin_port => 10081,

8
lib/EvalServer.pm
View file

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

2
plugins/eval.pm
View file

@ -52,7 +52,7 @@ sub command {
warn "Found $type: $code"; warn "Found $type: $code";
my $filter = POE::Filter::Reference->new(); 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"; or die "error: cannot connect to eval server";
my $refs = $filter->put( [ { code => "$type $code" } ] ); my $refs = $filter->put( [ { code => "$type $code" } ] );