From f0c66aebbb016c06667d5691ab3cff62ca7f72c1 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 1 Sep 2010 12:32:53 +0000
Subject: [PATCH] use type from incomming message

---
 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 3ee3c9d..a320da4 100755
--- a/scripts/mqr-xmpp-client.pl
+++ b/scripts/mqr-xmpp-client.pl
@@ -120,7 +120,9 @@ warn "# MUC message ",dump( $room_jid, $msg->any_body, $is_echo );
 		my $user = $from;
 		$user =~ s{\@.+$}{};
 
-		publish "MSG $jid chat $user $from" => $body;
+		my $type = $msg->type;
+
+		publish "MSG $jid $type $user $from" => $body;
 
 #		my $repl = $msg->make_reply;
 #		$repl->add_body( $response );
-- 
2.20.1