added SEND

[MQR.git] / scripts / mqr-irc-client.pl

diff --git a/scripts/mqr-irc-client.pl b/scripts/mqr-irc-client.pl
index 7055fec..408b2db 100755 (executable)
--- a/scripts/mqr-irc-client.pl
+++ b/scripts/mqr-irc-client.pl
@@ -32,12 +32,12 @@ MQR::Redis->redis->psubscribe( "MSG $subscribe", sub {
        warn "<<<< ",dump( $from, $message );
        return unless $from !~ m/\Q($nick|$room)\E/; # FIXME: skip our messages
        my ( undef, $gw, $type, $user ) = split(/ /,$from);
-       MQR::Redis->publish( "SEND $nick\@$server $room" => "<$user> $message" );
+       MQR::Redis->publish( "SEND $nick\@$server $room $user" => "<$user> $message" );
 });
 
-MQR::Redis->redis->psubscribe( "SEND $nick\@$server $room", sub {
+MQR::Redis->redis->psubscribe( "SEND $nick\@$server $room *", sub {
        my ( $message, $from ) = @_;
-       warn "<<<< ",dump( $from, $message );
+       warn "PRIVMSG $room $message\n";
        $con->send_msg( 'PRIVMSG', $room => $message );
 });