Просмотр исходного кода

Don't use atoms to represent the HTTP method at all.

Tim Fletcher 16 лет назад
Родитель
Сommit
d2e75bd5ff
2 измененных файлов с 3 добавлено и 3 удалено
  1. 2 2
      src/oauth.erl
  2. 1 1
      src/oauth_request.erl

+ 2 - 2
src/oauth.erl

@@ -18,7 +18,7 @@ get(URL, Consumer, Params) when is_list(Params)->
 get(URL, Consumer, {oauth_tokens, Tokens}, Params) ->
   get(URL, Consumer, Tokens, Params);
 get(URL, Consumer, Tokens, Params) when is_list(Tokens) ->
-  http:request(oauth_request:url(get, URL, Params, Consumer, Tokens)).
+  http:request(oauth_request:url("GET", URL, Params, Consumer, Tokens)).
 
 post(URL, Consumer) ->
   post(URL, Consumer, [], []).
@@ -31,7 +31,7 @@ post(URL, Consumer, Params) when is_list(Params) ->
 post(URL, Consumer, {oauth_tokens, Tokens}, Params) ->
   post(URL, Consumer, Tokens, Params);
 post(URL, Consumer, Tokens, Params) when is_list(Tokens) ->
-  SignedParamsString = oauth_request:params_string(post, URL, Params, Consumer, Tokens),
+  SignedParamsString = oauth_request:params_string("POST", URL, Params, Consumer, Tokens),
   Request = {URL, [], "application/x-www-form-urlencoded", SignedParamsString},
   http:request(post, Request, [], []).
 

+ 1 - 1
src/oauth_request.erl

@@ -51,7 +51,7 @@ signature(Method, URL, Params, Consumer, TokenSecret) ->
     "PLAINTEXT" ->
       oauth_plaintext:signature(ConsumerSecret, TokenSecret);
     "HMAC-SHA1" ->
-      oauth_hmac:signature({string:to_upper(atom_to_list(Method)), URL, Params}, ConsumerSecret, TokenSecret)
+      oauth_hmac:signature({Method, URL, Params}, ConsumerSecret, TokenSecret)
   end.
 
 signature_method(Params) ->