in reply to CGI Net::AIM get_info()

The documentation says:
  $aim->get_info($screen_name)

      Sends an info request to the server for $screen_name.
      The server should reply with a URL which will contain
      the info requested about the user.

[download]

I suggest you to have a look at what's returned by get_info by using the Data::Dumper module:
use Data::Dumper;
...
my $result = $aim->get_info("screenname");
print Dumper($result);
...

[download]

Replies are listed 'Best First'.
Re: Re: CGI Net::AIM get_info()
by rgens (Initiate) on Jan 16, 2004 at 06:37 UTC
    Trying to get the info of a 7 character screenname and using Data::Dumper, it simply prints:
    $VAR1 = 27;
    (Notice the 20+7 pattern)
[reply]
[d/l]
      I checked the source code of Net::AIM::Connection, where the get_info method is defined, and found that it returns the value returned by the send_to_AOL method. The following is the code of send_to_AOL:
      sub send_to_AOL {
   ...
   my $rv = send($self->{_socket}, $data, 0);
   ...
   return $rv;
}

      [download]
      Note that the return value of socket send is the number of characters sent. That explains why you are getting a numeric value in the return value of get_info. You have found a bug in the Net::AIM::Connection module it seems. ;-)

      I think you might be able to get around this problem by calling the method do_one_loop after the get_info, where do_one_loop reads the socket:
      $aim->get_info("screenname");
$response = $aim->do_one_loop();

      [download]

[reply]
[d/l]
[select]
        I tried that, but even 25 commands later, the socket still read "1": 
        $aim->get_info("screenname");

$result = $aim->do_one_loop();

$count = 0;
while($result eq "1" && $count <25) {
    $result = $aim->do_one_loop();
    $count++;
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom