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

Do not parse raw-body if there's no Content-Length or Transafer-Encoding isn't chunked.

Browse source
This commit is contained in:
Eitaro Fukamachi 2017-07-07 11:53:22 +09:00
parent 824436ac3c
commit 19b9f1baa3
1 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/request.lisp
View file

@ -30,7 +30,8 @@
:request-body-parameters
:request-query-parameters
:request-parameters
:request-content))
:request-content
:request-has-body-p))
(in-package :lack.request)
(defstruct (request (:constructor %make-request))
@ -55,6 +56,11 @@
body-parameters
query-parameters)
(declaim (inline request-has-body-p))
(defun request-has-body-p (req)
(or (request-content-length req)
(string= (gethash "transfer-encoding" (request-headers req)) "chunked")))
(defun make-request (env)
(let ((req (apply #'%make-request :env env :allow-other-keys t env)))
(with-slots (method uri) req
@ -87,7 +93,8 @@
(setf raw-body (make-circular-input-stream raw-body))
;; POST parameters
(when (null body-parameters)
(when (and (null body-parameters)
(request-has-body-p req))
(setf body-parameters
(http-body:parse content-type content-length raw-body))
(file-position raw-body 0)
@ -102,10 +109,11 @@
(request-body-parameters req)))
(defun request-content (req)
(let ((raw-body (request-raw-body req)))
(if (or (request-content-length req)
(string= (gethash "transfer-encoding" (request-headers req)) "chunked"))
(if (request-has-body-p req)
(let ((raw-body (request-raw-body req)))
(prog1
(http-body.util:slurp-stream raw-body (request-content-length req))
(file-position raw-body 0))
#.(make-array 0 :element-type '(unsigned-byte 8)))))
(file-position raw-body 0)))
#.(make-array 0 :element-type '(unsigned-byte 8))))
(declaim (notinline request-has-body-p))