exsms

defmodule Exsms do
  require Logger

  def send(service, payload) do
    case check_service(service) do
      :true ->
        process_response_body(service, payload)
      :false ->
        {:error, "Service Not Found"}
    end
  end

  def process_response_body(service, body) do
    config = serviceconfig(service)
    headers = auth_headers(service, config)
    build_payload(config, service, body)
    |> Poison.encode
    |> case  do
      {:ok, payload} ->
        request(config[:type], config[:url], payload, headers)
      {:error, error} ->
        {:error, error}
    end
  end

  def build_payload(config, service, payload) do
    case service do
      :textlocal ->
        %{
          apiKey: config[:api],
          numbers: payload[:to],
          message: payload[:message],
          sender: payload[:sender]
        }
      :mailjet ->
        %{
          To: payload[:to],
          Text: payload[:message],
          From: payload[:sender]
        }
      :sendinblue->
        %{
          recipient: payload[:to],
          content: payload[:message],
          sender: payload[:sender]
        }
    end
  end

  def auth_headers(service, config) do
    case service do
      :sendinblue ->
        [{"api-key", config[:api]}, {"Content-Type", "application/json"}]
      :mailjet ->
        [{"Authorization", "Bearer " <> config[:api]}, {"Content-Type", "application/json"}]
      :textlocal->
        []
    end
  end

  def serviceconfig(service) do
    case service do
      :sendinblue ->
        %{url: "https://api.sendinblue.com/v3/transactionalSMS/sms", type: :post}
      :mailjet ->
        %{url: "https://api.mailjet.com/v4/sms-send", type: :post}
      :textlocal ->
        %{url: "https://api.textlocal.in/send/", type: :post}
      _ ->
        "Service Not Found"
    end
  end

  defp check_service(service) do
    case service do
      service when service in [:sendinblue, :mailjet, :textlocal] ->
        :true
      _ ->
        :false
    end
  end

  def request(method, url, body, headers) do
    url = String.to_charlist(url)

    Logger.debug "exsms - Method - #{inspect method}"
    Logger.debug "exsms - Url - #{inspect url}"
    Logger.debug "exsms - Body - #{inspect body}"
    Logger.debug "exsms - Headers - #{inspect headers}"

    HTTPoison.request(method,url, body, headers)
    |> normalise_response
  end

  defp normalise_response(response) do
    Logger.debug "exsms - #{inspect response}"
    case response do
      {:ok, %HTTPoison.Response{body: body}} ->
          {:ok, body}
      {:error, %HTTPoison.Error{reason: reason}} ->
        {:error, reason}
    end
  end
end