From 936f186b6b767273fdc3c01f17311981c46e102c Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 8 Sep 2018 05:28:28 +0200 Subject: Send "disconnected" cmd if user failed cred check. This (currently) does not apply to the actual login page, but just to any other action that requires being logged in. --- src/shared/reply/shr_disconnected.erl | 25 +++++++++++++++++++++++++ src/shared/shr_security.erl | 10 ++++------ 2 files changed, 29 insertions(+), 6 deletions(-) create mode 100644 src/shared/reply/shr_disconnected.erl (limited to 'src/shared') diff --git a/src/shared/reply/shr_disconnected.erl b/src/shared/reply/shr_disconnected.erl new file mode 100644 index 0000000..e7b1813 --- /dev/null +++ b/src/shared/reply/shr_disconnected.erl @@ -0,0 +1,25 @@ +-module(shr_disconnected). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +-export([generate/0]). + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +-spec generate () -> {list(any())}. +generate () -> + { + [ + {<<"msg">>, <<"disconnected">>} + ] + }. diff --git a/src/shared/shr_security.erl b/src/shared/shr_security.erl index 3e9fb34..3c84f73 100644 --- a/src/shared/shr_security.erl +++ b/src/shared/shr_security.erl @@ -10,7 +10,7 @@ -export ( [ - assert_identity/2, + credentials_match/2, lock_queries/1, unlock_queries/1 ] @@ -23,11 +23,9 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --spec assert_identity (binary(), shr_player:type()) -> 'ok'. -assert_identity (SessionToken, Player) -> - true = (shr_player:get_token(Player) == SessionToken), - - ok. +-spec credentials_match (binary(), shr_player:type()) -> boolean(). +credentials_match (SessionToken, Player) -> + (shr_player:get_token(Player) == SessionToken). -spec lock_queries (any()) -> 'unimplemented'. lock_queries (_PlayerID) -> unimplemented. -- cgit v1.2.3-70-g09d2