Next: , Previous: , Up: Fetching from an HTTP server   [Contents][Index]

1.1.2 Using web response procedures

In Guile-2.0 there (web response) module can be used to help interpret the response from an HTTP server. The module has many procedures for the proper parsing of the HTTP header. But since (web response) was written to expect data from Guile’s internal HTTP client (web client), we need to do some simple gymnastics to convince it that the Curl-fetched data is as good as the (web client)-fetched data.

First, we need to fetch both the HTTP headers as well as the body. To do this, the curl-easy-setopt option 'header must be #t. When this option is set, the HTTP headers are pre-pended to the body.

Second, we need to create a string port from the response.

;; This code requires Guile-2.0+
(use-modules (curl)
             (web response)
             (ice-9 pretty-print)
             (rnrs bytevectors))

(setlocale LC_ALL "")

;; Create a Curl handle
(let ((handle (curl-easy-init)))

  ;; Set the URL from which to get the data
  (curl-easy-setopt handle 'url "")

  ;; Request that the HTTP headers be included in the response
  (curl-easy-setopt handle 'header #t)

  ;; Get the result as a Latin-1 string
  (let* ((response-string (curl-easy-perform handle))

         ;; Create a string port from the response
         (response-port (open-input-string response-string))

         ;; Have the (web response) module to parse the response
         (response (read-response response-port))

         ;; Have the (web response) module extract the body from the
         ;; response
         (response-body (read-response-body response)))

    ;; Display the unpacked HTTP headers
    (display "Response header ----------")
    (write response)

    ;; Display information about the HTTP body
    (format #t "The body contains ~a bytes~%"
            (bytevector-length response-body))
    (format #t "The body is of type ~A~%"
            (car (response-content-type response)))
    (format #t "The encoding of the body is ~A~%"
            (assoc-ref (response-content-type response) 'charset))))

Next: , Previous: , Up: Fetching from an HTTP server   [Contents][Index]