Refresh subscriptions.
[akkoma] / lib / pleroma / web / federator / federator.ex
1 defmodule Pleroma.Web.Federator do
2 use GenServer
3 alias Pleroma.User
4 alias Pleroma.Web.{WebFinger, Websub}
5 require Logger
6
7 @websub Application.get_env(:pleroma, :websub)
8 @ostatus Application.get_env(:pleroma, :ostatus)
9 @max_jobs 10
10
11 def start_link do
12 spawn(fn ->
13 Process.sleep(1000 * 60 * 1) # 10 minutes
14 enqueue(:refresh_subscriptions, nil)
15 end)
16 GenServer.start_link(__MODULE__, {:sets.new(), :queue.new()}, name: __MODULE__)
17 end
18
19 def handle(:refresh_subscriptions, _) do
20 Logger.debug("Federator running refresh subscriptions")
21 Websub.refresh_subscriptions()
22 spawn(fn ->
23 Process.sleep(1000 * 60 * 60) # 60 minutes
24 enqueue(:refresh_subscriptions, nil)
25 end)
26 end
27
28 def handle(:publish, activity) do
29 Logger.debug(fn -> "Running publish for #{activity.data["id"]}" end)
30 with actor when not is_nil(actor) <- User.get_cached_by_ap_id(activity.data["actor"]) do
31 Logger.debug(fn -> "Sending #{activity.data["id"]} out via websub" end)
32 Websub.publish(Pleroma.Web.OStatus.feed_path(actor), actor, activity)
33
34 {:ok, actor} = WebFinger.ensure_keys_present(actor)
35 Logger.debug(fn -> "Sending #{activity.data["id"]} out via salmon" end)
36 Pleroma.Web.Salmon.publish(actor, activity)
37 end
38 end
39
40 def handle(:verify_websub, websub) do
41 Logger.debug(fn -> "Running websub verification for #{websub.id} (#{websub.topic}, #{websub.callback})" end)
42 @websub.verify(websub)
43 end
44
45 def handle(:incoming_doc, doc) do
46 Logger.debug("Got document, trying to parse")
47 @ostatus.handle_incoming(doc)
48 end
49
50 def handle(type, payload) do
51 Logger.debug(fn -> "Unknown task: #{type}" end)
52 {:error, "Don't know what do do with this"}
53 end
54
55 def enqueue(type, payload) do
56 if Mix.env == :test do
57 handle(type, payload)
58 else
59 GenServer.cast(__MODULE__, {:enqueue, type, payload})
60 end
61 end
62
63 def maybe_start_job(running_jobs, queue) do
64 if (:sets.size(running_jobs) < @max_jobs) && !:queue.is_empty(queue) do
65 {{:value, {type, payload}}, queue} = :queue.out(queue)
66 {:ok, pid} = Task.start(fn -> handle(type, payload) end)
67 mref = Process.monitor(pid)
68 {:sets.add_element(mref, running_jobs), queue}
69 else
70 {running_jobs, queue}
71 end
72 end
73
74 def handle_cast({:enqueue, type, payload}, {running_jobs, queue}) do
75 queue = :queue.in({type, payload}, queue)
76 {running_jobs, queue} = maybe_start_job(running_jobs, queue)
77 {:noreply, {running_jobs, queue}}
78 end
79
80 def handle_info({:DOWN, ref, :process, _pid, _reason}, {running_jobs, queue}) do
81 running_jobs = :sets.del_element(ref, running_jobs)
82 {running_jobs, queue} = maybe_start_job(running_jobs, queue)
83 {:noreply, {running_jobs, queue}}
84 end
85
86 def handle_cast(m, state) do
87 IO.inspect("Unknown: #{inspect(m)}, #{inspect(state)}")
88 {:noreply, state}
89 end
90 end