tdiary-contrib 3.2.2.20130518

data/util/estraier-search/estraier-register.rb

@@ -0,0 +1,298 @@
+#!/usr/bin/env ruby
+# estraier-register.rb
+#
+# Copyright (C) 2007 Kazuhiko <kazuhiko@fdiary.net>
+# You can redistribute it and/or modify it under GPL2.
+#
+require "estraierpure"
+
+unless $tdiary_estraier_register_loaded
+$tdiary_estraier_register_loaded ||= true
+
+mode = ""
+if $0 == __FILE__
+	require 'cgi'
+	ARGV << '' # dummy argument against cgi.rb offline mode.
+	@cgi = CGI::new
+	mode = "CMD"
+else
+	mode = "PLUGIN"
+end
+
+if mode == "CMD"
+	tdiary_path = "."
+	tdiary_conf = "."
+	$stdout.sync = true
+
+	def usage
+		puts "hyper-estraier-register.rb $Revision: 1.1.2.13 $"
+		puts " register to hyper-estraier index files from tDiary's database."
+		puts " usage: ruby hyper-estraier-regiser.rb [-p <tDiary directory>] [-c <tdiary.conf directory>]"
+		exit
+	end
+
+	require 'getoptlong'
+	parser = GetoptLong::new
+	parser.set_options(['--path', '-p', GetoptLong::REQUIRED_ARGUMENT], ['--conf', '-c', GetoptLong::REQUIRED_ARGUMENT])
+	begin
+		parser.each do |opt, arg|
+			case opt
+			when '--path'
+				tdiary_path = arg
+			when '--conf'
+				tdiary_conf = arg
+			end
+		end
+	rescue
+		usage
+		exit( 1 )
+	end
+
+	tdiary_conf = tdiary_path unless tdiary_conf
+	Dir::chdir( tdiary_conf )
+
+	begin
+		$:.unshift tdiary_path
+		require "#{tdiary_path}/tdiary"
+	rescue LoadError
+		$stderr.puts "hyper-estraier-register.rb: cannot load tdiary.rb. <#{tdiary_path}/tdiary>\n"
+		$stderr.puts " usage: ruby hyper-estraier-regiser.rb [-p <tDiary directory>] [-c <tdiary.conf directory>]"
+		exit( 1 )
+	end
+end
+
+module ::TDiary
+	#
+	# Database
+	#
+	class EstraierDB
+		attr_accessor :db
+		attr_reader :conf
+
+		def initialize(conf)
+			@conf = conf
+			@host = @conf["estraier.host"] || "localhost"
+			@port = @conf["estraier.port"] || 1978
+			@path = @conf["estraier.path"] || "/node/"
+			@node = @conf["estraier.node"] || "tdiary"
+			@name = @conf["estraier.name"] || "admin"
+			@password = @conf["estraier.password"] || "admin"
+		end
+
+		def transaction
+			db = EstraierPure::Node.new
+			db.set_url("http://#{@host}:#{@port}#{@path}#{@node}")
+			db.set_auth(@name, @password)
+
+			if db.doc_num < 0
+				raise "Database not found : http://#{@host}:#{@port}#{@path}#{@node}"
+			end
+			@db = db
+			yield self
+		end
+
+		def cache_path
+			@conf.cache_path || "#{@conf.data_path}cache"
+		end
+	end
+
+	#
+	# Register
+	#
+	class EstraierRegister < TDiaryBase
+		def initialize(estraier_db, diary)
+			@db = estraier_db.db
+			super(CGI::new, 'day.rhtml', estraier_db.conf)
+			@diary = diary
+			@date = diary.date
+			@diaries = {@date.strftime('%Y%m%d') => @diary} if @diaries.empty?
+			@plugin = ::TDiary::Plugin::new(
+							'conf' => @conf,
+							'cgi' => @cgi,
+							'cache_path' => @io.cache_path,
+							'diaries' => @diaries
+							)
+			def @plugin.apply_plugin_alt( str, remove_tag = false )
+				apply_plugin( str, remove_tag )
+			end
+		end
+
+		def execute(force = false)
+			date = @date.strftime('%Y%m%d')
+			cond = EstraierPure::Condition.new
+			if @conf["estraier.with_user_name"]
+				cond.add_attr("@uri STRBW #{@conf.user_name}:#{date}")
+			else
+				cond.add_attr("@uri STRBW #{date}")
+			end
+			result = @db.search(cond, 0)
+			if result
+				for i in 0...result.doc_num
+					doc_id = result.get_doc(i).attr("@id")
+					@db.out_doc(doc_id)
+				end
+			end
+			return unless @diary.visible?
+
+			# body
+			index = 0
+			anchor = ''
+			@diary.each_section do |section|
+				index += 1
+				@conf['apply_plugin'] = true
+				anchor = "#{date}p%02d" % index
+				title = CGI.unescapeHTML( @plugin.apply_plugin_alt( section.subtitle_to_html, true ).strip )
+				if title.empty?
+					title = @plugin.apply_plugin_alt( section.body_to_html, true ).strip
+					title = @conf.shorten( CGI.unescapeHTML( title ), 20 )
+				end
+				last_modified = @diary.last_modified.strftime("%FT%T")
+				body = CGI.unescapeHTML( @plugin.apply_plugin_alt( section.body_to_html, true ).strip )
+				doc = EstraierPure::Document.new
+				doc.add_attr("@title", title)
+				if @conf["estraier.with_user_name"]
+					doc.add_attr("@uri", "#{@conf.user_name}:#{anchor}")
+				else
+					doc.add_attr("@uri", anchor)
+				end
+				doc.add_attr("@mdate", last_modified)
+				doc.add_hidden_text(title)
+				doc.add_text(body)
+				@db.put_doc(doc)
+			end
+
+			# comment
+			@diary.each_visible_comment do |comment, index|
+				if /^(TrackBack|Pingback)$/i =~ comment.name
+					anchor = "#{date}t%02d" % index
+					title = "TrackBack (#{comment.name})"
+				else
+
+
+					anchor = "#{date}c%02d" % index
+					title = "#{@plugin.comment_description_short} (#{comment.name})"
+				end
+				body = comment.body
+				doc = EstraierPure::Document.new
+				doc.add_attr("@title", title)
+				if @conf["estraier.with_user_name"]
+					doc.add_attr("@uri", "#{@conf.user_name}:#{anchor}")
+				else
+					doc.add_attr("@uri", anchor)
+				end
+				doc.add_attr("@mdate", comment.date.strftime("%FT%T"))
+				doc.add_hidden_text(title)
+				doc.add_text(body)
+				@db.put_doc(doc)
+			end
+		end
+		
+		protected
+
+		def mode; 'day'; end
+		def cookie_name; ''; end
+		def cookie_mail; ''; end
+
+		def convert(str)
+			str
+		end
+	end
+
+	#
+	# Main
+	#
+	class EstraierRegisterMain < TDiaryBase
+		def initialize(conf)
+			super(CGI::new, 'day.rhtml', conf)
+		end
+
+		def execute(out = $stdout)
+			require 'fileutils'
+			calendar
+			db = EstraierDB.new(conf)
+			db.transaction do |estraier_db|
+				@years.keys.sort.reverse_each do |year|
+					out << "(#{year.to_s}/) "
+					@years[year.to_s].sort.reverse_each do |month|
+						@io.transaction(Time::local(year.to_i, month.to_i)) do |diaries|
+							diaries.sort.reverse_each do |day, diary|
+								EstraierRegister.new(estraier_db, diary).execute
+								out << diary.date.strftime('%m%d ')
+							end
+							false
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if mode == "CMD"
+	begin
+		require 'cgi'
+		if TDiary::Config.instance_method(:initialize).arity != 0
+			# for tDiary 2.1 or later
+			cgi = CGI.new
+			conf = TDiary::Config::new(cgi)
+		else
+			# for tDiary 2.0 or earlier
+			conf = TDiary::Config::new
+		end
+		conf.header = ''
+		conf.footer = ''
+		conf.show_comment = true
+		conf.hide_comment_form = true
+		conf.show_nyear = false
+		def conf.bot?; true; end
+		TDiary::EstraierRegisterMain.new(conf).execute
+	rescue
+		print $!, "\n"
+		$@.each do |v|
+			print v, "\n"
+		end
+		exit( 1 )
+	end
+
+	puts
+else
+	add_update_proc do
+		conf = @conf.clone
+		conf.header = ''
+		conf.footer = ''
+		conf.show_comment = true
+		conf.hide_comment_form = true
+		conf.show_nyear = false
+		def conf.bot?; true; end
+	
+		diary = @diaries[@date.strftime('%Y%m%d')]
+		TDiary::EstraierDB.new(conf).transaction do |estraier_db|
+			TDiary::EstraierRegister.new(estraier_db, diary).execute(true)
+		end
+	end
+
+	if !@conf['estraier.hideconf'] && (@mode == 'conf' || @mode == 'saveconf')
+		args = ['estraier_register', @estraier_register_conf_label]
+		args << 'update' if TDIARY_VERSION > '2.1.3'
+		add_conf_proc(*args) do
+			str = <<-HTML
+<h3 class="subtitle">#{@estraier_register_conf_header}</h3>
+<p>
+<label for="estraier_register_rebuild"><input id="estraier_register_rebuild" type="checkbox" name="estraier_register_rebuild" value="1">
+#{@estraier_register_conf_description}</label>
+</p>
+HTML
+			if @mode == 'saveconf'
+				if @cgi.valid?( 'estraier_register_rebuild' )
+					str << '<p>The following diaries were registered.</p>'
+					out = ''
+					TDiary::EstraierRegisterMain.new(@conf).execute(out)
+					str << "<p>#{out}</p>"
+				end
+			end
+			str
+		end
+	end
+end
+
+end # $tdiary_estraier_register_loaded

