fix <user> prefix before messages

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

diff --git a/scripts/mqr-xmpp-client.pl b/scripts/mqr-xmpp-client.pl
index 95d7814..f501940 100755 (executable)
--- a/scripts/mqr-xmpp-client.pl
+++ b/scripts/mqr-xmpp-client.pl
@@ -53,7 +53,9 @@ $sub->psubscribe( "MSG $subscribe", sub {
 warn "XXX send to $to\n";
                next if $from =~ m/\Q$to\E/; # FIXME
                warn "# $jid [$from] -> [$to] | $message\n";
-               my $body = "<$user\@$gw> | $message"; # FIXME
+               $user =~ s{!.+}{};
+               $gw   =~ s{^.+\/#}{#};
+               my $body = "<$user$gw> $message"; # FIXME
                $cl->send_message( $body, $to => $jid, defined $muc_rooms->{$to} ? 'groupchat' : 'chat' );
        }
 });