[Tkabber-dev] r1719 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Mar 13 15:02:51 MSK 2009


Author: sergei
Date: 2009-03-13 15:02:50 +0300 (Fri, 13 Mar 2009)
New Revision: 1719

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/datagathering.tcl
   trunk/tkabber/disco.tcl
Log:
	* disco.tcl: Implemented unregistering features (it's intended to be
	  used by unloadable plugins).

	* datagathering.tcl: Fixed cid: URI scheme handling.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-03-13 12:00:38 UTC (rev 1718)
+++ trunk/tkabber/ChangeLog	2009-03-13 12:02:50 UTC (rev 1719)
@@ -3,6 +3,11 @@
 	* plugins/general/captcha.tcl: Renamed from challenge.tcl and added
 	  current XEP-0158 support (only for CAPTCHAs in messages).
 
+	* disco.tcl: Implemented unregistering features (it's intended to be
+	  used by unloadable plugins).
+
+	* datagathering.tcl: Fixed cid: URI scheme handling.
+
 2009-03-12  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/bob.tcl: Added two procedures which collect Bits of

Modified: trunk/tkabber/datagathering.tcl
===================================================================
--- trunk/tkabber/datagathering.tcl	2009-03-13 12:00:38 UTC (rev 1718)
+++ trunk/tkabber/datagathering.tcl	2009-03-13 12:02:50 UTC (rev 1719)
@@ -123,6 +123,7 @@
 	    switch -- $stag {
 		uri {
 		    if {[string first cid: $scdata] == 0} {
+			set cid [string range $scdata 4 end]
 			set type [::xmpp::xml::getAttr $sattrs type]
 			switch -glob -- $type {
 			    image/* {

Modified: trunk/tkabber/disco.tcl
===================================================================
--- trunk/tkabber/disco.tcl	2009-03-13 12:00:38 UTC (rev 1718)
+++ trunk/tkabber/disco.tcl	2009-03-13 12:02:50 UTC (rev 1719)
@@ -1170,6 +1170,14 @@
     }
 }
 
+proc disco::browser::unregister_feature_handler {feature} {
+    variable browser
+
+    catch {unset browser(feature_handler,$feature)}
+    catch {unset feature_handler_node,$feature)}
+    catch {unset browser(feature_handler_desc,$feature)}
+}
+
 # Destroy all (global) state assotiated with the given browser window.
 # Intended to be bound to a <Destroy> event handler for browser windows.
 proc disco::browser::destroy_state {bw} {



More information about the Tkabber-dev mailing list