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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Jul 17 15:00:58 MSD 2007


Author: sergei
Date: 2007-07-17 15:00:57 +0400 (Tue, 17 Jul 2007)
New Revision: 1160

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/richtext/urls.tcl
Log:
	* plugins/richtext/urls.tcl: Added upcoming asia TLD and changed URL
	  regexp to accept URLS like http://example.org?par=val (without a
	  slash after a domain name).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-07-16 09:51:52 UTC (rev 1159)
+++ trunk/tkabber/ChangeLog	2007-07-17 11:00:57 UTC (rev 1160)
@@ -1,3 +1,9 @@
+2007-07-17  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/richtext/urls.tcl: Added upcoming asia TLD and changed URL
+	  regexp to accept URLS like http://example.org?par=val (without a
+	  slash after a domain name).
+
 2007-07-16  Sergei Golovan  <sgolovan at nes.ru>
 
 	* jabberlib-tclxml/https.tcl: Fixed bug with authorization at HTTPS

Modified: trunk/tkabber/plugins/richtext/urls.tcl
===================================================================
--- trunk/tkabber/plugins/richtext/urls.tcl	2007-07-16 09:51:52 UTC (rev 1159)
+++ trunk/tkabber/plugins/richtext/urls.tcl	2007-07-17 11:00:57 UTC (rev 1160)
@@ -34,14 +34,17 @@
 		  | museum
 		  | pro
 		  | travel
+		  | asia
 		  | [a-z][a-z]
 		)
 	    )
 	    (?: : \d+ )?
 	    (?:
-		/
-		[^.,?!:;"'<>()\[\]{}\s\x7F-\xFF]*
 		(?:
+		    /
+		    [^.,?!:;"'<>()\[\]{}\s\x7F-\xFF]*
+		)?
+		(?:
 		    [.,?!:;]+ [^.,?!:;"'<>()\[\]{}\s\x7F-\xFF]+
 		)*
 	    )?



More information about the Tkabber-dev mailing list