example.erl

%% connection/1
%%==============================================================================
%% There are two common idioms I've found for this.  (A) This function spawns a
%% handler loop and then recuses on itself.  (B) This function spawns another of
%% itself and calls the handler loop.  (A) makes more sense for the socket close
%% handling to be sure that it's getting done.
connection(Listen, ClientListPid) ->

    % Accept a connection and set it up for incoming connections
    {ok, Socket} = gen_tcp:accept(Listen),
    inet:setopts(Socket, ?TCP_OPTS),

    % Start up another handler.
    spawn(fun() -> connection(Listen) end),

    % Inform the client_list of a new client and start the handler loop
    Client = #client{port_pid = self()},
    ClientListPid ! {new, Client},
    receive_loop(Socket),
    gen_tcp:close(Socket).