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

Leave oauth alone. Leave her alone!!! 

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

This reverts commit 288156beb6bd09e4d00de03d0be6d41acbd30419.
db4
Doug Coleman 2014-03-12 00:58:04 -05:00
parent 16d66b8c77
commit 80d574af8c
1 changed files with 10 additions and 3 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 urls.encoding urls.private checksums ;
IN: oauth IN: oauth
SYMBOL: consumer-token SYMBOL: consumer-token
@ -26,13 +26,20 @@ 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
random-32 >>nonce ; inline 16 random-bytes hex-string >>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 url-encode-full % "&" % url present-base-url 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 )