mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

escape html \n and \r

Browse source
This commit is contained in:
David Botton 2022-07-20 23:12:17 -04:00
parent 26d120bdc5
commit ae6cdb7580
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-utilities.lisp
View file

@ -152,8 +152,8 @@ and not for security purposes or html escapes."
(cond (html (cond (html
(setf res (ppcre:regex-replace-all "\\x22" res """)) ; " (setf res (ppcre:regex-replace-all "\\x22" res """)) ; "
(setf res (ppcre:regex-replace-all "\\x27" res "'")) ; ' (setf res (ppcre:regex-replace-all "\\x27" res "'")) ; '
(setf res (ppcre:regex-replace-all "\\x0A" res "")) ; \n (setf res (ppcre:regex-replace-all "\\x0A" res "
")) ; \n
(setf res (ppcre:regex-replace-all "\\x0D" res ""))) ; \r (setf res (ppcre:regex-replace-all "\\x0D" res "&#x0D"))) ; \r
(t (t
(setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; " (setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; "
(setf res (ppcre:regex-replace-all "\\x27" res "\\x27")) ; ' (setf res (ppcre:regex-replace-all "\\x27" res "\\x27")) ; '