data/util/estraier-search/estraier-search.rb

@@ -0,0 +1,273 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8; -*-
+# estraier-search.rb $Revision: 1.1.2.12 $
+#
+# Copyright (C) 2007 Kazuhiko <kazuhiko@fdiary.net>
+# You can redistribute it and/or modify it under GPL2.
+#
+BEGIN { $stdout.binmode }
+begin
+	Encoding::default_external = 'UTF-8'
+rescue NameError
+	$KCODE = 'n'
+end
+
+require "estraierpure"
+require "enumerator"
+require "date"
+
+if FileTest::symlink?( __FILE__ ) then
+	org_path = File::dirname( File::readlink( __FILE__ ) )
+else
+	org_path = File::dirname( __FILE__ )
+end
+$:.unshift( org_path.untaint )
+require 'tdiary'
+
+#
+# class TDiaryEstraier
+#
+module TDiary
+	class TDiaryEstraier < ::TDiary::TDiaryBase
+		MAX_PAGES = 20
+		SORT_OPTIONS = [
+			["score", "スコア順"],
+			["date", "日付順"],
+		]
+		ORDER_OPTIONS = [
+			["asc", "昇順"],
+			["desc", "降順"],
+		]
+		FORM_OPTIONS = [
+			["simple", "簡便書式"],
+			["normal", "通常書式"],
+		]
+		NUM_OPTIONS = [10, 20, 30, 50, 100]
+
+		def initialize( cgi, rhtml, conf )
+			super
+			@host = @conf["estraier.host"] || "localhost"
+			@port = @conf["estraier.port"] || 1978
+			@path = @conf["estraier.path"] || "/node/"
+			@node = @conf["estraier.node"] || "tdiary"
+			parse_args
+			format_form
+			if @query.empty?
+				@msg = '検索条件を入力して、「検索」ボタンを押してください'
+			else
+				search
+			end
+		end
+
+		def load_plugins
+			super
+			# add a opensearch rss link
+			@plugin.instance_variable_get('@header_procs').unshift Proc.new {
+				cgi_url = @conf.base_url.sub(%r|/[^/]*$|, '/') + (@cgi.script_name ? _(File.basename(@cgi.script_name)) : '')
+				%Q|\t<link rel="alternate" type="application/rss+xml" title="Search Result RSS" href="#{cgi_url}#{format_anchor(@start, @num)};type=rss">\n|
+			}
+			# override some plugins
+			def @plugin.sn(number = nil); ''; end
+			def @plugin.whats_new; ''; end
+		end
+
+		def eval_rxml
+			require 'time'
+			load_plugins
+			ERB::new( File::open( "#{PATH}/skel/estraier.rxml" ){|f| f.read }.untaint ).result( binding )
+		end
+
+		private
+
+		def parse_args
+			@query = @cgi["query"].strip
+			@start = @cgi["start"].to_i
+			@num = @cgi["num"].to_i
+			if @num < 1
+				@num = 10
+			elsif @num > 100
+				@num = 100
+			end
+			@sort = @cgi["sort"].empty? ? "score" : @cgi["sort"]
+			@order = @cgi["order"].empty? ? "desc" : @cgi["order"]
+			@form = @cgi["form"].empty? ? "simple" : @cgi["form"]
+		end
+
+		def search
+			@db = EstraierPure::Node.new
+			@db.set_url("http://#{@host}:#{@port}#{@path}#{@node}")
+			begin
+				t = Time.now
+				cond = create_search_options
+				cond.set_phrase(convert(@query))
+				@result = @db.search(cond, 0)
+				@secs = Time.now - t
+			rescue
+				@msg = "エラー: #{_($!.to_s + $@.join)}</p>"
+			end
+		end
+
+		def format_result_item(item)
+			@date = item.attr('@uri')
+			if @conf["estraier.with_user_name"]
+				@date.gsub!(/.*:/, "")
+			end
+			@date_str = Date.parse(@date).strftime(@conf.date_format)
+			@last_modified = item.attr('@mdate')
+			@title = _(item.attr('@title'))
+			@summary = _(item.snippet).gsub(/\t.*/, "").gsub(/\n\n/, " ... ").delete("\n")
+			for term in @query.split
+				@title.gsub!(Regexp.new(Regexp.quote(CGI.escapeHTML(term)), true, @encoding), "<strong>\\&</strong>")
+				@summary.gsub!(Regexp.new(Regexp.quote(CGI.escapeHTML(term)), true, @encoding), "<strong>\\&</strong>")
+			end
+			query = "[SIMILAR]"
+			item.keywords.split(/\t/).each_slice(2).collect do |k, s|
+				query << " WITH #{s} #{k}"
+			end
+			@similar = "%s?query=%s" %
+				[_(@cgi.script_name || ""), CGI::escape(query)]
+		end
+
+		def format_links(result)
+			page_count = (result.doc_num - 1) / @num + 1
+			current_page = @start / @num + 1
+			first_page = current_page - (MAX_PAGES / 2 - 1)
+			if first_page < 1
+				first_page = 1
+			end
+			last_page = first_page + MAX_PAGES - 1
+			if last_page > page_count
+				last_page = page_count
+			end
+			buf = "<p class=\"infobar\">\n"
+			if current_page > 1
+				buf.concat(format_link("前へ", @start - @num, @num))
+			end
+			if first_page > 1
+				buf.concat("... ")
+			end
+			for i in first_page..last_page
+				if i == current_page
+					buf.concat("#{i} ")
+				else
+					buf.concat(format_link(i.to_s, (i - 1) * @num, @num))
+				end
+			end
+			if last_page < page_count
+				buf.concat("... ")
+			end
+			if current_page < page_count
+				buf.concat(format_link("次へ", @start + @num, @num))
+			end
+			buf.concat("</p>\n")
+			return buf
+		end
+
+		def format_anchor(start, num)
+			return format('?query=%s;start=%d;num=%d;sort=%s;order=%s', CGI::escape(@query), start, num, _(@sort), _(@order))
+		end
+
+		def format_link(label, start, num)
+			return format('<a href="%s%s">%s</a> ',	_(@cgi.script_name ? @cgi.script_name : ""),  format_anchor(start, num), _(label))
+		end
+
+		def create_search_options
+			cond = EstraierPure::Condition.new
+			if @conf["estraier.with_user_name"]
+				cond.add_attr("@uri STRBW #{@conf.user_name}:")
+			end
+			if @sort == "date"
+				order = "@uri"
+			else
+				order = ""
+			end
+			if @order == "asc"
+				order = "[SCA]" if order.empty?
+			else
+				unless order.empty?
+					order << " STRD"
+				end
+			end
+			if @form == "simple"
+				cond.set_options(EstraierPure::Condition::SIMPLE)
+			end
+			cond.set_order(order)
+			return cond
+		end
+
+		def format_options(options, value)
+			return options.collect { |val, label|
+				if val == value
+					"<option value=\"#{_(val)}\" selected>#{_(label)}</option>"
+				else
+					"<option value=\"#{_(val)}\">#{_(label)}</option>"
+				end
+			}.join("\n")
+		end
+
+		def format_form
+			@num_options = NUM_OPTIONS.collect { |n|
+				if n == @num
+					"<option value=\"#{n}\" selected>#{n}件ずつ</option>"
+				else
+					"<option value=\"#{n}\">#{n}件ずつ</option>"
+				end
+			}.join("\n")
+			@sort_options = format_options(SORT_OPTIONS, @sort)
+			@order_options = format_options(ORDER_OPTIONS, @order)
+			@form_options = format_options(FORM_OPTIONS, @form)
+		end
+
+		def _(str)
+			CGI::escapeHTML(str)
+		end
+
+		def convert(str)
+			@conf.to_native(str)
+		end
+	end
+end
+
+begin
+	@cgi = CGI::new
+	if ::TDiary::Config.instance_method(:initialize).arity != 0
+		# for tDiary 2.1 or later
+		conf = ::TDiary::Config::new(@cgi)
+	else
+		# for tDiary 2.0 or earlier
+		conf = ::TDiary::Config::new
+	end
+	tdiary = TDiary::TDiaryEstraier::new( @cgi, 'estraier.rhtml', conf )
+
+	head = {
+		'type' => 'text/html',
+		'Vary' => 'User-Agent'
+	}
+	if @cgi.mobile_agent? then
+		body = conf.to_mobile( tdiary.eval_rhtml( 'i.' ) )
+		head['charset'] = conf.mobile_encoding
+		head['Content-Length'] = body.bytesize.to_s
+	else
+		if @cgi['type'] == 'rss'
+			head['type'] = "application/xml; charset=#{conf.encoding}"
+			body = tdiary.eval_rxml
+		else
+			body = tdiary.eval_rhtml
+		end
+		head['charset'] = conf.encoding
+		head['Content-Length'] = body.bytesize.to_s
+		head['Pragma'] = 'no-cache'
+		head['Cache-Control'] = 'no-cache'
+	end
+	print @cgi.header( head )
+	print body
+rescue Exception
+	if @cgi then
+		print @cgi.header( 'type' => 'text/plain' )
+	else
+		print "Content-Type: text/plain\n\n"
+	end
+	puts "#$! (#{$!.class})"
+	puts ""
+	puts $@.join( "\n" )
+end

