Send AIM From Perl

Recently I had the need to create an automated perl program to send me an AIM message every now and then. I tried a few different options and finally settled on the Net::Oscar module. There are a few examples of this module online, but they tell you how to make an interactive AIM robot, and not a program that just send a message and exits.

First, get the Oscar module at Cpan

Here's the code:
#!/usr/bin/perl #Very simple script to send an AIM message to a user and then log-off #(C) 2008 James Nonnemaker / james[at]ustelcom[dot]net # # $MySn = "PerlTest"; #Screen Name for the script to use. $MyPw = "Secret100"; #Password for the script to use. $ToSn = "AIMUser"; #Person to message. $Mesg = "This is a test..."; #Message to send. #************************************************************************** use Net::OSCAR qw(:standard); $oscar = Net::OSCAR->new(); $oscar->signon($MySn, $MyPw); $oscar->set_callback_im_ok (\&log_out); $oscar->set_callback_signon_done (\&do_it); while (1) { $oscar->do_one_loop(); } sub do_it { $oscar->send_im($ToSn, $mesg); } sub log_out { $oscar->signoff; exit; }

Back to Code Help | Moo! Networks

For the search engines: AOL, AIM, Net::Oscar, Perl to AIM, Perl AOL Message, AOL Messenger, Automate AOL Message, Perl, Linux, Unix, Messenger, Code Help, Perl Code Help, AIM Code Help.