On 03/21/2013 02:41 PM, Peter Kuchta wrote:
> Hi everybody,
>
> I'm trying to POST some JSON data to a web service:
>
> (ql:quickload :st-json)
> (ql:quickload :cl-json)
> (ql:quickload :drakma)
>
> (defvar *rc* (merge-pathnames (user-homedir-pathname) ".apirc"))
>
> (defvar *user*
> (with-open-file (s *rc*)
> (st-json:read-json s)))
>
> (defvar api-url (st-json:getjso "url" *user*))
> (defvar api-key (st-json:getjso "key" *user*))
> (defvar api-email (st-json:getjso "email" *user*))
>
> (setf drakma:*header-stream* *standard-output*)
>
> (defvar *req* '(("dataset" . "tigge")
> ("step" . "24")
> ("date" . "20071001")
> ("time" . "00")
> ("origin" . "all")))
>
> (format t "json:~S~%" (json:encode-json-to-string *req*))
>
> (defun retrieve (api request)
> (let* ((cookie-jar (make-instance 'drakma:cookie-jar))
> (extra-headers (list (cons "From" api-email)
> (cons "X-API-KEY" api-key)))
> (url (concatenate 'string api-url api "/requests"))
> (stream (drakma:http-request url
> :additional-headers extra-headers
> :accept "application/json"
> :method :post
> :content-type "application/json"
> :external-format-out :utf-8
> :external-format-in :utf-8
> :redirect 100
> :cookie-jar cookie-jar
> :content (json:encode-json-to-string request)
> :want-stream t)))
> (st-json:read-json stream)))
>
> (retrieve "/datasets/tigge" *req*)
>
> Unfortunately, I get an error, although the data seems to be encoded OK
> to JSON and the headers generated by drakma too, I think. Apparently
> something is wrong with the :content (the list of integers in the errors
> message is just the list of ASCII codes of the JSON encoded data).
>
>
> json:"{\"dataset\":\"tigge\",\"step\":\"24\",\"number\":\"all\",\"levtype\":\"sl\",\"date\":\"20071001\",\"time\":\"00\",\"origin\":\"all\",\"type\":\"pf\",\"param\":\"tp\",\"area\":\"70\\/-130\\/30\\/-60\",\"grid\":\"2\\/2\",\"target\":\"data.grib\"}"
>
> POST /v1/datasets/tigge/requests HTTP/1.1