Sancaros/egs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

egs_user_model: Add the login_auth function.

Browse Source
This commit is contained in:
Loïc Hoguin 2010-09-27 20:35:19 +02:00
parent 559e77de37
commit 17f54fec45
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/egs_login.erl
View File

@ -81,13 +81,9 @@ event({system_key_auth_request, AuthGID, AuthKey}, State=#state{socket=Socket})
%% Use username and password as a folder name for saving character data.
%% @todo Handle real GIDs whenever there's real authentication. GID is the second SessionID in the reply.
%% @todo Apparently it's possible to ask a question in the reply here. Used for free course on JP.
event({system_login_auth_request, Username, Password}, State=#state{socket=Socket}) ->
event({system_login_auth_request, Username, Password}, State) ->
{ok, AuthGID, AuthKey} = egs_user_model:login_auth(Username, Password),
io:format("auth success for ~s ~s~n", [Username, Password]),
AuthGID = 10000000 + mnesia:dirty_update_counter(counters, gid, 1),
AuthKey = crypto:rand_bytes(4),
Folder = << Username/binary, "-", Password/binary >>,
Time = calendar:datetime_to_gregorian_seconds(calendar:universal_time()),
egs_user_model:write(#egs_user_model{id=AuthGID, pid=self(), socket=Socket, state={wait_for_authentication, AuthKey}, time=Time, folder=Folder}),
psu_proto:send_0223(AuthGID, AuthKey, State);
%% @doc MOTD request handler. Page number starts at 0.

13
src/egs_user_model.erl
View File

@ -19,7 +19,7 @@
-module(egs_user_model).
-behavior(gen_server).
-export([start_link/0, stop/0, count/0, read/1, select/1, write/1, delete/1, key_auth/3]). %% API.
-export([start_link/0, stop/0, count/0, read/1, select/1, write/1, delete/1, key_auth/3, login_auth/2]). %% API.
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). %% gen_server.
%% Use the module name for the server's name and for the table name.
@ -71,6 +71,9 @@ delete(ID) ->
key_auth(GID, AuthKey, Socket) ->
gen_server:call(?SERVER, {key_auth, GID, AuthKey, Socket}).
login_auth(Username, Password) ->
gen_server:call(?SERVER, {login_auth, Username, Password}).
%% gen_server
init([]) ->
@ -123,6 +126,14 @@ handle_call({key_auth, GID, AuthKey, Socket}, {Pid, _Tag}, State) ->
mnesia:transaction(fun() -> mnesia:write(User2) end),
{reply, ok, State};
%% @todo Handle GIDs and accounts and login properly. We currently accept everyone and give a new GID each time.
handle_call({login_auth, Username, Password}, _From, State) ->
AuthGID = 10000000 + mnesia:dirty_update_counter(counters, gid, 1),
AuthKey = crypto:rand_bytes(4),
Folder = << Username/binary, "-", Password/binary >>,
egs_user_model:write(#egs_user_model{id=AuthGID, state={wait_for_authentication, AuthKey}, folder=Folder}),
{reply, {ok, AuthGID, AuthKey}, State};
handle_call(stop, _From, State) ->
{stop, normal, stopped, State};