fix: refresh tokens when almost-expired-or-expired

This commit is contained in:
rcmerci
2022-10-08 17:15:25 +08:00
committed by Andelf
parent df15c68f16
commit bc89d60664

View File

@@ -46,6 +46,11 @@
tc/from-long
(t/before? (-> 1 t/hours t/from-now))))
(defn- almost-expired-or-expired?
[parsed-jwt]
(or (almost-expired? parsed-jwt)
(expired? parsed-jwt)))
(defn email []
(some->
(state/get-auth-id-token)
@@ -167,7 +172,7 @@
(when (state/get-auth-refresh-token)
(let [id-token (state/get-auth-id-token)]
(when (or (nil? id-token)
(-> id-token (parse-jwt) (almost-expired?)))
(-> id-token (parse-jwt) (almost-expired-or-expired?)))
(debug/pprint (str "refresh tokens... " (tc/to-string(t/now))))
(<! (<refresh-id-token&access-token)))))
(when-not stop-refresh