view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension AnySan

0.10    2013-05-23T18:00:42+09:00
        - use AnyEvent->timer for join channel on connect to IRC Server (kazeburo++)
        - add enable_ssl option on IRC (mix++)
        - interval option of Providor::IRC can be specified 0 (songmu++)

0.09    2013-03-07T20:43:06+09:00
        - add join Excess Flood defender on startup

0.08    2012-06-22T13:55:52+09:00
        - added user option on IRC (kuzuha++)
        - fixed documentation typo (kuzuha++)

0.07    2012-05-19T17:38:36+09:00

lib/AnySan/Provider/IRC.pm  view on Meta::CPAN

                    channel    => $channel,
                    command    => $param->{command},
                    raw_params => $param,
                },
                cb            => sub { $self->event_callback($receive, @_) },
            );
            AnySan->broadcast_message($receive);
        }
    );

    $con->enable_ssl if $config{enable_ssl}; # enable ssl

    # connect server
    $con->connect ($host, $port, {
        nick     => $nickname,
        user     => $config{user},
        password => $config{password},
    });

    return $self;
}

lib/AnySan/Provider/IRC.pm  view on Meta::CPAN

AnySan::Provider::IRC - AnySan provide IRC protocol

=head1 SYNOPSIS

  use AnySan;
  use AnySan::Provider::IRC;

  my $irc = irc
      'chat.example.net', # irc servername *required
      port     => 6667, # default is 6667
      enable_ssl => 0, # 1 = use ssl socket, default is no use ssl
      password => 'server_password',
      key      => 'example1', # you can write, unique key *required
      nickname => 'AnySan1',  # irc nickname *required
      recive_commands => [ 'PRIVMSG', 'NOTICE' ], # default is [ 'PRIVMSG' ]
      interval        => 2, # default is 2(sec), defence of Excess Flood
      wait_queue_size => 100, # default is 100, for send message buffer size
      on_connect      => sub {}, # optional
      on_disconnect   => sub {}, # optional
      channels => {
          '#anysan1' => {},