n2o Erlang框架电子邮件身份验证

bea*_*att 4 erlang n2o

我是Erlang和N2O的新手,但在python web开发方面有一些经验.我想在我的应用程序中通过电子邮件地址(电子邮件 - 密码)创建身份验证,而不是使用AVZ.我用这段代码创建了注册页面(其他代码为n2o_sample).但不是把用户放在kvs我身上{error,no_container}

-module(signup_page).
-compile(export_all).
-include_lib("n2o/include/wf.hrl").
-include_lib("n2o_sample/include/users.hrl").

 title() -> [ <<"Sign Up Page">> ].
 main() -> #dtl{file = "login", app = n2o_sample,
                bindings = [{title,title()},{body,body()}]}.

 body() ->
   [ #span{id=display}, #br{},
     #span{body="Email: "}, #textbox{id=user}, #br{},
     #span{body="Password: "}, #password{id=pass}, #br{},
     #span{body="Confirm Password"}, #password{id=confirm}, #br{},
     #button{id=signup, body="Sign Up",
             postback=signup,source=[user,pass,confirm]}].

 event(signup) ->
   User = wf:q(user), Password = wf:q(pass), Confirm = wf:q(confirm),
   U = kvs:get(user, User, undefined),
   case U of
     {ok, undefined} ->
       case Password of
            undefined -> wf:update(display, <<"No pass">>);
            Confirm -> Status = kvs:put(#user{id=User}), 
                       % -> {error, no_container}
                       io:format("~w~n", [Status]);
            B -> io:format("~w~n", [B]) end;
      A ->  io:format("~w~n", [A]),
            wf:update(display, <<"Already registered!">>) end;

 event(_) -> [].
Run Code Online (Sandbox Code Playgroud)

5HT*_*5HT 9

你做的一切都是正确的

问题主要在于KVS配置.要使KVS正常工作,您应该执行以下几个步骤:

1.将kvs放入rebar.config

    {kvs, ".*", {git, "git://github.com/synrc/kvs", {tag,"1.5.0"}}},
Run Code Online (Sandbox Code Playgroud)

使用冷冻标签版本,例如"1.5.0"是最新稳定版.

2.在sys.config中配置KVS应用程序

    {n2o, [{port,8000},{transition_port, 8000}]},
    {kvs, [{dba,store_mnesia},
           {schema, [kvs_user, kvs_acl, kvs_feed, kvs_subscription ]} ]},
Run Code Online (Sandbox Code Playgroud)

我在示例N2O配置中查看应该放置的位置.

3.在第一次启动"make console"之后,你应该在Erlang shell中初始化数据库:

1> kvs:join().
Run Code Online (Sandbox Code Playgroud)

这将实例化MNESIA表.

之后在Erlang shell中请检查你的问题:

2> rr(kvs_user).
Run Code Online (Sandbox Code Playgroud)

首先从kvs_user模块加载所有记录.然后执行检查:

3> kvs:put(#user{id="maxim@synrc.com"}).
Run Code Online (Sandbox Code Playgroud)