tdiary 3.2.2.20130507

data/misc/plugin/referer-antibot.rb

@@ -0,0 +1,53 @@
+# -*- coding: utf-8 -*-
+# referer-antibot.rb
+#
+# 検索エンジンの巡回BOTには「本日のリンク元」を見せないようにする
+# これにより、無関係な検索語でアクセスされることが減る(と予想される)
+# pluginディレクトリに入れるだけで動作する
+#
+# オプション:
+#   @options['bot']
+#      ターゲットにする巡回BOTのUser-Agentを追加する配列。
+#      無指定時は["googlebot", "Hatena Antenna", "moget@goo.ne.jp"]のみ。
+#
+# なお、disp_referrer.rbプラグインには同等の機能が含まれているので、
+# disp_referrerを導入済みの場合には入れる必要はない
+#
+# ---------
+#
+# This plugin hide Today's Link to search engin's robots.
+# It may reduce nose marked by robots.
+#
+# disp_referrer.rb plugin has already this function. You don't
+# need install this plugin with disp_referrer.rb.
+#
+# Options:
+#    @options['bot']
+#      An array of User-Agent of search engine's robots.
+#      Default setting is ["googlebot", "Hatena Antenna", "moget@goo.ne.jp"].
+#
+# Copyright (C) 2002 MUTOH Masao <mutoh@highway.ne.jp>
+# Modified by TADA Tadashi <sho@spc.gr.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+# short referer
+alias referer_of_today_short_antibot_backup referer_of_today_short
+def referer_of_today_short( diary, limit )
+	return '' if bot?
+	referer_of_today_short_antibot_backup( diary, limit )
+end
+
+# long referer
+alias referer_of_today_long_antibot_backup referer_of_today_long
+def referer_of_today_long( diary, limit )
+	return '' if bot?
+	referer_of_today_long_antibot_backup( diary, limit )
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/referer-utf8.rb

@@ -0,0 +1,12 @@
+# referer-utf8.rb
+
+#
+# this plugin is obsolete.
+#
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/referer_scheme.rb

