discorelic

defmodule Discorelic do
  @moduledoc """
    Entry point for Discorelic OTP application.
  """

  use Application
  require Discorelic.Transaction

  @doc """
    Application callback to start Discorelic.
  """
  @spec start(Application.app, Application.start_type) :: :ok | { :error, term }
  def start(_type \\ :normal, _args \\ []) do
  import Supervisor.Spec, warn: false

  children = [
    worker(:statman_server, [ 1000 ]), # TODO configure pool timing
    worker(:statman_aggregator, []),
  ]

  opts   = [ strategy: :one_for_one, name: Discorelic.Supervisor ]
  result = Supervisor.start_link(children, opts)

  :ok = :statman_server.add_subscriber(:statman_aggregator)

  if (app_name = Application.get_env(:discorelic, :application_name)) && (license_key = Application.get_env(:discorelic, :license_key)) do

    Application.put_env(:newrelic, :application_name, to_char_list(app_name))
    Application.put_env(:newrelic, :license_key, to_char_list(license_key))

    {:ok, _} = :newrelic_poller.start_link(&:newrelic_statman.poll/0)
  end

  result
  end

  @doc false
  @spec configured? :: boolean
  def configured? do
    Application.get_env(:new_relixir, :application_name) != nil && Application.get_env(:new_relixir, :license_key) != nil
  end
end