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/contact-us-service.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/service/contact-us-service.lisp') diff --git a/lisp/service/contact-us-service.lisp b/lisp/service/contact-us-service.lisp index 4e2aada..eea7f49 100644 --- a/lisp/service/contact-us-service.lisp +++ b/lisp/service/contact-us-service.lisp @@ -82,3 +82,7 @@ (error (e) (declare (ignore e)) (setf (session-value :errormsg) "Error submitting form."))))))) + +(define-endpoint ("/contact-us" :method :get) () contact-us-json) +(define-endpoint ("/contact-us/view" :method :get) () contact-us-view-json) +(define-endpoint ("/contact-us/email" :method :post) (&post (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string) (phone :parameter-type 'string) (comments :parameter-type 'string)) contact-us-email-json first_name last_name email phone comments) -- cgit v1.3