-module(oauth_http).

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


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

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

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

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

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

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