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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Mar 12 20:06:26 MSK 2009


Author: sergei
Date: 2009-03-12 20:06:25 +0300 (Thu, 12 Mar 2009)
New Revision: 1712

Added:
   trunk/tkabber/plugins/general/bob.tcl
Modified:
   trunk/tkabber/ChangeLog
Log:
	* plugins/general/bob.tcl: Added two procedures which collect Bits of
	  Binary (XEP-0231) included in a message or presence stanza.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-03-11 06:35:50 UTC (rev 1711)
+++ trunk/tkabber/ChangeLog	2009-03-12 17:06:25 UTC (rev 1712)
@@ -1,3 +1,8 @@
+2009-03-12  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/bob.tcl: Added two procedures which collect Bits of
+	  Binary (XEP-0231) included in a message or presence stanza.
+
 2009-03-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* custom.tcl: Fixed duplicates in customization groups. This is useful

Added: trunk/tkabber/plugins/general/bob.tcl
===================================================================
--- trunk/tkabber/plugins/general/bob.tcl	                        (rev 0)
+++ trunk/tkabber/plugins/general/bob.tcl	2009-03-12 17:06:25 UTC (rev 1712)
@@ -0,0 +1,18 @@
+# $Id$
+
+package require xmpp::bob
+
+namespace eval bob {
+    hook::add process_message_hook [namespace current]::find_bob_in_message 1
+    hook::add client_presence_hook [namespace current]::find_bob_in_presence 1
+}
+
+proc bob::find_bob_in_message {xlib from id type is_subject
+			       subject body err thread priority x} {
+    ::xmpp::bob::cache $x
+}
+
+proc bob::find_bob_in_presence {xlib from type x args} {
+    ::xmpp::bob::cache $x
+}
+


Property changes on: trunk/tkabber/plugins/general/bob.tcl
___________________________________________________________________
Added: svn:keywords
   + Author Date Id Revision
Added: svn:eol-style
   + native



More information about the Tkabber-dev mailing list