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

nightly commit

Browse source
This commit is contained in:
Ryan Voots 2010-03-05 04:00:02 -05:00
parent 45e68b332a
commit 4b7b33479d
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" } ] );