@@ -0,0 +1,87 @@
+=begin
+= Meta-scheme plugin((-$Id: referer_scheme.rb,v 1.9 2005-07-23 08:07:52 zunda Exp $-))
+Enables to prefix `meta' schemes to URL regexp of the refer_table. See
+#{lang}/referer_scheme.rb for a documentation.
+
+== Copyright
+Copyright (C) 2003 zunda <zunda at freeshell.org>
+
+Permission is granted for use, copying, modification, distribution, and
+distribution of modified versions of this work under the terms of GPL
+version 2 or later.
+=end
+
+unless @conf.referer_table.respond_to?( 'scheme_ymd', true ) then
+	class << @conf.referer_table
+		private
+		def scheme_ymd( url, name )
+			[
+				['.*?(\d{4})[-/]?(\d{2})[-/]?(\d{2}).*', '(\1-\2-\3)'],
+				['.*?(\d{4})[-/]?(\d{2}).*', '(\1-\2)'],
+				['.*?(\d{2})[-/]?(\d{2}).*', '(\1-\2)'],
+				['(.+)', '(\1)'],
+			].each do |path, date|
+				yield( url + path, name + date )
+			end
+			yield( url, name )
+		end
+	end
+end
+
+unless @conf.referer_table.respond_to?( 'scheme_tdiary', true ) then
+	class << @conf.referer_table
+		TdiaryDates = [ 
+				['(?:\\?date=)?(\d{4})(\d{2})(\d{2})-(\d+)(?:\.html)?.*', '(\1-\2-\3~)'],
+				['(?:\\?date=)?(\d{4})(\d{2})(\d{2})(?:\.html)?.*', '(\1-\2-\3)'],
+				['(?:\\?date=)?(\d{4})(\d{2})(?:\.html)?.*', '(\1-\2)'],
+				['(?:\\?date=)?(\d{2})(\d{2})(?:\.html)?.*', '(\1-\2)'],
+		] 
+		private
+		def scheme_tdiary( url, name )
+			TdiaryDates.each do |a|
+				yield( url + a[0], name + a[1] )
+			end
+			yield( url + '.*' , name )
+		end
+	end
+end
+
+unless @conf.referer_table.respond_to?( 'scheme_wiki', true ) then
+	class << @conf.referer_table
+		private
+		def scheme_wiki( url, name )
+			['\?([^;&$]*).*', '([^/]+)\/?$'].each do |p|
+				yield( "#{url}#{p}", '\1 - ' + name )
+			end
+			yield( url, name )
+		end
+	end
+end
+
+unless @conf.referer_table.respond_to?( 'referer_scheme_each_orig' ) then
+
+	class << @conf.referer_table
+		# expands referer_table according to the meta-scheme
+		alias referer_scheme_each_orig each
+		def each
+			self.referer_scheme_each_orig do |url, name|
+				/^(\w+):/ =~ url
+				if $1 && self.respond_to?( "scheme_#{$1}", true ) then
+					self.send( "scheme_#{$1}", $', name ) do |expanded_url, expanded_name|
+						yield( expanded_url, expanded_name )
+					end
+				else
+					yield( url, name )
+				end
+			end
+		end
+	end
+
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/search_control.rb

@@ -0,0 +1,227 @@
+# -*- coding: utf-8 -*-
+=begin
+= ここだけ検索プラグイン/search control plugin((-$Id: search_control.rb,v 1.11 2008-03-02 09:01:45 kazuhiko Exp $-))
+
+Under revision! TODO: add/remove user agents
+
+== License
+Copyright (C) 2003, 2004 zunda <zunda at freeshell.org>
+
+Permission is granted for use, copying, modification, distribution, and
+distribution of modified versions of this work under the terms of GPL
+version 2 or later.
+=end
+
+=begin ChangeLog
+See ChangeLog for changes after this.
+
+* Aug 28, 2003 zunda <zunda at freeshell.org>
+- 1.3
+- simpler configuration display
+
+* Aug 26, 2003 zunda <zunda at freeshell.org>
+- 1.2
+- no table in configuration view, thanks to Tada-san.
+
+* Aug 26, 2003 zunda <zunda at freeshell.org>
+- no nofollow
+- English translation
+=end ChangeLog
+
+# Default values
+unless defined?( Search_control_agents ) then
+	Search_control_agents = [
+		'',
+		'Comaneci_bot',
+	]
+	Search_control_defaults = [
+		{	# agent: generic
+			'latest' => 'f',
+			'day' => 't',
+			'month' => 'f',
+			'nyear' => 'f',
+			'category' => 'f',
+		},
+		{	# agent: 'Comaneci_bot'
+			'latest' => 't',
+			'day' => 'f',
+			'month' => 'f',
+			'nyear' => 'f',
+			'category' => 'f',
+		},
+	]
+
+	# to be used for @options and in the HTML form
+	Search_control_prefix = 'search_control'
+
+	# functions used in this file
+	# number of agents
+	def _sc_nkey
+		"#{Search_control_prefix}.agents"
+	end
+
+	# agent name key for agent number
+	def _sc_akey( number )
+		"#{Search_control_prefix}.agent#{number.to_i > 0 ? number : ''}"
+	end
+
+	# views
+	def _sc_vkey( view, number )
+		"#{Search_control_prefix}.#{number.to_i > 0 ? number : ''}#{view}.index"
+	end
+	def _sc_each_view
+		Search_control_defaults[0].each_key do |view|
+			yield( view )
+		end
+	end
+	def _sc_each_vkey( number )
+		_sc_each_view do |view|
+			yield( _sc_vkey( view, number ) )
+		end
+	end
+
+	# keys in the form
+	def _sc_newkey
+		"#{Search_control_prefix}.newagent"
+	end
+	def _sc_delkey( number )
+		"#{Search_control_prefix}.delete#{number}"
+	end
+end
+
+# defaults
+unless @conf[_sc_nkey] then
+	@conf[_sc_nkey] = Search_control_agents.size
+end
+_sc_each_vkey( 0 ) do |vkey|
+	@conf[vkey] = value unless @conf[vkey]
+end
+Search_control_defaults.each_with_index do |d, i|
+	@conf[_sc_akey(i)] = Search_control_agents[i] unless @conf[_sc_akey(i)] and i > 0
+	d.each_pair do |view, value|
+		vkey = _sc_vkey( view, i )
+		@conf[vkey] = value unless @conf[vkey]
+	end
+end
+
+# configuration
+add_conf_proc( Search_control_prefix, Search_control_plugin_name ) do
+	# receive the configurations from the form
+	if 'saveconf' == @mode then
+
+		# setting changes
+		if @cgi.params[_sc_nkey][0] then
+			@conf[_sc_nkey] = @cgi.params[_sc_nkey][0].to_i
+		end
+		(0...@conf[_sc_nkey]).each do |i|
+			if i > 0 and @cgi.params[_sc_akey( i )][0] then
+				agent = @cgi.params[_sc_akey( i )][0].strip
+				unless agent.empty? then
+					@conf[_sc_akey( i )] = agent
+				end
+			end
+			_sc_each_vkey( i ) do |vkey|
+				if 't' == @cgi.params[vkey][0] then
+					@conf[vkey] = 't'
+				else
+					@conf[vkey] = 'f'
+				end
+			end
+		end
+
+		# deleted agents
+		(@conf[_sc_nkey] - 1).downto( 1 ) do |i|
+			if 't' == @cgi.params[_sc_delkey( i )][0] then
+				(i...(@conf[_sc_nkey] - 1)).each do |j|
+					@conf[_sc_akey( j )] = @conf[_sc_akey( j+1 )]
+					_sc_each_view do |view|
+						@conf[_sc_vkey( view, j ) ] = @conf[_sc_vkey( view, j+1 ) ]
+					end
+				end
+				@conf[_sc_nkey] -= 1
+				@conf.delete( _sc_akey( @conf[_sc_nkey] ) )
+				_sc_each_vkey( @conf[_sc_nkey] ) do |vkey|
+					@conf.delete( vkey )
+				end
+			end
+		end
+
+		# new agent
+		newagent = @cgi.params[_sc_newkey] ? @cgi.params[_sc_newkey][0].strip : nil
+		if newagent and not newagent.empty? then
+			@conf[_sc_akey( @conf[_sc_nkey] )] = newagent
+			Search_control_defaults[0].each_pair do |view, value|
+				@conf[_sc_vkey( view, @conf[_sc_nkey] )] = value
+			end
+			@conf[_sc_nkey] += 1
+		end
+
+	end
+
+	# show the HTML
+	r = Search_control_description_html + "<ul>\n"
+	r << %Q|<li><input name="#{_sc_newkey}" value="" type="text"> #{Search_control_new_label}\n|
+	(@conf[_sc_nkey] - 1).downto( 1 ) do |i|
+		r << %Q|<li><input name="#{_sc_akey( i )}" value="#{h( @conf[_sc_akey( i )] )}" type="text">\n|
+		name = "#{_sc_delkey( i )}"
+		r << %Q|<label for="#{name}"><input id="#{name}" name="#{name}" value="t" type="checkbox">#{Search_control_delete_label}</label>\n|
+		r << "<ul>\n"
+		Search_control_categories.each do |c|
+			label = c[0]
+			view = c[1]
+			checked = 't' == @conf[_sc_vkey( view, i )] ? ' checked' : ''
+			name = "#{_sc_vkey( view, i )}"
+			r << %Q|<li><label for="#{name}"><input id="#{name}" name="#{name}" value="t" type="checkbox"#{checked}>#{label}</label>\n|
+		end
+		r << "</ul>\n"
+	end
+	r << %Q|<li>#{Search_control_default_label}\n|
+	r << "<ul>\n"
+	Search_control_categories.each do |c|
+		label = c[0]
+		view = c[1]
+		checked = 't' == @conf[_sc_vkey( view, 0 )] ? ' checked' : ''
+		name = "#{_sc_vkey( view, 0 )}"
+		r << %Q|<li><label for="#{name}"><input id="#{name}" name="#{name}" value="t" type="checkbox"#{checked}>#{label}</label>\n|
+	end
+	r << "</ul>\n</ul>\n"
+	r << %Q|<input type="hidden" name="#{_sc_nkey}" value="#{@conf[_sc_nkey]}">|
+end
+
+add_header_proc do
+	# agent
+	number = ''	# default agent
+	if @cgi.user_agent then
+		(1...@conf[_sc_nkey]).each do |i|
+			if @cgi.user_agent.include?( @conf[_sc_akey( i )] ) then
+				number = i.to_s
+				break
+			end
+		end
+	end
+
+	# view
+	view = ''
+	follow = 'follow'
+	if /^(latest|day|month|nyear)$/ =~ @mode then
+		view = @mode
+	elsif /^category/ =~ @mode then
+		view = 'category'
+		follow = 'nofollow'
+	end
+
+	# output
+	sw = @conf[_sc_vkey( view, number )]
+	if sw then
+		%Q|\t<meta name="robots" content="#{'f' == sw ? 'noindex' : 'index' },#{follow}">\n|
+	else
+		''
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/search_form.rb

@@ -0,0 +1,53 @@
+# search_form.rb
+#
+# Show a form for search engines.
+#
+# Copyright (c) 2002 MUTOH Masao <mutoh@highway.ne.jp>
+# Distributed under the same license terms as tDiary.
+#
+
+add_header_proc do
+	@extract_search_keyword = ''
+	if @cgi.referer then
+		begin
+			setup = DispRef2Setup::new( @conf, 1, true, nil, @mode )
+			disp_url = DispRef2URL::new( @cgi.referer )
+			disp_url.parse( setup )
+			if disp_url.category == :search then
+				@extract_search_keyword = disp_url.key
+			end
+		rescue NameError
+		end
+	end
+	''
+end
+
+def extract_search_keyword
+	h @extract_search_keyword
+end
+
+
+def search_form(url, query, button_name = "Search", size = 20, default_text = "", first_form = "", last_form = "")
+	default_text = @extract_search_keyword if default_text.empty?
+	%Q[
+		<form class="search" method="GET" action="#{h( url )}">
+		<div class="search">
+		#{first_form}
+			<input class="search" type="text" name="#{h( query )}" size="#{h( size )}" value="#{h( default_text )}">
+			<input class="search" type="submit" value="#{h button_name}">
+		#{last_form}
+		</div>
+		</form>
+	]
+end
+
+def namazu_form( url, button_name = "Search", size = 20, default_text = "" )
+	search_form( url, "query", button_name, size, default_text )
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/sn.rb

@@ -0,0 +1,107 @@
+# -*- coding: utf-8 -*-
+=begin
+= 連番生成プラグイン sn.rb
+
+== 概要
+	各日付の日記内で通し番号を表示します。
+
+== 使い方
+	sn( number )
+		number - 内部カウンタを指定した値にセットします。
+	sn_anchorid
+
+	sn()メソッドは日記の各日付ごとに、1から始まる通し番号を表示します。
+
+	sn_anchorid()メソッドは現在のアンカーidの番号を表示します。
+	sn_anchorid()を設定オプション内のセクション/ツッコミアンカー
+	として指定することによって，そのセクション/ツッコミアンカーの
+	URLと結び付いた数値を表示することができます。
+
+== 参考
+	anchor()はzoe氏作のnumber_anchor.rbを参考に作成しました。
+
+= Sequential number generator plugin
+== Abstract
+	Display sequential numbers for every date.
+
+== Usage
+	sn( number )
+		number - Set the value of the internal counter to 'number'.
+	sn_anchorid
+
+		The sn() method displays sequential numbers starting at 1 for
+		every date.
+
+		The sn_anchorid() method displays a current number of the anchorid.
+		If you use sn_anchorid() as a section/comment anchor in the setup
+		option, you can display the number relevant to URL of
+		the section/comment anchor.
+
+== reference
+	Original anchor() appeared in the number_anchor.rb by zoe-san.
+
+== 著作権について (Copyright notice)
+	Copyright (c) 2003 SAKAMOTO Hideki <hs@on-sky.net>
+	Distributed under the GPL
+=end
+
+=begin Changelog
+2003-09-23 SAKAMOTO Hideki <hs@on-sky.net>
+	* document corrected
+2003-09-17 SAKAMOTO Hideki <hs@on-sky.net>
+	* add add_body_leave_proc
+2003-09-13 SAKAMOTO Hideki <hs@on-sky.net>
+	* change @sn_section initialization: nil -> 0
+	* delete @sn_section  clear line in sn()
+	* add sn_anchorid method
+2003-09-10 SAKAMOTO Hideki <hs@on-sky.net>
+	* write English document
+	* force to use anchor-id in section anchor
+	* delete 'sn.use_anchorid' option
+2003-08-29 SAKAMOTO Hideki <hs@on-sky.net>
+	* first version
+=end
+
+add_body_enter_proc do |date|   
+	@sn_count = 1
+	@sn_idx = 0
+	""
+end
+
+add_body_leave_proc do |date|   
+	@sn_count = 1
+	@sn_idx = 0
+	""
+end
+
+alias :_orig_anchor_sn :anchor
+
+def anchor( s )
+	if /^(\d+)#?([pct])?(\d*)?$/ =~ s then
+		if $2 then
+			@sn_idx = $3.to_i
+		end
+	end
+	_orig_anchor_sn(s)
+end
+
+def sn( number = nil )
+	if number then
+		@sn_count = number.to_i
+	else
+		number = @sn_count
+	end
+	@sn_count += 1
+	%Q[#{'%d' % number}]
+end
+ 
+def sn_anchorid
+	%Q[#{'%d' % @sn_idx}]
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End: