ADD support des conversations (pas fini)

[euphorik.git] / modules / erl / euphorik_protocole.erl

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 57275fc..35bf993 100755 (executable)
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -112,6 +112,12 @@ profile(Action) ->
             Pseudo = case xmerl_xpath:string("pseudo", Action) of [#xmlElement{content = [#xmlText{value = P2}]}] -> P2; _ -> Login end,
             Email = case xmerl_xpath:string("email", Action) of [#xmlElement{content = [#xmlText{value = E}]}] -> E; _ -> undefined end,
             Css = case xmerl_xpath:string("css", Action) of [#xmlElement{content = [#xmlText{value = C}]}] -> C; _ -> undefined end,
+            Conversations = case xmerl_xpath:string("conversations", Action) of
+               Conversations ->
+                  % extraction de chaque conversation
+                  
+               _ -> []
+            end,
             case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css) of
                ok ->
                   xml_reponse_profile_ok();\r