日々の流転

λ. Twitterにメールから投稿するスクリプト

最近Twitterを始めたyaizawaさんが「なんとたった27行」とか行数自慢(?)していたので、対抗して自分の使っている手抜きスクリプトも晒してみる(^^;

require 'net/http'
Net::HTTP.version_1_2
require 'uri'
require 'tmail'
require 'iconv'

mail = TMail::Mail.parse(STDIN.read)
status = mail.body
status = Iconv.conv('utf-8', mail.charset, status) if mail.charset
status.chomp!

Net::HTTP.start('twitter.com', 80) {|http|
  req = Net::HTTP::Post.new('/statuses/update.json')
  req.basic_auth(ID, PASSWORD)
  req.body = "status=" + URI.escape(status)
  res = http.request(req)
}