1 # Pleroma: A lightweight social networking server
2 # Copyright © 2017-2019 Pleroma Authors <https://pleroma.social/>
3 # SPDX-License-Identifier: AGPL-3.0-only
5 defmodule Pleroma.Web.ActivityPub.MRF.KeywordPolicy do
6 @moduledoc "Reject or Word-Replace messages with a keyword or regex"
8 @behaviour Pleroma.Web.ActivityPub.MRF
9 defp string_matches?(string, _) when not is_binary(string) do
13 defp string_matches?(string, pattern) when is_binary(pattern) do
14 String.contains?(string, pattern)
17 defp string_matches?(string, pattern) do
18 String.match?(string, pattern)
21 defp check_reject(%{"object" => %{"content" => content, "summary" => summary}} = message) do
22 if Enum.any?(Pleroma.Config.get([:mrf_keyword, :reject]), fn pattern ->
23 string_matches?(content, pattern) or string_matches?(summary, pattern)
31 defp check_ftl_removal(
32 %{"to" => to, "object" => %{"content" => content, "summary" => summary}} = message
34 if "https://www.w3.org/ns/activitystreams#Public" in to and
35 Enum.any?(Pleroma.Config.get([:mrf_keyword, :federated_timeline_removal]), fn pattern ->
36 string_matches?(content, pattern) or string_matches?(summary, pattern)
38 to = List.delete(to, "https://www.w3.org/ns/activitystreams#Public")
39 cc = ["https://www.w3.org/ns/activitystreams#Public" | message["cc"] || []]
52 defp check_replace(%{"object" => %{"content" => content, "summary" => summary}} = message) do
54 if is_binary(content) do
61 if is_binary(summary) do
69 Pleroma.Config.get([:mrf_keyword, :replace]),
71 fn {pattern, replacement}, {content_acc, summary_acc} ->
72 {String.replace(content_acc, pattern, replacement),
73 String.replace(summary_acc, pattern, replacement)}
79 |> put_in(["object", "content"], content)
80 |> put_in(["object", "summary"], summary)}
84 def filter(%{"type" => "Create", "object" => %{"content" => _content}} = message) do
85 with {:ok, message} <- check_reject(message),
86 {:ok, message} <- check_ftl_removal(message),
87 {:ok, message} <- check_replace(message) do
96 def filter(message), do: {:ok, message}