NAME

POEIKC::Plugin::IRC - PoCo-IKC and PoCo-IRC based irc bot.

SYNOPSIS

$ poeikcd start -M=POEIKC::Plugin::IRC -a=irc_bot -s

and then ..

$ poikc --alias=IKC_IRC -s message_respond  privmsg '{"channel" => "#test","connect" => {"Nick" => "poeN","Username" => "poeU","debug" => 1,"Port" => 16667,"flood" => 1,"Ircname" => "localhost"}}' AIUEO IRoHaNiHoHeTo -D

or

$ikc_client->post_respond( 'IKC_IRC/message_respond' => ['privmsg','{"channel"=>"#test","connect"=>{"Nick"=>"poeN","Username"=>"poeU","debug"=>1,"Port"=>16667,"flood"=>1,"Ircname"=>"localhost"}}','AIUEO','IRoHaNiHoHeTo'] );

DESCRIPTION

POEIKC::Plugin::IRC is poeikcd plugin irc bot

EXAMPLES

use strict;
use Data::Dumper;
use POE::Component::IKC::ClientLite;
use Sys::Hostname;

my %param = (
    ip      => Sys::Hostname::hostname,
    port    => 47225,
    name    => join('_'=>Sys::Hostname::hostname, ($0 =~ /(\w+)/g), $$),
);
my $ikc = create_ikc_client(%param);

my $param = {
    connect=>{
        Nick=>"poeN",
        Username=>"poeU",
        Ircname=>"localhost",
        Port=>"16667",
        #debug=>1,
        flood=>1,
    },
    channel=>"#test"
};

my $state = 'IKC_IRC/message_respond';

$ikc or die $POE::Component::IKC::ClientLite::error;

my $msg = q{
a   i   u   e   o
ka  ki  ku  ke  ko  kya     kyu     kyo
sa  si  su  se  so  sya     syu     syo
ta  ti  tu  te  to  tya     tyu     tyo
na  ni  nu  ne  no  nya     nyu     nyo
ha  hi  hu  he  ho  hya     hyu     hyo
ma  mi  mu  me  mo  mya     myu     myo
ya  (i)     yu  (e)     yo
ra  ri  ru  re  ro  rya     ryu     ryo
wa  (i)     (u)     (e)     (o)
ga  gi  gu  ge  go  gya     gyu     gyo
za  zi  zu  ze  zo  zya     zyu     zyo
da  (zi)    (zu)    de  do  (zya)   (zyu)   (zyo)
ba  bi  bu  be  bo  bya     byu     byo
pa  pi  pu  pe  po  pya     pyu     pyo
};

$ikc->post_respond( $state => ['notice'  ,$param, "-- (start) --"]);
$ikc->post_respond( $state => ['privmsg' ,$param, "-- (1) --"]);
$ikc->post_respond( $state => ['privmsg', $param, "Romaji-1"]);
$ikc->post_respond( $state => ['privmsg' , $param, $msg]);

$ikc->post_respond( $state => [$param, "-- (2) --"]);
$ikc->post_respond( $state => [$param, "Romaji-2"]);
$ikc->post_respond( $state => [$param, $msg]);
$ikc->post_respond( $state => [$param, "-- (3) --"]);
$ikc->post_respond( $state => [$param, "aiueo", "irohanihoheto"]);
$ikc->post_respond( $state => [$param, ["AIUEO", "IROHANIHOHETO"]]);
$ikc->post_respond( $state => [$param, "-- (end) --"]);

print Dumper $ikc->post_respond( 'IKC_IRC/status_respond' );

print "*"x40, "\n";

$Data::Dumper::Terse=1;
$Data::Dumper::Indent=0;
$Data::Dumper::Useqq=1;
$param = Dumper $param;
my $cmd = qq{poikc --alias=IKC_IRC -s message_respond  privmsg '$param' AIUEO IRoHaNiHoHeTo -D};
print $cmd,"\n";
print `$cmd`;
print "\n";

AUTHOR

Yuji Suzuki <yujisuzuki@mail.arbolbell.jp>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

poeikcd poikc POE::Component::IRC "POE::Component::IKC::ClientLite "