jacob.eva
/
ejabberd-contrib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mod_http_upload: Don't flatten command strings

This commit is contained in:
Holger Weiss 2015-11-09 18:50:45 +01:00
parent 8c470c6a01
commit 0cfd521b7a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mod_http_upload/src/mod_http_upload.erl
View File

@ -858,8 +858,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] ->
@ -884,8 +883,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};