| Subject: | rror while working with 'get_icq_info' method |
I`m got an error while working with 'get_icq_info' method.There is my code:
--
my $oscar = Net::OSCAR->new();
$oscar->set_callback_buddy_icq_info (\&buddy_info_callback);
$oscar->set_callback_signon_done (\&signon_done_callback);
$oscar->signon (screenname => $UIN, password => $password, stealth =>
$stealth_mode);
while(1)
{
$oscar->do_one_loop();
}
sub signon_done_callback
{
my ($oscar) = @_;
$oscar->get_icq_info ("732007");
}
sub buddy_info_callback($$$)
{
my ($oscar, $uin, $info) = @_;
print "@@ $uin: " . Data::Dumper::Dumper($info) . "\n";
}
--
There is no data in $info and $uin is wrong, i.e. the output is:
--
@@ 588882234: $VAR1 = {
'basic' => {
'affiliations' => [
{
'keyword' => '',
'category' => 0
},
{
'keyword' => '',
'category' => 0
},
{
'keyword' => '',
'category' => 0
}
],
'past_affiliations' => [
{
'keyword' => '',
'category' => 0
},
{
'keyword' => '',
'category' => 0
},
{
'keyword' => '',
'category' => 0
}
]
},
'interests' => [],
'background' => $VAR1->{'basic'},
'present_affiliations' => $VAR1->{'basic'}{'affiliations'},
'office' => $VAR1->{'basic'},
'email_addresses' => undef,
'past_affiliations' => undef,
'notes' => '',
'home' => undef
};-