steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "oauth: Generate the oauth signature base string the way twitter does it." 

This reverts commit e633caac716d58e7f94bf29b171e096df1c7b395.
db4
John Benediktsson 2014-03-11 20:47:08 -07:00
parent 65846fb5ba
commit 16d66b8c77
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/oauth/oauth.factor
View File

@ -3,7 +3,7 @@
USING: accessors assocs base64 calendar checksums.hmac USING: accessors assocs base64 calendar checksums.hmac
checksums.sha combinators fry http http.client kernel locals checksums.sha combinators fry http http.client kernel locals
make math namespaces present random sequences sorting strings make math namespaces present random sequences sorting strings
urls urls.encoding urls.private checksums ; urls urls.encoding ;
IN: oauth IN: oauth
SYMBOL: consumer-token SYMBOL: consumer-token
@ -26,20 +26,13 @@ nonce ;
new new
consumer-token get >>consumer-token consumer-token get >>consumer-token
now timestamp>unix-time >integer >>timestamp now timestamp>unix-time >integer >>timestamp
16 random-bytes hex-string >>nonce ; inline random-32 >>nonce ; inline
: present-base-url ( url -- string )
[
[ unparse-protocol ]
[ path>> url-encode % ] bi
] "" make ;
:: signature-base-string ( url request-method params -- string ) :: signature-base-string ( url request-method params -- string )
[ [
request-method % "&" % request-method % "&" %
url present-base-url url-encode-full % "&" % url present url-encode-full % "&" %
params assoc>query url-encode-full % params assoc>query url-encode-full %
url query>> [ assoc>query "&" prepend url-encode-full % ] when*
] "" make ; ] "" make ;
: hmac-key ( consumer-secret token-secret -- key ) : hmac-key ( consumer-secret token-secret -- key )