[Tkabber-dev] r1800 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu May 7 13:52:52 MSD 2009


Author: sergei
Date: 2009-05-07 13:52:51 +0400 (Thu, 07 May 2009)
New Revision: 1800

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/joingrdialog.tcl
   trunk/tkabber/muc.tcl
Log:
	* joingrdialog.tcl: Added another room JID normalization.

	* muc.tcl: Added processing status codes 110 and 210 in MUC status
	  elements.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-05-05 09:18:09 UTC (rev 1799)
+++ trunk/tkabber/ChangeLog	2009-05-07 09:52:51 UTC (rev 1800)
@@ -1,3 +1,10 @@
+2009-05-07  Sergei Golovan  <sgolovan at nes.ru>
+
+	* joingrdialog.tcl: Added another room JID normalization.
+
+	* muc.tcl: Added processing status codes 110 and 210 in MUC status
+	  elements.
+
 2009-05-04  Sergei Golovan  <sgolovan at nes.ru>
 
 	* datagathering.tcl: Fixed binding of <<ListboxSelect>> event if the

Modified: trunk/tkabber/joingrdialog.tcl
===================================================================
--- trunk/tkabber/joingrdialog.tcl	2009-05-05 09:18:09 UTC (rev 1799)
+++ trunk/tkabber/joingrdialog.tcl	2009-05-07 09:52:51 UTC (rev 1800)
@@ -167,6 +167,8 @@
 proc set_our_groupchat_nick {group nick} {
     global groupchats
 
+    debugmsg conference "SET NICK: $group '$nick'"
+
     set group [::xmpp::jid::normalize $group]
     set groupchats(nick,$group) $nick
 }
@@ -174,7 +176,9 @@
 proc get_our_groupchat_nick {group} {
     global groupchats
     
-    debugmsg conference "GET NICK: [list $group]"
+    debugmsg conference "GET NICK: $group"
+
+    set group [::xmpp::jid::normalize $group]
     return $groupchats(nick,$group)
 }
 

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2009-05-05 09:18:09 UTC (rev 1799)
+++ trunk/tkabber/muc.tcl	2009-05-07 09:52:51 UTC (rev 1800)
@@ -1092,6 +1092,13 @@
 			    request_instant_room $chatid
 			}
 		    }
+		    110 -
+		    210 {
+			# 110: This present packet is our own
+			# 210: The service has changed our nickname
+			set nick [chat::get_nick $xlib $user groupchat]
+			set_our_groupchat_nick $chatid $nick
+		    }
 		    301 -
 		    307 -
 		    321 -



More information about the Tkabber-dev mailing list