marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Set access log

Browse source
This commit is contained in:
Marcus Kammer 2024-06-14 17:46:12 +02:00
parent 7f746245fd
commit b13b797315
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/app.lisp
View file

@ -3,11 +3,12 @@
(defun set-default-directory (directory) (defun set-default-directory (directory)
(setf *default-pathname-defaults* (truename (merge-pathnames directory)))) (setf *default-pathname-defaults* (truename (merge-pathnames directory))))
(defun create-server (name port &key address document-root) (defun create-server (name port &key address document-root access-log-destination)
(let ((acceptor (make-instance 'hunchentoot:easy-acceptor (let ((acceptor (make-instance 'hunchentoot:easy-acceptor
:address address :address address
:name name :name name
:document-root document-root :document-root document-root
:access-log-destination access-log-destination
:port port))) :port port)))
acceptor)) acceptor))
@ -26,7 +27,9 @@
(defvar *app* (create-server 'app (defvar *app* (create-server 'app
8080 8080
:document-root :document-root
"public/")) "public/"
:access-log-destination
(uiop:merge-pathnames* #P"access.log" (app-dir))))
(defun start () (defun start ()
(start-server *app*)) (start-server *app*))