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

patched to let others connect to evalserver

Browse source
This commit is contained in:
Ryan Voots 2009-12-05 23:11:01 -05:00
parent 8032fbb0ad
commit abd28e6ddd
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/EvalServer.pm
View file

@ -164,7 +164,7 @@ sub _start {
warn "Eval Server starting\n"; warn "Eval Server starting\n";
$self->{socket_factory} = POE::Wheel::SocketFactory->new( $self->{socket_factory} = POE::Wheel::SocketFactory->new(
BindAddress => "127.0.0.1", # BindAddress => "127.0.0.1",
BindPort => '14400', BindPort => '14400',
SuccessEvent => 'socket_new', SuccessEvent => 'socket_new',
FailureEvent => 'socket_fail', FailureEvent => 'socket_fail',

2
plugins/eval.pm
View file

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