tdiary 3.2.2.20130507

data/misc/plugin/a.rb

@@ -0,0 +1,211 @@
+# -*- coding: utf-8 -*-
+# a.rb
+#
+# Create anchor easily.
+#
+# 1. Usage
+# a(url, name)
+#
+#   a "http://www.hoge.com/diary/", "Hoge Diary"
+#
+# a(key, option_or_name = "", name = nil)
+#   Use dictionary file. You need to create the dictionary 
+#   file with a CGI.
+#   a "home"
+#   a "home", "20020329.html", "Here"
+#
+# a("name|key:option")
+#   Use dictionary file. You need to create the dictionary 
+#   file with a CGI.
+#
+#   a "key"
+#   a "key:20020329.html"
+#   a "key:20020329.html|Here"
+#   a "Hoge Diary|http://www.hoge.com/diary/"
+#   a "Hoge Diary|20020201.html#p01"  #=> Same as "my" plugin
+#
+# 2. Dictionary file
+# You can edit the dictionary file from "Preferences".
+#
+# 3. Documents
+# See URLs below for more details.
+#   http://ponx.s5.xrea.com/hiki/a.rb.html (English) 
+#   http://ponx.s5.xrea.com/hiki/ja/a.rb.html (Japanese) 
+#
+# Copyright (c) 2002-2004 MUTOH Masao <mutoh@highway.ne.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+# Resources
+unless @resource_loaded then
+	def a_conf_label; "アンカー自動生成プラグイン辞書ファイル編集"; end
+	def a_conf_explain; "<p>1行で1つのアンカーになります。フォーマットは、キー URL 名称です。各項目は空白で区切ります。名称は省略可能です。省略した場合はキーが名称として使われます。</p><p>例： bibo http://ponx.s5.xrea.com/bibo/ Linuxビボ〜ろく</p>"; end
+end
+def a_conf_cols; '70%'; end
+def a_conf_rows; 20; end
+
+A_REG_PIPE = /\|/
+A_REG_COLON = /\:/
+A_REG_URL = /:\/\//
+A_REG_CHARSET = /utf8|euc|sjis|jis/
+A_REG_CHARSET2 = /euc|sjis|jis/
+A_REG_MY = /^\d{8}/
+
+if @options and @options["a.path"]
+	a_path = @options["a.path"]
+else
+	a_path = File.join(@cache_path, "a.dat")
+end
+
+@a_anchors = Hash.new
+if FileTest::exist?(a_path)
+	open(a_path) do |file|
+		file.each_line do |line|
+			key, baseurl, *data = line.split(/\s+/)
+			if data.last =~ A_REG_CHARSET
+				charset = data.pop
+			else
+				charset = ""
+			end
+			@a_anchors[key] = [baseurl, data.join(" "), charset]
+		end
+	end
+end
+
+def a_separate(word)
+	if A_REG_PIPE =~ word
+		name, data = $`, $'
+	else
+		name, data = nil, word
+	end
+
+	option = nil
+	if data =~ A_REG_URL
+		key = data
+	elsif data =~ A_REG_COLON
+		key, option = $`, $'
+	else
+		key = data #Error pattern
+	end
+	[key, option, name]
+end
+
+def a_convert_charset(option, charset)
+	return "" unless option
+	return option unless charset
+	if charset =~ A_REG_CHARSET2
+		ret = if String.method_defined?(:encode)
+					option.encode(charset == 'jis' ? 'ISO-2022-JP' : charset)
+				else
+					require 'nkf'
+					NKF::nkf("-#{charset[0].chr}", option)
+				end
+	else
+		ret = option
+	end
+	ret
+end
+
+def a_anchor(key)
+	data = @a_anchors[key]
+	if data
+		data.collect{|v| v ? v.dup : nil}
+	else
+		[nil, nil, nil]
+	end
+end
+
+def a(key, option_or_name = nil, name = nil, charset = nil)
+	url, value, cset = a_anchor(key)
+	if url.nil?
+		key, option, name = a_separate(key)
+		url, value, cset = a_anchor(key)
+		option_or_name = option unless option_or_name;
+	end
+	charset = cset unless charset
+
+	value = key if value == ""
+
+	if url.nil?
+		url = key
+		if name
+			value = name
+			url += u(a_convert_charset(option_or_name, charset))
+		elsif option_or_name
+			value = option_or_name
+		else
+			value = key
+		end
+	else
+		url += u(a_convert_charset(option_or_name, charset))
+		value = name if name
+	end
+
+   if key =~ A_REG_MY
+      option_or_name = key unless option_or_name
+      return my(option_or_name, name)
+   end
+
+	if @options["a.tlink"]
+		if defined?(tlink)
+			url.untaint
+ 			result = tlink(url, value)
+		else
+			result = "tlink is not available."
+		end
+	else
+		result = %Q[<a href="#{h url}">#{value}</a>]
+	end
+	result
+end
+
+def navi_a(name = "a.rb conf")
+	"<span class=\"adminmenu\"><a href=\"a_conf.rb\">#{name}</a></span>\n"
+end
+
+def a_conf_html(data)
+%Q[
+#{a_conf_explain}
+<p><textarea name="anchor_plugin_data" cols="#{a_conf_cols}" rows="#{a_conf_rows}">#{h data}</textarea></p>
+]
+end
+
+add_conf_proc( 'a_conf', a_conf_label ) do
+  data = ""
+  if FileTest.exist?( a_path )
+    open( a_path, "r" ) do |i|
+      data = i.readlines.join
+    end
+  end
+
+  if @mode == 'saveconf'
+    if @cgi['anchor_plugin_data']
+      if FileTest.exist?( a_path )
+        open( a_path, "r" ) do |i|
+          open( a_path + "~", "w" ) do |o|
+            o.print i.readlines
+          end
+        end
+      end
+
+      open( a_path, 'w' ) do |o|
+        @cgi["anchor_plugin_data"].lines.each do |v|
+          v.split(/\n/).each do |line|
+            o.print line, "\n" if line =~ /\w/
+          end
+        end
+      end
+      data = @cgi["anchor_plugin_data"]
+
+    end
+  end
+
+  a_conf_html(data)
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/amazon.rb

@@ -0,0 +1,403 @@
+# amazon.rb: Making link with image to Amazon using Amazon ECS.
+#
+# see document: #{@lang}/amazon.rb
+#
+# Copyright (C) 2005-2007 TADA Tadashi <sho@spc.gr.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+autoload :Net,     'net/http'
+autoload :URI,     'uri'
+autoload :Timeout, 'timeout'
+autoload :REXML,   'rexml/document'
+
+# do not change these variables
+@amazon_subscription_id = '1CVA98NEF1G753PFESR2'
+@amazon_require_version = '2011-08-01'
+
+@amazon_url_hash = {
+  'ca' => 'http://www.amazon.ca/exec/obidos/ASIN',
+  'cn' => 'http://www.amazon.cn/exec/obidos/ASIN',
+  'de' => 'http://www.amazon.de/exec/obidos/ASIN',
+  'es' => 'http://www.amazon.es/exec/obidos/ASIN',
+  'fr' => 'http://www.amazon.fr/exec/obidos/ASIN',
+  'it' => 'http://www.amazon.it/exec/obidos/ASIN',
+  'jp' => 'http://www.amazon.co.jp/exec/obidos/ASIN',
+  'uk' => 'http://www.amazon.co.uk/exec/obidos/ASIN',
+  'us' => 'http://www.amazon.com/exec/obidos/ASIN',
+}
+
+@amazon_ecs_url_hash = {
+  'ca' => 'http://rpaproxy.tdiary.org/rpaproxy/ca/',
+  'cn' => 'http://rpaproxy.tdiary.org/rpaproxy/cn/',
+  'de' => 'http://rpaproxy.tdiary.org/rpaproxy/de/',
+  'es' => 'http://rpaproxy.tdiary.org/rpaproxy/es/',
+  'fr' => 'http://rpaproxy.tdiary.org/rpaproxy/fr/',
+  'it' => 'http://rpaproxy.tdiary.org/rpaproxy/it/',
+  'jp' => 'http://rpaproxy.tdiary.org/rpaproxy/jp/',
+  'uk' => 'http://rpaproxy.tdiary.org/rpaproxy/uk/',
+  'us' => 'http://rpaproxy.tdiary.org/rpaproxy/us/',
+}
+
+if @conf['amazon.bitly'] and @conf['bitly.login'] and @conf['bitly.key'] then
+	enable_js( 'amazon.js' )
+	add_js_setting( '$tDiary.plugin.bitly' )
+	add_js_setting( '$tDiary.plugin.bitly.login', "'#{@conf['bitly.login']}'" )
+	add_js_setting( '$tDiary.plugin.bitly.apiKey', "'#{@conf['bitly.key']}'" )
+end
+
+def amazon_fetch( url, limit = 10 )
+	raise ArgumentError, 'HTTP redirect too deep' if limit == 0
+
+	px_host, px_port = (@conf['proxy'] || '').split( /:/ )
+	px_port = 80 if px_host and !px_port
+	res = Net::HTTP::Proxy( px_host, px_port ).get_response( URI::parse( url ) )
+	case res
+	when Net::HTTPSuccess
+		res.body
+	when Net::HTTPRedirection
+		amazon_fetch( res['location'].untaint, limit - 1 )
+	else
+		raise ArgumentError, res.error!
+	end
+end
+
+def amazon_call_ecs( asin, id_type, country )
+	@conf["amazon.aid.#{@amazon_default_country}"] = @conf['amazon.aid'] unless @conf['amazon.aid'].to_s.empty?
+	aid = @conf["amazon.aid.#{country}"] || ''
+
+	url = (@conf['amazon.endpoints'] || @amazon_ecs_url_hash)[country].dup
+	url << "?Service=AWSECommerceService"
+	url << "&SubscriptionId=#{@amazon_subscription_id}"
+	url << "&AssociateTag=#{aid}" unless aid.empty?
+	url << "&Operation=ItemLookup"
+	url << "&ItemId=#{asin}"
+	url << "&IdType=#{id_type}"
+	url << "&SearchIndex=Books" if id_type == 'ISBN'
+	url << "&SearchIndex=All"   if id_type == 'EAN'
+	url << "&ResponseGroup=Medium"
+	url << "&Version=#{@amazon_require_version}"
+
+	begin
+		Timeout.timeout( 10 ) do
+			amazon_fetch( url )
+		end
+	rescue ArgumentError
+	end
+end
+
+def amazon_author( item )
+	begin
+		author = []
+		%w(Author Creator Artist).each do |elem|
+			item.elements.each( "*/#{elem}" ) do |a|
+				author << a.text
+			end
+		end
+		@conf.to_native( author.uniq.join( '/' ), 'utf-8' )
+	rescue
+		'-'
+	end
+end
+
+def amazon_title( item )
+	@conf.to_native( item.elements.to_a( '*/Title' )[0].text, 'utf-8' )
+end
+
+def amazon_image( item )
+	image = {}
+	begin
+		size = case @conf['amazon.imgsize']
+		when 0; 'Large'
+		when 2; 'Small'
+		else;   'Medium'
+		end
+		img = item.elements.to_a("#{size}Image")[0] || item.elements.to_a("ImageSets/ImageSet/#{size}Image")[0]
+		image[:src] = img.elements['URL'].text
+		image[:height] = img.elements['Height'].text
+		image[:width] = img.elements['Width'].text
+	rescue
+		base = @conf['amazon.default_image_base'] || 'http://www.tdiary.org/images/amazondefaults/'
+		case @conf['amazon.imgsize']
+		when 0
+			image[:src] = "#{base}large.png"
+			image[:height] = 500
+			image[:width] = 380
+		when 2
+			image[:src] = "#{base}small.png"
+			image[:height] = 75
+			image[:width] = 57
+		else
+			image[:src] = "#{base}medium.png"
+			image[:height] = 160
+			image[:width] = 122
+		end
+	end
+	image
+end
+
+def amazon_url( item )
+	item.elements.to_a( 'DetailPageURL' )[0].text
+end
+
+def amazon_label( item )
+	begin
+		@conf.to_native( item.elements.to_a( '*/Label' )[0].text, 'utf-8' )
+	rescue
+		'-'
+	end
+end
+
+def amazon_price( item )
+	begin
+		@conf.to_native( item.elements.to_a( '*/LowestNewPrice/FormattedPrice' )[0].text, 'utf-8' )
+	rescue
+		begin
+			@conf.to_native( item.elements.to_a( '*/ListPrice/FormattedPrice' )[0].text, 'utf-8' )
+		rescue
+			'(no price)'
+		end
+	end
+end
+
+def amazon_detail_html( item )
+	author = amazon_author( item )
+	title = amazon_title( item )
+
+	size_orig = @conf['amazon.imgsize']
+	@conf['amazon.imgsize'] = 2
+	image = amazon_image( item )
+	@conf['amazon.imgsize'] = size_orig
+
+	url = amazon_url( item )
+	html = <<-HTML
+	<a class="amazon-detail" href="#{url}"><span class="amazon-detail">
+		<img class="amazon-detail left" src="#{h image[:src]}"
+		height="#{h image[:height]}" width="#{h image[:width]}"
+		alt="">
+		<span class="amazon-detail-desc">
+			<span class="amazon-title">#{h title}</span><br>
+			<span class="amazon-author">#{h author}</span><br>
+			<span class="amazon-label">#{h amazon_label( item )}</span><br>
+			<span class="amazon-price">#{h amazon_price( item )}</span>
+		</span><br style="clear: left">
+	</span></a>
+	HTML
+end
+
+def amazon_to_html( item, with_image = true, label = nil, pos = 'amazon' )
+	with_image = false if @mode == 'categoryview'
+
+	author = amazon_author( item )
+	author = "(#{author})" unless author.empty?
+
+	label ||= %Q|#{amazon_title( item )}#{author}|
+	alt = ''
+	if with_image and @conf['amazon.hidename'] || pos != 'amazon' then
+		label, alt = alt, label
+	end
+
+	if with_image
+		image = amazon_image( item )
+		unless image[:src] then
+			img = ''
+		else
+			size = @cgi.smartphone? ? '' : %Q|height="#{h image[:height]}" width="#{h image[:width]}"|
+			img = <<-HTML
+			<img class="#{h pos}" src="#{h image[:src]}"
+			#{size} alt="#{h alt}">
+			HTML
+			img.gsub!( /\t/, '' )
+		end
+	end
+
+	url = amazon_url( item )
+	%Q|<a href="#{h url}">#{img}#{h label}</a>|
+end
+
+def amazon_secure_html( asin, with_image, label, pos, country )
+	with_image = false if @mode == 'categoryview'
+	label = asin unless label
+
+	image = ''
+	if with_image and @conf['amazon.secure-cgi'] then
+		image = <<-HTML
+		<img class="#{h pos}"
+		src="#{h @conf['amazon.secure-cgi']}?asin=#{u asin};size=#{u @conf['amazon.imgsize']};country=#{u country}"
+		alt="">
+		HTML
+	end
+	image.gsub!( /\t/, '' )
+
+	if with_image and @conf['amazon.hidename'] || pos != 'amazon' then
+		label = ''
+	end
+
+	@conf["amazon.aid.#{@amazon_default_country}"] = @conf['amazon.aid'] unless @conf['amazon.aid'].to_s.empty?
+	aid = @conf["amazon.aid.#{country}"] || ''
+	amazon_url = @amazon_url_hash[country]
+	url =  "#{amazon_url}/#{u asin}"
+	url << "/#{u aid}" unless aid.empty?
+	url << "/ref=nosim/"
+	%Q|<a href="#{h url}">#{image}#{h label}</a>|
+end
+
+def amazon_get( asin, with_image = true, label = nil, pos = 'amazon' )
+	asin = asin.to_s.strip # delete white spaces
+	asin.sub!(/\A([a-z]+):/, '')
+	country = $1 || @conf['amazon.default_country'] || @amazon_default_country
+	digit = asin.gsub( /[^\d]/, '' )
+	if digit.length == 13 then # ISBN-13
+		asin = digit
+		id_type = /^97[89]/ =~ digit ? 'ISBN' : 'EAN'
+	else
+		id_type = 'ASIN'
+	end
+
+	if @conf.secure then
+		amazon_secure_html( asin, with_image, label, pos, country )
+	else
+		begin
+			cache = "#{@cache_path}/amazon"
+			Dir::mkdir( cache ) unless File::directory?( cache )
+			begin
+				xml = File::read( "#{cache}/#{country}#{asin}.xml" )
+			rescue Errno::ENOENT
+				xml =  amazon_call_ecs( asin, id_type, country )
+				File::open( "#{cache}/#{country}#{asin}.xml", 'wb' ) {|f| f.write( xml )}
+			end
+			doc = REXML::Document::new( REXML::Source::new( xml ) ).root
+			item = doc.elements.to_a( '*/Item' )[0]
+			if pos == 'detail' then
+				amazon_detail_html( item )
+			else
+				amazon_to_html( item, with_image, label, pos )
+			end
+		rescue Timeout::Error
+			@logger.error "amazon.rb: Amazon API Timeouted."
+			message = asin
+			if @mode == 'preview' then
+				message << %Q|<span class="message">(Amazon API Timeouted))</span>|
+			end
+			message
+		rescue NoMethodError
+			message = label || asin
+			if @mode == 'preview' then
+				if item == nil then
+					m = doc.elements.to_a( 'Items/Request/Errors/Error/Message' )[0].text
+					message << %Q|<span class="message">(#{h @conf.to_native( m, 'utf-8' )})</span>|
+				else
+					message << %Q|<span class="message">(#{h $!}\n#{h $@.join( ' / ' )})</span>|
+				end
+			end
+			message
+		end
+	end
+end
+
+unless @conf.secure and not @conf['amazon.secure-cgi'] then
+	add_conf_proc( 'amazon', @amazon_label_conf ) do
+		amazon_conf_proc
+	end
+end
+
+def amazon_conf_proc
+	if @mode == 'saveconf' then
+		unless @conf.secure and not @conf['amazon.secure-cgi'] then
+			@conf['amazon.imgsize'] = @cgi.params['amazon.imgsize'][0].to_i
+			@conf['amazon.hidename'] = (@cgi.params['amazon.hidename'][0] == 'true')
+			@conf['amazon.bitly'] = (@cgi.params['amazon.bitly'][0] == 'true')
+			unless @conf.secure then
+				@conf['amazon.nodefault'] = (@cgi.params['amazon.nodefault'][0] == 'true')
+				if @cgi.params['amazon.clearcache'][0] == 'true' then
+					Dir["#{@cache_path}/amazon/*"].each do |cache|
+						File::delete( cache.untaint )
+					end
+				end
+			end
+		end
+		unless @conf['amazon.hideconf'] then
+			@conf['amazon.aid'] = @cgi.params['amazon.aid'][0]
+		end
+	end
+
+	result = ''
+	unless @conf.secure and not @conf['amazon.secure-cgi'] then
+		result << <<-HTML
+			<h3>#{@amazon_label_imgsize}</h3>
+			<p><select name="amazon.imgsize">
+				<option value="0"#{" selected" if @conf['amazon.imgsize'] == 0}>#{@amazon_label_large}</option>
+				<option value="1"#{" selected" if @conf['amazon.imgsize'] == 1}>#{@amazon_label_regular}</option>
+				<option value="2"#{" selected" if @conf['amazon.imgsize'] == 2}>#{@amazon_label_small}</option>
+			</select></p>
+			<h3>#{@amazon_label_title}</h3>
+			<p><select name="amazon.hidename">
+				<option value="true"#{" selected" if @conf['amazon.hidename']}>#{@amazon_label_hide}</option>
+				<option value="false"#{" selected" unless @conf['amazon.hidename']}>#{@amazon_label_show}</option>
+			</select></p>
+		HTML
+
+		if @options['bitly.login'] and @options['bitly.key'] then
+			result << <<-HTML
+				<h3>#{@amazon_label_bitly}</h3>
+				<p><select name="amazon.bitly">
+					<option value="true"#{" selected" if @conf['amazon.bitly']}>#{@amazon_label_bitly_enabled}</option>
+					<option value="false"#{" selected" unless @conf['amazon.bitly']}>#{@amazon_label_bitly_disabled}</option>
+				</select></p>
+			HTML
+		end
+
+		unless @conf.secure then
+			result << <<-HTML
+				<h3>#{@amazon_label_notfound}</h3>
+				<p><select name="amazon.nodefault">
+					<option value="true"#{" selected" if @conf['amazon.nodefault']}>#{@amazon_label_usetitle}</option>
+					<option value="false"#{" selected" unless @conf['amazon.nodefault']}>#{@amazon_label_usedefault}</option>
+				</select></p>
+				<h3>#{@amazon_label_clearcache}</h3>
+				<p><label for="amazon.clearcache"><input type="checkbox" id="amazon.clearcache" name="amazon.clearcache" value="true">#{@amazon_label_clearcache_desc}</label></p>
+			HTML
+		end
+	end
+	unless @conf['amazon.hideconf'] then
+		result << <<-HTML
+			<h3>#{@amazon_label_aid}</h3>
+			<p>#{@amazon_label_aid_desc}</p>
+			<p><input name="amazon.aid" value="#{h( @conf['amazon.aid'] ) if @conf['amazon.aid']}"></p>
+		HTML
+	end
+	result
+end
+
+def isbn_detail( asin )
+	amazon_get( asin, true, nil, 'detail' )
+end
+
+def isbn_image( asin, label = nil )
+	amazon_get( asin, true, label )
+end
+
+def isbn_image_left( asin, label = nil )
+	amazon_get( asin, true, label, 'left' )
+end
+
+def isbn_image_right( asin, label = nil )
+	amazon_get( asin, true, label, 'right' )
+end
+
+def isbn( asin, label = nil )
+	amazon_get( asin, false, label )
+end
+
+# for compatibility
+alias isbnImgLeft isbn_image_left
+alias isbnImgRight isbn_image_right
+alias isbnImg isbn_image
+alias amazon isbn_image
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End: