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.
12 @tmp_base "/tmp/pleroma-media_preview-pipe"
14 def image_resize(url, options) do
15 with executable when is_binary(executable) <- System.find_executable("convert"),
16 {:ok, args} <- prepare_image_resize_args(options),
17 {:ok, env} <- HTTP.get(url, [], pool: :media),
18 {:ok, fifo_path} <- mkfifo() do
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(
28 %{max_width: max_width, max_height: max_height, format: "png"} = options
30 quality = options[:quality] || 85
31 resize = Enum.join([max_width, "x", max_height, ">"])
44 defp prepare_image_resize_args(%{max_width: max_width, max_height: max_height} = options) do
45 quality = options[:quality] || 85
46 resize = Enum.join([max_width, "x", max_height, ">"])
61 defp prepare_image_resize_args(_), do: {:error, :missing_options}
63 def video_framegrab(url) do
64 with executable when is_binary(executable) <- System.find_executable("ffmpeg"),
65 {:ok, env} <- HTTP.get(url, [], pool: :media),
66 {:ok, fifo_path} <- mkfifo(),
79 run_fifo(fifo_path, env, executable, args)
81 nil -> {:error, {:ffmpeg, :command_not_found}}
82 {:error, _} = error -> error
86 defp run_fifo(fifo_path, env, executable, args) do
88 Port.open({:spawn_executable, executable}, [
96 fifo = Port.open(to_charlist(fifo_path), [:eof, :binary, :stream, :out])
97 fix = Pleroma.Helpers.QtFastStart.fix(env.body)
98 true = Port.command(fifo, fix)
99 :erlang.port_close(fifo)
106 path = "#{@tmp_base}#{to_charlist(:erlang.phash2(self()))}"
108 case System.cmd("mkfifo", [path]) do
110 spawn(fifo_guard(path))
114 {:error, {:fifo_failed, err}}
118 defp fifo_guard(path) do
122 ref = Process.monitor(pid)
125 {:DOWN, ^ref, :process, ^pid, _} ->
131 defp loop_recv(pid) do
135 defp loop_recv(pid, acc) do
137 {^pid, {:data, data}} ->
138 loop_recv(pid, acc <> data)
140 {^pid, {:exit_status, 0}} ->
143 {^pid, {:exit_status, status}} ->
147 :erlang.port_close(pid)