http://qs321.pair.com?node_id=426105

jpk236 has asked for the wisdom of the Perl Monks concerning the following question:

I'm having some trouble with this module. I can't even seem to get it to sign online. Here is the code I'm currently working with: 
#!/usr/bin/perl
use Net::OSCAR qw(:standard);

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

$recipient = "myfriend";
$message = "test message";

$oscar = Net::OSCAR->new();

$oscar->signon(%signon);

$oscar->send_im($recipient, $message);

$oscar->signoff();

[download]
As you can see, I just want something which will sign on, send a message, and sign off. All of these things I want to happen unprovoked (ie: not from first recieving a message from an outside source). Let me know what you guys think.

Thank you Monks.

- Justin

20050130 Edit by castaway: Changed title from 'NET::OSCAR'

Replies are listed 'Best First'.
Re: Net::OSCAR: Having trouble getting started
by jpk236 (Monk) on Jan 29, 2005 at 06:47 UTC
    w00t! Looks like I figured it out. Or rather, looks like I blindly stumbled on code which works. :) 
    #!/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!

    - Justin
[reply]
[d/l]
[select]
      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
[reply]
      $oscar->loglevel(5);
      or whatever loglevel you put in there, will also give you some useful info.
[reply]
Re: Net::OSCAR: Having trouble getting started
by edoc (Chaplain) on Jan 29, 2005 at 05:27 UTC

    screename should be screenname? (double n)

    cheers,

    J

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

      - Justin
[reply]

        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

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom