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