Changeset 825

Show
Ignore:
Timestamp:
12/02/02 21:17:48
Author:
miyagawa
Message:

0.05

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • POE-Component-YahooMessenger/trunk/Changes

    r824 r825  
    11Revision history for Perl extension POE::Component::YahooMessenger 
     2 
     30.05  Mon Dec  2 21:17:20 JST 2002 
     4        * Fixed bug in goes_online on logon 
    25 
    360.04  Mon Dec  2 19:01:43 JST 2002 
  • POE-Component-YahooMessenger/trunk/lib/POE/Component/YahooMessenger.pm

    r824 r825  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.04
     5$VERSION = 0.05
    66 
    77use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW 
     
    204204    my $number = $event->number_of_online_buddies; 
    205205    $number = 1 unless defined $number; 
     206 
     207    # XXX status message is optional 
     208    my $status_num; 
    206209    for my $num (0..$number-1) { 
    207210        $heap->{online}->{$event->buddy_id($num)} = 1; 
     211        my $status_code = $event->status_code($num); 
     212        my $status_message; 
     213        if ($status_code == 99) { 
     214            $status_message = $event->status_message($status_num); 
     215            $status_num++; 
     216        } 
    208217        my $goes_online = POE::Component::YahooMessenger::Event->new( 
    209218            'goes_online', 0, { 
    210219                buddy_id => $event->buddy_id($num), 
    211                 status_code => $event->status_code($num)
    212                 status_message => $event->status_message($num)
     220                status_code => $status_code
     221                status_message => $status_message
    213222                busy_code => $event->busy_code($num), 
    214223            },