Revision: 3801 Author: ksprotte URL: http://bknr.net/trac/changeset/3801

fixed regexp in REPLACE-ALL-URL-HOSTS to also match a port if it is present

U trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 08:54:41 UTC (rev 3800) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-09-05 09:07:28 UTC (rev 3801) @@ -89,7 +89,7 @@

(defun replace-all-url-hosts (string new-host) "Replaces all hostnames in STRING by NEW-HOST." - (ppcre:regex-replace-all #?r"((?:https?|ftp)://)\w+(?:.\w+)*" string #?r"\1${new-host}")) + (ppcre:regex-replace-all #?r"((?:https?|ftp)://)\w+(?:.\w+)*(?::\d+)?" string #?r"\1${new-host}"))

(defun replace-lang-query-params (string new-lang) (ppcre:regex-replace-all #?r"(?i)(lang=)[a-z]{2,2}" string #?r"\1${new-lang}"))