--- deliantra/server/ext/irc.ext 2007/05/18 13:56:50 1.1 +++ deliantra/server/ext/irc.ext 2007/05/18 21:24:31 1.2 @@ -36,8 +36,6 @@ sub handle_fcmd { my ($name, $me, $msg) = @_; - utf8::decode $msg; - if ($msg eq "!who") { do_notice $_ for ext::commands::who_listing (); @@ -80,10 +78,13 @@ my $name = 'irc'; my $nick = Net::IRC3::Util::prefix_nick ($msg); my $NOW = Time::HiRes::time; + my $tmsg = $msg->{trailing}; $tmsg =~ s/\x01[^\x01]*\x01//g; $tmsg =~ s/\015?\012/ /g; - utf8::encode $tmsg; # ->message not yet utf8-ified + + utf8::decode $tmsg; + if ($tmsg =~ /^\!/) { handle_fcmd ($name, $nick, $tmsg); } elsif ($tmsg =~ m/\S/) {