send muc message with room_jid

diff --git a/scripts/mqr-xmpp-client.pl b/scripts/mqr-xmpp-client.pl
index 63ce4d1..a859ff6 100755 (executable)
--- a/scripts/mqr-xmpp-client.pl
+++ b/scripts/mqr-xmpp-client.pl
@@ -87,8 +87,9 @@ $cl->reg_cb (
       $muc->reg_cb (
          message => sub {
             my ($cl, $room, $msg, $is_echo) = @_;
-               $muc_rooms->{ $room->nick_jid }++;
-warn "# MUC message ",dump( $room->nick_jid, $msg->any_body, $is_echo );
+               my $room_jid = $room->nick_jid;
+               $muc_rooms->{ $room_jid }++;
+warn "# MUC message ",dump( $room_jid, $msg->any_body, $is_echo );
 
             return if $is_echo;
             return if $msg->is_delayed;
@@ -96,7 +97,7 @@ warn "# MUC message ",dump( $room->nick_jid, $msg->any_body, $is_echo );
                        my $from = $msg->from;
                        my $user = $from;
                        $user =~ s{^.+/}{};
-                       publish "MSG $jid groupchat $user $from" => $msg->any_body;
+                       publish "MSG $room_jid groupchat $user $from" => $msg->any_body;
 
             my $mynick = res_jid ($room->nick_jid);
             if ($msg->any_body =~ /^\s*\Q$mynick\E:\s+(.*?)\s*$/) {