[Tkabber-dev] [tclxmpp commit] r35 - in trunk: . xmpp

codesite-noreply at google.com codesite-noreply at google.com
Sun Oct 19 14:26:37 MSD 2008


Author: sgolovan
Date: Sun Oct 19 03:26:19 2008
New Revision: 35

Modified:
    trunk/ChangeLog
    trunk/xmpp/tcp.tcl
    trunk/xmpp/tls.tcl
    trunk/xmpp/xmpp.tcl
    trunk/xmpp/zlib.tcl

Log:
	* xmpp/tcp.tcl, xmpp/tls.tcl, xmpp/zlib.tcl: Clear readable fileevent
	  script when the socket is closed by the other side. Otherwise it can
	  be triggered continuously.

	* xmpp/xmpp.tcl: Removed unnecessary rescheduling of ForcedDisconnect
	  call which now can't be executed twice (one time on the end of
	  strteam, and another time on the closure of the socket).


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Sun Oct 19 03:26:19 2008
@@ -3,6 +3,14 @@
  	* xmpp/xmpp.tcl: Fixed race condition where transport was already
  	  closed, but was tried to send packets.

+	* xmpp/tcp.tcl, xmpp/tls.tcl, xmpp/zlib.tcl: Clear readable fileevent
+	  script when the socket is closed by the other side. Otherwise it can
+	  be triggered continuously.
+
+	* xmpp/xmpp.tcl: Removed unnecessary rescheduling of ForcedDisconnect
+	  call which now can't be executed twice (one time on the end of
+	  strteam, and another time on the closure of the socket).
+
  2008-10-18  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/jid.tcl: Added default resource value (empty string).

Modified: trunk/xmpp/tcp.tcl
==============================================================================
--- trunk/xmpp/tcp.tcl	(original)
+++ trunk/xmpp/tcp.tcl	Sun Oct 19 03:26:19 2008
@@ -434,6 +434,7 @@
      ::xmpp::xml::parser $state(parser) parse $msg

      if {[eof $state(sock)]} {
+        fileevent $state(sock) readable {}
          InEmpty $state(eofCmd)
      }
  }

Modified: trunk/xmpp/tls.tcl
==============================================================================
--- trunk/xmpp/tls.tcl	(original)
+++ trunk/xmpp/tls.tcl	Sun Oct 19 03:26:19 2008
@@ -533,6 +533,7 @@
      ::xmpp::xml::parser $state(parser) parse $msg

      if {[eof $state(sock)]} {
+        fileevent $state(sock) readable {}
          InEmpty $state(eofCmd)
      }
  }

Modified: trunk/xmpp/xmpp.tcl
==============================================================================
--- trunk/xmpp/xmpp.tcl	(original)
+++ trunk/xmpp/xmpp.tcl	Sun Oct 19 03:26:19 2008
@@ -877,7 +877,7 @@
          disconnecting -
          disconnected {}
          default {
-            after idle [namespace code [list ForcedDisconnect $xlib]]
+            ForcedDisconnect $xlib
          }
      }

@@ -910,7 +910,7 @@
          disconnecting -
          disconnected {}
          default {
-            after idle [namespace code [list ForcedDisconnect $xlib]]
+            ForcedDisconnect $xlib
          }
      }

@@ -964,7 +964,7 @@
      return
  }

-# ::xmpp::ForcedDisconnect --
+# ::xmpp::disconnect --
  #
  #       Disconnect from an XMPP server.
  #

Modified: trunk/xmpp/zlib.tcl
==============================================================================
--- trunk/xmpp/zlib.tcl	(original)
+++ trunk/xmpp/zlib.tcl	Sun Oct 19 03:26:19 2008
@@ -478,6 +478,7 @@
      ::xmpp::xml::parser $state(parser) parse $msg

      if {[eof $state(sock)]} {
+        fileevent $state(sock) readable {}
          InEmpty $state(eofCmd)
      }
  }


More information about the Tkabber-dev mailing list