space cannot be used for url scheme

git-svn-id: file:///raid/svn-personal/koakuma/trunk@21 219d0f9c-2d94-d447-890a-813e76b88fe9

diff --git a/koakuma.cgi.in b/koakuma.cgi.in
index 06fbb67f03fa40a3fc5483eab13e80b620800c16..19a7c55322f1c463409da56f4de9e1c31e96d795 100644 (file)
--- a/koakuma.cgi.in
+++ b/koakuma.cgi.in
@@ -171,7 +171,7 @@ proc tputs {data} {
 
 proc html_escape {data} {
        set tmp "[regsub -all {<} "[regsub -all {>} "$data" {\&gt;}]" {\&lt;}]"
-       return "[regsub -all {[^:]+://[^ ]+} "$tmp" {<a href="\0">\0</a>}]"
+       return "[regsub -all {[^: ]+://[^ ]+} "$tmp" {<a href="\0">\0</a>}]"
 }
 
 proc open_projects {} {