CI/CD: ci, deploy-ift и deploy-stage через EventHubDevOps; фиксы calendar view, archive, API-тесты, traefik-coraza

src/handlers/handler_calendar_view.erl

@@ -14,6 +14,8 @@
 
 -include("records.hrl").
 
+-define(ARCHIVE_CALL_TIMEOUT, 3000).
+
 %%% cowboy_handler callback
 -spec init(cowboy_req:req(), any()) -> {ok, cowboy_req:req(), any()}.
 init(Req, Opts) ->
@@ -135,10 +137,28 @@ fetch_hot_events(CalendarId, Year, Month) ->
   ]).
 
 %% @private Извлекает архивные события через RPC на архивный узел.
+%% При недоступности архива возвращает события из основной Mnesia.
 -spec fetch_archive_events(binary(), integer(), integer()) -> list(#event{}).
 fetch_archive_events(CalendarId, Year, Month) ->
-  DayStr = io_lib:format("~4..0B~2..0B", [Year, Month]),
-  case archive_manager:get_archive_node(lists:flatten(DayStr)) of
-    {ok, Node} -> rpc:call(Node, archive_fetcher, fetch, [CalendarId, Year, Month]);
-    {error, _} -> []
+  DayStr = lists:flatten(io_lib:format("~4..0B~2..0B", [Year, Month])),
+  case safe_get_archive_node(DayStr) of
+    {ok, Node} ->
+      case rpc:call(Node, archive_fetcher, fetch, [CalendarId, Year, Month],
+                    ?ARCHIVE_CALL_TIMEOUT) of
+        Events when is_list(Events) -> Events;
+        _ -> fetch_hot_events(CalendarId, Year, Month)
+      end;
+    {error, _} ->
+      fetch_hot_events(CalendarId, Year, Month)
+  end.
+
+-spec safe_get_archive_node(string()) -> {ok, node()} | {error, term()}.
+safe_get_archive_node(Day) ->
+  try gen_server:call(archive_manager, {get_node, Day}, ?ARCHIVE_CALL_TIMEOUT) of
+    {ok, Node} when is_atom(Node) -> {ok, Node};
+    {error, Reason} -> {error, Reason};
+    Other -> {error, Other}
+  catch
+    exit:{timeout, _} -> {error, timeout};
+    exit:{noproc, _} -> {error, noproc}
   end.