# $Id: inlineimage.rb,v 1.3 2003/08/21 12:38:37 not Exp $
# 2003/10/01 微修正(一歩さん)
# 2003/10/02 リモート画像の高さと幅をゲットするようにした(waka)
=begin
   以下は一歩さんオリジナルコメント(waka)
   イメージの貼り付け。サイズを省略したとき、ローカルのファイルだったときは
   自動取得を試みる。その際画像サイズの自動縮尺(縦横100=@max_size以下)を行う。
   画像サイズ取得ライブラリの変更。（うちでは不具合が発生した為）
   画像へのリンク張り付け。
   alignに渡る引数がimgsmall,imglargeの場合、<div class=...></div>で囲んだ上で
   「<p>」「</p>」を除去してしまう。

 usage:
   image(../img/foo.jpg foo 120x40 right)
     -> <img src="../img/foo.jpg" alt="foo"
         width="120" height="40" align="right" />
   image(./img20030926_01.jpg 今日届いたダサ柄Tシャツ 200x150 imgsmall)
     -> <div class="img-small">
        <img src="./img20030926_01.jpg" alt="今日届いたダサ柄Tシャツ"
         width="200" height="150" />
        </div>
   image(./sample.jpg sizesmall  )
     -> <img src="./img20030926_01.jpg" alt="sizesmall"
         width="100" height="75" />
        #自動サイズ取得＋縦横が100以下になるよう縮尺
 reference:
   アサノさん http://www.mushline.com/junk/200309.html#d27_t2
   猫旦那さん http://aturust.com/topics/200309.html#26_t1
=end

class Filter
  def getFileStream(url,proxy)
	require 'net/http'
	if /^http/ =~ url then
	  domain = ""
	  port = ""
	  if url =~ /\/\/(.+?)(?:\/|$)/ then
		domain = $1.to_s
	  end
	  protocol = url.split(":").first + "://"
	  path = url.gsub(Regexp.new(protocol + domain),"")

	  if proxy then
		proxy, port = proxy.split(':')
		port = port.to_i
	  else
		proxy = port = nil
	  end
	  begin
		http = Net::HTTP::Proxy(proxy,port).new(domain,80)
		if /1\.6/ =~ RUBY_VERSION then
		  file_info, = http.get2(path)
		else
		  file_info = http.get(path)
		end
		if file_info.code == '302' then
		  path = file_info.header['location'].sub(Regexp.new(url), "")
		  file_info = http.get(path)
		end

		return(file_info.response.body)
	  rescue
		return $!
	  end
	else
	  open(url, "rb") do |fh|
		fh.read
	  end
	end
  end

  def inlineimage_ex(str, type)
	require 'image_size'
	case type
	when :P
	  proxy = nil
	  if @diary.respond_to?('config') then
		proxy = @diary.config['PROXY']
	  end
	  align = ''
	  str.gsub!(/image\(((?:https?:|\.).+?)\)/i){
		url, alt, size, align = $1.split(/ /)
		#img = %Q!<a href="#{url}"><img src="#{url}"!
		img = %Q!<img src="#{url}"!
		img << %Q! alt="#{alt}"! unless alt.nil?
		if /^(\d+)x(\d+)$/ =~ "#{size}" then
		  img << %Q! width="#{$1}" height="#{$2}"!
		else
		  @max_size = 300
		  unless /http/ =~ url then
			if url[0,1] == '.' then
			  url = @diary.outputDirectory + url
			end
		  end
		  begin
			image = ImageSizeNew.new(getFileStream(url,proxy))
			w, h = image.get_width, image.get_height
		  rescue
			w,h = 0
		  end
		  unless w.zero?
			l = w > h ? w : h
			scale = 1
			while (l/scale) > @max_size
			  scale *= 2
			end
			w, h = w/scale, h/scale
		  end
		  img << %Q! width="#{w}" height="#{h}"! unless w.zero?
		end
		div = ''
		unless align.nil?
		  if ["right", "center","left"].include?(align)
			img << %Q! align="#{align}"!
		  elsif ["imgsmall", "imglarge"].include?(align)
			case align
			when "imgsmall"
			  div = '<div class="img-small">'
			when "imglarge"
			  div = '<div class="img-large">'
			end
		  end
		end
		img << (@diary.isXHTML ? ' />' : '>')
		#img << '</a>'
		unless div.empty?
		  img = '<!--Tag:delete-p-->' + div + img + '</div>'
		end
		img
	  }

	  # 自分でつけてもらった方がいいか？
	  #if align.to_s.downcase == 'right' and /<br clear="all">$/ !~ str then
	  #  str.replace(str + '<br clear="all">')
	  #end
	when :AFTER_P
	  if str =~ /<!--Tag:delete-p-->/
		str.gsub!(/<!--Tag:delete-p-->/,'')
		str.gsub!(/<p>/,'')
		str.gsub!(/<\/p>/,'')
	  end
	  str
	end
  end
end