#!/usr/bin/perl
use Net::OSCAR qw(:standard);

%signon = (
        screenname => 'myscreenname',
        password => 'mypassword',
        local_ip => 'myip',
);

$recipient = "myfriend";
$message = "mymessage";

sub signon_done {
        print "signed on\n";
        $online = 1;
}

$oscar = Net::OSCAR->new();
$oscar->set_callback_signon_done(\&signon_done);

$oscar->signon(%signon);

while(1) {
        $oscar->do_one_loop();
        if ($online) {
                $oscar->send_im($recipient, $message);
                sleep(5);
        }
}
[download]

Apparently the $oscar->do_one_loop(); is a pretty important aspect. Thanks for your help!

Yes. That is actualy the meat of how it works. The AIM protocol counts on sending messages back and forth, if its like MSN it uses several connections while doing this. In order for that communication to work and not block your program, it is written in an event based style. This means you setup events to do certain things and then wait for the module to call those events. Inside your connection event the first thing received is actualy the $oscar object. You could then use that to send the message. the way it is currently setup its going to send your message every 5 seconds.


___________
Eric Hodges

$oscar->loglevel(5);
or whatever loglevel you put in there, will also give you some useful info.

screename should be screenname? (double n)

Thanks for catching that typo. Unfortunately, still didn't make things work. :( Let me know what else you think. Thanks.

- Justin

ok, then the only other suggestion I would have is to add an error sub to your script. From the docs it looks like that's the only way to see errors..

something like this should do it:

sub error{ print join(' - ',@_); }
[download]

pfft! scratch that.. really shouldn't try to think perl when in the middle of a totally unrelated conversation.. The answer's still in there somewhere though I think.

ahh ok, here we go..

$oscar->set_callback_error(sub{ print join(' - ',@_) });
[download]

cheers,

J