defmodule Ravix.Connection.RequestExecutor do
  @moduledoc false
  use GenServer

  require Logger
  require OK

  alias Ravix.Connection
  alias Ravix.Connection.ServerNode
  alias Ravix.Connection.RequestExecutor
  alias Ravix.Connection.RequestExecutor.Client
  alias Ravix.Connection.State, as: ConnectionState

  def init(%ServerNode{} = node) do
    Logger.debug(
      "[RAVIX] Creating a connection to node '#{inspect(node.url)}:#{inspect(node.port)}' for store '#{inspect(node.store)}'"
    )

    case RequestExecutor.Client.build(node) do
      {:ok, node} -> {:ok, node}
      {:error, err} -> {:stop, err}
    end
  end

  @spec start_link(ServerNode.t()) :: :ignore | {:error, any} | {:ok, pid}
  def start_link(%ServerNode{} = node) do
    GenServer.start_link(
      __MODULE__,
      node,
      name: executor_id(node.url, node.database)
    )
  end

  def execute(
        command,
        %ConnectionState{} = conn_state,
        headers \\ []
      ) do
    headers =
      if conn_state.topology_etag != nil and conn_state.disable_topology_updates == false do
        headers ++ [{"Topology-Etag", Integer.to_string(conn_state.topology_etag)}]
      else
        headers
      end

    case call_raven(conn_state, command, headers) do
      {:ok, result} ->
        {:ok, result}

      {:error, err} when err in [:not_found, :conflict] ->
        {:error, err}

      {_, response} ->
        Logger.error("[RAVIX] Error: #{inspect(response)}")
        {:error, response}
    end
  end

  @doc """
  Fetches the current node executor state
  ## Parameters
  pid = The PID of the node
  ## Returns
  - `{:ok, Ravix.Connection.ServerNode}` if there's a node
  - `{:error, :node_not_found}` if there's not a node with the informed pid
  """
  @spec fetch_node_state(bitstring | pid) :: {:ok, ServerNode.t()} | {:error, :node_not_found}
  def fetch_node_state(pid) when is_pid(pid) do
    try do
      {:ok, pid |> :sys.get_state()}
    catch
      :exit, _ -> {:error, :node_not_found}
    end
  end

  @doc """
  Fetches the current node executor state
  ## Parameters
  url = The node url
  database = the node database name
  ## Returns
  - `{:ok, Ravix.Connection.ServerNode}` if there's a node
  - `{:error, :node_not_found}` if there's not a node with the informed pid
  """
  @spec fetch_node_state(binary, binary) :: {:ok, ServerNode.t()} | {:error, :node_not_found}
  def fetch_node_state(url, database) when is_bitstring(url) do
    try do
      {:ok, executor_id(url, database) |> :sys.get_state()}
    catch
      :exit, _ -> {:error, :node_not_found}
    end
  end

  @doc """
  Asynchronously updates the cluster tag for the current node
  ## Parameters
  - url: Node url
  - database:  Database name
  - cluster_tag: new cluster tag
  ## Returns
  - :ok
  """
  @spec update_cluster_tag(String.t(), String.t(), String.t()) :: :ok
  def update_cluster_tag(url, database, cluster_tag) do
    GenServer.cast(executor_id(url, database), {:update_cluster_tag, cluster_tag})
  end

  defp call_raven(conn_state, command, headers) do
    OK.for do
      result <-
        Client.request(
          conn_state,
          command,
          headers
        )

      result <- parse_result(result, conn_state)
    after
      result
    end
  end

  # credo:disable-for-next-line
  defp parse_result(response, %ConnectionState{} = conn_state) do
    case response do
      %{status: 404} ->
        {:error, :document_not_found}

      %{status: 403} ->
        {:error, :unauthorized}

      %{status: 409} ->
        {:error, :conflict}

      %{status: 410} ->
        {:error, :node_gone}

      %{body: body} when is_map_key(body, "Error") ->
        {:error, body["Message"]}

      %{body: %{"IsStale" => true, "IndexName" => index_name}} = response ->
        case stale_is_error(conn_state.conventions, index_name) do
          true -> {:error, :stale}
          false -> {:ok, response}
        end

      error_response when error_response.status in [408, 502, 503, 504] ->
        parse_error(error_response)

      response ->
        {:ok, response}
    end
    |> check_if_needs_topology_update(conn_state)
    |> parse_body()
  end

  defp check_if_needs_topology_update({:ok, response}, %ConnectionState{} = conn_state) do
    case Enum.find(response.headers, fn header -> elem(header, 0) == "Refresh-Topology" end) do
      nil ->
        {:ok, response}

      _ ->
        Logger.info(
          "[RAVIX] The database requested a topology refresh for the store '#{inspect(conn_state.store)}'"
        )

        Connection.update_topology(conn_state.store)

        {:ok, response}
    end
  end

  defp check_if_needs_topology_update({error_kind, err}, _), do: {error_kind, err}

  defp parse_error(error_response) do
    {:error, error_response.body["Message"]}
  end

  defp executor_id(url, database),
    do: {:via, Registry, {:request_executors, url <> "/" <> database}}

  defp stale_is_error(%{stale_is_error: false} = conventions, index),
    do: Enum.member?(conventions.not_allowed_stale_indexes, index)

  defp stale_is_error(%{stale_is_error: true}, _),
    do: true

  defp parse_body({:ok, response}), do: {:ok, response.body}

  defp parse_body({:error, error}), do: {:error, error}

  def handle_cast({:update_cluster_tag, cluster_tag}, %ServerNode{} = node) do
    {:noreply, %ServerNode{node | cluster_tag: cluster_tag}}
  end
end