umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-14 20:30:23 +00:00
Code Issues Wiki Activity

Add support for the '*' path.

Browse source 
Mostly used by the following request: OPTIONS * HTTP/1.1
This commit is contained in:
Loïc Hoguin 2011-03-19 18:53:59 +01:00
parent 2c52a30b0a
commit a4f8bb6573
3 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
include/types.hrl
View file

@ -25,8 +25,8 @@
-type port_number() :: 0..65535.
-type bindings() :: list({Key::atom(), Value::string()}).
-type path_tokens() :: list(string()).
-type match() :: '_' | list(string() | '_' | atom()).
-type path_tokens() :: '*' | list(string()).
-type match() :: '_' | '*' | list(string() | '_' | atom()).
-type dispatch_rules() :: {Host::match(), list({Path::match(),
Handler::module(), Opts::term()})}.

8
src/cowboy_dispatcher.erl
View file

@ -25,6 +25,8 @@ split_host(Host) ->
string:tokens(Host, ".").
-spec split_path(Path::string()) -> {Tokens::path_tokens(), Qs::string()}.
split_path('*') ->
{'*', []};
split_path(Path) ->
case string:chr(Path, $?) of
0 ->
@ -57,6 +59,8 @@ match_path(_Path, [], _HostBinds) ->
{error, notfound, path};
match_path(_Path, [{'_', Handler, Opts}|_Tail], HostBinds) ->
{ok, Handler, Opts, HostBinds};
match_path('*', [{'*', Handler, Opts}|_Tail], HostBinds) ->
{ok, Handler, Opts, HostBinds};
match_path(Path, [{PathMatch, Handler, Opts}|Tail], HostBinds) ->
case try_match(path, Path, PathMatch) of
false ->
@ -120,7 +124,6 @@ split_path_test_() ->
Tests = [
{"?", [], []},
{"???", [], "??"},
{"*", ["*"], []},
{"/", [], []},
{"/users", ["users"], []},
{"/users?", ["users"], []},
@ -128,7 +131,8 @@ split_path_test_() ->
{"/users/42/friends?a=b&c=d&e=notsure?whatever",
["users", "42", "friends"], "a=b&c=d&e=notsure?whatever"}
],
[{P, fun() -> {R, Qs} = split_path(P) end} || {P, R, Qs} <- Tests].
[{"atom '*'", fun() -> {'*', []} = split_path('*') end}]
++ [{P, fun() -> {R, Qs} = split_path(P) end} || {P, R, Qs} <- Tests].
match_test_() ->
Dispatch = [

5
src/cowboy_http_protocol.erl
View file

@ -68,6 +68,11 @@ request({http_request, Method, {abs_path, AbsPath}, Version},
{ok, Peer} = Transport:peername(Socket),
wait_header(#http_req{socket=Socket, transport=Transport, method=Method,
version=Version, peer=Peer, path=Path, raw_qs=Qs}, State);
request({http_request, Method, '*', Version},
State=#state{socket=Socket, transport=Transport}) ->
{ok, Peer} = Transport:peername(Socket),
wait_header(#http_req{socket=Socket, transport=Transport, method=Method,
version=Version, peer=Peer, path='*', raw_qs=[]}, State);
request({http_request, _Method, _URI, _Version}, State) ->
error_terminate(501, State);
request({http_error, "\r\n"}, State) ->