tdiary-contrib 3.2.2.20130518

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

@@ -0,0 +1,326 @@
+#!/usr/bin/env ruby
+#
+# Copyright (C) 2005 Kazuhiko <kazuhiko@fdiary.net>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+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 "rast-register.rb $Revision: 1.10.2.2 $"
+		puts " register to rast index files from tDiary's database."
+		puts " usage: ruby rast-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 "rast-register.rb: cannot load tdiary.rb. <#{tdiary_path}/tdiary>\n"
+		$stderr.puts " usage: ruby rast-regiser.rb [-p <tDiary directory>] [-c <tdiary.conf directory>]"
+		exit( 1 )
+	end
+end
+
+require 'rast'
+
+module ::TDiary
+	#
+	# Database
+	#
+	class RastDB
+		DB_OPTIONS = {
+			"preserve_text" => true,
+			"properties" => [
+				{
+					"name" => "title",
+					"type" => Rast::PROPERTY_TYPE_STRING,
+					"search" => false,
+					"text_search" => true,
+					"full_text_search" => true,
+					"unique" => false,
+				},
+				{
+					"name" => "user",
+					"type" => Rast::PROPERTY_TYPE_STRING,
+					"search" => true,
+					"text_search" => false,
+					"full_text_search" => false,
+					"unique" => false,
+				},
+				{
+					"name" => "date",
+					"type" => Rast::PROPERTY_TYPE_STRING,
+					"search" => true,
+					"text_search" => true,
+					"full_text_search" => false,
+					"unique" => false,
+				},
+				{
+					"name" => "last_modified",
+					"type" => Rast::PROPERTY_TYPE_DATE,
+					"search" => true,
+					"text_search" => false,
+					"full_text_search" => false,
+					"unique" => false,
+				}
+			]
+		}
+
+		attr_accessor :db
+		attr_reader :conf, :encoding
+
+		def initialize(conf, encoding)
+			@conf = conf
+			@encoding = encoding
+			@db_options = {'encoding' => @encoding}.update(DB_OPTIONS)
+			@db_options['properties'].delete_if{|i| i['name'] == 'user'} unless @conf['rast.with_user_name']
+		end
+
+		def transaction
+			if !File.exist?(db_path)
+				Rast::DB.create(db_path, @db_options)
+			end
+			Rast::DB.open(db_path, Rast::DB::RDWR, "sync_threshold_chars" => 500000) { |@db|
+				yield self
+			}
+		end
+
+		def cache_path
+			@conf.cache_path || "#{@conf.data_path}cache"
+		end
+
+		def db_path
+			@conf['rast.db_path'] || "#{cache_path}/rast".untaint
+		end
+	end
+
+	#
+	# Register
+	#
+	class RastRegister < TDiaryBase
+		def initialize(rast_db, diary)
+			@db = rast_db.db
+			super(CGI::new, 'day.rhtml', rast_db.conf)
+			@diary = diary
+			@encoding = rast_db.encoding
+			@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')
+			last_modified = @diary.last_modified.strftime("%FT%T")
+			options = {"properties" => ['last_modified']}
+			if @conf['rast.with_user_name']
+				result = @db.search("date : #{date} & user = #{@conf.user_name}", options)
+			else
+				result = @db.search("date : #{date}", options)
+			end
+			for item in result.items
+				if force || item.properties[0] < last_modified
+					@db.delete(item.doc_id)
+				else
+					return
+				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
+				body = CGI.unescapeHTML( @plugin.apply_plugin_alt( section.body_to_html, true ).strip )
+				properties = {
+					"title" => title,
+					"date" => anchor,
+					"last_modified" => last_modified,
+				}
+				properties["user"] = @conf.user_name if @conf['rast.with_user_name']
+				@db.register(body, properties)
+			end
+
+			# comment
+			@diary.each_visible_comment( 100 ) 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
+				properties = {
+					"title" => title,
+					"date" => anchor,
+					"last_modified" => comment.date.strftime("%FT%T"),
+				}
+				properties["user"] = @conf.user_name if @conf['rast.with_user_name']
+				@db.register(body, properties)
+			end
+		end
+		
+		protected
+
+		def mode; 'day'; end
+		def cookie_name; ''; end
+		def cookie_mail; ''; end
+
+		def convert(str)
+			str
+		end
+	end
+
+	#
+	# Main
+	#
+	class RastRegisterMain < TDiaryBase
+		def initialize(conf)
+			super(CGI::new, 'day.rhtml', conf)
+		end
+
+		def execute(encoding, out = $stdout)
+			require 'fileutils'
+			calendar
+			db = RastDB.new(conf, encoding)
+			FileUtils.rm_rf(db.db_path)
+			db.transaction do |rast_db|
+				@years.keys.sort.each do |year|
+					out << "(#{year.to_s}/) "
+					@years[year.to_s].sort.each do |month|
+						@io.transaction(Time::local(year.to_i, month.to_i)) do |diaries|
+							diaries.sort.each do |day, diary|
+								RastRegister.new(rast_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
+		encoding = 'utf8'
+		TDiary::RastRegisterMain.new(conf).execute(encoding)
+	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')]
+		encoding = 'utf8'
+		TDiary::RastDB.new(conf, encoding).transaction do |rast_db|
+			TDiary::RastRegister.new(rast_db, diary).execute(true)
+		end
+	end
+
+	if !@conf['rast_register.hideconf'] && (@mode == 'conf' || @mode == 'saveconf')
+		args = ['rast_register', @rast_register_conf_label]
+		args << 'update' if TDIARY_VERSION > '2.1.3'
+		add_conf_proc(*args) do
+			str = <<-HTML
+<h3 class="subtitle">#{@rast_register_conf_header}</h3>
+<p>
+<label for="rast_register_rebuild"><input id="rast_register_rebuild" type="checkbox" name="rast_register_rebuild" value="1">
+#{@rast_register_conf_description}</label>
+</p>
+HTML
+			if @mode == 'saveconf'
+				if @cgi.valid?( 'rast_register_rebuild' )
+					encoding = 'utf8'
+					str << '<p>The following diaries were registered.</p>'
+					out = ''
+					TDiary::RastRegisterMain.new(@conf).execute(encoding, out)
+					str << "<p>#{out}</p>"
+				end
+			end
+			str
+		end
+	end
+end

data/util/rast-search/rast-search.rb

@@ -0,0 +1,249 @@
+#!/usr/bin/env ruby
+# -*- coding: utf-8 -*-
+# rast-search.rb $Revision: 1.6.2.2 $
+#
+# Copyright (C) 2005 Kazuhiko <kazuhiko@fdiary.net>
+# You can redistribute it and/or modify it under GPL2.
+#
+$KCODE= 'u'
+BEGIN { $stdout.binmode }
+
+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'
+require 'rast'
+
+#
+# class TDiaryRast
+#
+module TDiary
+	class TDiaryRast < ::TDiary::TDiaryBase
+		MAX_PAGES = 20
+		SORT_OPTIONS = [
+			["score", "スコア順"],
+			["date", "日付順"],
+		]
+		SORT_PROPERTIES = ["date"]
+		ORDER_OPTIONS = [
+			["asc", "昇順"],
+			["desc", "降順"],
+		]
+		NUM_OPTIONS = [10, 20, 30, 50, 100]
+
+		def initialize( cgi, rhtml, conf )
+			super
+			@db_path = conf.options['rast.db_path'] || "#{cache_path}/rast"
+			@encoding = 'utf8'
+			# conf.options['sp.selected'] = ''
+			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
+		end
+
+		def eval_rxml
+			require 'time'
+			load_plugins
+			ERB::new( File::open( "#{PATH}/skel/rast.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"]
+		end
+
+		def search
+			db = Rast::DB.open(@db_path, Rast::DB::RDONLY)
+			begin
+				options = create_search_options
+				t = Time.now
+				@result = db.search(convert(@query), options)
+				@secs = Time.now - t
+			rescue
+				@msg = "エラー: #{_($!.to_s)}</p>"
+			ensure
+				db.close
+			end
+		end
+
+		def format_result_item(item)
+			if @conf['rast.with_user_name']
+				@title, @user, @date, @last_modified = *item.properties
+			else
+				@title, @date, @last_modified = *item.properties
+			end
+			@summary = _(item.summary) || ''
+			for term in @result.terms
+				@summary.gsub!(Regexp.new(Regexp.quote(CGI.escapeHTML(term.term)), true, @encoding), "<strong>\\&</strong>")
+			end
+		end
+
+		def format_links(result)
+			page_count = (result.hit_count - 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
+			options = {
+				"properties" => [
+					"title", "date", 'last_modified'
+				],
+				"need_summary" => true,
+				"summary_nchars" => 150,
+				"start_no" => @start,
+				"num_items" => @num
+			}
+			options['properties'] << 'user' if @conf['rast.with_user_name']
+			if SORT_PROPERTIES.include?(@sort)
+				options["sort_method"] = Rast::SORT_METHOD_PROPERTY
+				options["sort_property"] = @sort
+			end
+			if @order == "asc"
+				options["sort_order"] = Rast::SORT_ORDER_ASCENDING
+			else
+				options["sort_order"] = Rast::SORT_ORDER_DESCENDING
+			end
+			return options
+		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)
+		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::TDiaryRast::new( @cgi, 'rast.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.size.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.size.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/rast-search/rast.rhtml

@@ -0,0 +1,66 @@
+<%# rast.rhtml $Revision: 1.7.2.1 $ %>
+<div class="adminmenu"><%%=navi_user%></div>
+
+<h1><%= CGI::escapeHTML( @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://projects.netlab.jp/rast/query.html.ja">検索方法</a>
+</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>
+    <%= _(@conf.to_native(@query)) %> の検索結果
+    <%= @result.hit_count %> 件中 <%= @start + 1 %> - <%= @start + @result.items.length %> 件目
+    (<%= @secs %> 秒)
+  </p>
+  <% if @result.hit_count > @num %>
+    <%= format_links(@result) %>
+  <% end %>
+  <% for item in @result.items %>
+    <% format_result_item(item) %>
+<div class="day">
+<h2><span class="date"></span> <span class="title"><a href="<%= @conf.index %><%= @plugin.anchor(@date) %>"><%= _(@conf.to_native(@title)) %></a></span></h2>
+<div class="body">
+<div class="section">
+<p>
+<%= @conf.to_native(@summary) %>
+</p>
+</div>
+</div>
+<div class="comment">
+<div class="commentshort">
+<p><%= @conf.comment_anchor %>
+<span class="commentator"></span>&nbsp;(スコア:<%= item.score %>)</p>
+</div>
+</div>
+<div class="referer">
+</div>
+</div>
+  <% end %>
+  <% if @result.hit_count > @num %>
+    <%= format_links(@result) %>
+  <% end %>
+<% end %>
+
+<div class="footer">
+Powered by <a href="http://projects.netlab.jp/rast/">Rast</a> <%= ::Rast::VERSION %></div>

data/util/rast-search/rast.rxml

@@ -0,0 +1,21 @@
+<?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>Rast 検索: <%= _(@query) %></description>
+    <language>ja-JP</language>
+    <openSearch:totalResults><%= @result.hit_count %></openSearch:totalResults>
+    <openSearch:startIndex><%= @start + 1 %></openSearch:startIndex>
+    <openSearch:itemsPerPage><%= @num %></openSearch:itemsPerPage>
+    <% for item in @result.items %>
+    <% format_result_item(item) %>
+    <item>
+      <title><%= _(@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>
+    </item>
+    <% end %>
+  </channel>
+</rss>

data/util/section_link/README

@@ -0,0 +1,11 @@
+はてなダイアリーの「日記モード・見出し別ページ」のように、「1見出しが1ページになる日記形式、日付ごとにコメント・トラックバックを表示」になるようにします。
+
+* tdiary以下のファイル3つ：tdiary以下に入れます（wikiとtdiary記法に対応しています）
+* misc/plugin/section_link.rb を設定画面から有効にします
+* mod_rewriteを使って拡張子を書き換えているひとは、misc/plugin/section_link_anchor.rbも有効にします
+** mod_rewriteを書き換えます
+
+ <IfModule mod_rewrite.c>
+   RewriteEngine on
+   RewriteRule ^([0-9\-]+)p?([0-9]*)\.html$ ?date=$1&section=$2 [L]
+ </IfModule>