如何管理氮/ inets erlang中的几个用户

Question

我正在使用Nitrogen/Inets为我的家庭使用建立一个简单的网站。 只要我有一个客户端连接到Web服务器，当前版本就可以按预期工作。

如果我尝试连接一个新的用户，2个会话似乎共享相同的状态变量：

• 浏览器1：读取索引页面，点击连接，并登录为USER1。
• 浏览器2：读取索引页面，用户是user1 - >不正确 - 去登录并输入为user2。看起来没问题。
• 浏览器1：重新加载首页 - >非常糟糕 - >用户变更为用户2：除了O（

我已经包括显示器，以显示超时计数器 - >值是同步的？两个浏览器

你能告诉我，我必须做的同时管理多个用户我写的代码如下：index.erl的

提取

header() -> 
% if the user is not defined, show in the header a button to connect, change the title and display a reduced menu (thanks to common module) 
% if the user is defined, show in the header a button to disconnect, change the title and display a complete menu (thanks to common module) 
    User = wf:user(), 
    Msg = case User of 
     undefined -> 
      "Pas connecté"; 
     User -> 
      "Welcome " ++ User 
    end, 
    case User of 
     undefined -> 
      common:header(Msg, #button { id=dcnx, text="Connexion", postback=connexion , class = rightalign}); 
     User -> 
      common:header(Msg, #button { id=dcnx, text="Deconnexion", postback=deconnexion , class = rightalign}) 
    end. 


body() -> 
    #container_12 { body= #grid_8 { alpha=true, prefix=2, suffix=2, omega=true, body=inner_body(wf:user()) }}. 

inner_body(User) -> 
    Msg = case User of 
     undefined -> "Pas connecté"; 
     _ -> User ++ " home" 
    end, 
    [ 
     #h2{ text= Msg }, 
     #p{} 
    ]. 

event(deconnexion) -> 
    % a temporary popup just to display the user name and check the function call 
    wf:wire(#alert { text="Bye bye " ++ wf:user() }), 
    wf:clear_session(), % erase the session information 
    wf:redirect("index"); % redisplay the index page 
event(connexion) -> 
    wf:redirect_to_login("login"); 

event(E) -> common:event(E). 

login.erl的提取物：

body() -> 
% the login requires a name and a password, 
% checks that {name,password} exists 
     Body = [ 
      #label { text="Name" }, 
      #textbox { id=nameTextBox, next=passwordTextBox }, 

      #p{}, 
      #label { text="Password" }, 
      #password { id=passwordTextBox, next=continueButton }, 

      #p{}, 
      #button { id=continueButton, text="Continue", postback=continue } 

    ], 
    wf:wire(continueButton, nameTextBox, #validate { validators=[ 
     #is_required { text="Obligatoire." }, 
     #custom { text="utilisateur invalide.", tag=tag_name, function=fun name_validator/2 } 
    ]}), 

    wf:wire(continueButton, passwordTextBox, #validate { validators=[ 
     #is_required { text="Obligatoire." }, 
     #custom { text="mot de passe incorrect.", tag=tag_password, function=fun password_validator/2 } 
    ]}), 

    Body. 

event(continue) -> 
    Name = wf:q(nameTextBox), % retreive the name 
    wf:user(Name), % define as user 
    wf:role(admin,is_admin(Name)), % define role 
    wf:session(logged,true), % define as logged 
    wf:redirect_from_login("index"); % go back to the calling page or index if not defined 

event(_) -> ok. 

Answer 1

会话信息存储有一个cookie作为键。

你是在同一个浏览器的另一个窗口中打开该页面，还是打开一个完全独立的浏览器（IE，Chrome和Firefox）？如果您只是在同一个浏览器中打开另一个窗口或选项卡，则Cookie信息肯定会被共享，从而产生您所描述的效果。

因此，请确保您启动了两个完全不同的浏览器。

您发布的代码看起来是正确的 - 在会话间共享信息没有什么突出的。