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

Add request-content for getting the whole request body from raw-body.

Browse source
This commit is contained in:
Eitaro Fukamachi 2016-10-17 20:27:32 +09:00
parent 3940e86e8e
commit 32358fdad0
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/request.lisp
View file

@ -29,7 +29,8 @@
:request-cookies
:request-body-parameters
:request-query-parameters
:request-parameters))
:request-parameters
:request-content))
(in-package :lack.request)
(defstruct (request (:constructor %make-request))
@ -99,3 +100,12 @@
(defun request-parameters (req)
(append (request-query-parameters req)
(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"))
(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)))))