projects
/
euphorik.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
MOD Avancement sur le passage à JSON
[euphorik.git]
/
modules
/
erl
/
euphorik_protocole.erl
diff --git
a/modules/erl/euphorik_protocole.erl
b/modules/erl/euphorik_protocole.erl
index
c0090a5
..
7e80308
100755
(executable)
--- a/
modules/erl/euphorik_protocole.erl
+++ b/
modules/erl/euphorik_protocole.erl
@@
-41,6
+41,10
@@
nouveau_user_login(Action) ->
\r
% Un utilisateur se logge.
\r
% 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}]}] ->
login(Action) ->
case xmerl_xpath:string("cookie", Action) of
[#xmlElement{content = [#xmlText{value = Cookie}]}] ->