view release on metacpan or  search on metacpan

README  view on Meta::CPAN

      The ircd port to connect to. Defaults to 6667.

    ircname

      Some cute comment or something.

    username

      Your client's username.

    password

      The password that is required if your ircd is restricted.

    channels

      A comma-separated list of IRC channels to join, default is #relayd

    flood

      Set to a true value to disable anti-flood protection when sending
      stuff to the ircd. Defaults to false if not specified. Care should be
      used when enabling this option and it requires the cooperation of a

lib/App/Metabase/Relayd/Plugin/IRC.pm  view on Meta::CPAN

  my ($kernel,$heap) = @_[KERNEL,HEAP];
  $kernel->refcount_increment( $_[SESSION]->ID(), __PACKAGE__ );
  $kernel->yield( '_start_up' );
  return;
}

sub _start_up {
  my ($kernel,$heap) = @_[KERNEL,HEAP];
  $heap->{nick} = 'relayd' . $$ unless $heap->{nick};
  my $irc = POE::Component::IRC->spawn(
    ( map { ( $_, $heap->{$_} ) } grep { exists $heap->{$_} } qw(server nick ircname username port password flood) ),
  );
  $heap->{_irc} = $irc;
  return;
}

sub irc_registered {
  my ($kernel,$heap,$irc) = @_[KERNEL,HEAP,ARG0];
  $irc->plugin_add( 'Connector', POE::Component::IRC::Plugin::Connector->new() );
  $irc->yield( 'connect', { } );
  return;

lib/App/Metabase/Relayd/Plugin/IRC.pm  view on Meta::CPAN

The ircd port to connect to. Defaults to C<6667>.

=item C<ircname>

Some cute comment or something.

=item C<username>

Your client's username.

=item C<password>

The password that is required if your ircd is restricted.

=item C<channels>

A comma-separated list of IRC channels to join, default is C<#relayd>

=item C<flood>

Set to a C<true> value to disable anti-flood protection when sending stuff to
the ircd. Defaults to C<false> if not specified. Care should be used when enabling
this option and it requires the cooperation of a friendly irc oper to ensure that