Packages

launchdarkly_server_sdk

1.3.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
9 Dependencies
Dependants
Files
Activity
launchdarkly_server_sdk src ldclient_event_dispatch_httpc.erl
Raw

src/ldclient_event_dispatch_httpc.erl 

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

%% @doc Event dispatcher

%% @private

%% @end

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



-module(ldclient_event_dispatch_httpc).



-behaviour(ldclient_event_dispatch).



%% Behavior callbacks

-export([init/2, send/4]).



%% Internal type for ETag cache state

-type state() :: #{

headers => list(),

http_options => list()

}.



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

%% Behavior callbacks

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



-spec init(Tag :: atom(), SdkKey :: string()) -> state().

init(Tag, SdkKey) ->

    Options = ldclient_config:get_value(Tag, http_options),

    HttpOptions = ldclient_http_options:httpc_parse_http_options(Options),

    Headers = ldclient_http_options:httpc_append_custom_headers([

        {"Authorization", SdkKey},

        {"X-LaunchDarkly-Event-Schema", ldclient_config:get_event_schema()},

        {"User-Agent", ldclient_config:get_user_agent()}

    ], Options),

    #{

        headers => Headers,

        http_options => HttpOptions

    }.



%% @doc Send events to LaunchDarkly event server

%%

%% @end

-spec send(State :: state(), JsonEvents :: binary(), PayloadId :: uuid:uuid(), Uri :: string()) ->

    ok | {error, temporary, string()} | {error, permanent, string()}.

send(State, JsonEvents, PayloadId, Uri) ->

    #{headers := BaseHeaders, http_options := HttpOptions} = State,

    Headers = [

        {"X-LaunchDarkly-Payload-ID", uuid:uuid_to_string(PayloadId)} |

        BaseHeaders

    ],

    Request = httpc:request(post, {Uri, Headers, "application/json", JsonEvents}, HttpOptions, []),

    process_request(Request).



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

%% Internal functions

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



-type http_request() :: {ok, {{string(), integer(), string()}, [{string(), string()}], string() | binary()}}.



-spec process_request({error, term()} | http_request()) 

    -> ok | {error, temporary, string()} | {error, permanent, string()}.

process_request({error, Reason}) ->

    {error, temporary, Reason};

process_request({ok, {{_Version, StatusCode, _ReasonPhrase}, _Headers, _Body}}) when StatusCode < 400 ->

    ok;

process_request({ok, {{Version, StatusCode, ReasonPhrase}, _Headers, _Body}}) ->

    Reason = format_response(Version, StatusCode, ReasonPhrase),

    HttpErrorType = is_http_error_code_recoverable(StatusCode),

    {error, HttpErrorType, Reason}.



-spec format_response(Version :: string(), StatusCode :: integer(), ReasonPhrase :: string()) ->

    string().

format_response(Version, StatusCode, ReasonPhrase) ->

    io_lib:format("~s ~b ~s", [Version, StatusCode, ReasonPhrase]).



-spec is_http_error_code_recoverable(StatusCode :: integer()) -> temporary | permanent.

is_http_error_code_recoverable(400) -> temporary;

is_http_error_code_recoverable(408) -> temporary;

is_http_error_code_recoverable(429) -> temporary;

is_http_error_code_recoverable(StatusCode) when StatusCode >= 500 -> temporary;

is_http_error_code_recoverable(_) -> permanent.