send messages from subscription

diff --git a/scripts/mqr-irc-client.pl b/scripts/mqr-irc-client.pl
index 9412ab9..22cea7d 100755 (executable)
--- a/scripts/mqr-irc-client.pl
+++ b/scripts/mqr-irc-client.pl
@@ -27,7 +27,7 @@ $sub->psubscribe( 'channel *', sub {
        return unless $from !~ m/\Q$nick\E/; # skip our messages
        warn "#Q<< $from | $message\n";
        my ( undef, $channel, $user ) = split(/ /,$from,3);
-       $con->send_msg( $room => join(' ',$channel, $user, $message) );
+       $con->send_msg( 'PRIVMSG', $room => join(' ',$channel, $user, $message) );
 });
 
 $con->reg_cb (