Добавлены эндпойнты admin/v1/events и admin/v1/events/:id #20

2026-05-08 19:02:35 +03:00
parent 393cf00631
commit 1132341b92
9 changed files with 456 additions and 3 deletions
@@ -0,0 +1,131 @@
+-module(admin_handler_events).
+-behaviour(cowboy_handler).
+
+-export([init/2]).
+-include("records.hrl").
+
+init(Req, _Opts) ->
+  case cowboy_req:method(Req) of
+    <<"GET">> ->
+      list_all_events(Req);
+    _ ->
+      send_error(Req, 405, <<"Method not allowed">>)
+  end.
+
+%% GET /v1/admin/events
+list_all_events(Req) ->
+  case auth_admin(Req) of
+    {ok, _AdminId, Req1} ->
+      Filters = parse_filters(Req1),
+      {ok, Events} = logic_event:list_all_events(Filters),
+      Json = [event_to_json(E) || E <- Events],
+      send_json(Req1, 200, Json);
+    {error, Code, Msg, Req1} ->
+      send_error(Req1, Code, Msg)
+  end.
+
+%% --- Вспомогательные функции ---
+
+parse_filters(Req) ->
+  Qs = cowboy_req:parse_qs(Req),
+  lists:filtermap(
+    fun
+      ({<<"from">>, Val}) -> {true, {from, parse_datetime_binary(Val)}};
+      ({<<"to">>, Val}) -> {true, {to, parse_datetime_binary(Val)}};
+      (_) -> false
+    end,
+    Qs
+  ).
+
+auth_admin(Req) ->
+  case handler_auth:authenticate(Req) of
+    {ok, AdminId, Req1} ->
+      case admin_utils:is_admin(AdminId) of
+        true -> {ok, AdminId, Req1};
+        false -> {error, 403, <<"Admin access required">>, Req1}
+      end;
+    {error, Code, Msg, Req1} ->
+      {error, Code, Msg, Req1}
+  end.
+
+%% Сериализация события (полностью скопирована из handler_event_by_id.erl)
+event_to_json(Event) ->
+  LocationJson = case Event#event.location of
+                   undefined -> null;
+                   #location{address = Addr, lat = Lat, lon = Lon} ->
+                     #{address => Addr, lat => Lat, lon => Lon}
+                 end,
+  RecurrenceJson = case Event#event.recurrence_rule of
+                     undefined -> null;
+                     Rule ->
+                       try jsx:decode(Rule, [return_maps]) of
+                         Map when is_map(Map) -> Map;
+                         _ -> null
+                       catch _:_ -> null
+                       end
+                   end,
+  #{
+    id => Event#event.id,
+    calendar_id => Event#event.calendar_id,
+    title => Event#event.title,
+    description => Event#event.description,
+    event_type => Event#event.event_type,
+    start_time => datetime_to_iso8601(Event#event.start_time),
+    duration => Event#event.duration,
+    recurrence => RecurrenceJson,
+    master_id => Event#event.master_id,
+    is_instance => Event#event.is_instance,
+    specialist_id => Event#event.specialist_id,
+    location => LocationJson,
+    tags => Event#event.tags,
+    capacity => Event#event.capacity,
+    online_link => Event#event.online_link,
+    status => Event#event.status,
+    rating_avg => Event#event.rating_avg,
+    rating_count => Event#event.rating_count,
+    created_at => datetime_to_iso8601(Event#event.created_at),
+    updated_at => datetime_to_iso8601(Event#event.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]
+    )
+  );
+datetime_to_iso8601(undefined) ->
+  undefined.
+
+parse_datetime_binary(Str) ->
+  case parse_datetime(Str) of
+    {ok, Dt} -> Dt;
+    _ -> undefined
+  end.
+
+parse_datetime(Str) ->
+  try
+    [DateStr, TimeStr] = string:split(Str, "T"),
+    TimeStrNoZ = string:trim(TimeStr, trailing, "Z"),
+    [YearStr, MonthStr, DayStr] = string:split(DateStr, "-", all),
+    [HourStr, MinuteStr, SecondStr] = string:split(TimeStrNoZ, ":", all),
+    Year = binary_to_integer(list_to_binary(YearStr)),
+    Month = binary_to_integer(list_to_binary(MonthStr)),
+    Day = binary_to_integer(list_to_binary(DayStr)),
+    Hour = binary_to_integer(list_to_binary(HourStr)),
+    Minute = binary_to_integer(list_to_binary(MinuteStr)),
+    Second = binary_to_integer(list_to_binary(SecondStr)),
+    {ok, {{Year, Month, Day}, {Hour, Minute, Second}}}
+  catch _:_ -> {error, invalid_format}
+  end.
+
+send_json(Req, Status, Data) ->
+  Body = jsx:encode(Data),
+  Headers = #{<<"content-type">> => <<"application/json">>},
+  cowboy_req:reply(Status, Headers, 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, []}.