email.erl 1.0 KB

123456789101112131415161718192021222324252627
  1. -module(email).
  2. -author('Andrii Zadorozhnii').
  3. -include_lib("avz/include/avz.hrl").
  4. -include_lib("n2o/include/wf.hrl").
  5. -include_lib("kvs/include/user.hrl").
  6. -compile(export_all).
  7. -export(?API).
  8. registration_data(Props, email, Ori)->
  9. Email = email_prop(Props, email),
  10. Ori#user{ id = Email,
  11. display_name = Email,
  12. email = Email,
  13. register_date = os:timestamp(),
  14. tokens = avz:update({email,Email},Ori#user.tokens),
  15. status = ok,
  16. password = avz:sha(proplists:get_value(<<"password">>,Props))}.
  17. email_prop(Props, _) -> binary_to_list(proplists:get_value(<<"email">>, Props)).
  18. login_button() -> application:get_env(avz,email_button,#button{id=login, class=[btn, "btn-info", "btn-large", "btn-lg"], body= <<"Sign in">>, postback={email, loginemail}, source=[user,pass]}).
  19. event({email,loginemail}) -> avz:login(email, [{<<"email">>, list_to_binary(wf:q(user))}, {<<"password">>, wf:q(pass)}]);
  20. event(_) -> ok.
  21. api_event(_,_,_) -> ok.
  22. callback() -> ok.
  23. sdk() -> [].