1 # Pleroma: A lightweight social networking server
2 # Copyright © 2017-2020 Pleroma Authors <https://pleroma.social/>
3 # SPDX-License-Identifier: AGPL-3.0-only
5 defmodule Pleroma.Helpers.MediaHelper do
7 Handles common media-related operations.
10 @tmp_base "/tmp/pleroma-media_preview-pipe"
12 def image_resize(url, options) do
13 with executable when is_binary(executable) <- System.find_executable("convert"),
14 {:ok, args} <- prepare_image_resize_args(options),
15 url = Pleroma.Web.MediaProxy.url(url),
16 {:ok, env} <- Pleroma.HTTP.get(url),
17 {:ok, fifo_path} <- mkfifo()
19 args = List.flatten([fifo_path, args])
20 run_fifo(fifo_path, env, executable, args)
22 nil -> {:error, {:convert, :command_not_found}}
23 {:error, _} = error -> error
27 defp prepare_image_resize_args(%{max_width: max_width, max_height: max_height} = options) do
28 quality = options[:quality] || 85
29 resize = Enum.join([max_width, "x", max_height, ">"])
31 "-interlace", "Plane",
33 "-quality", to_string(quality),
39 defp prepare_image_resize_args(_), do: {:error, :missing_options}
41 def video_framegrab(url) do
42 with executable when is_binary(executable) <- System.find_executable("ffmpeg"),
43 url = Pleroma.Web.MediaProxy.url(url),
44 {:ok, env} <- Pleroma.HTTP.get(url),
45 {:ok, fifo_path} <- mkfifo(),
54 run_fifo(fifo_path, env, executable, args)
56 nil -> {:error, {:ffmpeg, :command_not_found}}
57 {:error, _} = error -> error
61 defp run_fifo(fifo_path, env, executable, args) do
62 pid = Port.open({:spawn_executable, executable}, [:use_stdio, :stream, :exit_status, :binary, args: args])
63 fifo = Port.open(to_charlist(fifo_path), [:eof, :binary, :stream, :out])
64 true = Port.command(fifo, env.body)
65 :erlang.port_close(fifo)
72 path = "#{@tmp_base}#{to_charlist(:erlang.phash2(self()))}"
73 case System.cmd("mkfifo", [path]) do
75 spawn(fifo_guard(path))
78 {:error, {:fifo_failed, err}}
82 defp fifo_guard(path) do
85 ref = Process.monitor(pid)
87 {:DOWN, ^ref, :process, ^pid, _} ->
93 defp loop_recv(pid) do
97 defp loop_recv(pid, acc) do
99 {^pid, {:data, data}} ->
100 loop_recv(pid, acc <> data)
101 {^pid, {:exit_status, 0}} ->
103 {^pid, {:exit_status, status}} ->
107 :erlang.port_close(pid)