maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(web/panettone): initialise *oauth2-redirect-uri* at runtime

Browse source 
Optimisations seem to cause *oauth2-redirect-uri* to be baked in if we
try to check the environment in DEFVAR.

Change-Id: Id53b880061239141936298f673ff8e745442af94
Reviewed-on: https://cl.tvl.fyi/c/depot/+/13186
Reviewed-by: tazjin <tazjin@tvl.su>
Autosubmit: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
This commit is contained in:
sterni 2025-02-27 15:41:40 +01:00 • committed by clbot
parent 6388e8513a
commit 5615813e72
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
web/panettone/src/authentication.lisp
View file

@ -37,10 +37,7 @@ the user, however email addresses are temporarily not available."
(defvar *oauth2-token-endpoint* nil) (defvar *oauth2-token-endpoint* nil)
(defvar *oauth2-client-id* nil) (defvar *oauth2-client-id* nil)
(defvar *oauth2-client-secret* nil) (defvar *oauth2-client-secret* nil)
(defvar *oauth2-redirect-uri* nil)
(defvar *oauth2-redirect-uri*
(or (uiop:getenv "OAUTH2_REDIRECT_URI")
"https://b.tvl.fyi/auth"))
(comment (comment
(setq *oauth2-redirect-uri* "http://localhost:6161/auth") (setq *oauth2-redirect-uri* "http://localhost:6161/auth")
@ -64,6 +61,10 @@ the user, however email addresses are temporarily not available."
(uiop:getenv "OAUTH2_CLIENT_ID") (uiop:getenv "OAUTH2_CLIENT_ID")
"panettone")) "panettone"))
(setq *oauth2-redirect-uri*
(or (uiop:getenv "OAUTH2_REDIRECT_URI")
"https://b.tvl.fyi/auth"))
(setq *oauth2-client-secret* (setq *oauth2-client-secret*
(or *oauth2-client-secret* (or *oauth2-client-secret*
(uiop:getenv "OAUTH2_CLIENT_SECRET") (uiop:getenv "OAUTH2_CLIENT_SECRET")