in reply to Re^2: I can't seem to figure out Net::AIM
in thread I can't seem to figure out Net::AIM

$aim->start; is the same as saying while (1) { $aim->do_one_loop; }. Anything after that whlie loop is never going to get called. Instead of trying to run the do_one_loop by hand you probably want to add a config handler. I beleive that is the best handler and aim calls it after you are logged in. So your code would look something like: 

$conn->set_handler(config => sub { 
                              my $aim = shift;
                              $aim->send_im('gazuga69', 'It worked!');
                             });
$aim->start;

[download]


___________
Eric Hodges

Replies are listed 'Best First'.
Re^4: I can't seem to figure out Net::AIM
by Cap'n Steve (Friar) on Sep 13, 2005 at 05:13 UTC
    I'm still having the same problem. It runs forever without ever sending the instant message. I added some print statements to the anonymous subroutine for debugging and apparently it never gets run. Here's the updated version:

    use Net::AIM;

my $aim = new Net::AIM;
$aim->newconn(Screenname => 'TeamMonkeyCrap', Password => '*******');
my $conn = $aim->getconn();
$conn->set_handler(config => sub {
                              my $aim = shift;
                              $aim->send_im('gazuga69', 'It worked!');
                             });
$aim->start();

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom