X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_protocole.erl;h=7e8030806b6aa0127f485aa6ad582fd371055ff1;hb=e04de9d41e7955b0092fc33b8619b4627af6b3f3;hp=57275fcb1c1d05bc1874d34adf0544bdad04b823;hpb=50e129994805932dbf407e55afb971c0f7b20f1c;p=euphorik.git

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 57275fc..7e80308 100755
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -8,8 +8,6 @@
 
 -module(euphorik_protocole).
 -export([
-   %generation_captcha/1, Obsolète
-   %nouveau_user_captcha/1, Obsolète
    nouveau_user_login/1,
    login/1,
    logout/1,
@@ -22,34 +20,6 @@
 -include("../include/euphorik_bd.hrl").
 -include("../include/euphorik_defines.hrl").
 
-
-% Génère un nouveau captchat dans ?DOSSIER_CAPTCHA
-% Obsolète
-%~ generation_captcha(_) ->
-   %~ {Mot_crypt, Nom_fichier} = captcha:create(5, ?DOSSIER_CAPTCHA),
-   %~ simple_xml_to_string(xml_reponse_generation_captcha(?DOSSIER_CAPTCHA_RELATIF "/" ++ Nom_fichier, Mot_crypt)).
-   
-
-% Un nouvel utilisateur doit être créé.
-% Obolète : le captcha n'existe plus
-% Action est un xmlElement().
-%~ nouveau_user_captcha(Action) ->
-   %~ simple_xml_to_string(
-      %~ case {xmerl_xpath:string("captchaCrypt", Action), xmerl_xpath:string("captchaInput", Action)} of
-         %~ {[#xmlElement{content = [#xmlText{value = C1}]}], [#xmlElement{content = [#xmlText{value = C2}]}]} ->
-            %~ C2_crypt = common:crypt(C2),
-            %~ if C1 =:= C2_crypt ->
-                  %~ Cookie = generer_cookie(),
-                  %~ User = euphorik_minichat:nouveau_user("Paul", Cookie),
-                  %~ xml_reponse_login_ok(User);
-               %~ true ->
-                  %~ xml_reponse_login_pas_ok("Captcha incorrect")
-            %~ end;
-         %~ _ ->
-            %~ xml_reponse_login_pas_ok("XML malformé")
-      %~ end
-   %~ ).
-   
    
 % Une utilisateur s'enregistre avec un tuple {Login, Password}.
 % @spec nouveau_user_login(xmerl:xmlElement()) -> string()
@@ -71,6 +41,10 @@ nouveau_user_login(Action) ->
    
 
 % Un utilisateur se logge.
+login([{login, Login}, {password, Password}]) ->
+   {ok, User} = euphorik_minichat:user_by_login_password(Login, Password),
+   
+   
 login(Action) ->
    case xmerl_xpath:string("cookie", Action) of
       [#xmlElement{content = [#xmlText{value = Cookie}]}] ->
@@ -112,7 +86,24 @@ 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,
-            case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css) of
+            Page_principale = case xmerl_xpath:string("pagePrincipale", Action) of [#xmlElement{content = [#xmlText{value = P3}]}] -> list_to_integer(P3); _ -> undefined end,
+            Conversations = lists:foldr(
+               fun(Conv, Acc) ->
+                  [#xmlElement{content = [#xmlText{value = Id_racine_str}]}] = xmerl_xpath:string("racine", Conv),
+                  [#xmlElement{content = [#xmlText{value = Page_conv_str}]}] = xmerl_xpath:string("page", Conv), 
+                  Message_id = erlang:list_to_integer(Id_racine_str, 36),
+                  % vérification de la validité de l'id
+                  Message_existe = euphorik_minichat:message_existe(Message_id),
+                  if  Message_existe ->
+                        [{Message_id, list_to_integer(Page_conv_str)} | Acc];
+                     true ->
+                        Acc
+                  end
+               end,
+               [],
+               xmerl_xpath:string("conversation", Action)
+            ),
+            case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css, Page_principale, Conversations) of
                ok ->
                   xml_reponse_profile_ok();
                login_deja_pris ->
@@ -129,16 +120,9 @@ profile(Action) ->
 % Renvoie les messages appropriés.
 refreshMessage(Action) ->
    simple_xml_to_string(
-      case {
-         xmerl_xpath:string("nombreMessage", Action), % le nombre de message qu'affiche le client
-         xmerl_xpath:string("page", Action) % la page désiré, la première (les derniers messages) étant la 1
-         } of
-         {
-            [#xmlElement{content = [#xmlText{value = Nb_message_str}]}],
-            [#xmlElement{content = [#xmlText{value = Page_str}]}]
-         } ->         
+      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),
-            Page = list_to_integer(Page_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
@@ -150,16 +134,7 @@ refreshMessage(Action) ->
                      _ -> inconnu
                   end;
                _ -> inconnu
-            end,
-            % extraction des conversations en [{id, page}, ..]
-            Conversations = lists:map(
-               fun(Conv) ->
-                  [#xmlElement{content = [#xmlText{value = Id_racine_str}]}] = xmerl_xpath:string("racine", Conv),
-                  [#xmlElement{content = [#xmlText{value = Page_conv_str}]}] = xmerl_xpath:string("page", Conv), 
-                  {erlang:list_to_integer(Id_racine_str, 36), erlang:list_to_integer(Page_conv_str)}
-               end,
-               xmerl_xpath:string("conversation", Action)
-            ),
+            end,
             % accrochez-vous ca va siouxer ;)
             [{reponse, [{name, "refreshMessages"}],
                lists:map(
@@ -196,8 +171,13 @@ refreshMessage(Action) ->
                            )
                         ]
                      }
-                  end,            
-                  euphorik_minichat_conversation:conversations(Conversations, Nb_message, Dernier_id, Page)
+                  end,
+                  euphorik_minichat_conversation:conversations(
+                     if User =/= inconnu -> User#user.conversations; true -> [] end,
+                     Nb_message,
+                     Dernier_id,
+                     if User =/= inconnu -> User#user.page_principale; true -> 1 end
+                  )
                )
             }];
          _ ->
@@ -293,8 +273,20 @@ xml_reponse_login_ok(User) ->
          {pseudo, [User#user.pseudo]},
          {login, [User#user.login]},
          {email, [User#user.email]},
-         {css, [User#user.css]}
-      ]
+         {css, [User#user.css]},
+         {pagePrincipale, [integer_to_list(User#user.page_principale)]}
+      ] ++ 
+      lists:map(
+         fun(C) -> 
+            {conversation, 
+               [
+                  {racine, [erlang:integer_to_list(element(1, C), 36)]},
+                  {page, [integer_to_list(element(2, C))]}
+               ]
+            }
+         end,
+         User#user.conversations
+      )
    }].
    
    
@@ -359,16 +351,5 @@ xml_reponse_message(Ok) ->
          ]
       }
    ].
-
-
-% Obsolète
-%~ xml_reponse_generation_captcha(Chemin, Captcha) ->
-   %~ [
-      %~ {reponse, [{name, "generationCaptcha"}],
-         %~ [
-            %~ {chemin, [], [Chemin]},
-            %~ {captchaCrypt, [], [Captcha]}
-         %~ ]
-      %~ }
-   %~ ].
+
 %%%%%%%%% </réponses XML> %%%%%%%%%