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 ( 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 (