Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
AIM Alerting Perl Script
#!/usr/local/bin/perl -w
#######################################################################################################
#Name: aim_notify.pl
#Date: 02/21/2006 - mwaltz@ucsd.edu
#Purpose: Send an instant message over AOL to a list of screen names and then sign off.
#Usage: aim_notify.pl "message you want to send"
#Description: This script is for admins who want a server to alert them via AOL IM. A screen name can have message forwarded to a mobile phone number, making it a pager like application.
#Requires: NET::Oscar - http://search.cpan.org/~matthewg/Net-OSCAR-1.925/lib/Net/OSCAR.pm
#######################################################################################################
#Use the AIM Oscar module
use Net::OSCAR qw(:standard);
#Set some variables, the screenname we sign on with, it's password, and then our buddy list in an array
my $screenname = "";
my $password = "";
my @buddies = ("testwatchdog");
#Set a initially to 1, after all messages are sent a is set to 0 which quits the program
my $a = 1;
#Find out our hostname, then get the message we want to send from the commandline.
my $hostname = `hostname`;
chomp($hostname); #chomp off the carriage return
my $error_message = $ARGV[0];
#Make the message a little more readable and output it
my $message = "$hostname: $error_message\n";
#print $message;
#This method catches any ims and echos it back to the sender
sub im_in {
my($oscar, $sender, $message_in, $is_away) = @_;
$message_in =~ s/<(.|\n)+?>//g;
print "[AWAY] " if $is_away;
# print $messagei_in."\n";
if ($message_in eq "restart"){
# print "recieved restart command\n";
}
# print "$sender: $message_in\n";
# $oscar->send_im ($sender,$message_in);
}
#The method sends the messages to each buddy in our array every 3 seconds(to avoid exceeding the rate limit). Signs off and sets a to 0, which kills the while loop at the bottom
sub signon_done {
foreach $buddy (@buddies)
{
$oscar->send_im ($buddy,$message);
sleep 3;
}
#$oscar->signoff();
#$a=0;
}
#do the actual connections and define our methods
$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&im_in);
$oscar->set_callback_signon_done(\&signon_done);
$oscar->signon($screenname, $password);
#continue to remain online unti a is 0, which happens after all messages are sent
while($a)
{
$oscar->do_one_loop();
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment