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/ --- service/inetorg-view-service.lisp | 70 --------------------------------------- 1 file changed, 70 deletions(-) delete mode 100644 service/inetorg-view-service.lisp (limited to 'service/inetorg-view-service.lisp') diff --git a/service/inetorg-view-service.lisp b/service/inetorg-view-service.lisp deleted file mode 100644 index 379b1b0..0000000 --- a/service/inetorg-view-service.lisp +++ /dev/null @@ -1,70 +0,0 @@ -;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- -(declaim (optimize (speed 0) (safety 3) (debug 3))) - -(in-package :ldapadmin) - -(defclass inetorg-view-service (auth-service) - ((title :initarg :title - :initform nil - :accessor title)) - (:documentation "")) - -(defun inetorg-view-json (&optional message errormsg) - (with-auth (instance inetorg-view-service) - (when message (setf (message instance) message)) - (when errormsg (setf (errormsg instance) errormsg)) - (setf (title instance) "Use the form to filter the InetOrg results."))) - -(defclass inetorg-view-search-service (auth-service) - ((form :initarg :form - :initform nil - :accessor form) - (title :initarg :title - :initform nil - :accessor title) - (location-p :initform nil)) - (:documentation "")) - -(defmethod initialize-instance :after ((inetorg-view-search-service inetorg-view-search-service) &key) - (setf (form inetorg-view-search-service) (make-form "inetorg-view-search-form" - nil - t - '((:name "view-givenname" :label "givenName" :field-type "text") - (:name "view-sn" :label "sn" :field-type "text") - (:name "view-mail" :label "mail" :field-type "text") - (:name "view-postaladdress" :label "postalAddress" :field-type "text") - (:name "view-postalcode" :label "postalCode" :field-type "text") - (:name "view-st" :label "st" :field-type "text") - (:name "view-l" :label "l" :field-type "text") - (:name "view-telephonenumber" :label "telephoneNumber" :field-type "text") - (:name "view-mobile" :label "mobile" :field-type "text") - (:name "view-businesscategory" :label "businessCategory" :field-type "text") - (:label "Search InetOrg Entries" :field-type "button" :onclick "on_inetorg_view_search_clicked()"))))) - -(defun inetorg-view-search-json () - (with-auth (instance inetorg-view-search-service) - nil)) - -(defclass inetorg-view-results-service (auth-service) - ((results :initarg :results - :initform nil - :accessor results) - (location-p :initform nil)) - (:documentation "")) - -(defun inetorg-view-results-json (givenname sn mail postaladdress postalcode st l telephonenumber mobile businesscategory) - (with-auth (instance inetorg-view-results-service) - (with-ldap (ldap) - (setf (results instance) - (sort (search-ldap-users ldap - `((:givenname ,givenname) - (:sn ,sn) - (:mail ,mail) - (:postaladdress ,postaladdress) - (:postalcode ,postalcode) - (:st ,st) - (:l ,l) - (:telephonenumber ,telephonenumber) - (:mobile ,mobile) - (:businesscategory ,businesscategory))) - (lambda (x y) (string< (get-cn x) (get-cn y)))))))) -- cgit v1.3