Как добавить заголовки Access-Control-Allow-Origin к файлу yaws?

Question

Я отправляю почтовый запрос на сервер YAWS, используя AJAX с другого порта / домена, но javascript возвращает это сообщение об ошибке:

XMLHttpRequest cannot load http://0.0.0.0:8000/index.yaws. Origin http://localhost is not allowed by Access-Control-Allow-Origin.

Теперь я понимаю, что мне нужно включить заголовки CORS в файл index.yaws, но я не знаю, как это сделать в Erlang,

Answer 1

Если вы хотите установить только localhost в качестве разрешенного источника вы можете попробовать код ниже. Обратите внимание, что он представляет результаты JSON, которые вы в настоящее время возвращаете с переменной YourJsonString,

out(Arg) ->
    Hdrs = yaws_api:arg_headers(Arg),
    case yaws_api:get_header(Hdrs, "Origin") of
        "localhost" ->
            [{header, {"Access-Control-Allow-Origin", "localhost"}},
             {html, YourJsonString}];
        _ ->
            {html, YourJsonString}
    end.