From 31657f6854edc116946a099be889440fb3e92e53 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sat, 27 Nov 2021 10:20:12 -0700 Subject: moved everything under lisp/ --- lisp/service/inetorg-delete-service.lisp | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 lisp/service/inetorg-delete-service.lisp (limited to 'lisp/service/inetorg-delete-service.lisp') diff --git a/lisp/service/inetorg-delete-service.lisp b/lisp/service/inetorg-delete-service.lisp new file mode 100644 index 0000000..7c27480 --- /dev/null +++ b/lisp/service/inetorg-delete-service.lisp @@ -0,0 +1,26 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package :ldapadmin) + +(defclass inetorg-delete-service (auth-service) + ((cn :initarg :cn + :initform nil + :accessor cn) + (location-p :initform nil)) + (:documentation "")) + +(defun inetorg-delete-json (cn) + (with-auth (instance inetorg-delete-service) + (setf (cn instance) cn))) + +(defclass inetorg-delete-submit-service (auth-service) + ((location-p :initform nil)) + (:documentation "")) + +(defun inetorg-delete-submit-json (cn) + (with-auth (instance inetorg-delete-submit-service) + (with-ldap (ldap) + (let ((ldap-user (get-ldap-user ldap cn))) + (delete-ldap-user ldap-user ldap) + (setf (session-value :message) "InetOrg entry deleted successfully."))))) -- cgit v1.3