use Data::Dumper;
use POE::Kernel;
use POE::Session;
use POE::Component::IRC;


sub start {
  my ($kernel, $session) = @_[KERNEL, SESSION];

  $kernel->post( 'test', 'connect', {
			Debug    => 1,
			Nick     => 'Bot',
                        Server   => 'administrator.co.il',
			Port     => '6667',
			Username => 'BotV6-Poe',
			Ircname  => 'ModHelp', }
	       )and print("connected\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 {
  print("in on_Connect\n");
  my ($kernel) = $_[KERNEL];

  $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]);
	}

POE::Component::IRC->new('test');
POE::Session->create(inline_states =>{
								   _start=>\&start,
								   _stop=>\&stop,
								   irc_001=>\&on_connect,
								   irc_msg=>\&on_msg,},);


$poe_kernel->run();