Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Working AIM bot?

by eric256 (Parson)
on Dec 23, 2009 at 16:14 UTC ( #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


Comment on Re: Working AIM bot?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://814122]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2014-12-26 22:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls