Data correctly extracted.

games/pong_bot_e/ggs_network.erl

@@ -5,24 +5,44 @@
 connect() ->
     {ok,Socket} = gen_tcp:connect("localhost", 9000,[{active, false}]),
     Socket.
+
+read(Socket) ->
+    Content = receive_content(Socket),
+    Headers = extract_headers(Content),
+    ContentSize = dict:fetch("Content-Size", Headers), 
+    ContentSizeI = list_to_integer(lists:nth(1, ContentSize)),
+    Data = receive_data(Socket, ContentSizeI, ""),
+    io:format("Headers: ~s~n", [Content]),
+    io:format("Data: ~s~n", [Data]),
+    received_command(Headers, Data).
     
+receive_content(Socket) ->
+    receive_content_(0, "", Socket).
     
-read(Message) ->
+receive_content_(Amount, Headers, Socket) ->
-    case Message of
+    {ok, Char1} = gen_tcp:recv(Socket, 1),
-    {ok, M} ->
+    case Char1 of
-        io:format("Message: ~n~n~s~n", [M]),
+        "\n" -> case Amount of
-        HeaderList = string:tokens(M, "\n"),
+                    1 -> Headers;
-        Headers = extract_headers(HeaderList),
+                    _ -> receive_content_(Amount + 1,
-        Data    = extract_data(HeaderList),
+                                         Headers ++ Char1, 
-        io:format("Data: ~s~n", [Data]),
+                                         Socket)
-        received_command(Headers, Data)
+                end;
+        _ -> receive_content_(0, Headers ++ Char1, Socket)
     end.
+                                        
+receive_data(_, 0, Headers) ->
+    Headers;
+receive_data(Socket, ContentSize, Headers) ->
+    {ok, Char} = gen_tcp:recv(Socket, 1),
+    receive_data(Socket, ContentSize - 1, Headers ++ Char).
 
 received_command(Headers, Data) ->
     {ok, CommandList} = dict:find("Client-Command", Headers),
     Command = lists:nth(1, CommandList), 
     case Command of
         "hello" ->
+            io:format("Set game token~n"),
             pong_bot:set_game_token(Data),
             send_command("ready", "");
         "defined" -> 
@@ -33,7 +53,9 @@ received_command(Headers, Data) ->
     end.
 
 make_message(ServerOrGame, Command, Args) ->
+    io:format("Before fetch gametoken~n"),
     GameToken = pong_bot:get_game_token(),
+    io:format("After fetch gametoken~n"),
     StrGameToken = string:concat("Token: ", GameToken),
     StrGameTokenln = string:concat(StrGameToken, "\n"),
     StrCommand = string:concat("-Command: ", Command),
@@ -65,20 +87,21 @@ list_concat([E|ES],Ret) ->
 
 
 extract_headers(Source) -> 
-    key_value_strings_to_dict(Source).
+    HeaderList = string:tokens(Source, "\n"),
+    key_value_strings_to_dict(HeaderList).
 
 
-extract_data([]) ->
+%extract_data([]) ->
-    [];
+%    [];
-extract_data([E|ES]) ->
+%extract_data([E|ES]) ->
-    io:format("~n~s~n", [E]),
+%    io:format("~n~s~n~n~n~n", [E]),
-    KeyValueList = key_value_string_to_list(E),
+%    KeyValueList = key_value_string_to_list(E),
-    case length(KeyValueList) of
+%    case length(KeyValueList) of
-        2 ->
+%        2 ->
-            extract_data(ES);
+%            extract_data(ES);
-        _ ->
+%        _ ->
-            E
+%            E
-    end.
+%    end.
 
 
 %%%Low-level internals.%%%

games/pong_bot_e/pong_bot.erl

@@ -13,9 +13,13 @@ start_link() ->
     spawn(fun() -> game_loop() end ).
 
 communication_loop(Socket) ->
-    A = gen_tcp:recv(Socket, 0),
+    ggs_network:read(Socket),
-    ggs_network:read(A),
     communication_loop(Socket).
+    
+    
+  %  A = gen_tcp:recv(Socket, 0),
+   % ggs_network:read(A),
+    %communication_loop(Socket).
 
 
 peek_socket() ->