Перенести все админские эндпоинты на порт 8445 и добавить отдельную авторизацию для админов. Часть 1

src/handlers/admin/admin_handler_users.erl

@@ -1,47 +1,30 @@
 -module(admin_handler_users).
--include("records.hrl").
-
+-behaviour(cowboy_handler).
 -export([init/2]).
 
-init(Req, Opts) ->
-  handle(Req, Opts).
-
-handle(Req, _Opts) ->
+init(Req, _Opts) ->
   case cowboy_req:method(Req) of
-    <<"GET">> -> list_users(Req);
-    _ -> send_error(Req, 405, <<"Method not allowed">>)
-  end.
-
-list_users(Req) ->
-  case handler_auth:authenticate(Req) of
-    {ok, AdminId, Req1} ->
-      case is_admin(AdminId) of
-        true ->
-          Users = mnesia:dirty_match_object(#user{_ = '_'}),
-          ActiveUsers = [U || U <- Users, U#user.status =/= deleted],
-          Response = [user_to_json(U) || U <- ActiveUsers],
+    <<"GET">> ->
+      case handler_auth:authenticate(Req) of
+        {ok, _UserId, Req1} ->
+          {ok, Users} = core_user:list_users(),
+          Response = [user_to_map(U) || U <- Users],
           send_json(Req1, 200, Response);
-        false ->
-          send_error(Req1, 403, <<"Admin access required">>)
+        {error, Code, Message, Req1} ->
+          send_error(Req1, Code, Message)
       end;
-    {error, Code, Message, Req1} ->
-      send_error(Req1, Code, Message)
+    _ ->
+      send_error(Req, 405, <<"Method not allowed">>)
   end.
 
-is_admin(UserId) ->
-  case core_user:get_by_id(UserId) of
-    {ok, User} -> User#user.role =:= admin;
-    _ -> false
-  end.
-
-user_to_json(User) ->
+user_to_map(User) ->
   #{
-    id => User#user.id,
-    email => User#user.email,
-    role => User#user.role,
-    status => User#user.status,
-    created_at => datetime_to_iso8601(User#user.created_at),
-    updated_at => datetime_to_iso8601(User#user.updated_at)
+    id => maps:get(id, User),
+    email => maps:get(email, User),
+    role => maps:get(role, User),
+    status => maps:get(status, User),
+    created_at => datetime_to_iso8601(maps:get(created_at, User)),
+    updated_at => datetime_to_iso8601(maps:get(updated_at, User))
   }.
 
 datetime_to_iso8601({{Year, Month, Day}, {Hour, Minute, Second}}) ->