Unfortunately, this documents only dealing with URL parameters, AKA GET parameters. Others are invited and encouraged to contribute documentation for POST.
The relevant code is in "url.lisp"
Note that you should use inexact matching on your handlers in order to receive GET parameters. Otherwise, your handlers will never be matched!
To obtain all parameters, use URL-QUERY-ALIST
(defmethod handle-request-response ((handler my-handler) method request) ; let's say the request is "http://example.com/my/handler?foo=1;bar=12" (let ((params (url-query-alist (request-url request)))) insert-code-here))
Params would now look like:
'(("foo" "1")("bar" "12"))
To improve clarity in your code, or because you just want one or two parameters, consider using URL-QUERY-PARAM
(defmethod handle-request-response ((handler my-handler) method request) ; let's say the request is "http://example.com/my/handler?foo=1;bar=12" (let ((foo (url-query-param (request-url request) "foo")) (bar (url-query-param (request-url request) "bar"))) insert-code-here))
It's important to note that the values will be returned as strings.
If you pass :case-sensitive f to URL-QUERY-PARAM, the key will be matched without regard to case. This is best to use when you can.
Lastly, there is a convenience macro WITH-URL-PARAMS
(with-url-params (foo bar) (request-url request) (format nil "Foo: ~A, Bar: ~A" foo bar))
When there is no parameter, the value is nil.
To help prevent errors (and help close some security holes), the above functions have tainted equivalents. CL-TAINT is a package developed by Alan Shields and is included with Araneida. Taint wraps a value in a lambda, preventing it from being used directly - you must untaint it first.
CL-USER> (setf x "5") "5" CL-USER> x "5" CL-USER> (setf y (taint "5")) #<CLOSURE (LAMBDA ()) {5082C97D}> CL-USER> y #<CLOSURE (LAMBDA ()) {5082C97D}> CL-USER> (untaint #'parse-integer y) 5
WITH-URL-PARAMS has an equivalent WITH-TAINTED-URL-PARAMS. Absent values (nils) are untainted.
By defining your own untainting functions, you can make sure that only proper values are used.
The tainted versions are TAINTED-URL-QUERY-ALIST and TAINTED-URL-QUERY-PARAM. They have the same argument list - the only difference is that the values are returned tainted.
If you wish to be warned when you use untainted calls, set araneida:*warn-when-using-untainted-values* to a true value. This will cause a USING-UNTAINTED-VALUES condition (a warning) to be signaled whenever untainted calls are used.
In addition, there is also the urlmethod system. The idea is to have generic-method-like functions for URL parameters that, in addition to binding parameters to variable names, allows dispatch based upon the parameters.
A simple example should clarify. Given:
(defurlmethod foo-method (handler method request &key (foo "foo default") (bar "bar default")) (format nil "foo: ~A bar: ~A" foo bar)) (defmethod handle-request-response ((handler my-handler) method request) (request-send-headers request) (html-stream (request-stream request) `(html (p ,(foo-method handler method request)))))
And that "http://example.com/method" is bound to MY-HANDLER, then the request "http://example.com/method?foo=myfoo&bar=mybar" will yield "foo: myfoo bar: mybar".
The request "http://example.com/method" would yield "foo: foo default bar: bar default".
While this accomplishes a large part of what people want with URL parameters, there is More!
Let's say, rather than the above definition of FOO-METHOD, you had:
(defurlmethod foo-method (handler method request &key (foo "foo default") (bar "bar default")) (format nil "foo: ~A bar: ~A" foo bar)) (defurlmethod foo-method (handler method request &require state &key (foo "foo default") (bar "bar default")) (format nil "My, aren't we in a state? state = ~A, foo = ~A, bar = ~A" state foo bar))
While "http://example.com/method" and "http://example.com/method?foo=myfoo&bar=mybar" would return exactly as before, the request "http://example.com/method?state=anystate" would yield "My, aren't we in a state? state = anystate, foo = foo default, bar = bar default". In other words, if state was present at all then the second method gets called.
While that is useful, let's do something a bit more realistic: (defurlmethod say-hello (handler method request &key (from "me")) (format nil "Hello to the world from ~A" from)) (defurlmethod say-hello (handler method request &require language) (format nil "I'm sorry, I don't recognize language ~A." language)) (defurlmethod say-hello (handler method request &require (language (string-equal "horriblespanish")) &key (from "yo")) (format nil "Hola al mundo de ~A" from)) (defurlmethod say-hello (handler method request &require (language (string-equal "poorlyspelledthai"))) (format nil "Soa ti"))
This says a plain hello world message (with an optional "from" specifier), unless you specify a language. If it's an unknown language, it tells you so.
As you see, you can start to do some interesting things here. Imagine a multi-stage form or sequence of forms.
There is one other feature to be aware about: function parameters. If you want to pass parameters that are not URL parameters, you can do so, just put them after the handler, method, and request and before a &key or &request.
(defurlmethod my-method (handler method request x y &key foo) ;dosomething )Please note that the number of function parameters must be the same across all methods of the same name.
Lastly, if you wish to have the parameters within the method be tainted parameters, declare the method as deftaintedurlmethod. The parameters will NOT be tainted in the lambda list but WILL be tainted within the body.
Information on how a method is chosen from amongst the methods is detailed in defurlmethod.lisp.