bitcoin_de

defmodule BitcoinDe do
  use GenServer 
  require Logger
  alias BitcoinDe.ApiRequestBuilder, as: ApiRequestBuilder
  alias BitcoinDe.ApiRequest, as: ApiRequest

  @moduledoc """
  A Client for bitcoin.de
  """

  @doc """
  Start the connection to bitcoin.de
  ## Examples
      iex> BitcoinDe.start_link(self(), %BitcoinDe.Credentials{key: "xxxxx", secret: "xxxxx"})
      {:ok, #PID<0.204.0>}
  """
  def start_link(parent, credentials = %BitcoinDe.Credentials{}) do
    GenServer.start_link(__MODULE__, {parent, credentials}) 
  end

  def init(state) do
    {:ok, _} = HTTPoison.start
    {:ok, state}
  end

  def handle_call({method}, from, state) do
    handle_call({method, []}, from, state)
  end

  def handle_call({method, params}, _, state = {_, credentials}) do
    result = apply(ApiRequestBuilder, method, [credentials | params]) |> evaluate(state)
    {:reply, result, state}  
  end

  @spec evaluate(%ApiRequest{}, tuple) :: %HTTPoison.Response{}
  defp evaluate(api_request = %ApiRequest{method: :get}, {_, credentials}) do
    headers = [
      "X-API-KEY": credentials.key,
      "X-API-NONCE": api_request.nonce,
      "X-API-SIGNATURE": api_request.signature
    ]
    Logger.debug(api_request.uri)
    response = HTTPoison.get api_request.uri, headers, recv_timeout: 10000
    case response do
      {:ok, %HTTPoison.Response{status_code: 400, body: body}} ->
        {:err, Poison.decode!(body)}
      {:ok, %HTTPoison.Response{status_code: 200, body: body}} ->
        {:ok, Poison.decode!(body)}
    end
  end

  defp evaluate(api_request = %ApiRequest{method: :post}, {_, credentials}) do
    headers = [
      "Content-type": "application/x-www-form-urlencoded",
      "X-API-KEY": credentials.key,
      "X-API-NONCE": api_request.nonce,
      "X-API-SIGNATURE": api_request.signature
    ]
    Logger.debug(api_request.uri)
    IO.puts(api_request.uri)
    response = HTTPoison.post api_request.uri, {:form, api_request.url_query}, headers, [recv_timeout: 8000]
    case response do
      {:ok, %HTTPoison.Response{status_code: 400, body: body}} ->
        {:err, Poison.decode!(body)}
      {:ok, %HTTPoison.Response{status_code: 200, body: body}} ->
        {:ok, Poison.decode!(body)}
    end
  end
end