| Subject: | server password ignored |
IRC::Bot completely ignores the Password, even if it has been passed by
the wrongly documented "Pass" argument, which should have been
"Password" (See POE::Component::IRC):
--8<--- excerpt from Bot.pm
# Start the bot things up
sub bot_start {
my ( $self, $kernel, $session ) = @_[ OBJECT, KERNEL, SESSION ];
my $ts = scalar(localtime);
$log->serv_log("[$ts] Starting Up...");
$kernel->post( NICK, 'register', 'all' );
$kernel->post(
NICK,
'connect',
{
Debug => $self->{'Debug'},
Nick => $self->{'Nick'},
Server => $self->{'Server'},
Port => $self->{'Port'},
Username => $self->{'Username'},
Ircname => $self->{'Ircname'},
NSPass => $self->{'NSPass'}
}
);
$kernel->delay( 'reconnect', 20 );
}
-->8---
and it's docs:
=head1 SYNOPSIS
#!/usr/bin/perl -w
use strict;
use IRC::Bot;
# Initialize new object
my $bot = IRC::Bot->new( Debug => 0,
Nick => 'MyBot',
Server => 'irc.myserver.com',
Pass => 'myircpassword',
Port => '6667',
Username => 'MyBot',
Ircname => 'MyBot',
Admin => 'admin',
Apass => 'iamgod',
Channels => [ '#mychan', '#test' ],
LogPath => '/home/myhome/bot/log/',
NSPass => 'nickservpass'
);
# Daemonize process
$bot->daemon();
# Run the bot
$bot->run();
__END__