client1-old

%% @author kauff
%% @doc @todo Add description to client1.

-module(client1).

%% ====================================================================
%% API functions
%% ====================================================================
-export([connect/0, connect/1, send/2]).
-define(TCP_OPTIONS, [binary, {packet, 0}, {active, false}, {reuseaddr, true}]).

connect () -> connect(8080).
connect (Port) ->
		{ok, Socket} = gen_tcp:connect("localhost", Port, ?TCP_OPTIONS),
		io:format("Joining...~n"),
		spawn(fun() -> recv(Socket) end).

send(Socket, Msg) ->
		Bin = term_to_binary(Msg),
		gen_tcp:send(Socket, Bin).
		
recv(Socket) ->
	case gen_tcp:recv(Socket, 0) of
		{ok, Answer} ->
				io:format("Received: ~p~n", [Answer]),
				recv(Socket);
		Other ->
				io:format("Error:~w~n", [Other])
	end.