127 lines
3.7 KiB
Elixir
127 lines
3.7 KiB
Elixir
defmodule Eventos.Service.Federator do
|
|
use GenServer
|
|
alias Eventos.Actors
|
|
alias Eventos.Activity
|
|
alias Eventos.Service.ActivityPub
|
|
alias Eventos.Service.ActivityPub.Transmogrifier
|
|
require Logger
|
|
|
|
@max_jobs 20
|
|
|
|
def init(args) do
|
|
{:ok, args}
|
|
end
|
|
|
|
def start_link do
|
|
|
|
spawn(fn ->
|
|
# 1 minute
|
|
Process.sleep(1000 * 60 * 1)
|
|
end)
|
|
|
|
GenServer.start_link(
|
|
__MODULE__,
|
|
%{
|
|
in: {:sets.new(), []},
|
|
out: {:sets.new(), []}
|
|
},
|
|
name: __MODULE__
|
|
)
|
|
end
|
|
|
|
def handle(:publish, activity) do
|
|
Logger.debug(inspect activity)
|
|
Logger.debug(fn -> "Running publish for #{activity.data["id"]}" end)
|
|
|
|
with actor when not is_nil(actor) <- Actors.get_actor_by_url(activity.data["actor"]) do
|
|
|
|
Logger.info(fn -> "Sending #{activity.data["id"]} out via AP" end)
|
|
ActivityPub.publish(actor, activity)
|
|
end
|
|
end
|
|
|
|
def handle(:incoming_ap_doc, params) do
|
|
Logger.info("Handling incoming AP activity")
|
|
Logger.debug(inspect params)
|
|
|
|
with {:ok, _activity} <- Transmogrifier.handle_incoming(params) do
|
|
else
|
|
%Activity{} ->
|
|
Logger.info("Already had #{params["id"]}")
|
|
|
|
_e ->
|
|
# Just drop those for now
|
|
Logger.info("Unhandled activity")
|
|
Logger.info(Poison.encode!(params, pretty: 2))
|
|
end
|
|
end
|
|
|
|
def handle(:publish_single_ap, params) do
|
|
ActivityPub.publish_one(params)
|
|
end
|
|
|
|
def handle(type, _) do
|
|
Logger.debug(fn -> "Unknown task: #{type}" end)
|
|
{:error, "Don't know what to do with this"}
|
|
end
|
|
|
|
def enqueue(type, payload, priority \\ 1) do
|
|
Logger.debug("enqueue")
|
|
if Mix.env() == :test do
|
|
handle(type, payload)
|
|
else
|
|
GenServer.cast(__MODULE__, {:enqueue, type, payload, priority})
|
|
end
|
|
end
|
|
|
|
def maybe_start_job(running_jobs, queue) do
|
|
if :sets.size(running_jobs) < @max_jobs && queue != [] do
|
|
{{type, payload}, queue} = queue_pop(queue)
|
|
{:ok, pid} = Task.start(fn -> handle(type, payload) end)
|
|
mref = Process.monitor(pid)
|
|
{:sets.add_element(mref, running_jobs), queue}
|
|
else
|
|
{running_jobs, queue}
|
|
end
|
|
end
|
|
|
|
def handle_cast({:enqueue, type, payload, _priority}, state)
|
|
when type in [:incoming_doc, :incoming_ap_doc] do
|
|
%{in: {i_running_jobs, i_queue}, out: {o_running_jobs, o_queue}} = state
|
|
i_queue = enqueue_sorted(i_queue, {type, payload}, 1)
|
|
{i_running_jobs, i_queue} = maybe_start_job(i_running_jobs, i_queue)
|
|
{:noreply, %{in: {i_running_jobs, i_queue}, out: {o_running_jobs, o_queue}}}
|
|
end
|
|
|
|
def handle_cast({:enqueue, type, payload, _priority}, state) do
|
|
%{in: {i_running_jobs, i_queue}, out: {o_running_jobs, o_queue}} = state
|
|
o_queue = enqueue_sorted(o_queue, {type, payload}, 1)
|
|
{o_running_jobs, o_queue} = maybe_start_job(o_running_jobs, o_queue)
|
|
{:noreply, %{in: {i_running_jobs, i_queue}, out: {o_running_jobs, o_queue}}}
|
|
end
|
|
|
|
def handle_cast(m, state) do
|
|
IO.inspect("Unknown: #{inspect(m)}, #{inspect(state)}")
|
|
{:noreply, state}
|
|
end
|
|
|
|
def handle_info({:DOWN, ref, :process, _pid, _reason}, state) do
|
|
%{in: {i_running_jobs, i_queue}, out: {o_running_jobs, o_queue}} = state
|
|
i_running_jobs = :sets.del_element(ref, i_running_jobs)
|
|
o_running_jobs = :sets.del_element(ref, o_running_jobs)
|
|
{i_running_jobs, i_queue} = maybe_start_job(i_running_jobs, i_queue)
|
|
{o_running_jobs, o_queue} = maybe_start_job(o_running_jobs, o_queue)
|
|
|
|
{:noreply, %{in: {i_running_jobs, i_queue}, out: {o_running_jobs, o_queue}}}
|
|
end
|
|
|
|
def enqueue_sorted(queue, element, priority) do
|
|
[%{item: element, priority: priority} | queue]
|
|
|> Enum.sort_by(fn %{priority: priority} -> priority end)
|
|
end
|
|
|
|
def queue_pop([%{item: element} | queue]) do
|
|
{element, queue}
|
|
end
|
|
end
|