FIX problème de gestion du profile, après ouverture d'une conversation puis enregistr...

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

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index d8bfa89..c3dfbbe 100755 (executable)
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -43,14 +43,14 @@
 \r
 \r
 % Une utilisateur s'enregistre avec un tuple {Login, Password}.\r
-register([{login, Login}, {password, Password}], IP) ->\r
+register([{login, Login}, {password, Password}, {profile_infos, Profile_infos}], IP) ->\r
    Can_register = euphorik_bd:can_register(IP),\r
    if Can_register ->\r
          case euphorik_bd:user_by_login(Login) of\r
             {ok, _} ->\r
                erreur("Login déjà existant");\r
             _ ->\r
-               User = euphorik_bd:nouveau_user(Login, Password, generer_cookie()),\r
+               User = euphorik_bd:nouveau_user(Login, Password, generer_cookie(), user_from_json(Profile_infos)),\r
                euphorik_bd:update_ip(User#user.id, IP),\r
                json_reponse_login_ok(User)\r
          end;\r
@@ -58,10 +58,10 @@ register([{login, Login}, {password, Password}], IP) ->
          erreur_register_flood()\r
    end;\r
 % Enregistrement sans {Login, Password}\r
-register([], IP) ->   \r
+register([{profile_infos, Profile_infos}], IP) ->   \r
    Can_register = euphorik_bd:can_register(IP),\r
    if Can_register ->\r
-         User = euphorik_bd:nouveau_user("<nick>", generer_cookie()),\r
+         User = euphorik_bd:nouveau_user("<nick>", generer_cookie(), user_from_json(Profile_infos)),\r
          euphorik_bd:update_ip(User#user.id, IP),\r
          json_reponse_login_ok(User);\r
       true ->\r
@@ -115,16 +115,44 @@ profile(
       {cookie, Cookie},\r
       {login, Login},\r
       {password, Password},\r
-      {nick, Pseudo},\r
-      {email, Email},\r
-      {css, Css},\r
-      {chat_order, Chat_order_str},\r
-      {nick_format, Nick_format_str},\r
-      {view_times, View_times},\r
-      {view_tooltips, View_tooltips},\r
-      {conversations, {array, Conversations_json}},\r
-      {ostentatious_master, Ostentatious_master}\r
+      {profile_infos, Profile_infos}\r
    ]\r
+) ->\r
+   case user_from_json(Profile_infos) of\r
+      {erreur, E} -> E;\r
+      UserInfos ->\r
+         User = UserInfos#user {\r
+            cookie = Cookie,\r
+            login = Login,\r
+            password = Password\r
+         },   \r
+         %  TODO : pas très beau, mieux vaut construire un #user\r
+         case euphorik_bd:set_profile(User) of\r
+            ok ->\r
+               json_reponse_ok();\r
+            login_deja_pris ->\r
+               erreur("Login déjà pris");\r
+            _ ->\r
+               erreur("Impossible de mettre à jour le profile")\r
+         end\r
+   end.\r
+\r
+\r
+% Construit un #user à partir des données JSON\r
+user_from_json(\r
+   {struct,\r
+      [\r
+         {nick, Pseudo},\r
+         {email, Email},\r
+         {css, Css},\r
+         {chat_order, Chat_order_str},\r
+         {nick_format, Nick_format_str},\r
+         {view_times, View_times},\r
+         {view_tooltips, View_tooltips},\r
+         {conversations, {array, Conversations_json}},\r
+         {ostentatious_master, Ostentatious_master_str}\r
+      ]\r
+   }\r
 ) ->\r
    % décomposition de la strucure JSON\r
    Conversations = lists:foldr(\r
@@ -140,26 +168,35 @@ profile(
       [],\r
       Conversations_json\r
    ),\r
-   %  TODO : pas très beau, mieux vaut construire un #user\r
-   case euphorik_bd:set_profile(\r
-         Cookie,\r
-         Login,\r
-         Password,\r
-         Pseudo,\r
-         Email,\r
-         Css,\r
-         list_to_atom(Chat_order_str),\r
-         list_to_atom(Nick_format_str),\r
-         View_times,\r
-         View_tooltips,\r
-         Conversations,\r
-         list_to_atom(Ostentatious_master)) of\r
-      ok ->\r
-         json_reponse_ok();\r
-      login_deja_pris ->\r
-         erreur("Login déjà pris");\r
-      _ ->\r
-         erreur("Impossible de mettre à jour le profile")\r
+   % vérification des données JSON\r
+   Chat_order = list_to_atom(Chat_order_str),\r
+   Chat_order_valide = lists:any(fun(E) -> E =:= Chat_order end, [reverse, chrono]),\r
+   if not Chat_order_valide ->\r
+         {erreur, Chat_order_str ++ " n'est pas une valeur acceptée pour 'chat_order'"};\r
+      true -> \r
+         Nick_format = list_to_atom(Nick_format_str),\r
+         Nick_format_valide = lists:any(fun(E) -> E =:= Nick_format end, [nick, login, nick_login]),\r
+         if not Nick_format_valide ->\r
+               {erreur, Nick_format_str ++ " n'est pas une valeur acceptée pour 'nick_format'"};\r
+            true -> \r
+               Ostentatious_master = list_to_atom(Ostentatious_master_str),\r
+               Ostentatious_master_valide = lists:any(fun(E) -> E =:= Ostentatious_master end, [invisible, light, heavy]),\r
+               if not Ostentatious_master_valide ->\r
+                     {erreur, Ostentatious_master_str ++ " n'est pas une valeur acceptée pour 'ostentatious_master'"};\r
+                  true ->\r
+                     #user{\r
+                        pseudo = Pseudo,\r
+                        email = Email,\r
+                        css = Css,\r
+                        chat_order = Chat_order,\r
+                        nick_format = Nick_format,\r
+                        view_times = View_times,\r
+                        view_tooltips = View_tooltips,\r
+                        conversations = Conversations,\r
+                        ostentatious_master = Ostentatious_master\r
+                     }\r
+               end\r
+         end      \r
    end.\r
 \r
 \r