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

getting things updated, haven't pushed in a while

Browse source
This commit is contained in:
Ryan Voots 2012-04-03 19:00:01 -04:00
parent 95d965a07e
commit 06c7b809f7
4 changed files with 18 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
etc/bb3.conf
View file

@ -77,10 +77,13 @@ http_plugin_port 1092
<bot perlbot> <bot perlbot>
channel \#freenode-perl-cabal channel \#freenode-perl-cabal
channel \#perl-help channel \#perl-help
ignore purl
ignore perlbot
server localhost server localhost
username perlbot-magnet username perlbot-magnet
password sindarin password sindarin
port 65432 port 65432
root_mask ~simcop238@c-98-192-22-197.hsd1.ga.comcast.net root_mask ~simcop238@simcop2387.info
</bot> </bot>

4
lib/Bot/BB3.pm
View file

@ -166,8 +166,8 @@ sub parse_main_conf {
} }
my %conf_defaults = ( my %conf_defaults = (
start_plugin_children => 1, start_plugin_children => 3,
max_plugin_children => 6, max_plugin_children => 10,
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/Bot/BB3/Roles/IRC.pm
View file

@ -316,11 +316,11 @@ sub _said {
# Check for forwarded message # 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 #we have a forwarded message
$said->{forwarding} = $1; # $said->{forwarding} = $1;
} # }
#-------------------------- #--------------------------

10
lib/eval.pl
View file

@ -1,7 +1,7 @@
#!/home/ryan/perl5/perlbrew/perls/perl-5.14.1/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/ryan/perl5/lib/perl5/i686-linux';
#use lib '/home/farnsworth/perl5/lib/perl5'; #use lib '/home/ryan/perl5/lib/perl5';
use strict; use strict;
use Data::Dumper; use Data::Dumper;
@ -17,6 +17,12 @@ use Data::Munge;
use Scalar::MoreUtils; use Scalar::MoreUtils;
use Regexp::Common; use Regexp::Common;
use Encode; use Encode;
use Digest::MD5;
use Digest::SHA;
use DateTime;
use DateTimeX::Easy;
use Date::Parse;
use autobox;
require Moose; require Moose;
require MooseX::Declare; require MooseX::Declare;