-nouveau_user_captcha(Action) ->
- simple_xml_to_string(\r
- case {xmerl_xpath:string("captchaCrypt", Action), xmerl_xpath:string("captchaInput", Action)} of\r
- {[#xmlElement{content = [#xmlText{value = C1}]}], [#xmlElement{content = [#xmlText{value = C2}]}]} ->\r
- C2_crypt = common:crypt(C2),\r
- if C1 =:= C2_crypt ->\r
- Cookie = generer_cookie(),\r
- User = euphorik_minichat:nouveau_user("Paul", Cookie),\r
- xml_reponse_login_ok(User);\r
- true ->
- xml_reponse_login_pas_ok("Captcha incorrect")\r
- end;
- _ ->
- xml_reponse_login_pas_ok("XML malformé")\r
- end
- ).
+%~ nouveau_user_captcha(Action) ->
+ %~ simple_xml_to_string(\r
+ %~ case {xmerl_xpath:string("captchaCrypt", Action), xmerl_xpath:string("captchaInput", Action)} of\r
+ %~ {[#xmlElement{content = [#xmlText{value = C1}]}], [#xmlElement{content = [#xmlText{value = C2}]}]} ->\r
+ %~ C2_crypt = common:crypt(C2),\r
+ %~ if C1 =:= C2_crypt ->\r
+ %~ Cookie = generer_cookie(),\r
+ %~ User = euphorik_minichat:nouveau_user("Paul", Cookie),\r
+ %~ xml_reponse_login_ok(User);\r
+ %~ true ->
+ %~ xml_reponse_login_pas_ok("Captcha incorrect")\r
+ %~ end;
+ %~ _ ->
+ %~ xml_reponse_login_pas_ok("XML malformé")\r
+ %~ end
+ %~ ).