oauth_http.erl

-module(oauth_http).

-export([get/1, get/2, post/2, post/3, response_params/1, response_body/1, response_code/1]).


get(URL) ->
  get(URL, []).

get(URL, Options) ->
  request(get, {URL, []}, Options).

post(URL, Data) ->
  post(URL, Data, []).

post(URL, Data, Options) ->
  request(post, {URL, [], "application/x-www-form-urlencoded", Data}, Options).

request(Method, Request, Options) ->
  httpc:request(Method, Request, [{autoredirect, false}], Options).

response_params(Response) ->
  oauth_uri:params_from_string(response_body(Response)).

response_body({{_, _, _}, _, Body}) ->
  Body.

response_code({{_, Code, _}, _, _}) ->
  Code.