21 KiB
21 KiB
title | author | date | url | wordtwit_post_info | categories | |||
---|---|---|---|---|---|---|---|---|
Gauche で Twitter に投稿するためのモジュール | kazu634 | 2010-06-05 | /2010/06/05/_1532/ |
|
|
「Gauche で OAuth – 主題のない日記」と「GaucheでOAuthを使ってTwitterに投稿する – 自称スーパーハッカーの適当なプログラミング雑記等」を丸ぱくり参考にして、モジュール化してみました:
ソース
(define-module net-twitter (export twitter-init twitter-post)) (select-module net-twitter) ;; ================= ;; === Libraries === ;; ================= (use rfc.http) (use rfc.sha) (use rfc.hmac) (use rfc.base64) (use www.cgi) (use math.mt-random) (use gauche.uvector) ;; ================= ;; === Functions === ;; ================= (define (uri-encode-string str) (call-with-string-io str (lambda(in out) (while (read-byte in) (compose not eof-object?) => ch (if (char-set-contains? #[a-zA-Z0-9.~_-] (integer->char ch)) (write-char (integer->char ch) out) (format out "%~2,'0X" (char->integer (integer->char ch)))))))) (define (time-stamp) (number->string (sys-time))) (define (random-string) (let ((random-source (make <mersenne-twister> :seed (sys-time))) (v (make-u32vector 10))) (mt-random-fill-u32vector! random-source v) (digest-hexify (sha1-digest-string (x->string v))))) (define (query-compose query) (string-join (map (cut string-join <> "=") query) "&")) (define (signature method uri info consumer-secret :optional (token-secret "")) (let* ((query-string (query-compose info)) (signature-basic-string (string-append method "&" (uri-encode-string uri) "&" (uri-encode-string query-string)))) (uri-encode-string (base64-encode-string (hmac-digest-string signature-basic-string :key #`",|consumer-secret|&,|token-secret|" :hasher <sha1>))))) ;; ================== ;; === Interfaces === ;; ================== (define (twitter-init consumer-key consumer-secret) (let* ((r-query `(("oauth_consumer_key" ,consumer-key) ("oauth_nonce" ,(random-string)) ("oauth_signature_method" "HMAC-SHA1") ("oauth_timestamp" ,(time-stamp)) ("oauth_version" "1.0"))) (r-s (signature "POST" "http://api.twitter.com/oauth/request_token" r-query consumer-secret)) (r-token (receive (status header body) (http-post "api.twitter.com" "/oauth/request_token" (query-compose `(,@r-query ("oauth_signature" ,r-s)))) (cgi-parse-parameters :query-string body))) (request-token (cadr (assoc "oauth_token" r-token))) (request-token-secret (cadr (assoc "oauth_token_secret" r-token)))) (display "open this url.") (newline) (format #t "https://api.twitter.com/oauth/authorize?oauth_token=~A" request-token) (newline) (newline) (display "input pin: ") (flush) (let* ((oauth-verifier (read-line)) (a-query `(("oauth_consumer_key" ,consumer-key) ("oauth_nonce" ,(random-string)) ("oauth_signature_method" "HMAC-SHA1") ("oauth_timestamp" ,(time-stamp)) ("oauth_token" ,request-token) ("oauth_verifier" ,oauth-verifier))) (a-s (signature "GET" "http://api.twitter.com/oauth/access_token" a-query request-token-secret)) (token (receive (status header body) (http-post "api.twitter.com" "/oauth/access_token" (query-compose `(,@a-query ("oauth_signature" ,a-s)))) (cgi-parse-parameters :query-string body)))) (format #t "Consumer Key: ~A\n" consumer-key) (format #t "Consumer Secret Key: ~A\n" consumer-secret) (format #t "Access Token: ~A\n" (cadr (assoc "oauth_token" token))) (format #t "Access Token Secret: ~A\n" (cadr (assoc "oauth_token_secret" token)))))) (define (twitter-post consumer-key consumer-secret access-token access-token-secret message) (let* ((query `(("oauth_consumer_key" ,consumer-key) ("oauth_nonce" ,(random-string)) ("oauth_signature_method" "HMAC-SHA1") ("oauth_timestamp" ,(time-stamp)) ("oauth_token" ,access-token))) (s (signature "POST" "http://api.twitter.com/statuses/update.json" `(,@query ,`("status" ,(uri-encode-string message))) consumer-secret access-token-secret))) (http-post "api.twitter.com" "/statuses/update.json" (format "status=~A" (uri-encode-string message)) :Authorization (format "OAuth ~A" (string-join (map (cut string-join <> "=") `(,@query ("oauth_signature" ,s))) ", "))))) (provide "net-twitter")
解説
Consumer Key と Consumer Secret Key を引数にして twitter-init を呼び出すと、認証用 URL にアクセスし、認証を求められます。認証後に表示された PIN を入力してください。すると、
- Access Token
- Access Token Secret
が表示されます。
kazu634@kazu634% gosh temp.scm ~/Documents/working/tmp_lisp/test [2626] open this url. https://api.twitter.com/oauth/authorize?oauth_token=EP8MaCiRCZlh2XRmJrpcgoV7UxFo5lNg4Dm1dtbExV0 input pin: nnnnnnnn Consumer Key: Consumer Secret Key: Access Token: Access Token Secret:
認証完了後に表示されるこれらの情報とポスト用の文字列を引数にして、 twitter-post を呼び出します。
(twitter-post consumer key consumer secret key access token access token secret "テストです。")
使用例
(require "./net-twitter.scm") (import net-twitter) ;; (twitter-init consumer key ;; consumer secret key (twitter-post consumer key consumer secret key access token access token secret "テストです。")
- 作者: Kahuaプロジェクト,川合史朗
- 出版社/メーカー: オライリージャパン
- 発売日: 2008/03/14
- メディア: 大型本
- 購入: 22人 クリック: 713回
- この商品を含むブログ (272件) を見る