Changeset 0c4a190 for perl/modules/IRC/lib/BarnOwl

Timestamp:

Oct 3, 2009, 8:45:52 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

82a79a6

Parents:

39e81f7

git-author:

Nelson Elhage <nelhage@mit.edu> (10/02/09 23:14:20)

git-committer:

Nelson Elhage <nelhage@mit.edu> (10/03/09 20:45:52)

Message:

IRC: Encode outgoing messages as utf-8.

I believe this closes #87. It's possible in the future we'll want a
way to use a different encoding, but I believe IRC has largely
standardized on utf-8, at least insofar as anyone uses non-ASCII.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -399 +399 @@
     $body =~ tr/\n\r/  /;
     if ($body =~ /^\/me (.*)/) {
-        $conn->conn->me($to, $1);
+        $conn->conn->me($to, Encode::encode('utf-8', $1));
         $body = '* '.$conn->nick.' '.$1;
     } else {
-        $conn->conn->privmsg($to, $body);
+        $conn->conn->privmsg($to, Encode::encode('utf-8', $body));
     }
     my $msg = BarnOwl::Message->new(