hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-04 17:01:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Decode URI in generate-env.

Browse source
This commit is contained in:
Eitaro Fukamachi 2018-09-19 23:16:38 +09:00
parent 4fac568329
commit 7bae407558
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/test.lisp
View file

@ -20,10 +20,8 @@
Argument `uri' can be just a path or a full url with scheme and optional port."
(let* ((uri (quri:uri uri))
(path-with-params (quri:copy-uri uri
:host nil
:port nil
:scheme nil))
(path (quri:url-decode (quri:uri-path uri) :lenient t))
(query (quri:uri-query uri))
(host (or (quri:uri-host uri)
"localhost"))
(port (or (quri:uri-port uri)
@ -62,10 +60,12 @@
(list :request-method method
;; Seems that all Clack handlers put into this field
;; only pathname with GET parameters
:request-uri (quri:render-uri path-with-params)
:request-uri (format nil "~A~@[?~A~]"
(or path "/")
query)
:script-name ""
:path-info (quri:uri-path uri)
:query-string (or (quri:uri-query uri) "")
:path-info path
:query-string query
:server-name host
:server-port port
:server-protocol :http/1.1