projects
/
MQR.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix <user> prefix before messages
[MQR.git]
/
scripts
/
mqr-irc-client.pl
diff --git
a/scripts/mqr-irc-client.pl
b/scripts/mqr-irc-client.pl
index
5e491be
..
fdfae80
100755
(executable)
--- a/
scripts/mqr-irc-client.pl
+++ b/
scripts/mqr-irc-client.pl
@@
-29,8
+29,8
@@
$sub->psubscribe( "MSG $subscribe", sub {
my ( $message, $from ) = @_;
return unless $from !~ m/\Q($nick|$room)\E/; # FIXME: skip our messages
warn "#Q<< ",dump( $from, $message );
my ( $message, $from ) = @_;
return unless $from !~ m/\Q($nick|$room)\E/; # FIXME: skip our messages
warn "#Q<< ",dump( $from, $message );
- my ( undef, $
channel
, $user ) = split(/ /,$from,3);
- $con->send_msg( 'PRIVMSG', $room =>
join(' ',$channel, $user, $message)
);
+ my ( undef, $
gw
, $user ) = split(/ /,$from,3);
+ $con->send_msg( 'PRIVMSG', $room =>
"<$user> $message"
);
});
$con->reg_cb (
});
$con->reg_cb (