commit a24be94aa71172a0bd4af78514a2e201c929675d
author Jason David Davies <jasondavies@apache.org> Tue Jan 12 19:29:23 2010 +0000
committer Jason David Davies <jasondavies@apache.org> Tue Jan 12 19:29:23 2010 +0000
tree 8dc62484f7eddaa0c6a5c1213eadf9da3c3b6415
parent 66f41489a155b6382f0a30091210c6e1eedb7522

Add utility for verifying hashes.


git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@898477 13f79535-47bb-0310-9956-ffa450edef68

oauth_hmac_sha1.erl

diff --git a/oauth_hmac_sha1.erl b/oauth_hmac_sha1.erl
index 69064ed..79d59f3 100644
--- a/oauth_hmac_sha1.erl
+++ b/oauth_hmac_sha1.erl
@@ -8,4 +8,4 @@
   base64:encode_to_string(crypto:sha_mac(Key, BaseString)).
 
 verify(Signature, BaseString, CS, TS) ->
-  Signature =:= signature(BaseString, CS, TS).
+  couch_util:verify(signature(BaseString, CS, TS), Signature).

oauth_plaintext.erl

diff --git a/oauth_plaintext.erl b/oauth_plaintext.erl
index d8085e0..41a1e9b 100644
--- a/oauth_plaintext.erl
+++ b/oauth_plaintext.erl
@@ -7,4 +7,4 @@
   oauth_uri:calate("&", [CS, TS]).
 
 verify(Signature, CS, TS) ->
-  Signature =:= signature(CS, TS).
+  couch_util:verify(signature(CS, TS), Signature).