data/util/estraier-search/estraier.rhtml

@@ -0,0 +1,73 @@
+<div class="adminmenu"><%%=navi_user%></div>
+
+<h1><%= _(@conf.html_title) %> [全文検索]</h1>
+
+<form action="<%= @cgi.script_name ? _(@cgi.script_name) : '' %>">
+<p>
+<input type="text" name="query" value="<%= _(@conf.to_native(@query)) %>" size="60">
+<input type="submit" value="検索">
+<a href="http://hyperestraier.sourceforge.net/uguide-ja.html#searchcond">検索方法</a>
+</p>
+<p>
+並べ替え:
+<select name="sort">
+<%= @sort_options %>
+</select>
+<select name="order">
+<%= @order_options %>
+</select>
+
+表示件数:
+<select name="num">
+<%= @num_options %>
+</select>
+
+検索条件の書式:
+<select name="form">
+<%= @form_options %>
+</select>
+</p>
+</form>
+
+<% if @msg %>
+  <p><%= @msg %></p>
+<% else %>
+  <% @end = [@result.doc_num, @start + @num].min %>
+  <p>
+    <%= _(@conf.to_native(@query)) %> の検索結果
+    <%= @result.doc_num %> 件中 <%= @start + 1 %> - <%= @end %> 件目
+    (<%= @secs %> 秒)
+  </p>
+  <% if @result.doc_num > @num %>
+    <%= format_links(@result) %>
+  <% end %>
+  <% for i in @start...@end %>
+    <% item = @result.get_doc(i) || next %>
+    <% format_result_item(item) %>
+<div class="day">
+<h2><span class="date"><a href="<%= @conf.index %><%= @plugin.anchor(@date) %>"><%= @date_str %></a></span> <span class="nyear">[<a href="<%= @similar %>">類似検索</a>]</span></h2>
+<div class="body">
+<div class="section">
+<h3><a href="<%= @conf.index %><%= @plugin.anchor(@date) %>"><%= @conf.section_anchor %></a><%= @conf.to_native(@title) %></h3>
+<p>
+<%= @conf.to_native(@summary) %>
+</p>
+</div>
+</div>
+<div class="comment">
+<div class="commentshort">
+<p><%= @conf.comment_anchor %>
+<span class="commentator"></span>&nbsp;(スコア:<%= item.attr("#nodescore") %>)</p>
+</div>
+</div>
+<div class="referer">
+</div>
+</div>
+  <% end %>
+  <% if @result.doc_num > @num %>
+    <%= format_links(@result) %>
+  <% end %>
+<% end %>
+
+<div class="footer">
+Powered by <a href="http://hyperestraier.sourceforge.net/">Hyper Estraier</a></div>

data/util/estraier-search/estraier.rxml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="<%= @conf.encoding %>"?>
+<rss xmlns:openSearch="http://a9.com/-/spec/opensearchrss/1.0/" version="2.0">
+  <channel>
+    <title><%= _( @conf.html_title ) %> [全文検索]: <%= _(@query) %></title>
+    <link><%= @conf.base_url.sub(%r|/[^/]*$|, '/') %><%= _(@cgi.script_name ? File.basename(@cgi.script_name) : "") %><%= format_anchor(@start, @num) %></link>
+    <description>HyperEstraier 検索: <%= _(@query) %></description>
+    <language>ja-JP</language>
+    <openSearch:totalResults><%= @result.doc_num %></openSearch:totalResults>
+    <openSearch:startIndex><%= @start + 1 %></openSearch:startIndex>
+    <openSearch:itemsPerPage><%= @num %></openSearch:itemsPerPage>
+    <% for i in @start...@start+@num %>
+    <% item = @result.get_doc(i) || next %>
+    <% format_result_item(item) %>
+    <item>
+      <title><%= _(@date.sub(/^(\d{4})(\d{2})(\d{2}).*/, "\\1-\\2-\\3")) %> <%= _(@conf.to_native(@title)) %></title>
+      <link><%= @conf.base_url %><%= @plugin.anchor(@date) %></link>
+      <pubDate><%= _(CGI.rfc1123_date(Time.parse(@last_modified))) %></pubDate>
+      <description><%= _(@conf.to_native(@summary)) %></description>
+      <guid><%= @conf.base_url %><%= @plugin.anchor(@date) %></guid>
+    </item>
+    <% end %>
+  </channel>
+</rss>

