From e46e242b8d7cc08e2f3edfc7effee706d058d201 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 16 Aug 2026 13:28:23 -0600 Subject: migrate to react --- lisp/service/login-service.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/service/login-service.lisp') diff --git a/lisp/service/login-service.lisp b/lisp/service/login-service.lisp index 7a80bfd..dfe245c 100644 --- a/lisp/service/login-service.lisp +++ b/lisp/service/login-service.lisp @@ -62,3 +62,8 @@ (setf (session-value :errormsg) "Login failed.")))))) (setf (message instance) (session-value :message)) (setf (errormsg instance) (session-value :errormsg)))) + +(define-endpoint ("/login" :method :get) () login-json) +(define-endpoint ("/login/authenticate" :method :post) (&post (username :parameter-type 'string) (pwd :parameter-type 'string)) login-authenticate-json username pwd) +(define-endpoint ("/login/forgot" :method :get) () login-forgot-json) +(define-endpoint ("/logout" :method :get) () logout-json) -- cgit v1.3