defmodule Pleroma.Emoji.Pack do @derive {Jason.Encoder, only: [:files, :pack]} defstruct files: %{}, pack_file: nil, path: nil, pack: %{}, name: nil @type t() :: %__MODULE__{ files: %{String.t() => Path.t()}, pack_file: Path.t(), path: Path.t(), pack: map(), name: String.t() } alias Pleroma.Emoji @spec emoji_path() :: Path.t() def emoji_path do static = Pleroma.Config.get!([:instance, :static_dir]) Path.join(static, "emoji") end @spec create(String.t()) :: :ok | {:error, File.posix()} | {:error, :empty_values} def create(name) when byte_size(name) > 0 do dir = Path.join(emoji_path(), name) with :ok <- File.mkdir(dir) do %__MODULE__{ pack_file: Path.join(dir, "pack.json") } |> save_pack() end end def create(_), do: {:error, :empty_values} @spec show(String.t()) :: {:ok, t()} | {:loaded, nil} | {:error, :empty_values} def show(name) when byte_size(name) > 0 do with {_, %__MODULE__{} = pack} <- {:loaded, load_pack(name)}, {_, pack} <- validate_pack(pack) do {:ok, pack} end end def show(_), do: {:error, :empty_values} @spec delete(String.t()) :: {:ok, [binary()]} | {:error, File.posix(), binary()} | {:error, :empty_values} def delete(name) when byte_size(name) > 0 do emoji_path() |> Path.join(name) |> File.rm_rf() end def delete(_), do: {:error, :empty_values} @spec add_file(String.t(), String.t(), Path.t(), Plug.Upload.t() | String.t()) :: {:ok, t()} | {:error, File.posix()} | {:error, :empty_values} def add_file(name, shortcode, filename, file) when byte_size(name) > 0 and byte_size(shortcode) > 0 and byte_size(filename) > 0 do with {_, nil} <- {:exists, Emoji.get(shortcode)}, {_, %__MODULE__{} = pack} <- {:loaded, load_pack(name)} do file_path = Path.join(pack.path, filename) create_subdirs(file_path) case file do %Plug.Upload{path: upload_path} -> # Copy the uploaded file from the temporary directory File.copy!(upload_path, file_path) url when is_binary(url) -> # Download and write the file file_contents = Tesla.get!(url).body File.write!(file_path, file_contents) end files = Map.put(pack.files, shortcode, filename) updated_pack = %{pack | files: files} case save_pack(updated_pack) do :ok -> Emoji.reload() {:ok, updated_pack} e -> e end end end def add_file(_, _, _, _), do: {:error, :empty_values} defp create_subdirs(file_path) do if String.contains?(file_path, "/") do file_path |> Path.dirname() |> File.mkdir_p!() end end @spec delete_file(String.t(), String.t()) :: {:ok, t()} | {:error, File.posix()} | {:error, :empty_values} def delete_file(name, shortcode) when byte_size(name) > 0 and byte_size(shortcode) > 0 do with {_, %__MODULE__{} = pack} <- {:loaded, load_pack(name)}, {_, {filename, files}} when not is_nil(filename) <- {:exists, Map.pop(pack.files, shortcode)}, emoji <- Path.join(pack.path, filename), {_, true} <- {:exists, File.exists?(emoji)} do emoji_dir = Path.dirname(emoji) File.rm!(emoji) if String.contains?(filename, "/") and File.ls!(emoji_dir) == [] do File.rmdir!(emoji_dir) end updated_pack = %{pack | files: files} case save_pack(updated_pack) do :ok -> Emoji.reload() {:ok, updated_pack} e -> e end end end def delete_file(_, _), do: {:error, :empty_values} @spec update_file(String.t(), String.t(), String.t(), String.t(), boolean()) :: {:ok, t()} | {:error, File.posix()} | {:error, :empty_values} def update_file(name, shortcode, new_shortcode, new_filename, force) when byte_size(name) > 0 and byte_size(shortcode) > 0 and byte_size(new_shortcode) > 0 and byte_size(new_filename) > 0 do with {_, %__MODULE__{} = pack} <- {:loaded, load_pack(name)}, {_, {filename, files}} when not is_nil(filename) <- {:exists, Map.pop(pack.files, shortcode)}, {_, true} <- {:not_used, force or is_nil(Emoji.get(new_shortcode))} do old_path = Path.join(pack.path, filename) old_dir = Path.dirname(old_path) new_path = Path.join(pack.path, new_filename) create_subdirs(new_path) :ok = File.rename(old_path, new_path) if String.contains?(filename, "/") and File.ls!(old_dir) == [] do File.rmdir!(old_dir) end files = Map.put(files, new_shortcode, new_filename) updated_pack = %{pack | files: files} case save_pack(updated_pack) do :ok -> Emoji.reload() {:ok, updated_pack} e -> e end end end def update_file(_, _, _, _, _), do: {:error, :empty_values} @spec import_from_filesystem() :: {:ok, [String.t()]} | {:error, atom()} def import_from_filesystem do emoji_path = emoji_path() with {:ok, %{access: :read_write}} <- File.stat(emoji_path), {:ok, results} <- File.ls(emoji_path) do names = results |> Enum.map(&Path.join(emoji_path, &1)) |> Enum.reject(fn path -> File.dir?(path) and File.exists?(Path.join(path, "pack.json")) end) |> Enum.map(&write_pack_contents/1) |> Enum.filter(& &1) {:ok, names} else {:ok, %{access: _}} -> {:error, :no_read_write} e -> e end end defp write_pack_contents(path) do pack = %__MODULE__{ files: files_from_path(path), path: path, pack_file: Path.join(path, "pack.json") } case save_pack(pack) do :ok -> Path.basename(path) _ -> nil end end defp files_from_path(path) do txt_path = Path.join(path, "emoji.txt") if File.exists?(txt_path) do # There's an emoji.txt file, it's likely from a pack installed by the pack manager. # Make a pack.json file from the contents of that emoji.txt file # FIXME: Copy-pasted from Pleroma.Emoji/load_from_file_stream/2 # Create a map of shortcodes to filenames from emoji.txt File.read!(txt_path) |> String.split("\n") |> Enum.map(&String.trim/1) |> Enum.map(fn line -> case String.split(line, ~r/,\s*/) do # This matches both strings with and without tags # and we don't care about tags here [name, file | _] -> file_dir_name = Path.dirname(file) file = if String.ends_with?(path, file_dir_name) do Path.basename(file) else file end {name, file} _ -> nil end end) |> Enum.filter(& &1) |> Enum.into(%{}) else # If there's no emoji.txt, assume all files # that are of certain extensions from the config are emojis and import them all pack_extensions = Pleroma.Config.get!([:emoji, :pack_extensions]) Emoji.Loader.make_shortcode_to_file_map(path, pack_extensions) end end @spec list_remote(String.t()) :: {:ok, map()} def list_remote(url) do uri = url |> String.trim() |> URI.parse() with {_, true} <- {:shareable, shareable_packs_available?(uri)} do packs = uri |> URI.merge("/api/pleroma/emoji/packs") |> to_string() |> Tesla.get!() |> Map.get(:body) |> Jason.decode!() {:ok, packs} end end @spec list_local() :: {:ok, map()} def list_local do emoji_path = emoji_path() # Create the directory first if it does not exist. This is probably the first request made # with the API so it should be sufficient with {:create_dir, :ok} <- {:create_dir, File.mkdir_p(emoji_path)}, {:ls, {:ok, results}} <- {:ls, File.ls(emoji_path)} do packs = results |> Enum.map(&load_pack/1) |> Enum.filter(& &1) |> Enum.map(&validate_pack/1) |> Map.new() {:ok, packs} end end defp validate_pack(pack) do if downloadable?(pack) do archive = fetch_archive(pack) archive_sha = :crypto.hash(:sha256, archive) |> Base.encode16() info = pack.pack |> Map.put("can-download", true) |> Map.put("download-sha256", archive_sha) {pack.name, Map.put(pack, :pack, info)} else info = Map.put(pack.pack, "can-download", false) {pack.name, Map.put(pack, :pack, info)} end end defp downloadable?(pack) do # If the pack is set as shared, check if it can be downloaded # That means that when asked, the pack can be packed and sent to the remote # Otherwise, they'd have to download it from external-src pack.pack["share-files"] && Enum.all?(pack.files, fn {_, file} -> File.exists?(Path.join(pack.path, file)) end) end @spec get_archive(String.t()) :: {:ok, binary()} def get_archive(name) do with {_, %__MODULE__{} = pack} <- {:exists?, load_pack(name)}, {_, true} <- {:can_download?, downloadable?(pack)} do {:ok, fetch_archive(pack)} end end defp fetch_archive(pack) do hash = :crypto.hash(:md5, File.read!(pack.pack_file)) case Cachex.get!(:emoji_packs_cache, pack.name) do %{hash: ^hash, pack_data: archive} -> archive _ -> create_archive_and_cache(pack, hash) end end defp create_archive_and_cache(pack, hash) do files = ['pack.json' | Enum.map(pack.files, fn {_, file} -> to_charlist(file) end)] {:ok, {_, result}} = :zip.zip('#{pack.name}.zip', files, [:memory, cwd: to_charlist(pack.path)]) ttl_per_file = Pleroma.Config.get!([:emoji, :shared_pack_cache_seconds_per_file]) overall_ttl = :timer.seconds(ttl_per_file * Enum.count(files)) Cachex.put!( :emoji_packs_cache, pack.name, # if pack.json MD5 changes, the cache is not valid anymore %{hash: hash, pack_data: result}, # Add a minute to cache time for every file in the pack ttl: overall_ttl ) result end @spec download(String.t(), String.t(), String.t()) :: :ok def download(name, url, as) do uri = url |> String.trim() |> URI.parse() with {_, true} <- {:shareable, shareable_packs_available?(uri)} do remote_pack = uri |> URI.merge("/api/pleroma/emoji/packs/#{name}") |> to_string() |> Tesla.get!() |> Map.get(:body) |> Jason.decode!() result = case remote_pack["pack"] do %{"share-files" => true, "can-download" => true, "download-sha256" => sha} -> {:ok, %{ sha: sha, url: URI.merge(uri, "/api/pleroma/emoji/packs/#{name}/archive") |> to_string() }} %{"fallback-src" => src, "fallback-src-sha256" => sha} when is_binary(src) -> {:ok, %{ sha: sha, url: src, fallback: true }} _ -> {:error, "The pack was not set as shared and there is no fallback src to download from"} end with {:ok, %{sha: sha, url: url} = pinfo} <- result, %{body: archive} <- Tesla.get!(url), {_, true} <- {:checksum, Base.decode16!(sha) == :crypto.hash(:sha256, archive)} do local_name = as || name path = Path.join(emoji_path(), local_name) pack = %__MODULE__{ name: local_name, path: path, files: remote_pack["files"], pack_file: Path.join(path, "pack.json") } File.mkdir_p!(pack.path) files = Enum.map(remote_pack["files"], fn {_, path} -> to_charlist(path) end) # Fallback cannot contain a pack.json file files = if pinfo[:fallback], do: files, else: ['pack.json' | files] {:ok, _} = :zip.unzip(archive, cwd: to_charlist(pack.path), file_list: files) # Fallback can't contain a pack.json file, since that would cause the fallback-src-sha256 # in it to depend on itself if pinfo[:fallback] do save_pack(pack) end :ok end end end defp save_pack(pack), do: File.write(pack.pack_file, Jason.encode!(pack, pretty: true)) @spec save_metadata(map(), t()) :: {:ok, t()} | {:error, File.posix()} def save_metadata(metadata, %__MODULE__{} = pack) do pack = Map.put(pack, :pack, metadata) with :ok <- save_pack(pack) do {:ok, pack} end end @spec update_metadata(String.t(), map()) :: {:ok, t()} | {:error, File.posix()} def update_metadata(name, data) do pack = load_pack(name) fb_sha_changed? = not is_nil(data["fallback-src"]) and data["fallback-src"] != pack.pack["fallback-src"] with {_, true} <- {:update?, fb_sha_changed?}, {:ok, %{body: zip}} <- Tesla.get(data["fallback-src"]), {:ok, f_list} <- :zip.unzip(zip, [:memory]), {_, true} <- {:has_all_files?, has_all_files?(pack.files, f_list)} do fallback_sha = :crypto.hash(:sha256, zip) |> Base.encode16() data |> Map.put("fallback-src-sha256", fallback_sha) |> save_metadata(pack) else {:update?, _} -> save_metadata(data, pack) e -> e end end # Check if all files from the pack.json are in the archive defp has_all_files?(files, f_list) do Enum.all?(files, fn {_, from_manifest} -> List.keyfind(f_list, to_charlist(from_manifest), 0) end) end @spec load_pack(String.t()) :: t() | nil def load_pack(name) do pack_file = Path.join([emoji_path(), name, "pack.json"]) if File.exists?(pack_file) do pack_file |> File.read!() |> from_json() |> Map.put(:pack_file, pack_file) |> Map.put(:path, Path.dirname(pack_file)) |> Map.put(:name, name) end end defp from_json(json) do map = Jason.decode!(json) struct(__MODULE__, %{files: map["files"], pack: map["pack"]}) end defp shareable_packs_available?(uri) do uri |> URI.merge("/.well-known/nodeinfo") |> to_string() |> Tesla.get!() |> Map.get(:body) |> Jason.decode!() |> Map.get("links") |> List.last() |> Map.get("href") # Get the actual nodeinfo address and fetch it |> Tesla.get!() |> Map.get(:body) |> Jason.decode!() |> get_in(["metadata", "features"]) |> Enum.member?("shareable_emoji_packs") end end