Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 06:15:41 -04:00
Code Issues Releases Wiki Activity

i think i did this right!

Browse source 
Merge branch 'master' of isuckatdomains.net:perlbuut

Conflicts:
	var/karma.db
	var/seen.db
This commit is contained in:
Ryan Voots 2010-03-10 23:08:43 -05:00
commit c47c90106e
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
etc/plugins.conf
View file

@ -10,4 +10,7 @@ server "*" {
plugin "conf" { access: root; }
plugin "karma_modify" { addressed: false; }
}
channel "#perl" {
plugin "eval" {addressed: true; }
}
}

2
plugins/eval.pm
View file

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