Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
a3b6161c
Commit
a3b6161c
authored
Mar 10, 2022
by
Dave Cooper
Browse files
try to protect descriptive-url
parent
83d7b044
Changes
1
Hide whitespace changes
Inline
Side-by-side
gwl/source/base-html-sheet.lisp
View file @
a3b6161c
...
...
@@ -113,7 +113,7 @@ object.")
(
append
(
mapcar
#'
(
lambda
(
extension
)
(
string-append
url-base
(
if
(
zerop
(
length
url-base
))
""
"/"
)
extension
))
(
the
url-extensions
))
(
list
url-base
(
the
descriptive-url
)))))
(
remove
nil
(
list
url-base
(
ignore-errors
(
the
descriptive-url
)))))
))
(
respondent
(
the
bashee
)
:defaulting
)
;;(respondent (the bashee))
...
...
@@ -384,16 +384,15 @@ values are set into the specified bashee."
(
let
((
url
(
let
((
escaped-strings-for-display
(
html-escape
(
the
strings-for-display
))))
(
if
(
and
(
the
parent
)
(
typep
(
the
parent
)
'base-html-sheet
))
(
string-append
(
the
parent
descriptive-url-base
)
"/"
escaped-strings-for-display
)
(
if
(
ignore-errors
(
and
(
the
parent
)
(
typep
(
the
parent
)
'base-html-sheet
))
)
(
or
(
ignore-errors
(
string-append
(
the
parent
descriptive-url-base
)
"/"
escaped-strings-for-display
))
escaped-strings-for-display
)
escaped-strings-for-display
))))
(
string-downcase
url
)))
;;
;; FLAG -- this can prolly go away.
;;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment