Changeset 3c5fe43 for perl/modules/IRC


Ignore:
Timestamp:
Mar 19, 2008, 3:46:43 PM (17 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:
8faab0c
Parents:
c0c4449c
Message:
IRC: explicitly include the network (-a $alias) in reply commands.

This may be unnecessary because :irc-msg looks at getcurmsg() if it cannot
automatically determine the network.
Location:
perl/modules/IRC/lib/BarnOwl/Module
Files:
2 edited

Legend:

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

    r9c7a701 r3c5fe43  
    199199        process_msg($conn, $to, join(" ", @_));
    200200    } else {
    201         BarnOwl::start_edit_win("/msg $to -a " . $conn->alias, sub {process_msg($conn, $to, @_)});
     201        BarnOwl::start_edit_win("/msg -a " . $conn->alias . " $to", sub {process_msg($conn, $to, @_)});
    202202    }
    203203}
     
    220220        is_private($to) ?
    221221          (isprivate  => 'true') : (channel => $to),
    222         replycmd    => "irc-msg $to",
    223         replysendercmd => "irc-msg $to"
     222        replycmd    => "irc-msg -a " . $conn->alias . " $to",
     223        replysendercmd => "irc-msg -a " . $conn->alias . " $to"
    224224       );
    225225    BarnOwl::queue_message($msg);
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    r661d2eb r3c5fe43  
    108108        is_private($recipient) ?
    109109          (isprivate  => 'true') : (channel => $recipient),
    110         replycmd    => 'irc-msg ' .
     110        replycmd    => 'irc-msg -a ' . $self->alias . ' ' .
    111111            (is_private($recipient) ? $evt->nick : $recipient),
    112         replysendercmd => 'irc-msg ' . $evt->nick
     112        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
    113113       );
    114114
     
    158158        loginout   => 'login',
    159159        channel    => $evt->to,
     160        replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
     161        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
    160162        );
    161163    BarnOwl::queue_message($msg);
     
    167169        loginout   => 'logout',
    168170        channel    => $evt->to,
     171        replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
     172        replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick
    169173        );
    170174    BarnOwl::queue_message($msg);
Note: See TracChangeset for help on using the changeset viewer.