# -*- Mode: ruby ; Coding: sjis-dos -*-
# $Id: amazondvd.rb,v 1.8 2002-09-04 23:37:05+09 waka Exp $
# http://wakahiko.cool.ne.jp/
=begin
    ※ほとんど amazon.rb のコメントそのままです。:-)

	(DVD:BCBA-0618) (CD:AMCY-7125) みたいな
	(DVD:背表紙にある記号) (CD:背表紙にある記号)
	という形式の文字列があると
    amazon からDVD,PS2データやらパッケージ画像やらを引っ張ってきて置き換えます。

    ndiary.conf の LOG_DIRECTORY で指定したディレクトリに amzcacheDVD というディレクトリを
    作っておくと取得したデータをキャッシュしておくようになります。
    キャッシュの有効期限もスクリプト内で指定しているので必要に応じて変更してください。

    ndiary.conf で

    PROXY = 'proxy.hoge.com:8080'

    と指定しておくと、情報取得時プロクシを経由するようになります。
=end
class Module
  def attr_my_accessordvd( name )
    module_eval %-
      def #{name.id2name}()
        get_dvddata
        @#{name.id2name}
      end
    -
  end
end

class Amazondvd
  require 'net/http'
  require 'kconv'
  attr_accessor :dvdid
  attr_my_accessordvd :title
  attr_my_accessordvd :actor
  attr_my_accessordvd :maker
  attr_my_accessordvd :publisher
  attr_my_accessordvd :director
  attr_my_accessordvd :size
  attr_my_accessordvd :pubdate
  attr_my_accessordvd :price
  attr_my_accessordvd :desc
  attr_my_accessordvd :writer
  attr_my_accessordvd :image_url
  attr_my_accessordvd :image_width
  attr_my_accessordvd :image_height
  attr_my_accessordvd :media
  attr_my_accessordvd :site

  attr_reader      :cache_dir
  attr_accessor    :expire
  attr_accessor    :proxy

  attr_accessor    :retry

  def initialize
    @expire = 14
    @proxy = nil
	@retry = 0
  end

  def load_cache
    if @flag or
      (File::directory?(@cache_dir.to_s) and File::readable?(@cache_dir + @dvdid) and
       File::mtime(@cache_dir + @dvdid) < Time::now.to_i - 3600 * 24 * @expire) then
      return
    end
    @flag = true
    read_cache
  end

  def read_cache
    begin
      open(@cache_dir + @dvdid){ |f|
        @title, @actor, @publisher, @maker,@size, @pubdate, @price, @desc, @writer, @image_url,@image_width, @image_height, @media, @director, @site = f.read.split(/\t/)
      }
    rescue
      @flag = nil
    end
  end

  def save_cache
    return unless File::directory?(@cache_dir.to_s)

    begin
      open(@cache_dir + @dvdid, 'w'){ |f|
        f.write [ @title, @actor, @publisher, @maker,@size, @pubdate, @price, @desc, @writer, @image_url,@image_width, @image_height, @media, @director, @site ].join("\t")
      }
    rescue
      #
    end
  end

  def httpconnect
    if @proxy then
      proxy, port = @proxy.split(':')
      port = port.to_i
    else
      proxy = port = nil
    end
    Net::HTTP::Proxy(proxy, port).new( 'www.amazon.co.jp', 80 )
  end

  def httpconnect2
    if @proxy then
      proxy, port = @proxy.split(':')
      port = port.to_i
    else
      proxy = port = nil
    end
    Net::HTTP::Proxy(proxy, port).new( 'www.jp.playstation.com', 80 )
  end

  def httpconnect3
    if @proxy then
      proxy, port = @proxy.split(':')
      port = port.to_i
    else
      proxy = port = nil
    end
    Net::HTTP::Proxy(proxy, port).new( 'www.google.com', 80 )
  end

  def cache_dir=(dir)
    dir << '/' unless dir[-1,1] == '/'
    @cache_dir = dir
  end

  def large_image_url
    get_dvddata
    @image_url.sub('MZZZZZZZ','LZZZZZZZ')
  end

  def get_dvddata
    load_cache
    return if @flag

	dvdid = @dvdid
	path = "/exec/obidos/search-handle-url/index=blended%26field-keywords=#{dvdid.gsub(/\_/,'%3D')}"
    http = httpconnect
    response , = http.get2(path)
    if response.code == '302' then
      path = response.header['location'].sub('http://www.amazon.co.jp', '')
      response , = http.get2(path)
    end

    if %r|^<li class="small">\n<a href=([^>]+>)| =~ response.body then
	  path2=$1
	end

	if path2.to_s.empty? then
	  path = "/php/item/#{dvdid}"
	  http = httpconnect2
	  response , = http.get2(path)
	  if response.code == '302' then
		path = response.header['location'].sub('http://www.jp.playstation.com', '')
		response , = http.get2(path)
	  end
	  if %r|<td bgcolor="#009999"><font color="#FFFFFF"><b><span class="t">(\w+)</span>| =~ response.body then
		keyword = $1
	  end
	  if %r|<td bgcolor="#99CCCC">発売日</td>\n<td bgcolor="#FFFFFF">([\d\/]+[\d])| =~ response.body then
		keyword = keyword + " " + $1
	  end


	  # Google!!
	  # ' '  ===> %20  ;  '?' ===> %3f ;  '+' ===> %2b ;   '%' ===> %25
	  # '&'  ===> %26  ;  '=' ===> %3d ;  '/' ===> %2f ;   ':' ===> %3a
	  path = "/search%3fhl=ja%26inlang=ja%26ie=Shift_JIS%26q=site%3Awww.amazon.co.jp%2b#{keyword.gsub(/\ /,'%2b')}"
	  http = httpconnect3
	  response , = http.get2(path)
	  if response.code == '302' then
		path = response.header['location'].sub('http://www.google.com', '')
		response , = http.get2(path)
	  end

	  if %r|</font></td></tr></table></td></tr></table>.+<a href=http://www.amazon.co.jp(/exec/obidos/ASIN/[^>]+)>Amazon.co.jp：| =~ response.body then
		path2 = $1
		@site = "Google #{keyword}"
	  else
		@site = ""
		@title = "#{keyword}"
		save_cache
		return if @title
	  end
	else
	  @site = "Amazon"
	end

	http = httpconnect
	response , = http.get2(path2)
	if response.code == '302' then
	  path2 = response.header['location'].sub('http://www.amazon.co.jp', '')
	  response , = http.get2(path2)
	end

	#--------------------------------------------------
	# Title
	#--------------------------------------------------
    if %r|^Amazon.co.jp：(.+?)$| =~ response.body then
	  @title = "<a href=\"http://www.amazon.co.jp#{path2}\">#{$1.strip}</a>"
    end

	#--------------------------------------------------
	# Maker
	#--------------------------------------------------
	if %r|^<b class="sans">[^<]+</b><br>(<a href="?/exec/obidos/search-handle-url/index=[^&]+&[^=]+=[^\"]+"?>.+</a>)<br>| =~ response.body then
	  @maker = $1
    end
	if @maker.nil? then
	  if %r|(\w+) -  ASIN：| =~ response.body then
		@maker = $1
	  end
	end

	#--------------------------------------------------
	# Image
	#--------------------------------------------------
    if %r|<img src="(http://images(?:-jp)?.amazon.com/images/P/[^.]+.09.MZZZZZZZ.jpg)" width=(\d+) height=(\d+)| =~ response.body then
      @image_url = $1
      @image_width = $2.to_i
      @image_height = $3.to_i
    end

	#--------------------------------------------------
	# Price
	#--------------------------------------------------
    if %r|<b>定価： </b>[^￥]+(￥[\d,]+)| =~ response.body then
      @price = $1
    end
	# 定価表示ではなく価格のみ表示の場合
	if @price.nil? then
    if %r|<b>価格：[^￥]+(￥[\d,]+)| =~ response.body then
      @price = $1
    end
	end

	#--------------------------------------------------
	# Actor
	#--------------------------------------------------
	if %r|<b>出演：&nbsp;</b>(.*)| =~ response.body then
	  @actor = $1
    end

	#--------------------------------------------------
	# Director
	#--------------------------------------------------
	if %r|<b>監督：&nbsp;</b>(.*)| =~ response.body then
	  @director = $1
	end

	#--------------------------------------------------
	# Description
	#--------------------------------------------------
    if %r"<i>(出版社/著者からの内容紹介|内容（「.+?」データベースより）|メーカーより|作品内容)</i></b> <br>  </font> +(.+?) *</a><[pP]>" =~ response.body then
	  @writer =$1
      @desc = $2
    end

	#--------------------------------------------------
	# Published Date
	#--------------------------------------------------
	#(2002/05/24)<br>             :DVD,CD
	#<b>発売日:</b>2002/03/28<br> :PS2
    if %r"^(?:<b>発売日:</b>|\()([\d\/]+[\d])\)?<br>" =~ response.body then
      @pubdate = $1
    end

	#--------------------------------------------------
	# Size(ディスク枚数)
	#--------------------------------------------------
    if %r"^<b>ディスク枚数：</b>(.+)<br>" =~ response.body then
	  @size = $1
	end

	#--------------------------------------------------
	# CD,DVD or PS2?
	#--------------------------------------------------
	if %r|この(\w+)に\w+レビューを書| =~ response.body then
	  @media = $1.gsub(/商品/,'DVD (PlayStation2)')
	end

    if @title.nil? then
      read_cache
    else
      save_cache
      @flag = true
    end
  end
