[Tkabber-dev] r2027 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Dec 25 14:46:59 MSK 2013


Author: sergei
Date: 2013-12-25 14:46:59 +0400 (Wed, 25 Dec 2013)
New Revision: 2027

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/login.tcl
Log:
	* login.tcl: Enable autoreconnect only after successful login,
	  otherwise unwanted reconencts happen when server closes stream just
	  after unsuccessful authentication.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2013-12-25 09:11:43 UTC (rev 2026)
+++ trunk/tkabber/ChangeLog	2013-12-25 10:46:59 UTC (rev 2027)
@@ -14,6 +14,10 @@
 
 	* msgs/ru.msg: Updated Russian translation.
 
+	* login.tcl: Enable autoreconnect only after successful login,
+	  otherwise unwanted reconencts happen when server closes stream just
+	  after unsuccessful authentication.
+
 2013-12-24  Sergei Golovan  <sgolovan at nes.ru>
 
 	* README, doc/tkabber.html, doc/tkabber.xml, ifacetk/iface.tcl,

Modified: trunk/tkabber/login.tcl
===================================================================
--- trunk/tkabber/login.tcl	2013-12-25 09:11:43 UTC (rev 2026)
+++ trunk/tkabber/login.tcl	2013-12-25 10:46:59 UTC (rev 2027)
@@ -518,7 +518,7 @@
     set xlib [create_xlib $jid]
 
     set tls_warning_info($xlib) ""
-    set reconnect($xlib) 1
+    set reconnect($xlib) 0
 
     set ascii_server [idna::domain_toascii $lc(server)]
 
@@ -814,6 +814,7 @@
     switch -- $status {
 	ok {
 	    set connjid($xlib) $xml
+	    set reconnect($xlib) 1
 	    login_log $xml ok [::msgcat::mc "Login is successful"]
 	    connected $xlib $logindata
 	}



More information about the Tkabber-dev mailing list