401 authentication things

basic-auth.scm

(import (rfc http) (rfc base64))
(define (auth-handler hdrs)
  (print hdrs)
  (let ((msg "hoge:fuga"))
    ;; need to return a list of header and value
    `(("authorization" ,(format "Basic ~a" 
        			(utf8->string
				 (base64-encode (string->utf8 msg))))))))

(let-values (((code hdr body)
	      (http-get "localhost"
			"/secret.html"
			;; handler type
			:auth-handler auth-handler
			;; passing user password style
			;; this will dispatch the authentiction method
			;; according to the response header

			;; :auth-user "hoge" :auth-password "fuga"
			)))
  (print body))