login now forwards to /inetorg/view

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)