mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-05 16:51:33 -08:00
Code Issues Projects Releases Wiki Activity

better resolution of post data

Browse source
This commit is contained in:
David Botton 2022-08-10 00:53:07 -04:00
parent 91e228e3f6
commit 0a3cec7c41
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-connection.lisp
View file

@ -446,7 +446,7 @@ the contents sent to the brower."
page-data))) page-data)))
(when (search "multipart/form-data;" (when (search "multipart/form-data;"
(getf env :content-type)) (getf env :content-type))
(let ((id (get-universal-time)) (let ((id (random-hex-string))
(req (lack.request:make-request env))) (req (lack.request:make-request env)))
(setf (gethash id *connection-data*) (setf (gethash id *connection-data*)
(lack.request:request-body-parameters req)) (lack.request:request-body-parameters req))

2
source/clog-form.lisp
View file

@ -34,7 +34,7 @@ never be GC'd. File upload items will be a four part list
(defmethod form-multipart-data ((obj clog-obj)) (defmethod form-multipart-data ((obj clog-obj))
(clog-connection:get-connection-data (clog-connection:get-connection-data
(parse-integer (caar (form-post-data obj)) :junk-allowed t))) (caar (form-post-data obj))))
(defgeneric delete-multipart-data (clog-obj) (defgeneric delete-multipart-data (clog-obj)
(:documentation "Delete the multipart data upload")) (:documentation "Delete the multipart data upload"))