Changeset 919535f for perl/modules/IRC
- Timestamp:
- Mar 31, 2008, 1:59:47 AM (17 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 8aa83ea3
- Parents:
- 50558dc
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r3c5fe43 r919535f 209 209 # Strip whitespace. In the future -- send one message/line? 210 210 $body =~ tr/\n\r/ /; 211 $conn->conn->privmsg($to, $body); 211 if ($body =~ /^\/me (.*)/) { 212 $conn->conn->me($to, $1); 213 $body = BarnOwl::Style::boldify($conn->nick.' '.$1); 214 } else { 215 $conn->conn->privmsg($to, $body); 216 } 212 217 my $msg = BarnOwl::Message->new( 213 218 type => 'IRC',
Note: See TracChangeset
for help on using the changeset viewer.