diff options
Diffstat (limited to 'service/logout-service.lisp')
| -rw-r--r-- | service/logout-service.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/service/logout-service.lisp b/service/logout-service.lisp index 54a02b4..d7ab412 100644 --- a/service/logout-service.lisp +++ b/service/logout-service.lisp @@ -7,10 +7,8 @@ ((location-p :initform nil)) (:documentation "")) -(defmethod initialize-instance :after ((logout-service logout-service) &key) - (setf (location logout-service) "/home") - (setf (message logout-service) "You are now logged out.")) - (defun logout-json () - (setf (session-value :permissions) "anonymous") - (org-ckons-json::objects-to-json `(,(make-instance 'logout-service)))) + (with-noauth (instance logout-service) + (setf (session-value :permissions) "anonymous") + (setf (location instance) "/home") + (setf (message instance) "You are now logged out."))) |