X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_protocole.erl;h=2f4a5a3593faf37dde69aa48f6999d780461fa74;hp=99eb300fa530e9ee7b6338d11dbf375f3d738b08;hb=5527b650d1cb16caa6afc8f44545097ca92b97a2;hpb=897468be6fa01ab87f38189f2daf266f3289c9fb

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 99eb300..2f4a5a3 100755
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -1,11 +1,10 @@
 % coding: utf-8
-% Ce module gére les différents message envoyé par le client (javascript)
+% Ce module gére les différents message envoyé par le client (javascript) via AJAX.
 % Par exemple le client peut demander les derniers messages du minichat.
 % Les messages sont au format XML, la plus part des fonctions accepte un xmlDocument() et renvoie un string()
 % qui est la réponse XML.
-% Example XML : http://www.erlang.org/doc/apps/xmerl/xmerl_ug.html
-% Auteur : G.Burri
-% Date : 29.10.2007
+% Example XML : http://www.erlang.org/doc/apps/xmerl/xmerl_ug.html.
+% @author G.Burri
 
 -module(euphorik_protocole).
 -export([
@@ -17,39 +16,43 @@
    profile/1,
    refreshMessage/1,
    message/1
-]).
+]).
+
 -include_lib("xmerl/include/xmerl.hrl").
 -include("../include/euphorik_bd.hrl").
 -include("../include/euphorik_defines.hrl").
 
 
-% Génère un nouveau captchat dans ?DOSSIER_CAPTCHA
-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)).
+% 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éé.
+% 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
-   ).
+%~ 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}.
+% Une utilisateur s'enregistre avec un tuple {Login, Password}.
+% @spec nouveau_user_login(xmerl:xmlElement()) -> string()
 nouveau_user_login(Action) ->
    {Login, Password, Login_deja_pris} = case {xmerl_xpath:string("login", Action), xmerl_xpath:string("password", Action)} of
       {[#xmlElement{content = [#xmlText{value = L}]}], [#xmlElement{content = [#xmlText{value = P}]}]} ->
@@ -359,14 +362,16 @@ xml_reponse_message(Ok) ->
          ]
       }
    ].
-   
-xml_reponse_generation_captcha(Chemin, Captcha) ->
-   [
-      {reponse, [{name, "generationCaptcha"}],
-         [
-            {chemin, [], [Chemin]},
-            {captchaCrypt, [], [Captcha]}
-         ]
-      }
-   ].
+
+
+% Obsolète
+%~ xml_reponse_generation_captcha(Chemin, Captcha) ->
+   %~ [
+      %~ {reponse, [{name, "generationCaptcha"}],
+         %~ [
+            %~ {chemin, [], [Chemin]},
+            %~ {captchaCrypt, [], [Captcha]}
+         %~ ]
+      %~ }
+   %~ ].
 %%%%%%%%% </réponses XML> %%%%%%%%%