X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_requests.erl;h=5b3a6d2a01b5438d62e63012cf0f26a0672d7e2f;hp=a289f0dcaae40b792a536c36515946d809210e90;hb=897468be6fa01ab87f38189f2daf266f3289c9fb;hpb=0c375e90be7cb944c1724b78377ae23c2f2ee8ef

diff --git a/modules/erl/euphorik_requests.erl b/modules/erl/euphorik_requests.erl
index a289f0d..5b3a6d2 100755
--- a/modules/erl/euphorik_requests.erl
+++ b/modules/erl/euphorik_requests.erl
@@ -21,18 +21,19 @@ tester() ->
       %~ "</action>"),
    %~ io:format("Nouvel user : ~p~n", [nouveau_user(XML)]).
    
-   {XML2, _} = xmerl_scan:string(
-      "<action name=\"login\">"
-      "  <cookie>5DZQ2HCRO7JIX3QCSWRNL</cookie>"
-      "</action>"),
-   io:format("Login : ~p~n", [euphorik_protocole:login(XML2)]).
-   
-   %~ {XML, _} = xmerl_scan:string(
-      %~ "<action name=\"refreshMessages\">"
-      %~ "<nombreMessage>5</nombreMessage>"
-      %~ "<page>1</page>"
+   %~ {XML2, _} = xmerl_scan:string(
+      %~ "<action name=\"login\">"
+      %~ "  <cookie>5DZQ2HCRO7JIX3QCSWRNL</cookie>"
       %~ "</action>"),
-   %~ io:format("Messages de la premières page : ~p~n", [euphorik_protocole:refreshMessage(XML)]).
+   %~ io:format("Login : ~p~n", [euphorik_protocole:login(XML2)]).
+   
+   XML =
+      "<action name=\"refreshMessages\">"
+      "<nombreMessage>2</nombreMessage>"
+      "<page>1</page>"
+      "<conversation><racine>3</racine><page>1</page></conversation>"
+      "</action>",
+   io:format("Messages de la premières page : ~p~n", [traiter_xml(XML)]).
    
    %~ traiter_xml("<action name=\"message\">"
       %~ "<cookie>4UDUSY6Z2IZNTQO484S8X</cookie>"
@@ -42,6 +43,7 @@ tester() ->
    %~ traiter_xml(
       %~ "<action name=\"generationCaptcha\">"
       %~ "</action>").
+
 
 % il faut catcher toutes les exceptions possibles
 out(A) ->