美人時計の画像ファイルが欲しい

美人時計という素晴らしいサービスがあります。

http://www.bijint.com/jp/


1分ごとに美人が表示される素晴らしいサイトですが、悲しい技術者の性。url 分かるんだったら画像取得できるじゃん。などと思ってしまうわけです。

追記の追記:
以下のスクリプトだと取得できなくなったから、新しいのつくりましたー。
http://d.hatena.ne.jp/Yamashiro0217/20090930/1254305886


追記:たしかに凶悪なので sleep を入れました。ごめんなさい><

require 'net/http'
require 'uri'

def get_file(download_url, filename)
  response = fetch(download_url,10)
  open(filename, "wb") do |file|
    file.puts response.body
  end
  return filename
end

def fetch( uri_str, limit = 10 )
  raise ArgumentError, 'http redirect too deep' if limit == 0

  response = Net::HTTP.get_response(URI.parse(uri_str))
  case response
  when Net::HTTPSuccess     then response
  when Net::HTTPRedirection then fetch(response['Location'], limit - 1)
  else
    response.error!
  end
  
  return response
end

error_files = ""
0..24.times { |hour|
  0..60.times { |minute|
    now_hour = sprintf("%0#{2}d", hour)
    now_minute = sprintf("%0#{2}d", minute)
    
    sleep 1
    begin
      get_file "http://www.bijint.com/jp/img/photo/#{now_hour}#{now_minute}.jpg", "#{now_hour}#{now_minute}.jpg"
    rescue Net::HTTPFatalError => e
      p e
      p "#{now_hour}#{now_minute}.jpg can not get"
      error_files += "http://www.bijint.com/jp/img/photo/#{now_hour}#{now_minute}.jpg\n"
    end
  }
}

print "errored"
print error_files

ご利用は計画的に。


追記:俺も東條サンにかまって欲しいんだぜ。


でチェックしてしまいました。お気に入り。女の子の趣味がばれてしまいますね。