-module(reverser).
-export([start/1]). 

handle_connection(ClientSock) ->
	case gen_tcp:recv(ClientSock, 0) of
		{ok, Stuff} ->
			gen_tcp:send(ClientSock, lists:reverse(Stuff)),
			handle_connection(ClientSock);
		{error, Reason} ->
			exit(Reason)
	end.

server_accept(ServerSock) ->
	{ok, ClientSock} = gen_tcp:accept(ServerSock),
	Pid = spawn(fun() -> handle_connection(ClientSock) end),
	gen_tcp:controlling_process(ClientSock, Pid),
	server_accept(ServerSock).

start(Port) ->
	{ok, ServerSock} = gen_tcp:listen(Port, [list, {active, false}]),
	spawn(fun() -> server_accept(ServerSock) end).