Changeset 919535f for perl/modules


Ignore:
Timestamp:
Mar 31, 2008, 1:59:47 AM (16 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
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
Message:
Implement /me for outgoing IRC messages
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

    r3c5fe43 r919535f  
    209209    # Strip whitespace. In the future -- send one message/line?
    210210    $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    }
    212217    my $msg = BarnOwl::Message->new(
    213218        type        => 'IRC',
Note: See TracChangeset for help on using the changeset viewer.