data/util/estraier-search/i.estraier.rhtml

@@ -0,0 +1,31 @@
+<h1><%= _(@conf.html_title) %> [全文検索]</h1>
+<form action="<%= _(@cgi.script_name) %>">
+<p>
+<input type="text" name="query" value="<%= _(@conf.to_native(@query)) %>">
+<input type="submit" value="検索">
+</p>
+<p>
+並べ替え:
+<select name="sort">
+<%= @sort_options %>
+</select>
+<select name="order">
+<%= @order_options %>
+</select>
+表示件数:
+<select name="num">
+<%= @num_options %>
+</select>
+</p>
+</form>
+<% if @msg %>
+<p><%= @msg %></p>
+<% else %>
+<p><%= @result.doc_num %>件中<%= @start + 1 %>-<%= [@result.doc_num, @start + @num].min %>件目</p>
+<% for i in @start...@start+@num %><% item = @result.get_doc(i) || next %><% format_result_item(item) %>
+<h2><a href="<%= @conf.index %><%= @plugin.anchor(@date) %>"><%= _(@date.sub(/^(\d{4})(\d{2})(\d{2}).*/, "\\1-\\2-\\3")) %></a><%= @conf.to_native(@title) %>(スコア:<%= item.attr("#nodescore") %>)</h2>
+<% end %>
+<% if @result.doc_num > @num %>
+<%= format_links(@result) %>
+<% end %>
+<% end %>

data/util/estraier-search/ja/estraier-register.rb

@@ -0,0 +1,3 @@
+@estraier_register_conf_label = 'Estraier検索'
+@estraier_register_conf_header = 'Estraier検索インデックスの再構築'
+@estraier_register_conf_description = 'Estraier検索のインデックスを再構築する場合は、チェックボックスをチェックしてOKを押してください。'