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

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

db4
Doug Coleman 2014-02-12 19:50:10 -08:00
parent 918cb7bc34
commit 8437bf5033
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 )