59 lines
1.5 KiB
Elixir
59 lines
1.5 KiB
Elixir
defmodule BDS.AI.HttpClient do
|
|
@moduledoc false
|
|
|
|
def get(url, headers) when is_binary(url) and is_map(headers) do
|
|
request =
|
|
{String.to_charlist(url),
|
|
Enum.map(headers, fn {key, value} ->
|
|
{String.to_charlist(key), String.to_charlist(value)}
|
|
end)}
|
|
|
|
:inets.start()
|
|
:ssl.start()
|
|
|
|
case :httpc.request(:get, request, [], body_format: :binary) do
|
|
{:ok, {{_version, status, _reason}, response_headers, body}} ->
|
|
{:ok,
|
|
%{
|
|
status: status,
|
|
headers: normalize_headers(response_headers),
|
|
body: body
|
|
}}
|
|
|
|
{:error, reason} ->
|
|
{:error, reason}
|
|
end
|
|
end
|
|
|
|
def post(url, headers, body)
|
|
when is_binary(url) and is_map(headers) and is_binary(body) do
|
|
request =
|
|
{String.to_charlist(url),
|
|
Enum.map(headers, fn {key, value} ->
|
|
{String.to_charlist(key), String.to_charlist(value)}
|
|
end), ~c"application/json", body}
|
|
|
|
:inets.start()
|
|
:ssl.start()
|
|
|
|
case :httpc.request(:post, request, [], body_format: :binary) do
|
|
{:ok, {{_version, status, _reason}, response_headers, response_body}} ->
|
|
{:ok,
|
|
%{
|
|
status: status,
|
|
headers: normalize_headers(response_headers),
|
|
body: response_body
|
|
}}
|
|
|
|
{:error, reason} ->
|
|
{:error, reason}
|
|
end
|
|
end
|
|
|
|
defp normalize_headers(headers) do
|
|
Enum.into(headers, %{}, fn {key, value} ->
|
|
{key |> to_string() |> String.downcase(), to_string(value)}
|
|
end)
|
|
end
|
|
end
|