Multipart upload example

From 07c622a0febfc2ef0fb2bb19e55766ca13cd3ece Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Tue, 3 Jun 2014 19:16:34 +0200 Subject: Add a simple multipart upload example --- examples/README.md | 5 ++++- examples/upload/Makefile | 6 ++++++ examples/upload/README.md | 20 ++++++++++++++++++++ examples/upload/priv/index.html | 13 +++++++++++++ examples/upload/relx.config | 2 ++ examples/upload/src/upload.app.src | 15 +++++++++++++++ examples/upload/src/upload_app.erl | 25 +++++++++++++++++++++++++ examples/upload/src/upload_handler.erl | 21 +++++++++++++++++++++ examples/upload/src/upload_sup.erl | 23 +++++++++++++++++++++++ 9 files changed, 129 insertions(+), 1 deletion(-) create mode 100644 examples/upload/Makefile create mode 100644 examples/upload/README.md create mode 100644 examples/upload/priv/index.html create mode 100644 examples/upload/relx.config create mode 100644 examples/upload/src/upload.app.src create mode 100644 examples/upload/src/upload_app.erl create mode 100644 examples/upload/src/upload_handler.erl create mode 100644 examples/upload/src/upload_sup.erl (limited to 'examples') diff --git a/examples/README.md b/examples/README.md index 0b1e67f..24af228 100644 --- a/examples/README.md +++ b/examples/README.md @@ -46,7 +46,10 @@ Cowboy examples * [static_world](./static_world): static file handler - * [web_sever](./web_server): + * [upload](./upload): + multipart/form-data upload + + * [web_server](./web_server): serves files with lists directory entries * [websocket](./websocket): diff --git a/examples/upload/Makefile b/examples/upload/Makefile new file mode 100644 index 0000000..5f65387 --- /dev/null +++ b/examples/upload/Makefile @@ -0,0 +1,6 @@ +PROJECT = upload + +DEPS = cowboy +dep_cowboy = pkg://cowboy master + +include ../../erlang.mk diff --git a/examples/upload/README.md b/examples/upload/README.md new file mode 100644 index 0000000..db5a49a --- /dev/null +++ b/examples/upload/README.md @@ -0,0 +1,20 @@ +Multipart upload example +======================== + +To try this example, you need GNU `make` and `git` in your PATH. + +To build the example, run the following command: + +``` bash +$ make +``` + +To start the release in the foreground: + +``` bash +$ ./_rel/bin/upload_example console +``` + +Then point your browser at [http://localhost:8080](http://localhost:8080). + +The uploaded file will be displayed in the shell directly. diff --git a/examples/upload/priv/index.html b/examples/upload/priv/index.html new file mode 100644 index 0000000..031420d --- /dev/null +++ b/examples/upload/priv/index.html @@ -0,0 +1,13 @@ + + + + Multipart upload example + + + + + + diff --git a/examples/upload/relx.config b/examples/upload/relx.config new file mode 100644 index 0000000..e51e5c2 --- /dev/null +++ b/examples/upload/relx.config @@ -0,0 +1,2 @@ +{release, {upload_example, "1"}, [upload]}. +{extended_start_script, true}. diff --git a/examples/upload/src/upload.app.src b/examples/upload/src/upload.app.src new file mode 100644 index 0000000..2325935 --- /dev/null +++ b/examples/upload/src/upload.app.src @@ -0,0 +1,15 @@ +%% Feel free to use, reuse and abuse the code in this file. + +{application, upload, [ + {description, "Cowboy multipart upload example."}, + {vsn, "1"}, + {modules, []}, + {registered, [upload_sup]}, + {applications, [ + kernel, + stdlib, + cowboy + ]}, + {mod, {upload_app, []}}, + {env, []} +]}. diff --git a/examples/upload/src/upload_app.erl b/examples/upload/src/upload_app.erl new file mode 100644 index 0000000..5285c0f --- /dev/null +++ b/examples/upload/src/upload_app.erl @@ -0,0 +1,25 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @private +-module(upload_app). +-behaviour(application). + +%% API. +-export([start/2]). +-export([stop/1]). + +%% API. +start(_Type, _Args) -> + Dispatch = cowboy_router:compile([ + {'_', [ + {"/", cowboy_static, {priv_file, upload, "index.html"}}, + {"/upload", upload_handler, []}, + {"/files/[...]", cowboy_static, {priv_dir, upload, "files"}} + ]} + ]), + {ok, _} = cowboy:start_http(http, 100, [{port, 8080}], + [{env, [{dispatch, Dispatch}]}]), + upload_sup:start_link(). + +stop(_State) -> + ok. diff --git a/examples/upload/src/upload_handler.erl b/examples/upload/src/upload_handler.erl new file mode 100644 index 0000000..0895d78 --- /dev/null +++ b/examples/upload/src/upload_handler.erl @@ -0,0 +1,21 @@ +-module(upload_handler). +-behaviour(cowboy_http_handler). + +-export([init/3]). +-export([handle/2]). +-export([terminate/3]). + +init(_, Req, _Opts) -> + {ok, Req, undefined}. + +handle(Req, State) -> + {ok, Headers, Req2} = cowboy_req:part(Req), + {ok, Data, Req3} = cowboy_req:part_body(Req2), + {file, <<"inputfile">>, Filename, ContentType, _TE} + = cow_multipart:form_data(Headers), + io:format("Received file ~p of content-type ~p as follow:~n~p~n~n", + [Filename, ContentType, Data]), + {ok, Req3, State}. + +terminate(_Reason, _Req, _State) -> + ok. diff --git a/examples/upload/src/upload_sup.erl b/examples/upload/src/upload_sup.erl new file mode 100644 index 0000000..0d03503 --- /dev/null +++ b/examples/upload/src/upload_sup.erl @@ -0,0 +1,23 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @private +-module(upload_sup). +-behaviour(supervisor). + +%% API. +-export([start_link/0]). + +%% supervisor. +-export([init/1]). + +%% API. + +-spec start_link() -> {ok, pid()}. +start_link() -> + supervisor:start_link({local, ?MODULE}, ?MODULE, []). + +%% supervisor. + +init([]) -> + Procs = [], + {ok, {{one_for_one, 10, 10}, Procs}}. -- cgit v1.2.3