[Tkabber-dev] r1720 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Mar 13 17:52:05 MSK 2009


Author: sergei
Date: 2009-03-13 17:52:04 +0300 (Fri, 13 Mar 2009)
New Revision: 1720

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/captcha.tcl
Log:
	* plugins/general/captcha.tcl: Added id attribute to sent CAPTCHA form
	  because id is mandatory for an IQ.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-03-13 12:02:50 UTC (rev 1719)
+++ trunk/tkabber/ChangeLog	2009-03-13 14:52:04 UTC (rev 1720)
@@ -8,6 +8,9 @@
 
 	* datagathering.tcl: Fixed cid: URI scheme handling.
 
+	* plugins/general/captcha.tcl: Added id attribute to sent CAPTCHA form
+	  because id is mandatory for an IQ.
+
 2009-03-12  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/bob.tcl: Added two procedures which collect Bits of

Modified: trunk/tkabber/plugins/general/captcha.tcl
===================================================================
--- trunk/tkabber/plugins/general/captcha.tcl	2009-03-13 12:02:50 UTC (rev 1719)
+++ trunk/tkabber/plugins/general/captcha.tcl	2009-03-13 14:52:04 UTC (rev 1720)
@@ -58,10 +58,15 @@
 	set tag challenge
     }
     ::xmpp::sendIQ $xlib set \
-		   [::xmpp::xml::create $tag \
+		   -query [::xmpp::xml::create $tag \
 					-xmlns $xmlns \
 					-subelements $restags] \
-		   -to $to
+		   -to $to \
+		   -command [list [namespace current]::result $xlib $to]
     destroy $w
 }
 
+proc captcha::result {xlib to status xml} {
+    # TODO
+}
+



More information about the Tkabber-dev mailing list