> Instead, you'd have to pass in an intarweb request object instead of an > URI, and construct the Authorization header yourself.
Code: (import (chicken base)) (import (chicken io)) (import http-client) (import intarweb) (import uri-common) (define url "http://localhost:12345") (define user "myuser") (define pass "mypass") (let* ((authorization-header `(authorization #(basic ((username . ,user) (password . ,pass))))) (request (make-request uri: (uri-reference url) headers: (headers (list authorization-header))))) (with-input-from-request request #f read-string)) Request: GET / HTTP/1.1 Authorization: Basic bXl1c2VyOm15cGFzcw== Host: localhost:12345 User-Agent: http-client/1.2 (CHICKEN Scheme HTTP-client)
signature.asc
Description: PGP signature