From daa6f103c5fc5c473721a7b2bda16363ae39d391 Mon Sep 17 00:00:00 2001 From: Grant Shoshin Shangreaux Date: Tue, 14 Mar 2023 11:43:16 -0500 Subject: Add: configuration from file for datastore & lzb server This defaults to looking for a file called config.lisp within the dnd system's directory. If you copy the config.lisp.example included in this commit out to simply config.lisp, then you should be able to run the (start) defun to get things running with "sane" defaults. It should create a datastore directory within the same system directory, which is also ignored by git. --- src/endpoints.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/endpoints.lisp') diff --git a/src/endpoints.lisp b/src/endpoints.lisp index 62d70ee..acc62c9 100644 --- a/src/endpoints.lisp +++ b/src/endpoints.lisp @@ -116,11 +116,11 @@ functions in url parameters in endpoint definitions." (new-sesh player))) (lzb:set-response-cookie +session-cookie-name+ (session-id sesh) - :path "/" :domain "localhost") ; TODO: generalize domain + :path "/" :domain (host *config*)) (redirect-to "/tavern")) (progn (flash :tavern-door (format nil "Hrmm... ~a you say? It ain't on the register." nick)) - (redirect-to "/tavern-door")))) ) + (redirect-to "/tavern-door"))))) (defendpoint* :get "/join" () () (render (page-render-mode) :join)) -- cgit v1.2.3