Show
Ignore:
Timestamp:
02/11/08 20:32:44 (7 years ago)
Author:
woremacx
Message:

lang/perl/POE-Component-Client-Nowa: fix bug joining channel

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/POE-Component-Client-Nowa/trunk/bin/nowa2ircd.pl

    r6550 r6568  
    178178        $kernel->delay('delay_nowa_recent', 5); 
    179179    } else { 
    180         $kernel->delay('delay_nowa_channel_recent', 15); 
     180        $kernel->delay('delay_nowa_channel_recent', 15) unless $heap->{initial_channel_recent}++; 
    181181    } 
    182182} 
     
    271271            next unless $heap->{joined_channel}->{$channel}; 
    272272 
    273             unless ($heap->{channel_nicknames}->{$name}) { 
    274                 $heap->{ircd}->yield(add_spoofed_nick => { nick => $name }); 
     273            unless ($heap->{channel_nicknames}->{$channel}->{$name}) { 
    275274                $heap->{ircd}->yield(daemon_cmd_join => $name, $channel); 
    276                 $heap->{channel_nicknames}->{$name} = 1; 
     275                $heap->{channel_nicknames}->{$channel}->{$name} = 1; 
    277276            } 
    278277