You can still dispatch on request method but you have to write a few
lines of code.
Did you look at the /info test example that comes with HT? Look at the
7th line of the table produced by this test URL. All the information
is there that you need in order to perform a branch on request method.
::: URL: /localhost/info?abc=123
Information Page
This page has been called once since its handler was compiled.
Some Information provides about this request:
(HUNCHENTOOT:HOST)
"localhost:8088"
(HUNCHENTOOT:ACCEPTOR-ADDRESS WEB::*SERVER*)
NIL
(HUNCHENTOOT:ACCEPTOR-PORT WEB::*SERVER*)
8088
(HUNCHENTOOT:REMOTE-ADDR*)
"127.0.0.1"
(HUNCHENTOOT:REMOTE-PORT*)
55593
(HUNCHENTOOT:REAL-REMOTE-ADDR)
"::1",
("::1")
(HUNCHENTOOT:REQUEST-METHOD*)
:GET
(HUNCHENTOOT:SCRIPT-NAME*)
"/info"
(HUNCHENTOOT:QUERY-STRING*)
"abc=123"
(HUNCHENTOOT:GET-PARAMETERS*)
(("abc" . "123"))
(HUNCHENTOOT:HEADERS-IN*)
((:HOST . "localhost:8088")
(:USER-AGENT
. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.13)
Gecko/20101206 Ubuntu/10.10 (maverick) Firefox/3.6.13")
(:ACCEPT . "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
(:ACCEPT-LANGUAGE . "en-us,en;q=0.5") (:ACCEPT-ENCODING . "gzip,deflate")
(:ACCEPT-CHARSET . "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
(:COOKIE . "hunchentoot-session=1%3A6B0FCEA500DFA94C56F6273D56006E9D")
(:AUTHORIZATION . "Basic bG91OjEyM2E=") (:X-FORWARDED-FOR . "::1")
(:X-FORWARDED-HOST . "localhost") (:X-FORWARDED-SERVER . "::1")
(:CONNECTION . "Keep-Alive"))
(HUNCHENTOOT:COOKIES-IN*)
(("hunchentoot-session" . "1:6B0FCEA500DFA94C56F6273D56006E9D"))
(HUNCHENTOOT:USER-AGENT)
"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.13) Gecko/20101206
Ubuntu/10.10 (maverick) Firefox/3.6.13"
(HUNCHENTOOT:REFERER)
NIL
(HUNCHENTOOT:REQUEST-URI*)
"/info?abc=123"
(HUNCHENTOOT:SERVER-PROTOCOL*)
:HTTP/1.1
On Tue, Mar 29, 2011 at 4:19 AM, Jim Barrows <jim.barrows@gmail.com> wrote:
> I have a uri "/my-uri", when a get request is made I want to return whatever
> information I have, and when a post request made, I want to update that
> information.
> I had thought that doing this:
> (define-easy-handler(get-business :uri "/business" :default-request-type
> :get)()
> (with-html-output-to-string (*standard-output* nil :prologue nil :indent t)
> (format t "{\"success\":true, \"data\": ~a}"
> (encode-json-plist-to-string (business::find-business)))))
> (define-easy-handler(post-business :uri "/business" :default-request-type
> :post) (business-name)
> (with-html-output-to-string( *standard-output* nil :prologue nil :indent t)
> (format t "post-business - ~a" business-name)))
> would accomplish that. However, the second handler is always called, for
> the get and the post.
> I'm new to Lisp, and was wondering what I'm missing.
> Any help would be greatly appreciated.
> --
> James A Barrows
>
>
> _______________________________________________
> tbnl-devel site list
> tbnl-devel@common-lisp.net
> http://common-lisp.net/mailman/listinfo/tbnl-devel
>
_______________________________________________
tbnl-devel site list
tbnl-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/tbnl-devel