Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Working AIM bot?

by eric256 (Parson)
on Dec 23, 2009 at 16:14 UTC ( [id://814122] : note . print w/replies, xml ) Need Help??


in reply to Working AIM bot?

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; }

___________
Eric Hodges