arya6000 has asked for the wisdom of the Perl Monks concerning the following question:

Hello

I tried many AIM modules on CPAN but non of them worked. Do you know any AIM modules that are working?

Best Regards!

Replies are listed 'Best First'.
Re: Working AIM bot?
by keszler (Priest) on Dec 23, 2009 at 04:55 UTC
    The last time I did anything with AIM was several years ago. I used Net::Oscar - it worked, but it took some work to understand how to use it.
[reply]
Re: Working AIM bot?
by eric256 (Parson) on Dec 23, 2009 at 16:14 UTC

    I threw a quick echo bot together using Net::OSCAR and it worked like a charm. 

    #!/usr/bin/perl
use strict;
use warnings;

use Net::OSCAR qw(:standard);

sub im_in {
    my ($self, $sender, $message, $is_away) = @_;
    print "$sender: $message\n";
    $self->send_im($sender, "ECHO->$message");
}

my $aim = Net::OSCAR->new();
$aim->set_callback_im_in(\&im_in);
$aim->signon('darwin256','********');
while(1) {
    $aim->do_one_loop;
}

    [download]

    ___________
    Eric Hodges
[reply]
[d/l]
Re: Working AIM bot?
by bot403 (Beadle) on Dec 23, 2009 at 15:33 UTC
    I also used Net::Oscar successfully in a toy perl program. Can you expand on why you thought it wasn't working?
[reply]

Back to Seekers of Perl Wisdom