Packages
nova
0.7.1
0.15.1
0.14.3
0.14.1
0.13.7
0.13.1
0.13.0
0.12.1
0.12.0
0.11.0
0.10.4
0.10.3
0.10.2
0.10.1
0.10.0
0.9.24
0.9.23
0.9.22
0.9.21
0.9.20
0.9.19
0.9.18
0.9.17
0.9.16
0.9.15
0.9.11
0.9.5
0.9.4
0.9.3
0.9.2
0.9.1
0.9.0
0.8.6
0.8.5
0.8.4
0.8.3
0.8.2
0.8.1
0.8.0
0.7.2
0.7.1
0.7.0
0.6.2
0.6.1
0.6.0
0.5.2
0.5.1
0.4.4
0.4.3
0.4.2
0.4.1
0.2.2
0.1.0
0.0.1
0.0.0
Nova is a web application framework
Current section
Files
Jump to
Current section
Files
src/nova_session.erl
-module(nova_session).
-export([
get/2,
set/3,
delete/1,
delete/2,
generate_session_id/0
]).
-include_lib("nova/include/nova.hrl").
%%%===================================================================
%%% Callbacks
%%%===================================================================
%% Get a value from a given session_id
-callback get_value(SessionId, Key) ->
{ok, Value :: any()} |
{error, Reason :: atom()}
when SessionId :: binary(),
Key :: binary().
%% Set a value
-callback set_value(SessionId, Key, Value) ->
ok |
{error, Reason :: atom()}
when SessionId :: binary(),
Key :: binary(),
Value :: binary().
%% Deletes a whole session
-callback delete_value(SessionId) ->
ok |
{error, Reason :: atom()}
when SessionId :: binary().
%% Deletes a specific key of a session
-callback delete_value(SessionId, Key) ->
ok |
{error, Reason :: atom()}
when SessionId :: binary(),
Key :: binary().
%%%===================================================================
%%% Public functions
%%%===================================================================
-spec get(NovaHttpState :: nova_http_handler:nova_http_state(), Key :: binary()) ->
{ok, Value :: binary()} | {error, Reason :: atom()} | no_return().
get(#{req := Req}, Key) ->
case get_session_id(Req) of
{ok, SessionId} ->
Mod = get_session_module(),
Mod:get_value(SessionId, Key);
_ ->
{error, not_found}
end.
-spec set(NovaHttpState :: nova_http_handler:nova_http_state(), Key :: binary(), Value :: binary()) ->
ok | {error, Reason :: atom()} | no_return().
set(#{req := Req}, Key, Value) ->
case get_session_id(Req) of
{ok, SessionId} ->
Mod = get_session_module(),
Mod:set_value(SessionId, Key, Value);
_ ->
{error, session_id_not_set}
end.
-spec delete(NovaHttpState :: nova_http_handler:nova_http_state()) -> {ok, Req :: cowboy_req:req()} |
{error, Reason :: atom()}.
delete(#{req := Req}) ->
case get_session_id(Req) of
{ok, SessionId} ->
Mod = get_session_module(),
Mod:delete_value(SessionId),
Req1 = cowboy_req:set_resp_cookie(<<"session_id">>, SessionId, Req,
#{max_age => 0}),
{ok, Req1};
_ ->
%% Session not found
{ok, Req}
end.
-spec delete(NovaHttpState, Key :: binary()) -> {ok, NovaHttpState} | {error, Reason :: atom()} | no_return() when
NovaHttpState :: nova_http_handler:nova_http_state().
delete(Req, Key) ->
case get_session_id(Req) of
{ok, SessionId} ->
Mod = get_session_module(),
Mod:delete_value(SessionId, Key),
{ok, Req};
_ ->
%% Session not found
{ok, Req}
end.
%%%===================================================================
%%% Private functions
%%%===================================================================
get_session_module() ->
case application:get_env(session_manager) of
{ok, Module} ->
Module;
_ ->
%% Default to nova_session_ets
nova_session_ets
end.
get_session_id(Req) ->
case nova:get_env(use_sessions, true) of
true ->
#{session_id := SessionId} = cowboy_req:match_cookies([{session_id, [], undefined}], Req),
case SessionId of
undefined ->
{error, not_found};
_ ->
{ok, SessionId}
end;
_ ->
?ERROR("Session called, but 'use_session' option set to false"),
throw({nova_session, unsupported_session_used})
end.
generate_session_id() ->
SessionId =
<< <<X:8/unsigned-integer>> ||
X <- [ rand:uniform(255) || _ <- lists:seq(0, 31) ] >>,
{ok, base64:encode(SessionId)}.