From e678d9ba62cd44795fe8d4b882e61dfbd672729e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 24 Dec 2020 22:27:40 -0700 Subject: fixed message and errormsg --- webapps/ldapadmin/site.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'webapps/ldapadmin/site.lisp') diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp index 891c9f9..eb644bd 100644 --- a/webapps/ldapadmin/site.lisp +++ b/webapps/ldapadmin/site.lisp @@ -55,12 +55,9 @@ (defmacro .logout () `(logout-json)) -(defmacro .inetorg-view-get () +(defmacro .inetorg-view () `(inetorg-view-json)) -(defmacro .inetorg-view-post () - `(inetorg-view-json message errormsg)) - (defmacro .inetorg-view-search () `(inetorg-view-search-json)) @@ -93,8 +90,7 @@ (define-endpoint :get "/login" () .login) (define-endpoint :post "/login/authenticate" ((dn :parameter-type 'string) (password :parameter-type 'string)) .login-authenticate) (define-endpoint :get "/logout" () .logout) -(define-endpoint :get "/inetorg/view" () .inetorg-view-get) -(define-endpoint :post "/inetorg/view" ((message :parameter-type 'string) (errormsg :parameter-type 'string)) .inetorg-view-post) +(define-endpoint :get "/inetorg/view" () .inetorg-view) (define-endpoint :get "/inetorg/view/search" () .inetorg-view-search) (define-endpoint :post "/inetorg/view/results" ((givenname :parameter-type 'string) (sn :parameter-type 'string) (mail :parameter-type 'string) (postaladdress :parameter-type 'string) (postalcode :parameter-type 'string) (st :parameter-type 'string) (l :parameter-type 'string) (telephonenumber :parameter-type 'string) (mobile :parameter-type 'string) (businesscategory :parameter-type 'string)) .inetorg-view-results) (define-endpoint :post "/inetorg/modify" ((cn :parameter-type 'string)) .inetorg-modify) -- cgit v1.3