mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Support for POST method

Browse source
This commit is contained in:
David Botton 2021-01-26 21:07:55 -05:00
parent 12f1b22e46
commit 1f478b0d9e
2 changed files with 67 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

48
tutorial/17-tutorial.lisp
View file

@ -17,11 +17,13 @@
(let* ((header (create-section body :header :class "w3-container w3-card w3-theme"))
(tmp (create-section header :h1 :content "Explore Forms"))
(tmp (create-hr body))
(data-area (create-div body :class "w3-container"))
(tmp (create-hr data-area))
;; This is a traditional "post" form that will submit data
;; to a server.
(fcontainer (create-div body :class "w3-container"))
;; to a server. Posts are associated with the "page" and
;; not with a CLOG connection, so are not ideal.
(fcontainer (create-div data-area :class "w3-container"))
(tmp (create-section fcontainer :h2 :content "Post Form"))
(tmp (create-br fcontainer))
(form1 (create-form fcontainer :method :post :action "/page2"))
@ -30,11 +32,13 @@
(fsubmit (create-form-element form1 :submit))
(tmp (create-br fcontainer))
(tmp (create-hr body))
(tmp (create-hr data-area))
;; This is a traditional "put" form that will submit data
;; to a server.
(fcontainer (create-div body :class "w3-container"))
;; This is a traditional "get" form that will submit data
;; to a server. While also associated with the page and
;; not with the CLOG connection, you can get the URL from
;; browser and parse put out the results easily.
(fcontainer (create-div data-area :class "w3-container"))
(tmp (create-section fcontainer :h2 :content "Get Form"))
(tmp (create-br fcontainer))
(form2 (create-form fcontainer :method :get :action "/page3"))
@ -43,11 +47,11 @@
(fsubmit (create-form-element form2 :submit))
(tmp (create-br fcontainer))
(tmp (create-hr body))
(tmp (create-hr data-area))
;; This is a CLOG style form, instead of submitting data
;; to another page it is dealt with in place.
(fcontainer (create-div body :class "w3-container"))
(fcontainer (create-div data-area :class "w3-container"))
(tmp (create-section fcontainer :h2 :content "CLOG Style Form"))
(tmp (create-br fcontainer))
(form3 (create-form fcontainer))
@ -56,22 +60,37 @@
(fsubmit3 (create-form-element form3 :submit))
(tmp (create-br fcontainer))
(tmp (create-hr body))
(tmp (create-hr data-area))
(footer (create-section body :footer :class "w3-container w3-theme"))
(tmp (create-section footer :p :content "(c) All's well that ends well")))
(set-on-click fsubmit3
(lambda (obj)
(setf (hiddenp data-area) t)
(place-before footer
(create-div body :content (format nil "yourname3 = ~A or ~A"
(name-value form3 "yourname3")
(value finput3)))))))
(create-div body
:content (format nil "yourname3 = using NAME-VALUE ~A or VALUE ~A"
(name-value form3 "yourname3")
(value finput3)))))))
(run body))
;; Globals are used as the post data is delivered in parallel to the new
;; page being loaded. If one must use the post method, they will need
;; a more elaborate scheme of hidden fields and synchroniaztion.
(defvar *uri* nil)
(defvar *params* nil)
(defun on-post (uri params)
(setf *uri* uri)
(setf *params* params))
(defun on-page2 (body)
(create-db body :content "POST currently unsupported to a CLOG server app.")
(create-div body :content *uri*)
(create-div body :content *params*)
(create-div body :content (format nil "yourname = ~A"
(cdr (assoc "yourname" *params* :test #'equalp))))
(run body))
(defun on-page3 (body)
@ -85,6 +104,7 @@
"Start turtorial."
(initialize #'on-index)
(clog-connection:set-on-post #'on-post)
(set-on-new-window #'on-page2 :path "/page2")
(set-on-new-window #'on-page3 :path "/page3")
(open-browser))