Re: Questions about the (web client) module.

[Mark H Weaver <mhw@netris.org>]

Roel Janssen <roel@gnu.org> writes:

> Here's the entire code I use:
>
> (define* (sparql-query-post query
>                        #:key
>                        (host "localhost")
>                        (port 8890)
>                        (graph "")
>                        (type "json"))
>   (let ((base-uri (string-append "http://" host ":" (number->string port) ))
>         (boundary "guile-virtuoso-driver"))
>     (let ((body (string-append
>                  (format #f
>                   "--~a~%Content-Disposition: form-data; name=~s~%~%text/csv~%"
>                   boundary "format")
>                   (format #f
>                   "--~a~%Content-Disposition: form-data; name=~s~%~%~a~%--~a~%"
>                   boundary "query" query boundary))))
>       (http-post
>        (string-append base-uri "/sparql")
>        #:body body
>        #:headers `((content-length . ,(string-length body))

Another thing: you can omit the 'content-length' header here.  It will
be added automatically, and in fact the value you use here is incorrect
unless the body is ASCII-only, because it's supposed to be the length in
bytes, but here you are giving the length in characters.

      Mark