[Tkabber-dev] r321 - trunk/plugins/bldjid

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Mar 24 02:37:29 MSK 2010


Author: bigote
Date: 2010-03-24 02:37:29 +0300 (Wed, 24 Mar 2010)
New Revision: 321

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Fixed searching for versions that contain brackets.


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2010-03-19 15:16:53 UTC (rev 320)
+++ trunk/plugins/bldjid/ChangeLog	2010-03-23 23:37:29 UTC (rev 321)
@@ -1,3 +1,13 @@
+2010-03-24  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
+--- Version 0.9.7.2 of the plugin.
+
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	Fixed searching for versions that contain brackets.
+
 2010-03-19  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
 --- Version 0.9.7.1 of the plugin.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2010-03-19 15:16:53 UTC (rev 320)
+++ trunk/plugins/bldjid/bldjid.tcl	2010-03-23 23:37:29 UTC (rev 321)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2010-03-19 v. 0.9.7.1
+# "Bldjid" plugin for Tkabber. 2010-03-24 v. 0.9.7.2
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README or README.ru file for usage.
 
@@ -985,7 +985,7 @@
 	variable jbc_log
 	set if_log 0
 	if {[lindex $par 0] == "log"} {
-		set par [lreplace $par 0 0]
+		set par [join [lreplace $par 0 0]]
 		set if_log 1
 	}
 # Parameter parsing
@@ -1006,7 +1006,8 @@
 				set p_list(3) [lindex $par $x+1]
 			}
 			ver {
-				set p_list(4) [lrange $par $x+1 end]
+				set p_list(4) [regsub -all {([^a-zA-Z0-9_])} \
+				[join [lrange $par $x+1 end]] {\\\0}]
 				break
 			}
 			default {



More information about the Tkabber-dev mailing list