mirror of
https://framagit.org/framasoft/mobilizon.git
synced 2024-12-23 16:33:28 +00:00
49a5725da3
Signed-off-by: Thomas Citharel <tcit@tcit.fr>
339 lines
9.7 KiB
Elixir
339 lines
9.7 KiB
Elixir
defmodule Mobilizon.GraphQL.Resolvers.Admin do
|
|
@moduledoc """
|
|
Handles the report-related GraphQL calls.
|
|
"""
|
|
|
|
import Mobilizon.Users.Guards
|
|
|
|
alias Mobilizon.{Actors, Admin, Config, Events}
|
|
alias Mobilizon.Actors.Actor
|
|
alias Mobilizon.Admin.{ActionLog, Setting}
|
|
alias Mobilizon.Config
|
|
alias Mobilizon.Discussions.Comment
|
|
alias Mobilizon.Events.Event
|
|
alias Mobilizon.Federation.ActivityPub
|
|
alias Mobilizon.Federation.ActivityPub.Relay
|
|
alias Mobilizon.Reports.{Note, Report}
|
|
alias Mobilizon.Service.Statistics
|
|
alias Mobilizon.Storage.Page
|
|
alias Mobilizon.Users.User
|
|
import Mobilizon.Web.Gettext
|
|
require Logger
|
|
|
|
def list_action_logs(
|
|
_parent,
|
|
%{page: page, limit: limit},
|
|
%{context: %{current_user: %User{role: role}}}
|
|
)
|
|
when is_moderator(role) do
|
|
with action_logs <- Mobilizon.Admin.list_action_logs(page, limit) do
|
|
action_logs =
|
|
action_logs
|
|
|> Enum.map(fn %ActionLog{
|
|
target_type: target_type,
|
|
action: action,
|
|
actor: actor,
|
|
id: id,
|
|
inserted_at: inserted_at
|
|
} = action_log ->
|
|
with data when is_map(data) <-
|
|
transform_action_log(String.to_existing_atom(target_type), action, action_log) do
|
|
Map.merge(data, %{actor: actor, id: id, inserted_at: inserted_at})
|
|
end
|
|
end)
|
|
|> Enum.filter(& &1)
|
|
|
|
{:ok, action_logs}
|
|
end
|
|
end
|
|
|
|
def list_action_logs(_parent, _args, _resolution) do
|
|
{:error, dgettext("errors", "You need to be logged-in and a moderator to list action logs")}
|
|
end
|
|
|
|
defp transform_action_log(
|
|
Report,
|
|
:update,
|
|
%ActionLog{} = action_log
|
|
) do
|
|
with %Report{} = report <- Mobilizon.Reports.get_report(action_log.target_id) do
|
|
action =
|
|
case action_log do
|
|
%ActionLog{changes: %{"status" => "closed"}} -> :report_update_closed
|
|
%ActionLog{changes: %{"status" => "open"}} -> :report_update_opened
|
|
%ActionLog{changes: %{"status" => "resolved"}} -> :report_update_resolved
|
|
end
|
|
|
|
%{
|
|
action: action,
|
|
object: report
|
|
}
|
|
end
|
|
end
|
|
|
|
defp transform_action_log(Note, :create, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :note_creation,
|
|
object: convert_changes_to_struct(Note, changes)
|
|
}
|
|
end
|
|
|
|
defp transform_action_log(Note, :delete, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :note_deletion,
|
|
object: convert_changes_to_struct(Note, changes)
|
|
}
|
|
end
|
|
|
|
defp transform_action_log(Event, :delete, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :event_deletion,
|
|
object: convert_changes_to_struct(Event, changes)
|
|
}
|
|
end
|
|
|
|
defp transform_action_log(Comment, :delete, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :comment_deletion,
|
|
object: convert_changes_to_struct(Comment, changes)
|
|
}
|
|
end
|
|
|
|
defp transform_action_log(Actor, :suspend, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :actor_suspension,
|
|
object: convert_changes_to_struct(Actor, changes)
|
|
}
|
|
end
|
|
|
|
defp transform_action_log(Actor, :unsuspend, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :actor_unsuspension,
|
|
object: convert_changes_to_struct(Actor, changes)
|
|
}
|
|
end
|
|
|
|
defp transform_action_log(User, :delete, %ActionLog{changes: changes}) do
|
|
%{
|
|
action: :user_deletion,
|
|
object: convert_changes_to_struct(User, changes)
|
|
}
|
|
end
|
|
|
|
# Changes are stored as %{"key" => "value"} so we need to convert them back as struct
|
|
defp convert_changes_to_struct(struct, %{"report_id" => _report_id} = changes) do
|
|
with data <- for({key, val} <- changes, into: %{}, do: {String.to_atom(key), val}),
|
|
data <- Map.put(data, :report, Mobilizon.Reports.get_report(data.report_id)) do
|
|
struct(struct, data)
|
|
end
|
|
end
|
|
|
|
defp convert_changes_to_struct(struct, changes) do
|
|
with changeset <- struct.__changeset__,
|
|
data <-
|
|
for(
|
|
{key, val} <- changes,
|
|
into: %{},
|
|
do: {String.to_atom(key), process_eventual_type(changeset, key, val)}
|
|
) do
|
|
struct(struct, data)
|
|
end
|
|
end
|
|
|
|
# datetimes are not unserialized as DateTime/NaiveDateTime so we do it manually with changeset data
|
|
defp process_eventual_type(changeset, key, val) do
|
|
cond do
|
|
changeset[String.to_atom(key)] == :utc_datetime and not is_nil(val) ->
|
|
{:ok, datetime, _} = DateTime.from_iso8601(val)
|
|
datetime
|
|
|
|
changeset[String.to_atom(key)] == :naive_datetime and not is_nil(val) ->
|
|
{:ok, datetime} = NaiveDateTime.from_iso8601(val)
|
|
datetime
|
|
|
|
true ->
|
|
val
|
|
end
|
|
end
|
|
|
|
def get_dashboard(_parent, _args, %{context: %{current_user: %User{role: role}}})
|
|
when is_admin(role) do
|
|
last_public_event_published =
|
|
case Events.list_events(1, 1, :inserted_at, :desc) do
|
|
[event | _] -> event
|
|
_ -> nil
|
|
end
|
|
|
|
{:ok,
|
|
%{
|
|
number_of_users: Statistics.get_cached_value(:local_users),
|
|
number_of_events: Statistics.get_cached_value(:local_events),
|
|
number_of_comments: Statistics.get_cached_value(:local_comments),
|
|
number_of_reports: Mobilizon.Reports.count_opened_reports(),
|
|
last_public_event_published: last_public_event_published
|
|
}}
|
|
end
|
|
|
|
def get_dashboard(_parent, _args, _resolution) do
|
|
{:error,
|
|
dgettext(
|
|
"errors",
|
|
"You need to be logged-in and an administrator to access dashboard statistics"
|
|
)}
|
|
end
|
|
|
|
def get_settings(_parent, _args, %{
|
|
context: %{current_user: %User{role: role}}
|
|
})
|
|
when is_admin(role) do
|
|
{:ok, Config.admin_settings()}
|
|
end
|
|
|
|
def get_settings(_parent, _args, _resolution) do
|
|
{:error,
|
|
dgettext("errors", "You need to be logged-in and an administrator to access admin settings")}
|
|
end
|
|
|
|
def save_settings(_parent, args, %{
|
|
context: %{current_user: %User{role: role}}
|
|
})
|
|
when is_admin(role) do
|
|
with {:ok, res} <- Admin.save_settings("instance", args),
|
|
res <-
|
|
res
|
|
|> Enum.map(fn {key, %Setting{value: value}} ->
|
|
case value do
|
|
"true" -> {key, true}
|
|
"false" -> {key, false}
|
|
value -> {key, value}
|
|
end
|
|
end)
|
|
|> Enum.into(%{}),
|
|
:ok <- eventually_update_instance_actor(res) do
|
|
Config.clear_config_cache()
|
|
Cachex.put(:config, :admin_config, res)
|
|
|
|
{:ok, res}
|
|
end
|
|
end
|
|
|
|
def save_settings(_parent, _args, _resolution) do
|
|
{:error,
|
|
dgettext("errors", "You need to be logged-in and an administrator to save admin settings")}
|
|
end
|
|
|
|
def list_relay_followers(
|
|
_parent,
|
|
%{page: page, limit: limit},
|
|
%{context: %{current_user: %User{role: role}}}
|
|
)
|
|
when is_admin(role) do
|
|
with %Actor{} = relay_actor <- Relay.get_actor() do
|
|
%Page{} =
|
|
page = Actors.list_external_followers_for_actor_paginated(relay_actor, page, limit)
|
|
|
|
{:ok, page}
|
|
end
|
|
end
|
|
|
|
def list_relay_followings(
|
|
_parent,
|
|
%{page: page, limit: limit},
|
|
%{context: %{current_user: %User{role: role}}}
|
|
)
|
|
when is_admin(role) do
|
|
with %Actor{} = relay_actor <- Relay.get_actor() do
|
|
%Page{} =
|
|
page = Actors.list_external_followings_for_actor_paginated(relay_actor, page, limit)
|
|
|
|
{:ok, page}
|
|
end
|
|
end
|
|
|
|
def create_relay(_parent, %{address: address}, %{context: %{current_user: %User{role: role}}})
|
|
when is_admin(role) do
|
|
case Relay.follow(address) do
|
|
{:ok, _activity, follow} ->
|
|
{:ok, follow}
|
|
|
|
{:error, err} when is_binary(err) ->
|
|
{:error, err}
|
|
end
|
|
end
|
|
|
|
def remove_relay(_parent, %{address: address}, %{context: %{current_user: %User{role: role}}})
|
|
when is_admin(role) do
|
|
case Relay.unfollow(address) do
|
|
{:ok, _activity, follow} ->
|
|
{:ok, follow}
|
|
|
|
{:error, {:error, err}} when is_bitstring(err) ->
|
|
{:error, err}
|
|
end
|
|
end
|
|
|
|
def accept_subscription(
|
|
_parent,
|
|
%{address: address},
|
|
%{context: %{current_user: %User{role: role}}}
|
|
)
|
|
when is_admin(role) do
|
|
case Relay.accept(address) do
|
|
{:ok, _activity, follow} ->
|
|
{:ok, follow}
|
|
|
|
{:error, {:error, err}} when is_bitstring(err) ->
|
|
{:error, err}
|
|
end
|
|
end
|
|
|
|
def reject_subscription(
|
|
_parent,
|
|
%{address: address},
|
|
%{context: %{current_user: %User{role: role}}}
|
|
)
|
|
when is_admin(role) do
|
|
case Relay.reject(address) do
|
|
{:ok, _activity, follow} ->
|
|
{:ok, follow}
|
|
|
|
{:error, {:error, err}} when is_bitstring(err) ->
|
|
{:error, err}
|
|
end
|
|
end
|
|
|
|
@spec eventually_update_instance_actor(map()) :: :ok
|
|
defp eventually_update_instance_actor(admin_setting_args) do
|
|
args = %{}
|
|
new_instance_description = Map.get(admin_setting_args, :instance_description)
|
|
new_instance_name = Map.get(admin_setting_args, :instance_name)
|
|
|
|
%{
|
|
instance_description: old_instance_description,
|
|
instance_name: old_instance_name
|
|
} = Config.admin_settings()
|
|
|
|
args =
|
|
if not is_nil(new_instance_description) &&
|
|
new_instance_description != old_instance_description,
|
|
do: Map.put(args, :summary, new_instance_description),
|
|
else: args
|
|
|
|
args =
|
|
if not is_nil(new_instance_name) && new_instance_name != old_instance_name,
|
|
do: Map.put(args, :name, new_instance_name),
|
|
else: args
|
|
|
|
with {:changes, true} <- {:changes, args != %{}},
|
|
%Actor{} = instance_actor <- Relay.get_actor(),
|
|
{:ok, _activity, _actor} <- ActivityPub.update(instance_actor, args, true) do
|
|
:ok
|
|
else
|
|
{:changes, false} ->
|
|
:ok
|
|
|
|
err ->
|
|
err
|
|
end
|
|
end
|
|
end
|