;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package #:ldapadmin)

(defclass logout-service (rest-service)
  ((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))))