用redis管理nitrogen中的session

nitrogen使用中session问题

nitrogen中的session在集群情况下会找不到，经常会出现重新登录情况，试图修改成为mnesia管理session,在节点超过一定数量时mnesia同步机制会出现同步慢的问题，为此决定再次修改为redis来管理session。

 

修改为redis管理session

 

1 在nitrogen中调用wf:session/2设置session时调用了session_handler:set_value/2,回调behaviour (session_handler),wf_handler:call/3，这里实现了一个简单的session_handler，只要实现自己的session_handler行为，就可以了，在wf:context中会配置具体调用哪些handler,只要修改make_handler(session_handler, simple_session_handler), %simple_session_handler), 为自己的实现即可。

2 我实现的redis_session_handler

Erlang代码  

1. % Copyright (c) 2008-2010 Rusty Klophaus  
2. % See MIT-LICENSE for licensing information.  
3.   
4. % This is a "simple as possible" session handler. Unfortunately,  
5. % due to time constraints, had to leave out some great code  
6. % contributed by Dave Peticolas that fit Nitrogen sessions  
7. % into a gen_server. My code below is far inferior.   
8. % Someone please make it better! - Rusty  
9.   
10. -module (redis_session_handler).  
11. -include_lib ("wf.hrl").  
12. -behaviour (session_handler).  
13. -export ([  
14.     init/2,   
15.     finish/2,  
16.     get_value/4,   
17.     set_value/4,   
18.     clear_all/2  
19. ]).  
20. -record (state, {unique}).  
21.   
22. init(_Config, _State) ->   
23.     Cookie = wf:cookie(get_cookie_name()),  
24.     State = case wf:depickle(Cookie) of  
25.         undefined -> new_state();  
26.         Other -> Other  
27.     end,  
28.     {ok, State}.  
29.   
30. finish(_Config, State) ->   
31.     % Drop the session cookie...  
32.     Timeout = wf:config_default(session_timeout, 20),  
33.     ok = wf:cookie(get_cookie_name(), wf:pickle(State), "/", Timeout),  
34.     {ok, []}.  
35.   
36. get_value(Key, DefaultValue, _Config, State) ->   
37.     %Host = wf:config_default(erldis_host, "127.0.0.1"),  
38.     %Port = wf:config_default(erldis_port, 6379),  
39.     %{ok, Client} = erldis:connect(Host, Port),  
40.     %io:format("~p",[?LINE]),  
41.     %io:format("get_value, Key = ~p~n",[Key]),  
42.     Client = erldis_sup:client(),  
43.     Value = case erldis:hget(Client, State#state.unique, Key) of  
44.     nil ->  
45.         DefaultValue;  
46.     Any ->  
47.         binary_to_term(Any)  
48.     end,  
49.     %io:format("get_value, Key = ~p, Value = ~p~n",[Key, Value]),  
50.     Timeout = wf:config_default(session_timeout, 20),  
51.     erldis:expire(Client, State#state.unique, Timeout*60),  
52.     {ok, Value, State}.  
53.   
54. set_value(Key, Value, _Config, State) ->   
55.     %io:format("set_value, Key = ~p, Value = ~p~n",[Key, Value]),  
56.     Client = erldis_sup:client(),  
57.   
58.     OldValue = case erldis:hget(Client, State#state.unique, Key) of  
59.     nil ->  
60.         undefined;  
61.     Any ->  
62.         binary_to_term(Any)  
63.     end,  
64.     %io:format("~p",[?LINE]),  
65.     %io:format("OldValue = ~n~p~n",[OldValue]),  
66.     erldis:hset(Client, State#state.unique, Key, term_to_binary(Value)),  
67.     Timeout = wf:config_default(session_timeout, 20),  
68.     erldis:expire(Client, State#state.unique, Timeout*60),  
69.     {ok, OldValue, State}.  
70.   
71. clear_all(_Config, State) ->   
72.     Client = erldis_sup:client(),  
73.     case erldis:del(Client, State#state.unique) of  
74.     nil ->  
75.         undefined;  
76.     Any ->  
77.         %io:format("~p",[?LINE]),  
78.         %io:format("~n~p~n",[Any]),  
79.         Any  
80.     end,  
81.     {ok, State}.  
82.   
83. %%% PRIVATE FUNCTIONS  
84.   
85. get_cookie_name() ->  
86.     wf:config_default(cookie_name, "lxbssn").  
87.   
88. new_state() ->  
89.     Unique = erlang:md5(term_to_binary({now(), erlang:make_ref()})),  
90.     #state { unique=Unique }.  

 

 3  在上面代码中我使用了erldis作为redis的erlang客户端，经测试未发现问题，很稳定。

 

4 问题： 以上代码实现中查阅过redis手册，想找到类似 setex直接设置过期时间的命令，但没有找到，用hash 实现是为了节省内存与方便管理，如有更好解决方案大家回复交流。