Changeset 6550

Timestamp:

02/11/08 16:07:34 (5 years ago)

Author:

woremacx

Message:

lang/perl/POE-Component-Client-Nowa: oops. don't put local channel name

Files:

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

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

@@ -212 +212 @@
 
     my $nick = ( $user =~ m/^(.*)!/)[0];
-    $heap->{nowa}->yield(update => "$channel $text");
+    unless ($channel eq $conf->{channel}) {
+        $text = "$channel $text";
+    }
+    $heap->{nowa}->yield(update => $text);
 }