|
@@ -24,12 +24,13 @@ api_event(Name, Args, Term) -> error_logger:info_msg("Unknown API event: ~p
|
|
|
|
|
|
login_user(User) -> wf:user(User), wf:redirect(?AFTER_LOGIN).
|
|
login_user(User) -> wf:user(User), wf:redirect(?AFTER_LOGIN).
|
|
login(Key, Args)->
|
|
login(Key, Args)->
|
|
- case Args of [{error, E}|_Rest] -> error_logger:info_msg("oauth error: ~p", [E]);
|
|
|
|
- _ -> wf:info("AVZ MODULE: ~p",[?CTX#context.module]),
|
|
|
|
|
|
+ case Args of
|
|
|
|
+ [{error, E}|_Rest] -> error_logger:info_msg("oauth error: ~p", [E]);
|
|
|
|
+ _ -> wf:info("AVZ MODULE: ~p",[?CTX#context.module]),
|
|
case kvs:get(user,Key:email_prop(Args,Key)) of
|
|
case kvs:get(user,Key:email_prop(Args,Key)) of
|
|
- {ok,Existed} ->
|
|
|
|
|
|
+ {ok,Existed} ->
|
|
RegData = Key:registration_data(Args, Key, Existed),
|
|
RegData = Key:registration_data(Args, Key, Existed),
|
|
(?CTX#context.module):event({login, RegData});
|
|
(?CTX#context.module):event({login, RegData});
|
|
- {error,_} ->
|
|
|
|
|
|
+ {error,_} ->
|
|
RegData = Key:registration_data(Args, Key, #user{}),
|
|
RegData = Key:registration_data(Args, Key, #user{}),
|
|
(?CTX#context.module):event({register, RegData}) end end.
|
|
(?CTX#context.module):event({register, RegData}) end end.
|