[Tkabber-dev] r868 - in trunk/tkabber: . plugins/richtext

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Jan 11 15:16:43 MSK 2007


Author: sergei
Date: 2007-01-11 15:16:40 +0300 (Thu, 11 Jan 2007)
New Revision: 868

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/richtext/urls.tcl
Log:
	* plugins/richtext/urls.tcl: Fixed proc, which adds leading http://
	  and ftp:// prefix to URL.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-01-11 12:13:29 UTC (rev 867)
+++ trunk/tkabber/ChangeLog	2007-01-11 12:16:40 UTC (rev 868)
@@ -1,3 +1,8 @@
+2007-01-11  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/richtext/urls.tcl: Fixed proc, which adds leading http://
+	  and ftp:// prefix to URL.
+
 2007-01-08  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/tkcon.tcl: Adapted to use tkcon as a Tcl package.

Modified: trunk/tkabber/plugins/richtext/urls.tcl
===================================================================
--- trunk/tkabber/plugins/richtext/urls.tcl	2007-01-11 12:13:29 UTC (rev 867)
+++ trunk/tkabber/plugins/richtext/urls.tcl	2007-01-11 12:16:40 UTC (rev 868)
@@ -103,10 +103,10 @@
 }
 
 proc urls::make_url {title} {
-    if {[regexp {^(ftp|https?)://} $title]} {
+    if {[regexp -nocase {^(ftp|https?)://} $title]} {
 	return $title
     }
-    if {[regexp {^ftp} $title]} {
+    if {[regexp -nocase {^ftp} $title]} {
 	return "ftp://$title"
     }
     return "http://$title"



More information about the Tkabber-dev mailing list