tcp_server_sup

tcp_server_sup.erl

-module(tcp_server_sup).
-author('yongboy@gmail.com').
-behaviour(supervisor).
-export([start_link/1, start_child/0]).
-export([init/1]).
-define(SERVER, ?MODULE).

start_link(LSock) ->
    supervisor:start_link({local, ?SERVER}, ?MODULE, [LSock]).

start_child() ->
    supervisor:start_child(?SERVER, []).

init([LSock]) ->
    Server = {tcp_server_handler, {tcp_server_handler, start_link, [LSock]},
              temporary, brutal_kill, worker, [tcp_server_handler]},
    Children = [Server],
    RestartStrategy = {simple_one_for_one, 0, 1},
    {ok, {RestartStrategy, Children}}.