the output is:use Data::Dumper; use POE::Kernel; use POE::Session; use POE::Component::IRC; use strict; sub start { my ($kernel, $session) = @_[KERNEL, SESSION]; $kernel->post( 'test', 'connect', { Debug => 1, Nick => 'Bot', Server => 'irc.psam.se', Port => '6667', Username => 'BotV6-Poe', Ircname => 'ModHelp', } )and print("connecting\n"); $kernel->post( 'test', 'register','all')and print("registered\n"); } sub stop { my ($kernel) = $_[KERNEL]; $kernel->call( 'test', 'quit', 'Neenios on ice!' ); } sub on_connect { my ($kernel) = $_[KERNEL]; print("in on_Connect\n"); $kernel->post( 'test', 'join', '#Alex' )and print("Joined\n"); } sub on_msg { my @args = @_[ ARG0 .. $#_ ]; my $list=join(" . ",@args); $kernel->post('test','privmsg','Isa',@_[ARG0]); } sub conn { my ($server) = $_[ARG0]; print("connected to $server\n"); } $| = 1; POE::Component::IRC->new('test'); POE::Session->create(inline_states =>{ irc_connected=>\&conn, _start=>\&start, _stop=>\&stop, irc_001=>\&on_connect, irc_msg=>\&on_msg,},); $poe_kernel->run();
In reply to Re: Re: POE::IRC Not joining Channel
by kosh
in thread POE::IRC Not joining Channel
by kosh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |