From c1bd4ae7a281c8fe8e17f6e58126c29005dbea37 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 29 Aug 2010 02:33:29 +0200
Subject: [PATCH] remove resource from contact jid

---
 scripts/mqr-xmpp-client.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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);
 
-- 
2.20.1