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

codesite-noreply at google.com codesite-noreply at google.com
Sat Oct 18 09:35:44 MSD 2008


Author: sgolovan
Date: Fri Oct 17 22:35:01 2008
New Revision: 30

Modified:
    trunk/ChangeLog
    trunk/xmpp/jid.tcl

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


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Fri Oct 17 22:35:01 2008
@@ -1,3 +1,7 @@
+2008-10-18  Sergei Golovan  <sgolovan at nes.ru>
+
+	* xmpp/jid.tcl: Added default resource value (empty string).
+
  2008-10-17  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/streamerror.tcl: Added error condition to the call of error

Modified: trunk/xmpp/jid.tcl
==============================================================================
--- trunk/xmpp/jid.tcl	(original)
+++ trunk/xmpp/jid.tcl	Fri Oct 17 22:35:01 2008
@@ -29,7 +29,7 @@
  # Arguments:
  #       node        JID node.
  #       server      JID server.
-#       resource    JID resource.
+#       resource    (optional, defaults to "") JID resource.
  #
  # Result:
  #       A constructed JID (arguments joined by @ and /).
@@ -37,7 +37,7 @@
  # Side effects:
  #       None.

-proc ::xmpp::jid::jid {node server resource} {
+proc ::xmpp::jid::jid {node server {resource ""}} {
      set jid $server
      if {![string equal $node ""]} {
          set jid $node@$jid


More information about the Tkabber-dev mailing list