PhotoShare の一覧を作る

iPhone の写真共有SNSであるPhotoShare を始めてから明日で１年になります。
メッセージの交換目的というより、簡単な記録、メモとして始めたのですが、古い写真にアクセスするのが簡単でありません。
そこで、Webにインデックスを作成しようと思い、HTMLタグを出力するスクリプトを書きました。

$KCODE="u"
require 'open-uri'
require 'kconv'
require 'rubygems'
require 'hpricot'
 
N     = 50                         # 出力する枚数
photo = "/photos/8045/1302192/"    # 出力開始する写真
base  = "http://bcphotoshare.com"
 
STDOUT.puts "<ul>"
N.times do
  url     = base+photo
  begin
    page    = Hpricot( open( url ).read )
  rescue
    puts "#{url} に接続出来ません。処理を終了します。"
    break 
  end

  title   = (page/"h1.title").first.inner_html.gsub("&nbsp;","")
  date_s  = (page/"div.posted").first.inner_html.sub(/^.* on /,"").sub(/\n.*\z/,"")
  # STDOUT.puts %(- [#{url} #{date_s} #{title}])
  STDOUT.puts %(<li><a href="#{url}">#{date_s} #{title} </a></li>)
  STDOUT.flush
 
  previousPicture = Hpricot((page/"ul.photos").first.inner_html)  
  if (previousPicture/:a).first.nil?
    break 
  else
    photo = (previousPicture/:a).first[:href]
  end
end
 
STDOUT.puts "</ul>"

/photos/8045/1302192/ の写真からタグを出力しながら同じユーザの写真を遡り、N に設定した枚数に達するか、一番最初の写真に達するまでHTMLタグを出力します。取得する写真は全員に公開している写真のみです。