From 842db2ca15e9d64a3427b07fb7021666b5c46206 Mon Sep 17 00:00:00 2001 From: Holger Weiss Date: Mon, 9 Nov 2015 18:50:45 +0100 Subject: [PATCH] mod_http_upload: Don't flatten command strings --- src/mod_http_upload.erl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/mod_http_upload.erl b/src/mod_http_upload.erl index 3e154d1ce..b79c45309 100644 --- a/src/mod_http_upload.erl +++ b/src/mod_http_upload.erl @@ -876,8 +876,7 @@ code_to_message(_Code) -> <<"">>. -spec identify(binary()) -> {ok, media_info()} | pass. identify(Path) -> - Cmd = lists:flatten(io_lib:fwrite("identify -format \"ok %m %h %w\" ~s", - [Path])), + Cmd = io_lib:fwrite("identify -format \"ok %m %h %w\" ~s", [Path]), Res = string:strip(os:cmd(Cmd), right, $\n), case string:tokens(Res, " ") of ["ok", T, H, W] -> @@ -902,8 +901,7 @@ convert(Path, #media_info{type = T, width = W, height = H}) -> Dir = filename:dirname(Path), FileName = <<(randoms:get_string())/binary, $., T/binary>>, OutPath = filename:join(Dir, FileName), - Cmd = lists:flatten(io_lib:fwrite("convert -resize 300 ~s ~s", - [Path, OutPath])), + Cmd = io_lib:fwrite("convert -resize 300 ~s ~s", [Path, OutPath]), case os:cmd(Cmd) of "" -> {ok, OutPath};