about summary refs log tree commit diff
path: root/web
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-08-28T21·42-0400
committerglittershark <grfn@gws.fyi>2020-08-28T21·51+0000
commit1d9a2cac0931930dcb41ada59cc7f1eb996e3751 (patch)
tree04892ff57d4bc127f122139898c62b14922e1651 /web
parentd8701f7e21a3fbace39778356b8059250a40a994 (diff)
feat(panettone): Configure a session secret r/1730
Load a SESSION_SECRET env var and set it as the hunchentoot session
secret if present, so that restarting panettone doesn't destroy all
sessions due to the secret getting regenerated.

Refs: #19
Change-Id: Ia2c633fa998e128ecece66e824df01c430da8235
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1866
Reviewed-by: kanepyork <rikingcoding@gmail.com>
Tested-by: BuildkiteCI
Diffstat (limited to 'web')
-rw-r--r--web/panettone/src/panettone.lisp17
1 files changed, 13 insertions, 4 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index 7594c3ab2408..f1c17c283097 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -526,13 +526,17 @@
 (defun start-panettone (&key port
                           (ldap-host "localhost")
                           (ldap-port 389)
-                          postgres-params)
+                          postgres-params
+                          session-secret)
   (connect-ldap :host ldap-host
                 :port ldap-port)
 
   (apply #'model:connect-postgres postgres-params)
   (migrate-db)
 
+  (when session-secret
+    (setq hunchentoot:*session-secret* session-secret))
+
   (setq *acceptor*
         (make-instance 'easy-routes:routes-acceptor :port port))
   (hunchentoot:start *acceptor*))
@@ -540,12 +544,16 @@
 (defun main ()
   (let ((port (integer-env "PANETTONE_PORT" :default 6161))
         (ldap-port (integer-env "LDAP_PORT" :default 389))
-        (cheddar-url (uiop:getenvp "CHEDDAR_URL")))
+        (cheddar-url (uiop:getenvp "CHEDDAR_URL"))
+        (session-secret (uiop:getenvp "SESSION_SECRET")))
     (when cheddar-url (setq *cheddar-url* cheddar-url))
     (setq hunchentoot:*show-lisp-backtraces-p* nil)
     (setq hunchentoot:*log-lisp-backtraces-p* nil)
+
     (start-panettone :port port
-                     :ldap-port ldap-port)
+                     :ldap-port ldap-port
+                     :session-secret session-secret)
+
     (sb-thread:join-thread
      (find-if (lambda (th)
                 (string= (sb-thread:thread-name th)
@@ -555,5 +563,6 @@
 (comment
  (setq hunchentoot:*catch-errors-p* nil)
  (start-panettone :port 6161
-                  :ldap-port 3899)
+                  :ldap-port 3899
+                  :session-secret "session-secret")
  )