From 0ed1cba1b39daaf8eef693233f081b455c88dece Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 21 Dec 2020 08:59:56 -0700 Subject: stuff --- service/login-authenticate.lisp | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 service/login-authenticate.lisp (limited to 'service/login-authenticate.lisp') diff --git a/service/login-authenticate.lisp b/service/login-authenticate.lisp deleted file mode 100644 index 5b657a0..0000000 --- a/service/login-authenticate.lisp +++ /dev/null @@ -1,24 +0,0 @@ -;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- -(declaim (optimize (speed 0) (safety 3) (debug 3))) - -(in-package #:ldapadmin) - -;; ========================================================================== ;; - -(defclass login-authenticate (rest-service) - ((location-p :initarg :location-p - :initform nil - :accessor location-p)) - (:documentation "")) - -(defmethod initialize-instance :after ((login-authenticate login-authenticate) &key auth-result) - (if auth-result - (setf (message login-authenticate) "Successfully logged in.") - (setf (errormsg login-authenticate) "Login failed."))) - -(defun login-authenticate-json (dn password) - (let ((auth-result nil)) - (when (check-ldap-password (ldap *webapp*) dn password) - (setf (session-value :permissions) "admin") - (setf auth-result t)) - (objects-to-json `(,(make-instance 'login-authenticate :auth-result auth-result))))) -- cgit v1.3