diff options
author | Anthony Ramine <[email protected]> | 2011-11-08 00:51:49 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2012-01-23 07:20:35 +0100 |
commit | 528507c7decb2bf2fcbb55a47256011c2ce4bd4b (patch) | |
tree | 14966540ecf17499d1d3e161c5690f5de4fbbf0d /test/http_handler_multipart.erl | |
parent | a5b47fda8de7972c9affb4f4d1320fb666c67a92 (diff) | |
download | cowboy-528507c7decb2bf2fcbb55a47256011c2ce4bd4b.tar.gz cowboy-528507c7decb2bf2fcbb55a47256011c2ce4bd4b.tar.bz2 cowboy-528507c7decb2bf2fcbb55a47256011c2ce4bd4b.zip |
Add multipart support
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..773b61e --- /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, Req, 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}. |