The tcp server of Erlang.

tcp_server.erl

-module(tcp_server).

-compile(export_all).


start(Port) ->
	Pid = spawn_link(fun()->
		{ok, ListenSocket} = gen_tcp:listen(Port, [binary, {active, false}]),
		spawn(fun() -> acceptor(ListenSocket) end),
		timer:sleep(infinity)
		end),
	{ok, Pid}.

acceptor(ListenSocket) ->
	{ok, Socket} = gen_tcp:accept(ListenSocket),
	spawn(fun() -> acceptor(ListenSocket) end),
	handle(Socket).

handle(Socket) ->
	inet:setopts(Socket, [{active, once}]),
	receive
		{tcp, Socket, <<"quit", _/binary>>} ->
			gen_tcp:close(Socket);
		{tcp, Socket, Message} ->
			gen_tcp:send(Socket, Message),
			handle(Socket)
	end.