From c2f77f4296c6b13eeb86067a772192b70577bca6 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sat, 20 Jan 2018 22:07:54 -0700 Subject: initial commit --- service/inetorg-delete.lisp | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 service/inetorg-delete.lisp (limited to 'service/inetorg-delete.lisp') diff --git a/service/inetorg-delete.lisp b/service/inetorg-delete.lisp new file mode 100644 index 0000000..d01db5d --- /dev/null +++ b/service/inetorg-delete.lisp @@ -0,0 +1,34 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package #:ldapadmin) + +;; ========================================================================== ;; +;; inetorg-delete + +(defclass inetorg-delete (auth-service) + ((cn :initarg :cn + :initform nil + :accessor cn) + (location-p :initarg :location-p + :initform nil + :accessor location-p)) + (:documentation "")) + +(defun inetorg-delete-json (cn) + (with-auth (instance inetorg-delete) + (setf (cn instance) cn))) + +;; ========================================================================== ;; +;; inetorg-delete-submit + +(defclass inetorg-delete-submit (auth-service) + () + (:documentation "")) + +(defun inetorg-delete-submit-json (cn) + (with-auth (instance inetorg-delete-submit) + (with-ldap (ldap) + (let ((ldap-user (get-ldap-user ldap cn))) + (delete-ldap-user ldap-user ldap) + (setf (message instance) "InetOrg entry deleted successfully."))))) -- cgit v1.3