You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
1.6 KiB
52 lines
1.6 KiB
-module(utHttpOn).
|
|
|
|
%% API
|
|
-export([
|
|
req/6, %% Post, Put, Delete Only
|
|
req_get/3, %% Get Only
|
|
url_encode/1
|
|
]).
|
|
|
|
-export([get_unique_ref/1, get_conv_ref/0]).
|
|
|
|
get_conv_ref() ->
|
|
get_unique_ref(20).
|
|
get_unique_ref(Length) ->
|
|
IntPass = random_num(36, Length),
|
|
list_to_binary(lists:flatten(io_lib:format("~.36B", [IntPass]))).
|
|
|
|
random_num(NumeralSystemBase, Length) ->
|
|
Min = round(math:pow(NumeralSystemBase, Length - 1)),
|
|
Max = round(math:pow(NumeralSystemBase, Length)),
|
|
rand:uniform(Min, Max).
|
|
|
|
req(Method, Url, Headers, ContType, Body, HttpOpts)
|
|
when Method == post orelse Method == put orelse Method == delete ->
|
|
HttpClOpts = [{sync, true}, {body_format, binary}],
|
|
Resp = httpc:request(Method, {eu_types:to_list(Url), Headers, ContType, Body}, HttpOpts, HttpClOpts),
|
|
minimize_resp(Resp).
|
|
|
|
req_get(Url, Headers, HttpOpts) ->
|
|
HttpClOpts = [{sync, true}, {body_format, binary}],
|
|
Resp = httpc:request(get, {eu_types:to_list(Url), Headers}, HttpOpts, HttpClOpts),
|
|
minimize_resp(Resp).
|
|
|
|
minimize_resp(Resp) ->
|
|
case Resp of
|
|
{ok, {{_NewVrsn, 200, _}, _Headers, RespBody}} ->
|
|
{ok, 200, RespBody};
|
|
{ok, {{_NewVrsn, HttpCode, _}, _Headers, RespBody}} ->
|
|
{error, HttpCode, RespBody};
|
|
Any -> Any
|
|
end.
|
|
|
|
url_encode(Data) ->
|
|
url_encode(Data, "").
|
|
|
|
url_encode([], Acc) ->
|
|
Acc;
|
|
|
|
url_encode([{Key, Value} | R], "") ->
|
|
url_encode(R, edoc_lib:escape_uri(Key) ++ "=" ++ edoc_lib:escape_uri(Value));
|
|
url_encode([{Key, Value} | R], Acc) ->
|
|
url_encode(R, Acc ++ "&" ++ edoc_lib:escape_uri(Key) ++ "=" ++ edoc_lib:escape_uri(Value)).
|