mirror of
https://github.com/ninenines/cowboy.git
synced 2025-07-14 12:20:24 +00:00
ae0dd61673
This is a large commit. The cowboy_req interface has largely changed, and will change a little more. It's possible that some examples or tests have not been converted to the new interface yet. The documentation has not yet been updated. All of this will be fixed in smaller subsequent commits. Gotta start somewhere...
71 lines
2.8 KiB
Erlang
71 lines
2.8 KiB
Erlang
%% Copyright (c) 2011-2014, Loïc Hoguin <essen@ninenines.eu>
|
|
%%
|
|
%% Permission to use, copy, modify, and/or distribute this software for any
|
|
%% purpose with or without fee is hereby granted, provided that the above
|
|
%% copyright notice and this permission notice appear in all copies.
|
|
%%
|
|
%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
-module(cowboy).
|
|
|
|
-export([start_clear/4]).
|
|
-export([start_tls/4]).
|
|
-export([stop_listener/1]).
|
|
-export([set_env/3]).
|
|
|
|
-type opts() :: map().
|
|
-export_type([opts/0]).
|
|
|
|
-type fields() :: [atom()
|
|
| {atom(), cowboy_constraints:constraint() | [cowboy_constraints:constraint()]}
|
|
| {atom(), cowboy_constraints:constraint() | [cowboy_constraints:constraint()], any()}].
|
|
-export_type([fields/0]).
|
|
|
|
-type http_headers() :: #{binary() => iodata()}.
|
|
-export_type([http_headers/0]).
|
|
|
|
-type http_status() :: non_neg_integer() | binary().
|
|
-export_type([http_status/0]).
|
|
|
|
-type http_version() :: 'HTTP/2' | 'HTTP/1.1' | 'HTTP/1.0'.
|
|
-export_type([http_version/0]).
|
|
|
|
-spec start_clear(ranch:ref(), non_neg_integer(), ranch_tcp:opts(),
|
|
cowboy_protocol:opts()) -> {ok, pid()} | {error, any()}.
|
|
start_clear(Ref, NbAcceptors, TransOpts0, ProtoOpts)
|
|
when is_integer(NbAcceptors), NbAcceptors > 0 ->
|
|
TransOpts = [connection_type(ProtoOpts)|TransOpts0],
|
|
ranch:start_listener(Ref, NbAcceptors, ranch_tcp, TransOpts, cowboy_clear, ProtoOpts).
|
|
|
|
-spec start_tls(ranch:ref(), non_neg_integer(), ranch_ssl:opts(), opts()) -> {ok, pid()} | {error, any()}.
|
|
start_tls(Ref, NbAcceptors, TransOpts0, ProtoOpts)
|
|
when is_integer(NbAcceptors), NbAcceptors > 0 ->
|
|
TransOpts = [
|
|
connection_type(ProtoOpts),
|
|
{next_protocols_advertised, [<<"h2">>, <<"http/1.1">>]},
|
|
{alpn_preferred_protocols, [<<"h2">>, <<"http/1.1">>]}
|
|
|TransOpts0],
|
|
ranch:start_listener(Ref, NbAcceptors, ranch_ssl, TransOpts, cowboy_tls, ProtoOpts).
|
|
|
|
-spec connection_type(opts()) -> {connection_type, worker | supervisor}.
|
|
connection_type(ProtoOpts) ->
|
|
{_, Type} = maps:get(stream_handler, ProtoOpts, {cowboy_stream_h, supervisor}),
|
|
{connection_type, Type}.
|
|
|
|
-spec stop_listener(ranch:ref()) -> ok | {error, not_found}.
|
|
stop_listener(Ref) ->
|
|
ranch:stop_listener(Ref).
|
|
|
|
-spec set_env(ranch:ref(), atom(), any()) -> ok.
|
|
set_env(Ref, Name, Value) ->
|
|
Opts = ranch:get_protocol_options(Ref),
|
|
{_, Env} = lists:keyfind(env, 1, Opts),
|
|
Opts2 = lists:keyreplace(env, 1, Opts,
|
|
{env, lists:keystore(Name, 1, Env, {Name, Value})}),
|
|
ok = ranch:set_protocol_options(Ref, Opts2).
|