Changeset 6568 for lang/perl/POE-Component-Client-Nowa

Timestamp:

02/11/08 20:32:44 (5 years ago)

Author:

woremacx

Message:

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

Files:

• lang/perl/POE-Component-Client-Nowa/trunk/bin/nowa2ircd.pl (modified) (2 diffs)

lang/perl/POE-Component-Client-Nowa/trunk/bin/nowa2ircd.pl

@@ -178 +178 @@
         $kernel->delay('delay_nowa_recent', 5);
     } else {
-        $kernel->delay('delay_nowa_channel_recent', 15);
+        $kernel->delay('delay_nowa_channel_recent', 15) unless $heap->{initial_channel_recent}++;
     }
 }
@@ -271 +271 @@
             next unless $heap->{joined_channel}->{$channel};
 
-            unless ($heap->{channel_nicknames}->{$name}) {
-                $heap->{ircd}->yield(add_spoofed_nick => { nick => $name });
+            unless ($heap->{channel_nicknames}->{$channel}->{$name}) {
                 $heap->{ircd}->yield(daemon_cmd_join => $name, $channel);
-                $heap->{channel_nicknames}->{$name} = 1;
+                $heap->{channel_nicknames}->{$channel}->{$name} = 1;
             }