[Tkabber-dev] r1850 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Nov 17 19:52:23 MSK 2009


Author: sergei
Date: 2009-11-17 19:52:22 +0300 (Tue, 17 Nov 2009)
New Revision: 1850

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/userinfo.tcl
Log:
	* userinfo.tcl: Fixed sending jabber:iq:last, jabber:iq:time and
	  jabber:iq:version queries to MUC rooms.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-10-31 16:35:20 UTC (rev 1849)
+++ trunk/tkabber/ChangeLog	2009-11-17 16:52:22 UTC (rev 1850)
@@ -1,3 +1,8 @@
+2009-11-17  Sergei Golovan  <sgolovan at nes.ru>
+
+	* userinfo.tcl: Fixed sending jabber:iq:last, jabber:iq:time and
+	  jabber:iq:version queries to MUC rooms.
+
 2009-10-31  Sergei Golovan  <sgolovan at nes.ru>
 
 	* Makefile: Install tkabber-remote script to bin directory, changed
@@ -2,2 +7,4 @@
 	  tkabber script to just execute /usr/share/tkabber/tkabber.tcl.
+	  Also, fixed call to echo for dash shell which doesn't recognize -e
+	  option.
 

Modified: trunk/tkabber/userinfo.tcl
===================================================================
--- trunk/tkabber/userinfo.tcl	2009-10-31 16:35:20 UTC (rev 1849)
+++ trunk/tkabber/userinfo.tcl	2009-11-17 16:52:22 UTC (rev 1850)
@@ -809,9 +809,14 @@
 
 
 proc userinfo::request_iq {type xlib jid} {
+    if {[chat::is_groupchat [chat::chatid $xlib $jid]]} {
+	set to $jid
+    } else {
+	set to [get_jid_of_user $xlib $jid]
+    }
     ::xmpp::sendIQ $xlib get \
 	-query [::xmpp::xml::create query -xmlns jabber:iq:$type] \
-	-to [get_jid_of_user $xlib $jid] \
+	-to $to \
 	-command [list userinfo::parse_iq$type $jid]
 }
 



More information about the Tkabber-dev mailing list