diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-08-07 19:11:49 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-08-07 19:11:49 -0600 |
| commit | 44f7a0a4da7cc45d638e4b64fbf47cb1afc51292 (patch) | |
| tree | d2fa16893166cd0768ef738fbc37406b94b1aa41 /lisp/service/contact-us-service.lisp | |
| parent | 2fc46b8c30d92352ca2df49b001ec38817868905 (diff) | |
lots of react migration
Diffstat (limited to 'lisp/service/contact-us-service.lisp')
| -rw-r--r-- | lisp/service/contact-us-service.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/service/contact-us-service.lisp b/lisp/service/contact-us-service.lisp index 43f6da3..1e55ddb 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) |