moved everything under lisp/

1 files changed, 0 insertions, 26 deletions

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