summaryrefslogtreecommitdiff
path: root/lib/chessh/application.ex
blob: 5538e39a49cea355b971257cad934148c411ecfd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
defmodule Chessh.Application do
  alias Chessh.{PlayerSession, Node}
  use Application

  def initialize_node() do
    # If we have more than one node running the ssh daemon, we'd want to ensure
    # this is restarting after every potential crash. Otherwise the player sessions
    # on the node would hang.

    # User session also need to be cleaned up after the node exits the pool for
    # the same reason.
    node_id = System.fetch_env!("NODE_ID")
    Node.boot(node_id)
    PlayerSession.delete_all_on_node(node_id)
  end

  def start(_, _) do
    children = [
      Chessh.Repo,
      Chessh.SSH.Daemon,
      Plug.Cowboy.child_spec(
        scheme: :http,
        plug: Chessh.Web.Endpoint,
        options: [port: Application.get_env(:chessh, Web)[:port]]
      )
    ]

    opts = [strategy: :one_for_one, name: Chessh.Supervisor]

    with {:ok, pid} <- Supervisor.start_link(children, opts) do
      initialize_node()
      {:ok, pid}
    end
  end
end