eUtils/src/httpSocket/utHttpOn.erl

-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)).