Stage 4

src/core/core_user.erl

@@ -1,24 +1,31 @@
 -module(core_user).
-
 -include("records.hrl").
 
 -export([create/2, get_by_id/1, get_by_email/1, update/2, delete/1]).
 -export([email_exists/1]).
+-export([generate_id/0]).
 
 %% Создание пользователя
 create(Email, Password) ->
-  % Сначала проверяем, существует ли email
+  % Проверяем, существует ли email
   case email_exists(Email) of
     true ->
       {error, email_exists};
     false ->
       Id = generate_id(),
       {ok, PasswordHash} = logic_auth:hash_password(Password),
+
+      % Определяем роль: первый пользователь становится админом
+      Role = case mnesia:dirty_match_object(#user{_ = '_'}) of
+               [] -> admin;
+               _ -> user
+             end,
+
       User = #user{
         id = Id,
         email = Email,
         password_hash = PasswordHash,
-        role = user,
+        role = Role,
         status = active,
         created_at = calendar:universal_time(),
         updated_at = calendar:universal_time()
@@ -42,7 +49,7 @@ get_by_id(Id) ->
     [User] -> {ok, User}
   end.
 
-%% Получение пользователя по email (через индекс позже)
+%% Получение пользователя по email
 get_by_email(Email) ->
   Match = #user{email = Email, _ = '_'},
   case mnesia:dirty_match_object(Match) of
@@ -82,11 +89,15 @@ delete(Id) ->
 %% Внутренние функции
 generate_id() ->
   base64:encode(crypto:strong_rand_bytes(16), #{mode => urlsafe, padding => false}).
-apply_updates(User, Updates) ->
-  lists:foldl(fun({Field, Value}, U) -> set_field(Field, Value, U) end, User, Updates).
 
-set_field(email, Value, User) -> User#user{email = Value, updated_at = calendar:universal_time()};
-set_field(password_hash, Value, User) -> User#user{password_hash = Value, updated_at = calendar:universal_time()};
-set_field(role, Value, User) -> User#user{role = Value, updated_at = calendar:universal_time()};
-set_field(status, Value, User) -> User#user{status = Value, updated_at = calendar:universal_time()};
-set_field(_, _, User) -> User.
+apply_updates(User, Updates) ->
+  Updated = lists:foldl(fun({Field, Value}, U) ->
+    set_field(Field, Value, U)
+                        end, User, Updates),
+  Updated#user{updated_at = calendar:universal_time()}.
+
+set_field(email, Value, U) -> U#user{email = Value};
+set_field(password_hash, Value, U) -> U#user{password_hash = Value};
+set_field(role, Value, U) when Value =:= user; Value =:= admin -> U#user{role = Value};
+set_field(status, Value, U) when Value =:= active; Value =:= frozen; Value =:= deleted -> U#user{status = Value};
+set_field(_, _, U) -> U.