Browse files

Remove oauth_client module.

  • Loading branch information...
1 parent d831b03 commit 574b60d540c02c6d5861685de713be66c8489b12 @tim tim committed Sep 26, 2009
Showing with 0 additions and 26 deletions.
  1. +0 −26 src/oauth_client.erl
View
26 src/oauth_client.erl
@@ -1,26 +0,0 @@
--module(oauth_client).
-
--compile(export_all).
-
-
-get(URL, Params, Consumer, ResponseParams, Fun) ->
- Token = oauth:token(ResponseParams),
- TokenSecret = oauth:token_secret(ResponseParams),
- get(URL, Params, Consumer, Token, TokenSecret, Fun).
-
-get(URL, Params, Consumer, Token, TokenSecret, Fun) ->
- case tee(oauth:get(URL, Params, Consumer, Token, TokenSecret)) of
- {ok, Response} ->
- case oauth_http:response_code(Response) of
- Code when Code >= 400 ->
- {error, {http, Code}};
- _ ->
- Fun(Response)
- end;
- Response ->
- io:format("Error requesting ~p~n~n~p~n~n", [URL, Response]),
- {error, bad_response}
- end.
-
-tee(Term) ->
- io:format("~p~n", [Term]), Term.

0 comments on commit 574b60d

Please sign in to comment.