root/feedmelinks/aim/bot/klaus.pl

#!/usr/local/bin/perl
use strict;
use Module::Reload;
use Net::OSCAR qw(:standard :loglevels);
use Data::Dumper;
use FeedMeLinks::Environment;
use FeedMeLinks::Bot;

# $Id$
# FML AIM bot

my $aimbot = Net::OSCAR->new(capabilities => [qw(buddy_icons typing_status)]);

$aimbot->loglevel( OSCAR_DBG_NOTICE );
$aimbot->set_callback_im_in(\&respond); 
print FeedMeLinks::Environment::get_aim_bot_user() . "\n";
print FeedMeLinks::Environment::get_aim_bot_password() . "\n";; 
$aimbot->signon( FeedMeLinks::Environment::get_aim_bot_user(), FeedMeLinks::Environment::get_aim_bot_password() ); 

# doesn't work
#open( ICON, "48x48heart.gif" ) || die("can't open icon file: $!");
#binmode( ICON );
#my @icon = <ICON>;  #Read the file into an array
#$aimbot->set_icon( @icon );
#print "attempting to load icon...\n";
#close( ICON );
#$aimbot->commit_buddylist();

# global
my $sessions_ref;

sub respond {
        my ($aim, $sender, $message, $away) = @_;
        
        print "respond called\n";

        # has to happen at the main klaus level so we can force a reload of all the other commands in the module
        if( $message =~ m/reload/ ) {
                if( $sender eq "jm3theDestroyer" || $sender eq "jm3bottester" ) {
                        Module::Reload->check;
                        $sessions_ref = {};
                        $aim->send_im($sender, "Reloaded code and flushed sessions table\n" . FeedMeLinks::Bot::get_version());
                } else {
                        $aim->send_im($sender, "(you are not a super-user)" );
                }
        } else {
                $sessions_ref = FeedMeLinks::Bot::handle_response( $aim, $sender, $message, $away, $sessions_ref);
        }
} 

while(1) {
        $aimbot->do_one_loop();
}

exit 0;