require 'rubygems'
require 'tmail'
require 'hpricot'
require 'fileutils'

mb = TMail::UNIXMbox.new("/home/voker57/boox/notablog.mbs", nil, true)

mb.each do |port|
	mail = TMail::Mail.new(port)
	
	d = Hpricot.parse(mail.body)
	
	name =  d.at("ul.feedEntryAlternateLinks/li/a")["href"].gsub(/\/$/,"").gsub(/http:\/\/iki\.fi\/tuomov\/b\/?/, "")
	dir = name.split("/")[0..-2].join("/")
	puts dir
	next if dir.empty?
	FileUtils.mkdir_p dir
	
	d.at("//head/*").after '<meta http-equiv="content-type" content="text/html; charset=utf-8" />'
	d.at("//head/*").after '<link rel="stylesheet" href="/b/styles/nb_foobar.css" type="text/css" />'
	d.search("a").each do |a|
		a["href"] = a["href"].gsub /^http:\/\/iki.fi\/tuomov\/b\/+/, ""
	end
	File.open(name, "w") do |f|
		f.write d.to_s
	end
end