end

class Filter
  def amazondvd(str, type)
    case type
    when :P, :UL, :DL
      str.gsub!(/[\(（](?:CD|DVD):(.+)[\)）]/i){
        dvdid = $1.gsub(/^([A-Za-z]+)(\d+)$/, "\\1-\\2")
		amzdvd = Amazondvd::new
		amzdvd.cache_dir = @diary.logDirectory + 'amzcacheDVD'
		amzdvd.expire = 14  # キャッシュの有効日数
		amzdvd.dvdid = dvdid

		body = img = desc = media = maker = director = size = desc = ''
		unless amzdvd.title.nil?
		  unless amzdvd.image_url.to_s.empty? then
			img = "<img src=\"#{amzdvd.image_url}\" width=\"#{amzdvd.image_width}\" height=\"#{amzdvd.image_height} alt=\"#{amzdvd.title.scan(/<a href.+?>(.*)<\/a>/)[0]}\"  style=\"margin-right: 2.0em; margin-left: 2.0em; padding: 10px 10px;\">"
		  else
			img = "<div style=\"border-width: thin; border-style: solid; margin-top: 1.0em; margin-bottom: 1.0em; margin-right: 2.0em; margin-left: 2.0em; padding: 10px 10px;\">No Image</div>"
		  end
		  title = "『#{amzdvd.title}』" unless amzdvd.title.to_s.empty?
		  media = "#{amzdvd.media}\n" unless amzdvd.media.to_s.empty?
		  maker = "#{amzdvd.maker}\n" unless amzdvd.maker.to_s.empty?
#		  publisher = "#{amzdvd.publisher}\n" unless amzdvd.publisher.to_s.empty?
		  actor  = "\n出演者: #{amzdvd.actor}" unless amzdvd.actor.to_s.empty?
		  director = "\n監督: #{amzdvd.director}" unless amzdvd.director.to_s.empty?
		  pubdate  = "\n発売日: #{amzdvd.pubdate}" unless amzdvd.pubdate.to_s.empty?
		  price = ", 価格: #{amzdvd.price.gsub(/￥/,'\\')}" unless amzdvd.price.to_s.empty?
		  size = ", 枚数: #{amzdvd.size}" unless amzdvd.size.to_s.empty?
		  desc = "\n\n#{amzdvd.desc}" unless amzdvd.desc.to_s.empty?
		  writer = "\n\n--<i>#{amzdvd.writer}</i>--" unless amzdvd.writer.to_s.empty?
		  site ="\n#{amzdvd.site}" unless amzdvd.site.to_s.empty?

		  body = "<div style=\"border-width: thin;border-style: solid;border-color: #9090ff;margin-top: 1.0em;margin-bottom: 1.0em;margin-right: 2.0em;margin-left: 2.0em;padding: 10px 10px; \"><table><tr><td>#{img}</td><td>#{title} #{media} #{maker}  #{actor} #{director} #{pubdate} #{price} #{size} #{writer} #{desc} #{site}</td></tr></table></div>"
		end
		body
      }

    end
  end
end