mod_oauth: do not assume GET

(cherry picked from commit 13f682d)
zotonic · Feb 16, 2012 · 1df8c22 · 1df8c22
1 parent 6efdda2
commit 1df8c22
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/modules/mod_oauth/mod_oauth.erl b/modules/mod_oauth/mod_oauth.erl
@@ -143,7 +143,8 @@ check_request_logon(ReqData, Context) ->
                                                 {false, authenticate(Reason, ReqData, Context)};
                                             true ->
                                                 SigMethod = oauth_param("oauth_signature_method", ReqData),
-                                                case oauth:verify(Signature, "GET", URL, Params, to_oauth_consumer(Consumer, SigMethod), str_value(token_secret, Token)) of
+                                                case oauth:verify(Signature, atom_to_list(ReqData#wm_reqdata.method), URL,
+                                                                  Params, to_oauth_consumer(Consumer, SigMethod), str_value(token_secret, Token)) of
                                                     true ->
                                                         UID = int_value(user_id, Token),
                                                         Context1 = z_acl:logon(UID, Context),