Changeset 3c5fe43 for perl/modules/IRC
- Timestamp:
- Mar 19, 2008, 3:46:43 PM (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:
- 8faab0c
- Parents:
- c0c4449c
- Location:
- perl/modules/IRC/lib/BarnOwl/Module
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC.pm
r9c7a701 r3c5fe43 199 199 process_msg($conn, $to, join(" ", @_)); 200 200 } 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, @_)}); 202 202 } 203 203 } … … 220 220 is_private($to) ? 221 221 (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" 224 224 ); 225 225 BarnOwl::queue_message($msg); -
perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
r661d2eb r3c5fe43 108 108 is_private($recipient) ? 109 109 (isprivate => 'true') : (channel => $recipient), 110 replycmd => 'irc-msg ' .110 replycmd => 'irc-msg -a ' . $self->alias . ' ' . 111 111 (is_private($recipient) ? $evt->nick : $recipient), 112 replysendercmd => 'irc-msg ' . $evt->nick112 replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick 113 113 ); 114 114 … … 158 158 loginout => 'login', 159 159 channel => $evt->to, 160 replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick 161 replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick 160 162 ); 161 163 BarnOwl::queue_message($msg); … … 167 169 loginout => 'logout', 168 170 channel => $evt->to, 171 replycmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick 172 replysendercmd => 'irc-msg -a ' . $self->alias . ' ' . $evt->nick 169 173 ); 170 174 BarnOwl::queue_message($msg);
Note: See TracChangeset
for help on using the changeset viewer.