jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Tweak logging of requests 

Minor refactor.
This commit is contained in:
Jaidyn Ann 2024-12-09 21:22:48 -06:00
parent 6659947bd7
commit bf4a175517
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/activity-servist.lisp
View File

@ -212,7 +212,7 @@ can be found). Uses the callback :FETCH, defined in *CONFIG*."
;;; ———————————————————————————————————————— ;;; ————————————————————————————————————————
(defun server (env) (defun server (env)
"Returns the response data for Clack, given the request property-list ENV." "Returns the response data for Clack, given the request property-list ENV."
(nconc *logs* (list env (babel:octets-to-string (alexandria:read-stream-content-into-byte-vector (getf env :raw-body))))) (setq *logs* (append *logs* (list env (body-contents (getf env :raw-body)))))
(let* ((path (pathname-sans-parameters (getf env :request-uri))) (let* ((path (pathname-sans-parameters (getf env :request-uri)))
(params (pathname-parameters (getf env :request-uri))) (params (pathname-parameters (getf env :request-uri)))
(response-function (response-function
@ -282,3 +282,9 @@ or “/bear/apple/” or “/bear/”, but not “/bear” (not a directory)."
(loop for number across (loop for number across
sequence sequence
collect (format nil "~X" number)))) collect (format nil "~X" number))))
(defun body-contents (body)
"Given the :RAW-BODY of a Clack ENV, return its contents as a string."
(babel:octets-to-string
(alexandria:read-stream-content-into-byte-vector body)))