diff --git a/etc/bb3.conf b/etc/bb3.conf index 333e549..5f35461 100644 --- a/etc/bb3.conf +++ b/etc/bb3.conf @@ -77,10 +77,13 @@ http_plugin_port 1092 channel \#freenode-perl-cabal channel \#perl-help + + ignore purl + ignore perlbot server localhost username perlbot-magnet password sindarin port 65432 - root_mask ~simcop238@c-98-192-22-197.hsd1.ga.comcast.net + root_mask ~simcop238@simcop2387.info diff --git a/lib/Bot/BB3.pm b/lib/Bot/BB3.pm index b656140..c9ca3c3 100644 --- a/lib/Bot/BB3.pm +++ b/lib/Bot/BB3.pm @@ -166,8 +166,8 @@ sub parse_main_conf { } my %conf_defaults = ( - start_plugin_children => 1, - max_plugin_children => 6, + start_plugin_children => 3, + max_plugin_children => 10, child_handle_count => 10, http_plugin_port => 10080, pastebot_plugin_port => 10081, diff --git a/lib/Bot/BB3/Roles/IRC.pm b/lib/Bot/BB3/Roles/IRC.pm index ee21550..d15b294 100644 --- a/lib/Bot/BB3/Roles/IRC.pm +++ b/lib/Bot/BB3/Roles/IRC.pm @@ -316,11 +316,11 @@ sub _said { # Check for forwarded message #-------------------------- - if ($said->{addressed} && $said->{body} =~ s/\s*>\s*\b([^\s>]+)\s*$//) - { +# if ($said->{addressed} && $said->{body} =~ s/\s*>\s*\b([^\s>]+)\s*$//) +# { #we have a forwarded message - $said->{forwarding} = $1; - } +# $said->{forwarding} = $1; +# } #-------------------------- diff --git a/lib/eval.pl b/lib/eval.pl index 2116287..a4b02db 100755 --- a/lib/eval.pl +++ b/lib/eval.pl @@ -1,7 +1,7 @@ #!/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/ryan/perl5/lib/perl5/i686-linux'; +#use lib '/home/ryan/perl5/lib/perl5'; use strict; use Data::Dumper; @@ -17,6 +17,12 @@ use Data::Munge; use Scalar::MoreUtils; use Regexp::Common; use Encode; +use Digest::MD5; +use Digest::SHA; +use DateTime; +use DateTimeX::Easy; +use Date::Parse; +use autobox; require Moose; require MooseX::Declare;