[Tkabber-dev] r1539 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Oct 17 23:55:02 MSD 2008


Author: sergei
Date: 2008-10-17 23:55:02 +0400 (Fri, 17 Oct 2008)
New Revision: 1539

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/login.tcl
Log:
	* login.tcl: Added server JID as to address when registering new
	  username.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-10-17 19:29:46 UTC (rev 1538)
+++ trunk/tkabber/ChangeLog	2008-10-17 19:55:02 UTC (rev 1539)
@@ -54,6 +54,9 @@
 
 	* muc.tcl, userinfo.tcl, messages.tcl: Fixed cdata notation.
 
+	* login.tcl: Added server JID as to address when registering new
+	  username.
+
 2008-10-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* AUTHORS: Fixed authors list.

Modified: trunk/tkabber/login.tcl
===================================================================
--- trunk/tkabber/login.tcl	2008-10-17 19:29:46 UTC (rev 1538)
+++ trunk/tkabber/login.tcl	2008-10-17 19:55:02 UTC (rev 1539)
@@ -752,6 +752,7 @@
 						    -cdata $lc(user)] \
 				-subelement [::xmpp::xml::create password \
 						    -cdata $lc(password)]] \
+		    -to $lc(server) \
 		    -command [list recv_register_result $xlib $logindata]
 		return
 	    }
@@ -766,6 +767,7 @@
 }
 
 proc recv_register_result {xlib logindata res xml} {
+    puts "$xlib $res $xml"
     if {$res == "ok"} {
 	::xmpp::disconnect $xlib
 	login $logindata



More information about the Tkabber-dev mailing list