diff options
author | Loïc Hoguin <[email protected]> | 2012-01-23 07:23:44 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2012-01-23 07:37:49 +0100 |
commit | b650ef8907355bc0223c2e7412e36c1a07cb0173 (patch) | |
tree | 08866d287798acbb60605746534fca2b09f3bda7 /test/http_handler_multipart.erl | |
parent | e68bbfac3455d4062c414cc0d3a785a80c4ac148 (diff) | |
parent | 528507c7decb2bf2fcbb55a47256011c2ce4bd4b (diff) | |
download | cowboy-b650ef8907355bc0223c2e7412e36c1a07cb0173.tar.gz cowboy-b650ef8907355bc0223c2e7412e36c1a07cb0173.tar.bz2 cowboy-b650ef8907355bc0223c2e7412e36c1a07cb0173.zip |
Merge branch 'multipart' of https://github.com/nox/cowboy
Conflicts:
src/cowboy_http_req.erl
test/http_SUITE.erl
Diffstat (limited to 'test/http_handler_multipart.erl')
-rw-r--r-- | test/http_handler_multipart.erl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test/http_handler_multipart.erl b/test/http_handler_multipart.erl new file mode 100644 index 0000000..f5f7919 --- /dev/null +++ b/test/http_handler_multipart.erl @@ -0,0 +1,29 @@ +%% Feel free to use, reuse and abuse the code in this file. + +-module(http_handler_multipart). +-behaviour(cowboy_http_handler). +-export([init/3, handle/2, terminate/2]). + +init({_Transport, http}, Req, []) -> + {ok, Req, {}}. + +handle(Req, State) -> + {Result, Req2} = acc_multipart(Req, []), + {ok, Req3} = cowboy_http_req:reply(200, [], term_to_binary(Result), Req2), + {ok, Req3, State}. + +terminate(_Req, _State) -> + ok. + +acc_multipart(Req, Acc) -> + {Result, Req2} = cowboy_http_req:multipart_data(Req), + acc_multipart(Req2, Acc, Result). + +acc_multipart(Req, Acc, {headers, Headers}) -> + acc_multipart(Req, [{Headers, []}|Acc]); +acc_multipart(Req, [{Headers, BodyAcc}|Acc], {body, Data}) -> + acc_multipart(Req, [{Headers, [Data|BodyAcc]}|Acc]); +acc_multipart(Req, [{Headers, BodyAcc}|Acc], end_of_part) -> + acc_multipart(Req, [{Headers, list_to_binary(lists:reverse(BodyAcc))}|Acc]); +acc_multipart(Req, Acc, eof) -> + {lists:reverse(Acc), Req}. |