(no commit message)

diff --git a/doc/protocole3.txt b/doc/protocole3.txt
index c3c2e6a..fdb68df 100644 (file)
--- a/doc/protocole3.txt
+++ b/doc/protocole3.txt
@@ -148,21 +148,24 @@ Le format de la date n'est pas formel.
    {\r
       "reply" : "new_messages",\r
       "conversations" : [\r
    {\r
       "reply" : "new_messages",\r
       "conversations" : [\r

-         "last_page" : true | false,\r
-         "messages" : [\r
-            "id" : 54,\r
-            "date" : "Hier 17:26:54",\r
-            "system" : true | false,\r
-            "owner" : true | false,\r
-            "answered" : true | false,\r
-            "is_a_reply" : true | false,\r
-            "nick" : "Paul",\r
-            "login" : "paul_22",\r
-            "content" : "Salut",\r
-            "answer_to" : [\r
-               { "id" : 123, "pseudo" : "Pierre", "login" : "pierre_45" }\r
+         {\r
+            "last_page" : true | false,\r
+            "messages" : [\r
+               "id" : 54,\r
+               "date" : "Hier 17:26:54",\r
+               "system" : true | false,\r
+               "owner" : true | false,\r
+               "answered" : true | false,\r
+               "is_a_reply" : true | false,\r
+               "nick" : "Paul",\r
+               "login" : "paul_22",\r
+               "content" : "Salut",\r
+               "answer_to" : [\r
+                  { "id" : 123, "pseudo" : "Pierre", "login" : "pierre_45" }\r
+               ]\r

             ]\r
             ]\r

-         ]\r
+         }\r
+         ...\r

       ]\r
    }
 ou\r
       ]\r
    }
 ou\r

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 40af2ea..4eed84d 100755 (executable)
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -115,29 +115,17 @@ wait_event(
    end,
    {Main_page, _} = lists:keysearch(main_page, 1, Reste),
    {{array, Conversations_json}, _} = lists:keysearch(conversations, 1, Reste),
    end,
    {Main_page, _} = lists:keysearch(main_page, 1, Reste),
    {{array, Conversations_json}, _} = lists:keysearch(conversations, 1, Reste),

-   User = euphorik_minichat:user_by_cookie(Cookie),
-   
-   
-   % TODO....
-   
-
-\r
-   simple_xml_to_string(
-      case xmerl_xpath:string("nombreMessage", Action) of % le nombre de message qu'affiche le client
-         [#xmlElement{content = [#xmlText{value = Nb_message_str}]}] ->         
-            Nb_message = list_to_integer(Nb_message_str),
-            Dernier_id = case xmerl_xpath:string("dernierMessageId", Action) of % l'id du dernier message que connait le client
-               [#xmlElement{content = [#xmlText{value = D}]}] -> erlang:list_to_integer(D, 36);
-               _ -> 0
-            end,
-            User = case xmerl_xpath:string("cookie", Action) of 
-               [#xmlElement{content = [#xmlText{value = Cookie}]}] ->
-                  case euphorik_minichat:user_by_cookie(Cookie) of
-                     {ok, U} -> U;
-                     _ -> inconnu
-                  end;
-               _ -> inconnu
-            end,\r
+   User = case euphorik_minichat:user_by_cookie(Cookie) of\r
+      {ok U} -> U;\r
+      _ -> inconnu\r
+   end,\r
+   {stuct, [\r
+      {reply, "new_message"},\r
+      {conversations, {array,\r
+         TODO ...\r
+      }   \r
+   ]}
+   \r

             % accrochez-vous ca va siouxer ;)
             [{reponse, [{name, "refreshMessages"}],\r
                lists:map(\r
             % accrochez-vous ca va siouxer ;)
             [{reponse, [{name, "refreshMessages"}],\r
                lists:map(\r


@@ -273,7 +261,7 @@ format_date(Date) ->
 %%%%%%%%% <Réponses JSON> %%%%%%%%%
 
 json_reponse_ok() ->
 %%%%%%%%% <Réponses JSON> %%%%%%%%%
 
 json_reponse_ok() ->

-   {struct, [{status, "ok"}]}.
+   {struct, [{reply, "ok"}]}.

    
 
 % Construit une réponse positive à un login
    
 
 % Construit une réponse positive à un login