diff options
Diffstat (limited to 'webapps/ldapadmin/site.lisp')
| -rw-r--r-- | webapps/ldapadmin/site.lisp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp index eb644bd..891c9f9 100644 --- a/webapps/ldapadmin/site.lisp +++ b/webapps/ldapadmin/site.lisp @@ -55,9 +55,12 @@ (defmacro .logout () `(logout-json)) -(defmacro .inetorg-view () +(defmacro .inetorg-view-get () `(inetorg-view-json)) +(defmacro .inetorg-view-post () + `(inetorg-view-json message errormsg)) + (defmacro .inetorg-view-search () `(inetorg-view-search-json)) @@ -90,7 +93,8 @@ (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) +(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/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) |