aboutsummaryrefslogtreecommitdiff
path: root/shardweb/lib/shard_web/controllers/peer_controller.ex
blob: 0bf6ded0af1192f068c20f99b7dc53b241a421cc (plain) (blame)
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
defmodule ShardWeb.PeerController do
  use ShardWeb, :controller

  require Logger

  def add(conn, _params) do
    try do
      ip = conn.params["ip"]
      port = conn.params["port"]
      {:ok, ip_tuple} = case :inet.parse_address(to_charlist(ip)) do
        {:ok, tup} -> {:ok, tup}
        _ ->
          case :inet.gethostbyname(to_charlist(ip)) do
            {:ok, {:hostent, _, _, :inet, 4, [ip_tup | _]}} -> {:ok, ip_tup}
            _ -> :error
          end
      end
      {port_num, _} = Integer.parse port
      Shard.Manager.add_peer(ip_tuple, port_num)
    rescue
      _ -> nil
    end
    redirect conn, to: page_path(conn, :index)
  end
end