Correctly calculate remaining bytes on file upload

diff --git a/src/ejabberd_http.erl b/src/ejabberd_http.erl
index 167d2a5aa80ca12f24905ea97cea97ac1142596a..e3cba3d954449729602b8178729362209d629a73 100644 (file)
--- a/src/ejabberd_http.erl
+++ b/src/ejabberd_http.erl
@@ -617,7 +617,7 @@ do_recv_file(Len, SockMod, Socket, Fd) ->
     try
        {ok, Data} = SockMod:recv(Socket, ChunkLen, timer:seconds(30)),
        ok = file:write(Fd, Data),
-       do_recv_file(Len-ChunkLen, SockMod, Socket, Fd)
+       do_recv_file(Len-size(Data), SockMod, Socket, Fd)
     catch _:{badmatch, {error, _} = Err} ->
            file:close(Fd),
            Err