163 lines
6.2 KiB
VimL
163 lines
6.2 KiB
VimL
|
" oauth
|
||
|
|
" Last Change: 2010-09-10
|
||
|
|
" Maintainer: Yasuhiro Matsumoto <mattn.jp@gmail.com>
|
||
|
|
" License: This file is placed in the public domain.
|
||
|
|
" Reference:
|
||
|
|
" http://tools.ietf.org/rfc/rfc5849.txt
|
||
|
|
|
||
|
|
let s:save_cpo = &cpo
|
||
|
|
set cpo&vim
|
||
|
|
|
||
|
|
function! webapi#oauth#request_token(url, ctx, ...)
|
||
|
|
let params = a:0 > 0 ? a:000[0] : {}
|
||
|
|
let query = {}
|
||
|
|
let time_stamp = localtime()
|
||
|
|
let nonce = time_stamp . " " . time_stamp
|
||
|
|
let nonce = webapi#sha1#sha1(nonce)[0:28]
|
||
|
|
let query["oauth_consumer_key"] = a:ctx.consumer_key
|
||
|
|
let query["oauth_nonce"] = nonce
|
||
|
|
let query["oauth_request_method"] = "POST"
|
||
|
|
let query["oauth_signature_method"] = "HMAC-SHA1"
|
||
|
|
let query["oauth_timestamp"] = time_stamp
|
||
|
|
let query["oauth_version"] = "1.0"
|
||
|
|
for key in keys(params)
|
||
|
|
let query[key] = params[key]
|
||
|
|
endfor
|
||
|
|
let query_string = "POST&"
|
||
|
|
let query_string .= webapi#http#encodeURI(a:url)
|
||
|
|
let query_string .= "&"
|
||
|
|
let query_string .= webapi#http#encodeURI(webapi#http#encodeURI(query))
|
||
|
|
let hmacsha1 = webapi#hmac#sha1(webapi#http#encodeURI(a:ctx.consumer_secret) . "&", query_string)
|
||
|
|
let query["oauth_signature"] = webapi#base64#b64encodebin(hmacsha1)
|
||
|
|
let res = webapi#http#post(a:url, query, {})
|
||
|
|
let a:ctx.request_token = webapi#http#decodeURI(substitute(filter(split(res.content, "&"), "v:val =~ '^oauth_token='")[0], '^[^=]*=', '', ''))
|
||
|
|
let a:ctx.request_token_secret = webapi#http#decodeURI(substitute(filter(split(res.content, "&"), "v:val =~ '^oauth_token_secret='")[0], '^[^=]*=', '', ''))
|
||
|
|
return a:ctx
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! webapi#oauth#access_token(url, ctx, ...)
|
||
|
|
let params = a:0 > 0 ? a:000[0] : {}
|
||
|
|
let query = {}
|
||
|
|
let time_stamp = localtime()
|
||
|
|
let nonce = time_stamp . " " . time_stamp
|
||
|
|
let nonce = webapi#sha1#sha1(nonce)[0:28]
|
||
|
|
let query["oauth_consumer_key"] = a:ctx.consumer_key
|
||
|
|
let query["oauth_nonce"] = nonce
|
||
|
|
let query["oauth_request_method"] = "POST"
|
||
|
|
let query["oauth_signature_method"] = "HMAC-SHA1"
|
||
|
|
let query["oauth_timestamp"] = time_stamp
|
||
|
|
let query["oauth_token"] = a:ctx.request_token
|
||
|
|
let query["oauth_token_secret"] = a:ctx.request_token_secret
|
||
|
|
let query["oauth_version"] = "1.0"
|
||
|
|
for key in keys(params)
|
||
|
|
let query[key] = params[key]
|
||
|
|
endfor
|
||
|
|
let query_string = "POST&"
|
||
|
|
let query_string .= webapi#http#encodeURI(a:url)
|
||
|
|
let query_string .= "&"
|
||
|
|
let query_string .= webapi#http#encodeURI(webapi#http#encodeURI(query))
|
||
|
|
let hmacsha1 = webapi#hmac#sha1(webapi#http#encodeURI(a:ctx.consumer_secret) . "&" . webapi#http#encodeURI(a:ctx.request_token_secret), query_string)
|
||
|
|
let query["oauth_signature"] = webapi#base64#b64encodebin(hmacsha1)
|
||
|
|
let res = webapi#http#post(a:url, query, {})
|
||
|
|
let a:ctx.access_token = webapi#http#decodeURI(substitute(filter(split(res.content, "&"), "v:val =~ '^oauth_token='")[0], '^[^=]*=', '', ''))
|
||
|
|
let a:ctx.access_token_secret = webapi#http#decodeURI(substitute(filter(split(res.content, "&"), "v:val =~ '^oauth_token_secret='")[0], '^[^=]*=', '', ''))
|
||
|
|
return a:ctx
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! webapi#oauth#get(url, ctx, ...)
|
||
|
|
let params = a:0 > 0 ? a:000[0] : {}
|
||
|
|
let getdata = a:0 > 1 ? a:000[1] : {}
|
||
|
|
let headdata = a:0 > 2 ? a:000[2] : {}
|
||
|
|
let query = {}
|
||
|
|
let time_stamp = localtime()
|
||
|
|
let nonce = time_stamp . " " . time_stamp
|
||
|
|
let nonce = webapi#sha1#sha1(nonce)[0:28]
|
||
|
|
let query["oauth_consumer_key"] = a:ctx.consumer_key
|
||
|
|
let query["oauth_nonce"] = nonce
|
||
|
|
let query["oauth_request_method"] = "GET"
|
||
|
|
let query["oauth_signature_method"] = "HMAC-SHA1"
|
||
|
|
let query["oauth_timestamp"] = time_stamp
|
||
|
|
let query["oauth_token"] = a:ctx.access_token
|
||
|
|
let query["oauth_version"] = "1.0"
|
||
|
|
if type(params) == 4
|
||
|
|
for key in keys(params)
|
||
|
|
let query[key] = params[key]
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
if type(getdata) == 4
|
||
|
|
for key in keys(getdata)
|
||
|
|
let query[key] = getdata[key]
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
let query_string = query["oauth_request_method"] . "&"
|
||
|
|
let query_string .= webapi#http#encodeURI(a:url)
|
||
|
|
let query_string .= "&"
|
||
|
|
let query_string .= webapi#http#encodeURI(webapi#http#encodeURI(query))
|
||
|
|
let hmacsha1 = webapi#hmac#sha1(webapi#http#encodeURI(a:ctx.consumer_secret) . "&" . webapi#http#encodeURI(a:ctx.access_token_secret), query_string)
|
||
|
|
let query["oauth_signature"] = webapi#base64#b64encodebin(hmacsha1)
|
||
|
|
if type(getdata) == 4
|
||
|
|
for key in keys(getdata)
|
||
|
|
call remove(query, key)
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
let auth = 'OAuth '
|
||
|
|
for key in sort(keys(query))
|
||
|
|
let auth .= key . '="' . webapi#http#encodeURI(query[key]) . '", '
|
||
|
|
endfor
|
||
|
|
let auth = auth[:-3]
|
||
|
|
let headdata["Authorization"] = auth
|
||
|
|
let res = webapi#http#get(a:url, getdata, headdata)
|
||
|
|
return res
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! webapi#oauth#post(url, ctx, ...)
|
||
|
|
let params = a:0 > 0 ? a:000[0] : {}
|
||
|
|
let postdata = a:0 > 1 ? a:000[1] : {}
|
||
|
|
let headdata = a:0 > 2 ? a:000[2] : {}
|
||
|
|
let query = {}
|
||
|
|
let time_stamp = localtime()
|
||
|
|
let nonce = time_stamp . " " . time_stamp
|
||
|
|
let nonce = webapi#sha1#sha1(nonce)[0:28]
|
||
|
|
let query["oauth_consumer_key"] = a:ctx.consumer_key
|
||
|
|
let query["oauth_nonce"] = nonce
|
||
|
|
let query["oauth_request_method"] = "POST"
|
||
|
|
let query["oauth_signature_method"] = "HMAC-SHA1"
|
||
|
|
let query["oauth_timestamp"] = time_stamp
|
||
|
|
let query["oauth_token"] = a:ctx.access_token
|
||
|
|
let query["oauth_version"] = "1.0"
|
||
|
|
if type(params) == 4
|
||
|
|
for key in keys(params)
|
||
|
|
let query[key] = params[key]
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
if type(postdata) == 4
|
||
|
|
for key in keys(postdata)
|
||
|
|
let query[key] = postdata[key]
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
let query_string = query["oauth_request_method"] . "&"
|
||
|
|
let query_string .= webapi#http#encodeURI(a:url)
|
||
|
|
let query_string .= "&"
|
||
|
|
let query_string .= webapi#http#encodeURI(webapi#http#encodeURI(query))
|
||
|
|
let hmacsha1 = webapi#hmac#sha1(webapi#http#encodeURI(a:ctx.consumer_secret) . "&" . webapi#http#encodeURI(a:ctx.access_token_secret), query_string)
|
||
|
|
let query["oauth_signature"] = webapi#base64#b64encodebin(hmacsha1)
|
||
|
|
if type(postdata) == 4
|
||
|
|
for key in keys(postdata)
|
||
|
|
call remove(query, key)
|
||
|
|
endfor
|
||
|
|
endif
|
||
|
|
let auth = 'OAuth '
|
||
|
|
for key in sort(keys(query))
|
||
|
|
let auth .= webapi#http#escape(key) . '="' . webapi#http#escape(query[key]) . '",'
|
||
|
|
endfor
|
||
|
|
let auth = auth[:-2]
|
||
|
|
let headdata["Authorization"] = auth
|
||
|
|
let res = webapi#http#post(a:url, postdata, headdata)
|
||
|
|
return res
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
let &cpo = s:save_cpo
|
||
|
|
unlet s:save_cpo
|
||
|
|
|
||
|
|
" vim:set et:
|