From e8d6401741021f76988091e6dc633afb65ffbe7b Mon Sep 17 00:00:00 2001 From: juhlig Date: Fri, 21 Jun 2019 16:01:22 +0200 Subject: Embedded listeners depending on ranch_server --- src/ranch_server_proxy.erl | 61 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 src/ranch_server_proxy.erl (limited to 'src/ranch_server_proxy.erl') diff --git a/src/ranch_server_proxy.erl b/src/ranch_server_proxy.erl new file mode 100644 index 0000000..949ac33 --- /dev/null +++ b/src/ranch_server_proxy.erl @@ -0,0 +1,61 @@ +%% Copyright (c) 2019, Jan Uhlig +%% +%% 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(ranch_server_proxy). + +-behavior(gen_server). + +-export([start_link/0]). +-export([init/1]). +-export([handle_call/3]). +-export([handle_cast/2]). +-export([handle_info/2]). +-export([code_change/3]). + +start_link() -> + gen_server:start_link(?MODULE, [], []). + +init([]) -> + case wait_ranch_server(50) of + {ok, Monitor} -> + {ok, Monitor, hibernate}; + {error, Reason} -> + {stop, Reason} + end. + +handle_call(_, _, Monitor) -> + {noreply, Monitor, hibernate}. + +handle_cast(_, Monitor) -> + {noreply, Monitor, hibernate}. + +handle_info({'DOWN', Monitor, process, _, Reason}, Monitor) -> + {stop, Reason, Monitor}; +handle_info(_, Monitor) -> + {noreply, Monitor, hibernate}. + +code_change(_, Monitor, _) -> + {ok, Monitor}. + +wait_ranch_server(N) -> + case whereis(ranch_server) of + undefined when N > 0 -> + receive after 100 -> ok end, + wait_ranch_server(N - 1); + undefined -> + {error, noproc}; + Pid -> + Monitor = monitor(process, Pid), + {ok, Monitor} + end. -- cgit v1.2.3