in reply to Re^4: Perl Simple IRC Client question
in thread Perl Simple IRC Client question

Sorry I wasn't logged in. Here's the code: 
#!/bin/perl -w
use strict;
use Bot::BasicBot;

my $bot = Bot::BasicBot->new(
 server => "ircserver",
    port   => "6697",
    ssl => "true",
    channels => ["#testing123"],
    
    nick      => "mlapaglia",
    alt_nicks => ["bbot", "simplebot"],
    username  => "mlapaglia",
    name      => "mlapaglia",

  );

$bot->run();

sub said {
    print "ahhh\n";
}

[download]

Replies are listed 'Best First'.
Re^6: Perl Simple IRC Client question
by Corion (Patriarch) on Feb 19, 2010 at 17:43 UTC

    You're supposed to override methods in Bot::BasicBot:

    package Bot::Mlapaglia;
use strict;
use parent 'Bot::BasicBot';

sub said {
    my ($self, $args) = @_;
    return "That's what she said. Heh heh.";
};

package main;
my $bot = Bit::Mlapaglia->new( ... );

$bot->run();

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom