Js_of_ocaml - Ошибка при получении куки

Question

Я XmlHttpRequest для того, чтобы сделать http-запрос, и я хочу получить куки. Код для получения куки:

let http_post url =
  XmlHttpRequest.perform_raw_url
    ~post_args:[("login", `String (Js.string "foo"));
                ("password", `String (Js.string "bar"))]
    url >>= fun r -> 
  let code = r.XmlHttpRequest.code in
  let msg = r.XmlHttpRequest.content in
  let cookie = match r.XmlHttpRequest.headers "Set-Cookie" with
  | None -> "Empty Cookie"
  | Some s -> s in 
  if code = 0 || code = 200
  then Lwt.return (msg,cookie)

let make_test_request id =
  let button = get_element_by_id id in
  button##onclick <- (Html.handler (fun _ ->
      http_post "www.website.com" >>=
      (fun (msg,cookie) ->
         Printf.printf "cookie = %s\n" cookie;
         Html.document##cookie <- Js.string cookie;
         Printf.printf "s = %s\n" msg;
         Lwt.return());
      Js._true))

Файлы cookie должны быть в заголовках, и я получаю эту ошибку: отказался получить небезопасный заголовок "Set-Cookie"

Это способ, которым я неправильно получаю файлы cookie или проблема с моим веб-браузером (я использую хром)?

Answer 1

http://www.w3.org/TR/XMLHttpRequest/

клиент getResponseHeader(header) Возвращает значение поля заголовка, из ответа которого имя поля соответствует заголовку, если только именем поля не является Set-Cookie или Set-Cookie2.

ответы в разделе Почему файлы cookie и заголовки файлов cookie не могут быть установлены при создании xmlhttprequest с использованием setRequestHeader?