X-Git-Url: http://git.rot13.org/?p=MQR.git;a=blobdiff_plain;f=scripts%2Fmqr-xmpp-client.pl;h=d0a7e67a88b1247cddef074da6e00ab547ee505e;hp=84acdd1aff7cecbb0d413f6fbf8aaace285d4144;hb=c1bd4ae7a281c8fe8e17f6e58126c29005dbea37;hpb=e918f8d049830838d7a567b03b2063b1a5bb289e

diff --git a/scripts/mqr-xmpp-client.pl b/scripts/mqr-xmpp-client.pl
index 84acdd1..d0a7e67 100755
--- 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);