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

@ -78,9 +78,12 @@ 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
</bot>

4
lib/Bot/BB3.pm
View file

@ -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,

8
lib/Bot/BB3/Roles/IRC.pm
View file

@ -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;
# }
#--------------------------

10
lib/eval.pl
View file

@ -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;