blob: 5730ee4321efb0454cf25b5b7ab0bc993adf4a7c (
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
|
defmodule Octochat.Acceptor do
@moduledoc """
Connection/socket accpetor
"""
@listen_port Application.get_env(:octochat, :port) || 9999
def accept do
{:ok, socket} = :gen_tcp.listen(
@listen_port,
[:binary, packet: :line, active: false, reuseaddr: true])
loop_acceptor(socket)
end
defp loop_acceptor(socket) do
{:ok, client} = :gen_tcp.accept(socket)
{:ok, pid} = Task.Supervisor.start_child(
Octochat.TaskSupervisor,
Octochat.Echo,
:serve,
[client])
:ok = :gen_tcp.controlling_process(client, pid)
loop_acceptor(socket)
end
end
|