Add admin dashboard, event reporting, moderation report screens, moderation log

Close #156 and #158

Signed-off-by: Thomas Citharel <tcit@tcit.fr>

lib/service/activity_pub/activity_pub.ex

@@ -335,9 +335,8 @@ defmodule Mobilizon.Service.ActivityPub do
 
     with {:ok, _} <- Events.delete_event(event),
          {:ok, activity} <- create_activity(data, local),
-         {:ok, object} <- insert_full_object(data),
          :ok <- maybe_federate(activity) do
-      {:ok, activity, object}
+      {:ok, activity, event}
     end
   end
 
@@ -521,7 +520,8 @@ defmodule Mobilizon.Service.ActivityPub do
 
     public = is_public?(activity)
 
-    if public && Mobilizon.CommonConfig.get([:instance, :allow_relay]) do
+    if public && is_delete_activity?(activity) == false &&
+         Mobilizon.CommonConfig.get([:instance, :allow_relay]) do
       Logger.info(fn -> "Relaying #{activity.data["id"]} out" end)
       Mobilizon.Service.ActivityPub.Relay.publish(activity)
     end
@@ -552,6 +552,9 @@ defmodule Mobilizon.Service.ActivityPub do
     end)
   end
 
+  defp is_delete_activity?(%Activity{data: %{"type" => "Delete"}}), do: true
+  defp is_delete_activity?(_), do: false
+
   @doc """
   Publish an activity to a specific inbox
   """

lib/service/activity_pub/utils.ex

@@ -164,14 +164,14 @@ defmodule Mobilizon.Service.ActivityPub.Utils do
          {:ok, %Report{} = report} <- Reports.create_report(data) do
       Enum.each(Users.list_moderators(), fn moderator ->
         moderator
-        |> Mobilizon.Email.Admin.report(moderator, report)
+        |> Mobilizon.Email.Admin.report(report)
         |> Mobilizon.Mailer.deliver_later()
       end)
 
       {:ok, report}
     else
       err ->
-        Logger.error("Error while inserting a remote comment inside database")
+        Logger.error("Error while inserting report inside database")
         Logger.debug(inspect(err))
         {:error, err}
     end