[Tkabber-dev] r2171 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 8 21:47:18 MSK 2015


Author: sergei
Date: 2015-02-08 21:47:18 +0300 (Sun, 08 Feb 2015)
New Revision: 2171

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/default.tcl
Log:
	* default.tcl: Fixed browsing URLs with $ and [ in them.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2015-02-08 14:24:46 UTC (rev 2170)
+++ trunk/tkabber/ChangeLog	2015-02-08 18:47:18 UTC (rev 2171)
@@ -3,7 +3,7 @@
 	* datagathering.tcl: Destroy all open data windows on disconnect
 	  because the forms they access expire.
 
-	* default.tcl: Escape $ sign in the browsing URLs.
+	* default.tcl: Fixed browsing URLs with $ and [ in them.
 
 2014-12-27  Sergei Golovan  <sgolovan at nes.ru>
 

Modified: trunk/tkabber/default.tcl
===================================================================
--- trunk/tkabber/default.tcl	2015-02-08 14:24:46 UTC (rev 2170)
+++ trunk/tkabber/default.tcl	2015-02-08 18:47:18 UTC (rev 2171)
@@ -1,5 +1,7 @@
 # $Id$
 
+package require textutil
+
 if {$tcl_platform(platform) == "windows"} {
     package require dde
 }
@@ -26,7 +28,7 @@
     update idletask
 
     set url [string map {\u0009 %09 \u000a %0a \u000d %0d \u0020 %20
-			 \" %22 \$ %24 \' %27 \< %3c \> %3e
+			 \" %22 \' %27 \< %3c \> %3e
 			 \{ %7b \| %7c \} %7d \\ %5c} $url]
 
     debugmsg browseurl "Mapped URL: '$url'"
@@ -34,8 +36,7 @@
     if {[info exists ::webbrowser] && $::webbrowser != ""} {
 	# If user specified a browser, use it
 
-        set url [string map {; \\;} $url]
-	eval exec [format $::webbrowser $url] &
+	eval exec [textutil::splitx [format $::webbrowser $url]] &
 	return
     }
 



More information about the Tkabber-dev mailing list