| Subject: | bug with sending message from icq pro 2003b |
- Net-OSCAR-1.907
- perl v5.8.0
- Microsoft Windows XP [Version 5.1.2600] CYGWIN_NT-5.1 devoler-j2me 1.5.11(0.116/4/2) 2004-09-04 23:17 i686 unknown unknown Cygwin
#/usr/bin/perl
use Net::OSCAR qw(:standard);
sub im_in {
my($oscar, $sender, $message, $is_away) = @_;
print "$sender [$message]\n";
}
$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&im_in);
$oscar->signon('12345'=>'******');
$oscar->do_one_loop() while(1);
Description:
Callback im_in never called when message is sent from icq pro 2003b(build 3916)