Refactor structure

src/handlers/admin/admin_handler_health.erl

@@ -0,0 +1,15 @@
+-module(admin_handler_health).
+
+-export([init/2]).
+
+init(Req, _Opts) ->
+  case cowboy_req:method(Req) of
+    <<"GET">> ->
+      Body = jsx:encode(#{status => <<"ok">>}),
+      Req1 = cowboy_req:reply(200, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+      {ok, Req1, []};
+    _ ->
+      Body = jsx:encode(#{error => <<"Method not allowed">>}),
+      Req1 = cowboy_req:reply(405, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+      {ok, Req1, []}
+  end.

src/handlers/admin/admin_handler_stats.erl

@@ -0,0 +1,80 @@
+-module(admin_handler_stats).
+-include("records.hrl").
+
+-export([init/2]).
+-export([count_users/0, count_calendars/0, count_events/0, count_bookings/0,
+  count_reviews/0, count_reports/0, count_tickets/0, count_subscriptions/0]).
+-export([is_admin/1]).
+
+init(Req, Opts) ->
+  handle(Req, Opts).
+
+handle(Req, _Opts) ->
+  case cowboy_req:method(Req) of
+    <<"GET">> -> get_stats(Req);
+    _ -> send_error(Req, 405, <<"Method not allowed">>)
+  end.
+
+get_stats(Req) ->
+  case handler_auth:authenticate(Req) of
+    {ok, AdminId, Req1} ->
+      case is_admin(AdminId) of
+        true ->
+          Stats = #{
+            users => count_users(),
+            calendars => count_calendars(),
+            events => count_events(),
+            bookings => count_bookings(),
+            reviews => count_reviews(),
+            reports => count_reports(),
+            tickets => count_tickets(),
+            subscriptions => count_subscriptions()
+          },
+          send_json(Req1, 200, Stats);
+        false ->
+          send_error(Req1, 403, <<"Admin access required">>)
+      end;
+    {error, Code, Message, Req1} ->
+      send_error(Req1, Code, Message)
+  end.
+
+%% Вспомогательные функции
+is_admin(UserId) ->
+  case core_user:get_by_id(UserId) of
+    {ok, User} -> User#user.role =:= admin;
+    _ -> false
+  end.
+
+count_users() ->
+  length(mnesia:dirty_match_object(#user{_ = '_'})).
+
+count_calendars() ->
+  length(mnesia:dirty_match_object(#calendar{_ = '_'})).
+
+count_events() ->
+  length(mnesia:dirty_match_object(#event{is_instance = false, _ = '_'})).
+
+count_bookings() ->
+  length(mnesia:dirty_match_object(#booking{_ = '_'})).
+
+count_reviews() ->
+  length(mnesia:dirty_match_object(#review{_ = '_'})).
+
+count_reports() ->
+  length(mnesia:dirty_match_object(#report{_ = '_'})).
+
+count_tickets() ->
+  length(mnesia:dirty_match_object(#ticket{_ = '_'})).
+
+count_subscriptions() ->
+  length(mnesia:dirty_match_object(#subscription{_ = '_'})).
+
+send_json(Req, Status, Data) ->
+  Body = jsx:encode(Data),
+  cowboy_req:reply(Status, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+  {ok, Body, []}.
+
+send_error(Req, Status, Message) ->
+  Body = jsx:encode(#{error => Message}),
+  cowboy_req:reply(Status, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+  {ok, Body, []}.

src/handlers/admin/admin_handler_user_by_id.erl

@@ -0,0 +1,129 @@
+-module(admin_handler_user_by_id).
+-include("records.hrl").
+
+-export([init/2]).
+-export([user_to_json/1, convert_updates/1]).
+
+init(Req, Opts) ->
+  handle(Req, Opts).
+
+handle(Req, _Opts) ->
+  case cowboy_req:method(Req) of
+    <<"GET">> -> get_user(Req);
+    <<"PUT">> -> update_user(Req);
+    <<"DELETE">> -> delete_user(Req);
+    _ -> send_error(Req, 405, <<"Method not allowed">>)
+  end.
+
+get_user(Req) ->
+  case handler_auth:authenticate(Req) of
+    {ok, AdminId, Req1} ->
+      case is_admin(AdminId) of
+        true ->
+          UserId = cowboy_req:binding(id, Req1),
+          case core_user:get_by_id(UserId) of
+            {ok, User} ->
+              case User#user.status of
+                deleted -> send_error(Req1, 404, <<"User not found">>);
+                _ -> send_json(Req1, 200, user_to_json(User))
+              end;
+            {error, not_found} ->
+              send_error(Req1, 404, <<"User not found">>)
+          end;
+        false ->
+          send_error(Req1, 403, <<"Admin access required">>)
+      end;
+    {error, Code, Message, Req1} ->
+      send_error(Req1, Code, Message)
+  end.
+
+update_user(Req) ->
+  case handler_auth:authenticate(Req) of
+    {ok, AdminId, Req1} ->
+      case is_admin(AdminId) of
+        true ->
+          UserId = cowboy_req:binding(id, Req1),
+          {ok, Body, Req2} = cowboy_req:read_body(Req1),
+          try jsx:decode(Body, [return_maps]) of
+            Decoded when is_map(Decoded) ->
+              Updates = maps:to_list(Decoded),
+              % Преобразуем бинарные значения в атомы где нужно
+              ConvertedUpdates = convert_updates(Updates),
+              case core_user:update(UserId, ConvertedUpdates) of
+                {ok, User} ->
+                  send_json(Req2, 200, user_to_json(User));
+                {error, not_found} ->
+                  send_error(Req2, 404, <<"User not found">>);
+                {error, _} ->
+                  send_error(Req2, 500, <<"Internal server error">>)
+              end;
+            _ ->
+              send_error(Req2, 400, <<"Invalid JSON">>)
+          catch
+            _:_ -> send_error(Req2, 400, <<"Invalid JSON format">>)
+          end;
+        false ->
+          send_error(Req1, 403, <<"Admin access required">>)
+      end;
+    {error, Code, Message, Req1} ->
+      send_error(Req1, Code, Message)
+  end.
+
+convert_updates(Updates) ->
+  lists:map(fun
+              ({<<"status">>, <<"active">>}) -> {status, active};
+              ({<<"status">>, <<"frozen">>}) -> {status, frozen};
+              ({<<"status">>, <<"deleted">>}) -> {status, deleted};
+              ({<<"role">>, <<"user">>}) -> {role, user};
+              ({<<"role">>, <<"admin">>}) -> {role, admin};
+              (Other) -> Other
+            end, Updates).
+
+delete_user(Req) ->
+  case handler_auth:authenticate(Req) of
+    {ok, AdminId, Req1} ->
+      case is_admin(AdminId) of
+        true ->
+          UserId = cowboy_req:binding(id, Req1),
+          case core_user:delete(UserId) of
+            {ok, _} ->
+              send_json(Req1, 200, #{status => <<"deleted">>});
+            {error, not_found} ->
+              send_error(Req1, 404, <<"User not found">>)
+          end;
+        false ->
+          send_error(Req1, 403, <<"Admin access required">>)
+      end;
+    {error, Code, Message, Req1} ->
+      send_error(Req1, Code, Message)
+  end.
+
+is_admin(UserId) ->
+  case core_user:get_by_id(UserId) of
+    {ok, User} -> User#user.role =:= admin;
+    _ -> false
+  end.
+
+user_to_json(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)
+  }.
+
+datetime_to_iso8601({{Year, Month, Day}, {Hour, Minute, Second}}) ->
+  iolist_to_binary(io_lib:format("~4..0B-~2..0B-~2..0BT~2..0B:~2..0B:~2..0BZ",
+    [Year, Month, Day, Hour, Minute, Second])).
+
+send_json(Req, Status, Data) ->
+  Body = jsx:encode(Data),
+  cowboy_req:reply(Status, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+  {ok, Body, []}.
+
+send_error(Req, Status, Message) ->
+  Body = jsx:encode(#{error => Message}),
+  cowboy_req:reply(Status, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+  {ok, Body, []}.

src/handlers/admin/admin_handler_users.erl

@@ -0,0 +1,59 @@
+-module(admin_handler_users).
+-include("records.hrl").
+
+-export([init/2]).
+
+init(Req, Opts) ->
+  handle(Req, Opts).
+
+handle(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],
+          send_json(Req1, 200, Response);
+        false ->
+          send_error(Req1, 403, <<"Admin access required">>)
+      end;
+    {error, Code, Message, Req1} ->
+      send_error(Req1, Code, Message)
+  end.
+
+is_admin(UserId) ->
+  case core_user:get_by_id(UserId) of
+    {ok, User} -> User#user.role =:= admin;
+    _ -> false
+  end.
+
+user_to_json(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)
+  }.
+
+datetime_to_iso8601({{Year, Month, Day}, {Hour, Minute, Second}}) ->
+  iolist_to_binary(io_lib:format("~4..0B-~2..0B-~2..0BT~2..0B:~2..0B:~2..0BZ",
+    [Year, Month, Day, Hour, Minute, Second])).
+
+send_json(Req, Status, Data) ->
+  Body = jsx:encode(Data),
+  cowboy_req:reply(Status, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+  {ok, Body, []}.
+
+send_error(Req, Status, Message) ->
+  Body = jsx:encode(#{error => Message}),
+  cowboy_req:reply(Status, #{<<"content-type">> => <<"application/json">>}, Body, Req),
+  {ok, Body, []}.

src/handlers/admin/admin_ws_handler.erl

@@ -0,0 +1,87 @@
+-module(admin_ws_handler).
+-behaviour(cowboy_websocket).
+
+-export([init/2]).
+-export([websocket_init/1]).
+-export([websocket_handle/2]).
+-export([websocket_info/2]).
+-export([terminate/3]).
+
+-record(state, {
+  admin_id :: binary() | undefined
+}).
+
+init(Req, _Opts) ->
+  Qs = cowboy_req:parse_qs(Req),
+  case proplists:get_value(<<"token">>, Qs) of
+    undefined ->
+      io:format("[ADMIN_WS] Missing token~n"),
+      Resp = cowboy_req:reply(401, #{}, <<"Missing token">>, Req),
+      {ok, Resp, undefined};
+    Token ->
+      io:format("[ADMIN_WS] Token received: ~s...~n", [binary_part(Token, 0, 30)]),
+      case logic_auth:verify_jwt(Token) of
+        {ok, Claims} ->
+          UserId = maps:get(<<"user_id">>, Claims),
+          Role = maps:get(<<"role">>, Claims),
+          io:format("[ADMIN_WS] UserId: ~s, Role: ~s~n", [UserId, Role]),
+          case Role of
+            <<"admin">> ->
+              io:format("[ADMIN_WS] Admin access granted~n"),
+              {cowboy_websocket, Req, #state{admin_id = UserId}};
+            _ ->
+              io:format("[ADMIN_WS] Access denied: not admin~n"),
+              Resp = cowboy_req:reply(403, #{}, <<"Admin access required">>, Req),
+              {ok, Resp, undefined}
+          end;
+        {error, expired} ->
+          io:format("[ADMIN_WS] Token expired~n"),
+          Resp = cowboy_req:reply(401, #{}, <<"Token expired">>, Req),
+          {ok, Resp, undefined};
+        {error, Reason} ->
+          io:format("[ADMIN_WS] Invalid token: ~p~n", [Reason]),
+          Resp = cowboy_req:reply(401, #{}, <<"Invalid token">>, Req),
+          {ok, Resp, undefined}
+      end
+  end.
+
+websocket_init(State) ->
+  io:format("[ADMIN_WS] WebSocket initialized for admin ~s~n", [State#state.admin_id]),
+  pg:join(eventhub_admin_ws, self()),
+  {ok, State}.
+
+websocket_handle({text, Msg}, State) ->
+  io:format("[ADMIN_WS] Received: ~s~n", [Msg]),
+  try jsx:decode(Msg, [return_maps]) of
+    #{<<"action">> := <<"subscribe">>, <<"channel">> := Channel} ->
+      pg:join({eventhub_admin_channel, Channel}, self()),
+      Reply = jsx:encode(#{status => <<"subscribed">>, channel => Channel}),
+      {reply, {text, Reply}, State};
+    #{<<"action">> := <<"unsubscribe">>, <<"channel">> := Channel} ->
+      pg:leave({eventhub_admin_channel, Channel}, self()),
+      Reply = jsx:encode(#{status => <<"unsubscribed">>, channel => Channel}),
+      {reply, {text, Reply}, State};
+    #{<<"action">> := <<"ping">>} ->
+      {reply, {text, <<"{\"status\":\"pong\"}">>}, State};
+    _ ->
+      {ok, State}
+  catch
+    _:_ ->
+      {ok, State}
+  end;
+websocket_handle(_Frame, State) ->
+  {ok, State}.
+
+websocket_info({admin_notification, Type, Data}, State) ->
+  Msg = jsx:encode(#{
+    type => Type,
+    data => Data,
+    timestamp => os:system_time(seconds)
+  }),
+  {reply, {text, Msg}, State};
+websocket_info(_Info, State) ->
+  {ok, State}.
+
+terminate(_Reason, _Req, _State) ->
+  pg:leave(eventhub_admin_ws, self()),
+  ok.