mirror of
https://github.com/ninenines/cowboy.git
synced 2025-07-14 12:20:24 +00:00
Remove the broken examples
Hooks are gone, and we won't be able to stream body in REST in Cowboy 2.0-rc.1, and might not in 2.0 either. That is, other than via halting the processing.
This commit is contained in:
Loïc Hoguin
parent
b5e43527df
commit
e7a65406a7
11 changed files with 0 additions and 299 deletions
|
|
@ -1,8 +0,0 @@
|
||||||
PROJECT = error_hook
|
|
||||||
PROJECT_DESCRIPTION = Cowboy error handler example
|
|
||||||
PROJECT_VERSION = 1
|
|
||||||
|
|
||||||
DEPS = cowboy
|
|
||||||
dep_cowboy_commit = master
|
|
||||||
|
|
||||||
include ../../erlang.mk
|
|
||||||
|
|
@ -1,49 +0,0 @@
|
||||||
= Error hook example
|
|
||||||
|
|
||||||
*This example is currently broken on master.*
|
|
||||||
|
|
||||||
To try this example, you need GNU `make` and `git` in your PATH.
|
|
||||||
|
|
||||||
To build and run the example, use the following command:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
$ make run
|
|
||||||
|
|
||||||
Then point your browser to http://localhost:8080
|
|
||||||
|
|
||||||
== Example output
|
|
||||||
|
|
||||||
Not found:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
----
|
|
||||||
$ curl -i http://localhost:8080
|
|
||||||
HTTP/1.1 404 Not Found
|
|
||||||
connection: keep-alive
|
|
||||||
server: Cowboy
|
|
||||||
date: Wed, 27 Feb 2013 23:32:55 GMT
|
|
||||||
content-length: 56
|
|
||||||
|
|
||||||
404 Not Found: "/" is not the path you are looking for.
|
|
||||||
----
|
|
||||||
|
|
||||||
Bad request:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
----
|
|
||||||
$ telnet localhost 8080
|
|
||||||
Trying ::1...
|
|
||||||
Connection failed: Connection refused
|
|
||||||
Trying 127.0.0.1...
|
|
||||||
Connected to localhost.
|
|
||||||
Escape character is '^]'.
|
|
||||||
bad
|
|
||||||
HTTP/1.1 400 Bad Request
|
|
||||||
connection: close
|
|
||||||
server: Cowboy
|
|
||||||
date: Sun, 08 Sep 2013 09:29:27 GMT
|
|
||||||
content-length: 15
|
|
||||||
|
|
||||||
HTTP Error 400
|
|
||||||
Connection closed by foreign host.
|
|
||||||
----
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
{release, {error_hook_example, "1"}, [error_hook]}.
|
|
||||||
{extended_start_script, true}.
|
|
||||||
|
|
@ -1,39 +0,0 @@
|
||||||
%% Feel free to use, reuse and abuse the code in this file.
|
|
||||||
|
|
||||||
%% @private
|
|
||||||
-module(error_hook_app).
|
|
||||||
-behaviour(application).
|
|
||||||
|
|
||||||
%% API.
|
|
||||||
-export([start/2]).
|
|
||||||
-export([stop/1]).
|
|
||||||
|
|
||||||
%% API.
|
|
||||||
|
|
||||||
start(_Type, _Args) ->
|
|
||||||
Dispatch = cowboy_router:compile([
|
|
||||||
{'_', []}
|
|
||||||
]),
|
|
||||||
{ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [
|
|
||||||
{env, [{dispatch, Dispatch}]},
|
|
||||||
{onresponse, fun error_hook/4}
|
|
||||||
]),
|
|
||||||
error_hook_sup:start_link().
|
|
||||||
|
|
||||||
stop(_State) ->
|
|
||||||
ok.
|
|
||||||
|
|
||||||
error_hook(404, Headers, <<>>, Req) ->
|
|
||||||
Path = cowboy_req:path(Req),
|
|
||||||
Body = ["404 Not Found: \"", Path,
|
|
||||||
"\" is not the path you are looking for.\n"],
|
|
||||||
Headers2 = lists:keyreplace(<<"content-length">>, 1, Headers,
|
|
||||||
{<<"content-length">>, integer_to_list(iolist_size(Body))}),
|
|
||||||
cowboy_req:reply(404, Headers2, Body, Req);
|
|
||||||
error_hook(Code, Headers, <<>>, Req) when is_integer(Code), Code >= 400 ->
|
|
||||||
Body = ["HTTP Error ", integer_to_list(Code), $\n],
|
|
||||||
Headers2 = lists:keyreplace(<<"content-length">>, 1, Headers,
|
|
||||||
{<<"content-length">>, integer_to_list(iolist_size(Body))}),
|
|
||||||
cowboy_req:reply(Code, Headers2, Body, Req);
|
|
||||||
error_hook(_Code, _Headers, _Body, Req) ->
|
|
||||||
Req.
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
%% Feel free to use, reuse and abuse the code in this file.
|
|
||||||
|
|
||||||
%% @private
|
|
||||||
-module(error_hook_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}}.
|
|
||||||
|
|
@ -1,8 +0,0 @@
|
||||||
PROJECT = rest_stream_response
|
|
||||||
PROJECT_DESCRIPTION = Cowboy REST example with streaming
|
|
||||||
PROJECT_VERSION = 1
|
|
||||||
|
|
||||||
DEPS = cowboy
|
|
||||||
dep_cowboy_commit = master
|
|
||||||
|
|
||||||
include ../../erlang.mk
|
|
||||||
|
|
@ -1,69 +0,0 @@
|
||||||
= REST streaming example
|
|
||||||
|
|
||||||
*This example is currently broken on master.*
|
|
||||||
|
|
||||||
To try this example, you need GNU `make` and `git` in your PATH.
|
|
||||||
|
|
||||||
To build and run the example, use the following command:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
$ make run
|
|
||||||
|
|
||||||
Then point your browser to http://localhost:8080
|
|
||||||
|
|
||||||
== About
|
|
||||||
|
|
||||||
This example simulates streaming a large amount of data from a data store one
|
|
||||||
record at a time in CSV format. It also uses a constraint to ensure that the
|
|
||||||
last segment of the route is an integer.
|
|
||||||
|
|
||||||
== Example output
|
|
||||||
|
|
||||||
Fetch records with the second field with value 1:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
----
|
|
||||||
$ curl -i localhost:8080
|
|
||||||
HTTP/1.1 200 OK
|
|
||||||
transfer-encoding: identity
|
|
||||||
server: Cowboy
|
|
||||||
date: Sun, 10 Feb 2013 19:32:16 GMT
|
|
||||||
connection: close
|
|
||||||
content-type: text/csv
|
|
||||||
|
|
||||||
DBUZGQ0C,1,28
|
|
||||||
BgoQAxMV,1,6
|
|
||||||
DAYEFxER,1,18
|
|
||||||
...
|
|
||||||
----
|
|
||||||
|
|
||||||
Fetch records with the second field with value 4:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
----
|
|
||||||
$ curl -i localhost:8080/4
|
|
||||||
HTTP/1.1 200 OK
|
|
||||||
transfer-encoding: identity
|
|
||||||
server: Cowboy
|
|
||||||
date: Sun, 10 Feb 2013 19:34:31 GMT
|
|
||||||
connection: close
|
|
||||||
content-type: text/csv
|
|
||||||
|
|
||||||
ABcFDxcE,4,42
|
|
||||||
DgYQCgEE,4,5
|
|
||||||
CA8BBhYD,4,10
|
|
||||||
...
|
|
||||||
----
|
|
||||||
|
|
||||||
Fail to use a proper integer and get an error:
|
|
||||||
|
|
||||||
[source,bash]
|
|
||||||
----
|
|
||||||
$ curl -i localhost:8080/foo
|
|
||||||
HTTP/1.1 404 Not Found
|
|
||||||
connection: keep-alive
|
|
||||||
server: Cowboy
|
|
||||||
date: Sun, 10 Feb 2013 19:36:16 GMT
|
|
||||||
content-length: 0
|
|
||||||
|
|
||||||
----
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
{release, {rest_stream_response_example, "1"}, [rest_stream_response]}.
|
|
||||||
{extended_start_script, true}.
|
|
||||||
|
|
@ -1,39 +0,0 @@
|
||||||
%% Feel free to use, reuse and abuse the code in this file.
|
|
||||||
|
|
||||||
%% @private
|
|
||||||
-module(rest_stream_response_app).
|
|
||||||
-behaviour(application).
|
|
||||||
|
|
||||||
%% API.
|
|
||||||
-export([start/2]).
|
|
||||||
-export([stop/1]).
|
|
||||||
|
|
||||||
%% API.
|
|
||||||
|
|
||||||
start(_Type, _Args) ->
|
|
||||||
Table = ets:new(stream_tab, []),
|
|
||||||
generate_rows(Table, 1000),
|
|
||||||
Dispatch = cowboy_router:compile([
|
|
||||||
{'_', [
|
|
||||||
{"/[:v1]", [{v1, int}], toppage_handler, Table}
|
|
||||||
]}
|
|
||||||
]),
|
|
||||||
{ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [
|
|
||||||
{env, [{dispatch, Dispatch}]}
|
|
||||||
]),
|
|
||||||
rest_stream_response_sup:start_link().
|
|
||||||
|
|
||||||
stop(_State) ->
|
|
||||||
ok.
|
|
||||||
|
|
||||||
generate_rows(_Table, 0) ->
|
|
||||||
ok;
|
|
||||||
generate_rows(Table, N) ->
|
|
||||||
ets:insert(Table, {key(), val(), val()}),
|
|
||||||
generate_rows(Table, N - 1).
|
|
||||||
|
|
||||||
key() -> key(10).
|
|
||||||
key(N) -> key(<< (random:uniform(26) - 1) >>, N - 1).
|
|
||||||
key(Acc, 0) -> binary_part(base64:encode(Acc), 0, 8);
|
|
||||||
key(Acc, N) -> key(<< Acc/binary, (random:uniform(26) - 1) >>, N - 1).
|
|
||||||
val() -> random:uniform(50).
|
|
||||||
|
|
@ -1,23 +0,0 @@
|
||||||
%% Feel free to use, reuse and abuse the code in this file.
|
|
||||||
|
|
||||||
%% @private
|
|
||||||
-module(rest_stream_response_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}}.
|
|
||||||
|
|
@ -1,37 +0,0 @@
|
||||||
%% Feel free to use, reuse and abuse the code in this file.
|
|
||||||
|
|
||||||
%% @doc Streaming handler.
|
|
||||||
-module(toppage_handler).
|
|
||||||
|
|
||||||
-export([init/2]).
|
|
||||||
-export([content_types_provided/2]).
|
|
||||||
-export([streaming_csv/2]).
|
|
||||||
|
|
||||||
init(Req, Table) ->
|
|
||||||
{cowboy_rest, Req, Table}.
|
|
||||||
|
|
||||||
content_types_provided(Req, State) ->
|
|
||||||
{[
|
|
||||||
{{<<"text">>, <<"csv">>, []}, streaming_csv}
|
|
||||||
], Req, State}.
|
|
||||||
|
|
||||||
streaming_csv(Req, Table) ->
|
|
||||||
N = cowboy_req:binding(v1, Req, 1),
|
|
||||||
MS = [{{'$1', '$2', '$3'}, [{'==', '$2', N}], ['$$']}],
|
|
||||||
{{stream, result_streamer(Table, MS)}, Req, Table}.
|
|
||||||
|
|
||||||
result_streamer(Table, MS) ->
|
|
||||||
fun (Socket, Transport) ->
|
|
||||||
send_records(Socket, Transport, ets:select(Table, MS, 1))
|
|
||||||
end.
|
|
||||||
|
|
||||||
send_records(Socket, Transport, {[Rec], Cont}) ->
|
|
||||||
timer:sleep(500),
|
|
||||||
send_line(Socket, Transport, Rec),
|
|
||||||
send_records(Socket, Transport, ets:select(Cont));
|
|
||||||
send_records(_Socket, _Transport, '$end_of_table') ->
|
|
||||||
ok.
|
|
||||||
|
|
||||||
send_line(Socket, Transport, [Key, V1, V2]) ->
|
|
||||||
Transport:send(Socket,
|
|
||||||
[Key, $,, integer_to_list(V1), $,, integer_to_list(V2), $\r, $\n]).
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue