japhy has asked for the wisdom of the Perl Monks concerning the following question:
I'm writing a program that is supposed to create IRC bots (using POE) each time it gets a request. The program is:
I never see the "CONNECTED" message. What am I doing wrong?use POE; use POE::Component::Server::TCP; use POE::Component::IRC; POE::Component::Server::TCP->new( Port => '9999', Address => '0.0.0.0', ClientInput => \&client_input, ); POE::Session->create( package_states => [ main => [qw( _start irc_001 )], ], ); $poe_kernel->run(); sub _start { } sub client_input { ++$x; print "creating bot-$x\n"; POE::Component::IRC->new("bot-$x"); $_[KERNEL]->post("bot-$x", 'register', 'all'); $_[KERNEL]->post("bot-$x", "connect", { Nick => "j-bot-$x", Server => 'irc.freenode.net', Port => 6667, }); print "created bot-$x\n"; } sub irc_001 { print "CONNECTED ...\n"; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Adding sessions on-the-fly to POE program
by revdiablo (Prior) on Oct 26, 2004 at 22:10 UTC | |
by japhy (Canon) on Oct 26, 2004 at 22:33 UTC | |
Re: Adding sessions on-the-fly to POE program
by diotalevi (Canon) on Oct 26, 2004 at 19:24 UTC | |
by revdiablo (Prior) on Oct 27, 2004 at 16:38 UTC | |
by japhy (Canon) on Oct 26, 2004 at 20:34 UTC | |
Re: Adding sessions on-the-fly to POE program
by duff (Parson) on Oct 26, 2004 at 19:17 UTC |
Back to
Seekers of Perl Wisdom