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

Close #156 and #158

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

lib/mobilizon_web/resolvers/event.ex

@@ -9,7 +9,10 @@ defmodule MobilizonWeb.Resolvers.Event do
   alias Mobilizon.Events.{Event, Participant}
   alias Mobilizon.Media.Picture
   alias Mobilizon.Users.User
+  alias Mobilizon.Actors
+  alias Mobilizon.Actors.Actor
   alias MobilizonWeb.Resolvers.Person
+  import Mobilizon.Service.Admin.ActionLogService
 
   # We limit the max number of events that can be retrieved
   @event_max_limit 100
@@ -328,28 +331,43 @@ defmodule MobilizonWeb.Resolvers.Event do
         %{event_id: event_id, actor_id: actor_id},
         %{
           context: %{
-            current_user: user
+            current_user: %User{role: role} = user
           }
         }
       ) do
-    with {:ok, %Event{} = event} <- Mobilizon.Events.get_event(event_id),
-         {:is_owned, true, _} <- User.owns_actor(user, actor_id),
-         {:event_can_be_managed, true} <- Event.can_event_be_managed_by(event, actor_id),
-         event <- Mobilizon.Events.delete_event!(event) do
-      {:ok, %{id: event.id}}
+    with {:ok, %Event{local: is_local} = event} <- Mobilizon.Events.get_event_full(event_id),
+         {actor_id, ""} <- Integer.parse(actor_id),
+         {:is_owned, true, _} <- User.owns_actor(user, actor_id) do
+      cond do
+        Event.can_event_be_managed_by(event, actor_id) == {:event_can_be_managed, true} ->
+          do_delete_event(event)
+
+        role in [:moderator, :administrator] ->
+          with {:ok, res} <- do_delete_event(event, !is_local),
+               %Actor{} = actor <- Actors.get_actor(actor_id) do
+            log_action(actor, "delete", event)
+            {:ok, res}
+          end
+
+        true ->
+          {:error, "You cannot delete this event"}
+      end
     else
       {:error, :event_not_found} ->
         {:error, "Event not found"}
 
       {:is_owned, false} ->
         {:error, "Actor id is not owned by authenticated user"}
-
-      {:event_can_be_managed, false} ->
-        {:error, "You cannot delete this event"}
     end
   end
 
   def delete_event(_parent, _args, _resolution) do
     {:error, "You need to be logged-in to delete an event"}
   end
+
+  defp do_delete_event(event, federate \\ true) when is_boolean(federate) do
+    with {:ok, _activity, event} <- MobilizonWeb.API.Events.delete_event(event) do
+      {:ok, %{id: event.id}}
+    end
+  end
 end