soa

defmodule Soap.Request.Headers do
  @moduledoc """
  Headers generator by soap action and custom headers.

  ## Examples

      iex> {:ok, wsdl} = Fixtures.get_file_path("wsdl/SendService.wsdl") |> Soap.init_model(:file)
      ...> Soap.Request.Headers.build(wsdl, "SendMessage", [])
      [{"SOAPAction", "com.esendex.ems.soapinterface/SendMessage"}, {"Content-Type", "text/xml;charset=utf-8"}]

  """

  def build(wsdl, operation, custom_headers) do
      wsdl |> extract_soap_action_by_operation(operation) |> extract_headers(custom_headers)
  end

  def extract_soap_action_by_operation(wsdl, operation) do
      Enum.find(wsdl[:operations], fn x -> x[:name] == operation end)[:soap_action]
  end

  def extract_headers(soap_action, []), do: base_headers(soap_action)
  def extract_headers(_, custom_headers), do: custom_headers

  def base_headers(soap_action) do
      [{"SOAPAction", soap_action}, {"Content-Type", "text/xml;charset=utf-8"}]
  end

end