diff --git a/web/panettone/src/authentication.lisp b/web/panettone/src/authentication.lisp index 496a0e0bd..58deef196 100644 --- a/web/panettone/src/authentication.lisp +++ b/web/panettone/src/authentication.lisp @@ -37,10 +37,7 @@ the user, however email addresses are temporarily not available." (defvar *oauth2-token-endpoint* nil) (defvar *oauth2-client-id* nil) (defvar *oauth2-client-secret* nil) - -(defvar *oauth2-redirect-uri* - (or (uiop:getenv "OAUTH2_REDIRECT_URI") - "https://b.tvl.fyi/auth")) +(defvar *oauth2-redirect-uri* nil) (comment (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") "panettone")) + (setq *oauth2-redirect-uri* + (or (uiop:getenv "OAUTH2_REDIRECT_URI") + "https://b.tvl.fyi/auth")) + (setq *oauth2-client-secret* (or *oauth2-client-secret* (uiop:getenv "OAUTH2_CLIENT_SECRET")