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

src/archive/archive_fetcher.erl

@@ -4,9 +4,9 @@
 -export([fetch/3]).
 
 fetch(CalendarId, Year, Month) ->
-  Start = {Year, Month, 1, 0, 0, 0},
-  End   = {Year, Month, 31, 23, 59, 59},
+  Start = {{Year, Month, 1}, {0, 0, 0}},
+  End   = {{Year, Month, calendar:last_day_of_the_month(Year, Month)}, {23, 59, 59}},
   mnesia:dirty_select(event, [{#event{calendar_id = CalendarId,
     start_time = '$1', _ = '_'},
-    [{'>=','$1', Start},{'=<','$1', End}],
+    [{'>=', '$1', {const, Start}}, {'=<', '$1', {const, End}}],
     ['$_']}]).

src/archive/archive_manager.erl

@@ -16,7 +16,7 @@ init([]) ->
   {ok, #{}}.
 
 handle_call({get_node, Day}, _From, State) ->
-  Node = list_to_atom("eventhub_archive_" ++ Day ++ "@" ++ host()),
+  Node = archive_node_name(Day),
   case maps:find(Node, State) of
     {ok, _Info} ->   % переменная не используется, ок
       {reply, {ok, Node}, update_access(State, Node)};
@@ -55,14 +55,48 @@ update_access(State, Node) ->
   State#{Node => Info#{timer => Ref, last_access => erlang:monotonic_time()}}.
 
 start_archive_node(Day) ->
-  Node = list_to_atom("eventhub_archive_" ++ Day ++ "@" ++ host()),
-  case slave:start(host(), Node) of
+  Node = archive_node_name(Day),
+  case start_archive_peer(Node) of
     {ok, _} ->
-      rpc:call(Node, mnesia, start, []),
-      {ok, Node};
-    Error -> Error
+      case ensure_archive_node_ready(Node) of
+        ok -> {ok, Node};
+        {error, Reason} -> {error, Reason}
+      end;
+    {error, Reason} ->
+      {error, Reason}
   end.
 
+start_archive_peer(Node) ->
+  case os:getenv("CLUSTER_MODE") of
+    "true" ->
+      case peer:start_link(#{name => Node, host => host()}) of
+        {ok, _} -> {ok, Node};
+        {error, {already_started, _}} -> {ok, Node};
+        Error -> Error
+      end;
+    _ ->
+      CookieStr = atom_to_list(erlang:get_cookie()),
+      case slave:start(host(), Node, "-setcookie " ++ CookieStr) of
+        {ok, _} -> {ok, Node};
+        Error -> Error
+      end
+  end.
+
+ensure_archive_node_ready(Node) ->
+  case rpc:call(Node, mnesia, start, [], 5000) of
+    ok ->
+      case rpc:call(Node, code, ensure_loaded, [archive_fetcher], 5000) of
+        {module, archive_fetcher} -> ok;
+        {error, Reason} -> {error, Reason};
+        {badrpc, Reason} -> {error, Reason}
+      end;
+    {badrpc, Reason} -> {error, Reason};
+    Other -> {error, Other}
+  end.
+
+archive_node_name(Day) ->
+  list_to_atom("eventhub_archive_" ++ Day ++ "@" ++ host()).
+
 stop_archive_node(Node) ->
   rpc:cast(Node, init, stop, []).