diff options
Diffstat (limited to 'webapps/ldapadmin/site.lisp')
| -rw-r--r-- | webapps/ldapadmin/site.lisp | 8 |
1 files changed, 2 insertions, 6 deletions
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) |