From ad85a68776a44a7d8cb7366488c0ac9393905120 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 24 Dec 2020 23:02:24 -0700 Subject: fixed message and errormsg, added with-noauth macro --- service/logout-service.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'service/logout-service.lisp') 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."))) -- cgit v1.3