1 files changed, 26 insertions, 0 deletions
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.")))))