Packages

launchdarkly_server_sdk

2.1.2
3.11.0 3.10.1 3.9.0 3.8.1 3.8.0 3.7.2 3.7.1 3.7.0 3.6.0 3.5.0 3.4.0 3.3.1 3.3.0 3.2.0 3.1.0 3.0.4 3.0.3 3.0.2 3.0.1 3.0.0 2.1.2 2.1.1 2.1.0 2.0.5 2.0.4 2.0.3 2.0.2 2.0.1 2.0.0 1.6.0 1.5.0 1.4.0 1.3.2 1.3.1 1.3.0 1.2.0 1.1.3 1.1.2 1.1.1 retired 1.1.0 retired 1.0.1 retired 1.0.0 retired 1.0.0-beta4 retired 1.0.0-beta3 retired 1.0.0-beta2 retired

LaunchDarkly SDK for Erlang

HexDocs

Current section

Files

Jump to
Readme
45 Versions
8 Dependencies
4 Dependants
Files
Activity
launchdarkly_server_sdk src ldclient_update_testdata_server.erl
Raw

src/ldclient_update_testdata_server.erl 

%%-------------------------------------------------------------------

%% @doc Testdata update server

%% @private

%% @end

%%-------------------------------------------------------------------



-module(ldclient_update_testdata_server).



-behaviour(gen_server).



%% Supervision

-export([start_link/1, init/1]).



%% Behavior callbacks

-export([code_change/3, handle_call/3, handle_cast/2, handle_info/2, terminate/2]).



-type state() :: #{

    tag => atom(),

    test_data_server => atom()

}.



-ifdef(TEST).

-compile(export_all).

-endif.



%%===================================================================

%% Supervision

%%===================================================================



%% @doc Starts the server

%%

%% @end

-spec start_link(Tag :: atom()) ->

    {ok, Pid :: pid()} | ignore | {error, Reason :: term()}.

start_link(Tag) ->

    error_logger:info_msg("Starting testdata update server for ~p", [Tag]),

    gen_server:start_link(?MODULE, [Tag], []).



-spec init(Args :: term()) ->

    {ok, State :: state()} | {ok, State :: state(), timeout() | hibernate} |

    {stop, Reason :: term()} | ignore.

init([Tag]) ->

    % Need to trap exit so supervisor:terminate_child calls terminate callback

    process_flag(trap_exit, true),

    TestDataInstanceTag = ldclient_config:get_value(Tag, testdata_tag),

    TestDataServer = case supervisor:start_child(ldclient_sup, ldclient_testdata:child_spec(TestDataInstanceTag, [])) of

                        {ok, Child} -> Child;

                        {error, { already_started, Child}} -> Child

                     end,

    State = #{

      tag => Tag,

      test_data_server => TestDataServer

    },

    gen_server:call(TestDataServer, {register_instance, Tag}),

    {ok, State}.



%%===================================================================

%% Behavior callbacks

%%===================================================================



-type from() :: {pid(), term()}.

-spec handle_call(Request :: term(), From :: from(), State :: state()) ->

    {reply, Reply :: term(), NewState :: state()} |

    {stop, normal, {error, atom(), term()}, state()}.

handle_call(_Request, _From, State) ->

    {reply, ok, State}.



handle_cast(_Request, State) ->

    {noreply, State}.



handle_info(_Info, State) ->

    {noreply, State}.



-spec terminate(Reason :: (normal | shutdown | {shutdown, term()} | term()),

    State :: state()) -> term().

terminate(Reason, #{ tag := Tag, test_data_server := TestDataServer }) ->

    error_logger:info_msg("Terminating, reason: ~p; Pid: ~p ~n", [Reason, self()]),

    gen_server:call(TestDataServer, {unregister_instance, Tag}),

    ok.



code_change(_OldVsn, State, _Extra) ->

    {ok, State}.