Changeset 0c4a190 for perl/modules/IRC/lib/BarnOwl
- Timestamp:
- Oct 3, 2009, 8:45:52 PM (15 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r744769e r0c4a190 399 399 $body =~ tr/\n\r/ /; 400 400 if ($body =~ /^\/me (.*)/) { 401 $conn->conn->me($to, $1);401 $conn->conn->me($to, Encode::encode('utf-8', $1)); 402 402 $body = '* '.$conn->nick.' '.$1; 403 403 } else { 404 $conn->conn->privmsg($to, $body);404 $conn->conn->privmsg($to, Encode::encode('utf-8', $body)); 405 405 } 406 406 my $msg = BarnOwl::Message->new(
Note: See TracChangeset
for help on using the changeset viewer.