remove resource from contact jid

diff --git a/scripts/mqr-xmpp-client.pl b/scripts/mqr-xmpp-client.pl
index 84acdd1..d0a7e67 100755 (executable)
--- a/scripts/mqr-xmpp-client.pl
+++ b/scripts/mqr-xmpp-client.pl
@@ -56,7 +56,9 @@ $cl->reg_cb (
 
                my $body = $msg->any_body;
 
-               $contacts->{ $msg->from }++;
+               my $f = $msg->from;
+               $f =~ s!/.+!!;
+               $contacts->{ $f }++;
 
 warn "# contacts ",dump($contacts);