[Tkabber-dev] r902 - in trunk/tkabber: . plugins/si

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Feb 7 21:36:49 MSK 2007


Author: sergei
Date: 2007-02-07 21:36:47 +0300 (Wed, 07 Feb 2007)
New Revision: 902

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/si/socks5.tcl
Log:
	* plugins/si/socks5.tcl: Fixed bug with error on logout if there are
	  pending IQ requests to SOCKS5 capable proxy.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-02-07 18:24:14 UTC (rev 901)
+++ trunk/tkabber/ChangeLog	2007-02-07 18:36:47 UTC (rev 902)
@@ -3,6 +3,9 @@
 	* plugins/si/socks5.tcl: Fixed bug with lowering case of JID. Resource
 	  case does not need to be lowered.
 
+	* plugins/si/socks5.tcl: Fixed bug with error on logout if there are
+	  pending IQ requests to SOCKS5 capable proxy.
+
 2007-02-01  Sergei Golovan  <sgolovan at nes.ru>
 
 	* utils.tcl: Optiimized jid_to_tag (thanks to Konstantin Khomoutov).

Modified: trunk/tkabber/plugins/si/socks5.tcl
===================================================================
--- trunk/tkabber/plugins/si/socks5.tcl	2007-02-07 18:24:14 UTC (rev 901)
+++ trunk/tkabber/plugins/si/socks5.tcl	2007-02-07 18:36:47 UTC (rev 902)
@@ -207,6 +207,11 @@
 proc socks5::initiator::recv_request_proxy_response \
      {stream streamhosts proxies command res child} {
 
+    if {$res == "DISCONNECT"} {
+	uplevel #0 $command [list [list 0 [::msgcat::mc "Disconnected"]]]
+	return
+    }
+
     if {$res != "OK"} {
 	request_proxy $stream $streamhosts $proxies $command
 	return



More information about the Tkabber-dev mailing list