Twitterにポスト

定期的にTwitterにポストするbot作ってみたかったので、インターバルしようとgauche.threadのthread-start!とかthread-delete!を使ってみようとしたら・・・not impemented!・・・・。winだと未実装ということかな。

• twitterにポスト - My Snippet

(use rfc.http) ; http-post (use rfc.uri) ; uri-encode-string (use rfc.base64) ; base64-encode-string (define *twitter-status* "/statuses/update.xml?status=") (define *twitter* "twitter.com") (define make-authorization   (lambda (username password)     (string-append "Basic "                    (base64-encode-string                     (string-append username ":" password))))) (define make-poster   (lambda (base-host post-path)     (lambda (auth)       (lambda (message)         (http-post base-host                    (string-append post-path                                   (uri-encode-string message))                    ""                    :authorization auth))))) (define main   (lambda (args)     (((make-poster *twitter* *twitter-status*)       (make-authorization (cadr args)(caddr args))) (cadddr args))))

参考

• twitter gauche - Google 検索
• gauche インターバル - Google 検索