mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

reset-page-on-authentication-change

Browse source
This commit is contained in:
David Botton 2022-04-18 17:08:20 -04:00
parent fcee7553d1
commit 47057b5000
2 changed files with 20 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
source/clog-auth.lisp
View file

@ -16,9 +16,10 @@
(defsection @clog-auth (:title "CLOG Auth Objects")
"CLOG-AUTH - authorization abstraction for CLOG"
(get-authentication-token function)
(store-authentication-token function)
(remove-authentication-token function))
(get-authentication-token function)
(store-authentication-token function)
(remove-authentication-token function)
(reset-page-on-authentication-change function))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-auth
@ -32,7 +33,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun get-authentication-token (body &key auth-path)
"Retrieve the stored authorization token"
"Retrieve the stored authentication token"
(let ((token (storage-element (window body) :local *clog-auth-key*)))
(when (equalp token "null")
(setf token nil))
@ -55,5 +56,15 @@
(defun remove-authentication-token (body)
(storage-remove (window body) :local *clog-auth-key*))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; reset-page-on-authentication-change ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun reset-page-on-authentication-change (obj)
(let ((body (connection-body obj)))
(set-on-storage (window body) (lambda (obj data)
(set-on-storage (window body) nil)
(when (equalp (getf data :key)
"clog-auth-token")
(reload (location body)))))))