stuff

1 files changed, 0 insertions, 34 deletions

diff --git a/service/inetorg-delete.lisp b/service/inetorg-delete.lisp
deleted file mode 100644
index d01db5d..0000000
--- a/service/inetorg-delete.lisp
+++ /dev/null
@@ -1,34 +0,0 @@
-;;; -*- 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.")))))