tdiary 3.2.2.20130507

data/misc/plugin/category_autocomplete.rb

@@ -0,0 +1,33 @@
+# -*- coding: utf-8 -*-
+#
+# category_autocomplete.rb : Support the automatic input of the category
+#                            using jQuery UI autocomplete.
+#
+# Copyright (C) 2010-2012, tamoot <tamoot+tdiary@gmail.com>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+if !@cgi.mobile_agent? && /\A(?:form|preview|append|edit|update)\z/ =~ @mode
+	add_header_proc do
+		%Q|<link rel="stylesheet" href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.8/themes/base/jquery-ui.css"/>|
+	end
+
+	enable_js('http://ajax.googleapis.com/ajax/libs/jqueryui/1.8/jquery-ui.min.js')
+	enable_js('caretposition.js')
+	enable_js('category_autocomplete.js')
+
+	if @categories.size > 0
+		categories_json = @categories.map{ |c| "\"#{c}\"" }
+		add_js_setting('$tDiary.plugin.category_autocomplete')
+		add_js_setting('$tDiary.plugin.category_autocomplete.candidates',
+			"[#{categories_json.join(",")}]")
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/misc/plugin/comment_ajax.rb

@@ -0,0 +1,11 @@
+if @mode == 'day' and not bot? then
+	enable_js('comment_ajax.js')
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vi: ts=3 sw=3

data/misc/plugin/comment_mail-qmail.rb

@@ -0,0 +1,57 @@
+# -*- coding: utf-8 -*-
+# comment_mail_qmail.rb
+#
+# qmailを使ってツッコミをメールで知らせる
+#   入れるだけで動作する。
+#
+# Options:
+#   設定画面から指定できるもの(ツッコミメール系プラグイン共通):
+#     @options['comment_mail.enable']
+#          メールを送るかどうかを指定する。true(送る)かfalse(送らない)。
+#          無指定時はfalse。
+#     @options['comment_mail.header']
+#          メールのSubjectに使う文字列。振り分け等に便利なように指定する。
+#          実際のSubjectは「指定文字列:日付-1」のように、日付とコメント番号が
+#          付く。ただし指定文字列中に、%に続く英字があった場合、それを
+#          日付フォーマット指定を見なす。つまり「日付」の部分は
+#          自動的に付加されなくなる(コメント番号は付加される)。
+#          無指定時には空文字。
+#     @options['comment_mail.receivers']
+#          メールを送るアドレス文字列。カンマで区切って複数指定できる。
+#          無指定時には日記筆者のアドレスになる。
+#  
+#   tdiary.confでのみ指定できるもの:
+#     @options['comment_mail.qmail']
+#          qmail_injectコマンドのパスを指定する。
+#          無指定時には「'/var/qmail/bin/qmail-inject'」。
+#
+# Copyright (c) 2003 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL.
+#
+def comment_mail( text, to )
+	begin
+		qmail = @conf['comment_mail.qmail'] || '/var/qmail/bin/qmail-inject'
+		open( %Q[|'#{qmail.gsub(/'/, '')}' -f '#{@conf.author_mail.gsub( /'/, '' ).untaint}' '#{to.map{|x|x.gsub(/'/,'')}.join("' '")}'], 'w' ) do |o|
+			o.write( text )
+		end
+	rescue
+		$stderr.puts $!
+	end
+end
+
+add_update_proc do
+	comment_mail_send if @mode == 'comment'
+end
+
+add_conf_proc( 'comment_mail', comment_mail_conf_label, 'tsukkomi' ) do
+	comment_mail_basic_setting
+	comment_mail_basic_html
+end
+
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/comment_mail-sendmail.rb

@@ -0,0 +1,56 @@
+# -*- coding: utf-8 -*-
+# comment_mail_sendmail.rb
+#
+# sendmailを使ってツッコミをメールで知らせる
+#   入れるだけで動作する。
+#
+# Options:
+#   設定画面から指定できるもの(ツッコミメール系プラグイン共通):
+#     @options['comment_mail.enable']
+#          メールを送るかどうかを指定する。true(送る)かfalse(送らない)。
+#          無指定時はfalse。
+#     @options['comment_mail.header']
+#          メールのSubjectに使う文字列。振り分け等に便利なように指定する。
+#          実際のSubjectは「指定文字列:日付-1」のように、日付とコメント番号が
+#          付く。ただし指定文字列中に、%に続く英字があった場合、それを
+#          日付フォーマット指定を見なす。つまり「日付」の部分は
+#          自動的に付加されなくなる(コメント番号は付加される)。
+#          無指定時には空文字。
+#     @options['comment_mail.receivers']
+#          メールを送るアドレス文字列。カンマで区切って複数指定できる。
+#          無指定時には日記筆者のアドレスになる。
+#  
+#   tdiary.confでのみ指定できるもの:
+#     @options['comment_mail.sendmail']
+#          sendmailコマンドのパスを指定する。
+#          無指定時には「'/usr/sbin/sendmail'」。
+#
+# Copyright (c) 2003 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL.
+#
+def comment_mail( text, to )
+	begin
+		sendmail = @conf['comment_mail.sendmail'] || '/usr/sbin/sendmail'
+		open( %Q[|'#{sendmail.gsub(/'/, '')}' '#{to.map{|x|x.gsub(/'/, '')}.join("' '")}'], 'w' ) do |o|
+			o.write( text )
+		end
+	rescue
+		$stderr.puts $!
+	end
+end
+
+add_update_proc do
+	comment_mail_send if @mode == 'comment'
+end
+
+add_conf_proc( 'comment_mail', comment_mail_conf_label, 'tsukkomi' ) do
+	comment_mail_basic_setting
+	comment_mail_basic_html
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/comment_mail-smtp.rb

@@ -0,0 +1,59 @@
+# -*- coding: utf-8 -*-
+# comment_mail-smtp.rb
+#
+# SMTPプロトコルを使ってツッコミをメールで知らせる
+#   入れるだけで動作する
+#
+# Options:
+#   設定画面から指定できるもの(ツッコミメール系プラグイン共通):
+#     @options['comment_mail.enable']
+#          メールを送るかどうかを指定する。true(送る)かfalse(送らない)。
+#          無指定時はfalse。
+#     @options['comment_mail.header']
+#          メールのSubjectに使う文字列。振り分け等に便利なように指定する。
+#          実際のSubjectは「指定文字列:日付-1」のように、日付とコメント番号が
+#          付く。ただし指定文字列中に、%に続く英字があった場合、それを
+#          日付フォーマット指定を見なす。つまり「日付」の部分は
+#          自動的に付加されなくなる(コメント番号は付加される)。
+#          無指定時には空文字。
+#     @options['comment_mail.receivers']
+#          メールを送るアドレス文字列。カンマで区切って複数指定できる。
+#          無指定時には日記筆者のアドレスになる。
+#  
+#   tdiary.confでのみ指定できるもの:
+#     @options['comment_mail.smtp_host']
+#     @options['comment_mail.smtp_port']
+#          それぞれ、メール送信に使うSMTPサーバのホスト名とポート番号。
+#          無指定時はそれぞれ「'localhost'」と「25」。
+#
+# Copyright (c) 2003 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL.
+#
+def comment_mail( text, to )
+	begin
+		require 'net/smtp'
+		host = @conf['comment_mail.smtp_host'] || 'localhost'
+		port = @conf['comment_mail.smtp_port'] || 25
+		Net::SMTP.start( host, port ) do |smtp|
+			smtp.send_mail( text.force_encoding( 'US-ASCII' ), @conf.author_mail.untaint, to )
+		end
+	rescue
+		$stderr.puts $!
+	end
+end
+
+add_update_proc do
+	comment_mail_send if @mode == 'comment'
+end
+
+add_conf_proc( 'comment_mail', comment_mail_conf_label, 'tsukkomi' ) do
+	comment_mail_basic_setting
+	comment_mail_basic_html
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/comment_rank.rb

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+# comment_rank.rb
+#
+# comment_rank: ツッコミの数でランキング
+#   パラメタ:
+#     max:  最大表示数(未指定時:5)
+#     sep:  セパレータ(未指定時:空白)
+#     except:        無視する名前(いくつもある場合は,で区切って並べる)
+#
+# Copyright (c) 2002 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL2.
+#
+#
+def comment_rank( max = 5, sep = '&nbsp;', *except )
+	name = Hash::new(0)
+	@diaries.each_value do |diary|
+		diary.each_comment do |comment|
+			next if except.include?(comment.name)
+			name[comment.name] += 1
+		end
+	end
+	result = []
+	name.sort{|a,b| (a[1])<=>(b[1])}.reverse.each_with_index do |ary,idx|
+		break if idx >= max
+		result << "<strong>#{idx+1}.</strong>#{h ary[0]}(#{ary[1].to_s})"
+	end
+	result.join( sep )
+end
+
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/counter.rb

@@ -0,0 +1,631 @@
+# -*- coding: utf-8 -*-
+# counter.rb
+#
+# Access counter plugin.
+#
+# 1. Usage
+# counter(figure, filetype = ""): Show number of all visitors.
+# counter_today(figure, filetype = ""): Show number of visitors for today.
+# counter_today(figure, filetype = ""): Show number of visitors for yesterday.
+#	 filetype: jpg, gif, png ... .
+#
+# kiriban?: Return true when the number is a kiriban.
+# kiriban_today?: Return true when the number is a kiriban(for today's couner).
+#
+# counter
+# counter 3
+# coutner 3, "jpg"
+# counter_today 4, "jpg"
+# counter_yesterday
+#
+# 2. Documents
+# See URLs below for more details.
+#   http://ponx.s5.xrea.com/hiki/counter.rb.html (English) 
+#   http://ponx.s5.xrea.com/hiki/ja/counter.rb.html (Japanese) 
+#
+# Copyright (c) 2002-2006 Masao Mutoh
+# You can redistribute it and/or modify it under GPL2.
+# 
+=begin ChangeLog
+2006-02-14 Masao Mutoh
+   * Add some user-agents.
+   * 2.0.2
+
+2006-02-14 mitty
+   * Fixed a problem when counter2_access.dat is broken.
+   
+2006-02-07 Masao Mutoh
+   * Revert the log file name from counter2.log to counter.log.
+     Reported by Ken-ichi Mito.
+   * 2.0.1
+ 
+2006-01-20 Masao Mutoh
+   * Improves the speed and stability.
+     - Separate data to counterdata and accessdata.
+     - counterdata is the target of backup, but accessdata doesn't do backup.
+     - change a key of an Array of String to a hash.
+     - Removed "counter.daily_backup" option. Now daily_backup is applied 
+       everyday unless this setting.
+     - Add a new "counter.max_keep_access_num" option which you can set the max
+       number to keep users in the accessdata file to avoid to become
+       too large the accessdata file.
+   * Follow tDiary framework.
+     - Add configuration page.
+   * Misc
+     - Removed "counter.deny_remote_addrs" option.
+
+2004-10-01 Masao Mutoh
+   * Improved process against bots. @options["bot"] is now supported.
+
+2003-11-15 Masao Mutoh
+   * translate documents to English.
+
+2003-02-15 Masao Mutoh
+   * counter.datが大きくなる不具合の修正
+   * version 1.6.3
+
+2002-11-26 Junichiro Kita <kita@kitaj.no-ip.com>
+   * remove 'cgi.cookies = nil' in TDiaryCounter::main
+
+2002-11-19 TADA Tadashi <sho@spc.gr.jp>
+   * for squeeze.rb error more.
+   * version 1.6.2
+
+2002-11-13 TADA Tadashi <sho@spc.gr.jp>
+   * for squeeze.rb error.
+
+2002-10-12 Masao Mutoh
+   * 初めて使うときに動作しなくなっていた不具合の修正。
+   * 1日1回保持しているユーザ情報をクリーンアップするようにした。
+   * version 1.6.1
+
+2002-08-30 Masao Mutoh
+   * データファイルが読み込めなくなったとき、1つ前のバックアップデータ
+     を用いて復旧するようにした(その際に、1つ前のバックアップデータは
+     counter.dat.?.bakという名前でバックアップされる)。さらに1つ前の
+     バックアップデータからも復旧できなかった場合は全てのカウンタ値を
+     0にしてエラー画面が表示されないようにした。
+   * version 1.6.0
+
+2002-07-23 Masao Mutoh
+   * バックアップファイルのファイル名のsuffixを曜日(0-6の数値)にした。
+      従って、1週間毎に古いファイルは上書きされるのでファイルの数は
+      最大7つとなる。数字が新しいものが最新というわけではないので注意。
+      (proposed by Junichiro KITA <kita@kitaj.no-ip.com>)
+   * version 1.5.1
+
+2002-07-19 Masao Mutoh
+   * 日々単位でデータをバックアップするようにした。
+     @options["counter.dairy_backup"]で指定。falseを指定しない限り
+     バックアップする。
+   * Date#==メソッドでnilを渡さないように修正
+   * require 'pstore'追加(tDiary version 1.5.x系対応)
+   * logのフォーマット変更(全て・今日・昨日のデータを出力)
+   * @options["counter.deny_same_src_interval"]のデフォルト値を2時間
+     に変更した。
+   * version 1.5.0
+
+2002-05-19 Masao Mutoh
+   * Cookieを使うことのできない同一クライアントからの連続アクセスを、
+     カウントアップしないようにした。
+   * @options["counter.deny_same_src_interval"]追加。連続GETの間隔を指定。
+     デフォルトで0.1時間(6分)。
+   * version 1.4.0
+
+2002-05-11 Masao Mutoh
+   * 初期値を与えない場合は5桁としていたが、「前0をなくす」に変更した。
+     また、前0を無くす場合は0を指定しても良い。
+   * version 1.3.0
+
+2002-05-05 Masao Mutoh
+   * @debug = true 削除 :->
+   * コメント変更
+   * version 1.2.1
+
+2002-05-04 Masao Mutoh
+   * tlinkプラグインからのアクセスをカウントしてしまう不具合の修正
+   * @options["counter.deny_user_agents"]追加
+   * @options["counter.deny_remote_addrs"]追加
+   * @options["counter.init_num"]追加。キリ番機能との関係で、counter
+   * メソッドの引数のinit_numはobsoleteとします。
+   * @options["counter.kiriban"], @options["counter.kiriban_today"]追加
+   * キリ番機能追加(kiriban?,kiriban_today?メソッド追加)
+   * version 1.2.0
+
+2002-04-27 Masao Mutoh
+   * add_header_procを使わないようにした
+   * @options["counter.timer"]が有効にならない不具合の修正
+   * @options["counter.log"]追加。trueを指定するとcounter.dat
+      と同じディレクトリにcounter.logというファイルを作成し
+      1日前のアクセス数を記録するようにした
+   * cookieの値としてバージョン番号を入れるようにした
+   * version 1.1.0
+
+2002-04-25 Masao Mutoh
+   * HEADでアクセスがあった場合に再びカウントされるように
+      なってしまっていた不具合の修正(by NT<nt@24i.net>)
+   * version 1.0.4
+
+2002-04-24 Masao Mutoh
+   * ツッコミを入れたときにエラーが発生する不具合の修正
+   * version 1.0.3
+
+2002-04-23 Masao Mutoh
+   * データファイルを削除後、クッキーが有効期間中の端末から
+      アクセスした場合に@todayが0になる不具合の修正
+   * コメント入れたときに数字が表示されない不具合の修正
+   * HEADでアクセスがあった場合はカウントしないようにした
+      (reported by NT<nt@24i.net>, suggested a solution 
+         by TADA Tadashi <sho@spc.gr.jp>)
+   * version 1.0.2
+
+2002-04-21 Masao Mutoh
+   * CSSで_を使っているところを-に直した(reported by NT<nt@24i.net>)
+   * TDiaryCountData#upで@allが+1されない不具合の修正
+   * version 1.0.1
+
+2002-04-14 Masao Mutoh
+   * version 1.0.0
+=end
+
+@counter_default_user_agents = "feed|tlink|WWWOFFLE|^WWWC|^Wget|WWWD|fetch|Antenna|antenna|Infoseek SideWinderBlogRanking|^ichiro|CaptainNAMAAN|Download Ninja|ping.blogger.jp|ia_archiver|Nutch|^Mediapartners.Google|lwp.trivial|nomadscafe_ra|rawler|KMHTTP|Tarantula|Pockey|Microsoft URL Control|Livedoor SF|^Blogline|Yahoo|^Y.J|Ask Jeeves|^Commerobo|^livedoorCheckers|^voyager|^findlinks|^\-$|FunWebProducts|^Headline|lmspider|^FreshReader|^FyberSpider|^Hatena|^intraVnews|^Nandemorss|^Nutch|^1.0$|^Blogshares|Crawl|MSNPTC|MS Search|^Pompos|^Portsurvey|^RSS_READER|^gooRSSreader|^kinja|^larbin|^research\-spider|bot|^HTTP$|SBIder|StackRambler|Wavefire|samidare|MarkAgent|^Java|NewsWire|libwww|ping.blo.gs|wish.lim|Mozilla.4.76|rAntenna|PEAR|Blogslive|edgeio.retriever|^Jakarta"
+
+#not bot: RssBar, AppleSyndication
+
+def counter_allow?
+	return false if bot?
+	if @options
+		if @options["counter.deny_user_agents"]
+			if @options["counter.deny_user_agents"].kind_of? Array
+				@options["counter.deny_user_agents"] = @options["counter.deny_user_agents"].uniq.join('|')
+			elsif @options["counter.deny_user_agents"].size > 1
+				agents = Regexp.new("(#{@counter_default_user_agents}|#{@options["counter.deny_user_agents"]})", true)
+			else
+				agents = Regexp.new("(#{@counter_default_user_agents})", true)
+			end
+		else
+			agents = Regexp.new("(#{@counter_default_user_agents})", true)
+		end
+		return false if agents =~ @cgi.user_agent
+	end
+	true
+end
+
+if @cgi.request_method == 'GET' and counter_allow?
+	require 'date'
+	require 'pstore'
+	require 'fileutils'
+	
+eval(<<TOPLEVEL_CLASS, TOPLEVEL_BINDING)
+	class TDiaryAccessData
+		attr_accessor :ignore_cookie #means ALWAYS ignore a cookie.
+		def previous_access_time(time, remote_addr, user_agent, interval, maxaccessnum)
+			@time = time
+			@users = Hash.new unless @users
+			key = (remote_addr + user_agent).hash
+			ret = @users[key]
+			remove_olddata(interval)
+
+			@users[key] = @time if @users.size < maxaccessnum
+			ret
+		end
+
+		def remove_olddata(interval)
+			@users.reject!{|key, val|
+				@time - val > interval * 3600
+			}
+		end
+	end
+	class TDiaryCountData
+		attr_reader :today, :yesterday, :all, :newestday
+
+		def initialize(path, all = 0, today = 0, yesterday = 0)
+			@path = path
+			@newestday = Date.today
+			@all, @today, @yesterday = all, today, yesterday
+		end
+
+		def up(now, cache_path, cgi, _log)
+			if @newestday
+				if now == @newestday
+					@today += 1
+				else
+					log if _log
+					@yesterday = ((now - 1) == @newestday) ? @today : 0
+					@today = 1
+					@newestday = now
+					time = Time.now
+				end
+			else
+				@yesterday = 0
+				@today = 1
+				@newestday = now
+			end
+			@all += 1
+			save
+		end
+
+		def load
+			begin
+				open(File.join(@path, "counter2.dat"), "r") do |io|
+					eval(io.read)
+				end
+			rescue Exception
+				back = (Dir.glob(File.join(@path, "counter2.dat.?")).sort{|a,b| 
+						File.mtime(a) <=> File.mtime(b)}.reverse)[0]
+				open(back, "r") do |io|
+					begin
+						eval(io.read)
+					rescue Exception
+					end
+				end
+				save
+			end
+			self
+		end
+
+		def save(file = "counter2.dat")
+			open(File.join(@path, file), "w") do |io|
+				io.print "@newestday = Date.parse('" + @newestday.to_s + "'); "
+				io.print "@all = " + @all.to_s + "; "
+				io.print "@today = " + @today.to_s + "; "
+				io.print "@yesterday = " + @yesterday.to_s
+			end
+		end
+
+		def log
+			if @newestday
+				open(File.join(@path, "counter.log"), "a") do |io|
+					io.print @newestday, " : ", @all, ",", @today, ",", @yesterday, "\n"
+				end
+				save("counter2.dat." + @newestday.wday.to_s)
+			end
+		end
+	end
+TOPLEVEL_CLASS
+
+	module TDiaryCounter
+		extend ERB::Util
+		@version = "2.0.2"
+
+		def run(cache_path, cgi, options)
+			timer = options["counter.timer"] if options
+			timer = 12 unless timer	# 12 hour
+			@init_num = options["counter.init_num"] if options
+			@init_num = 0 unless @init_num
+			dir = File.join(cache_path, "counter")
+			path = File.join(dir, "counter2_access.dat")
+			today = Date.today
+			Dir.mkdir(dir, 0700) unless FileTest.exist?(dir)
+
+			cookie = nil
+			begin
+				cookie = main(cache_path, cgi, options, timer, dir, path, today)
+			rescue => e
+				@cnt = TDiaryCountData.new(dir).load
+				if e.message =~ /marshal|dump|load|referred|depth|io needed|size/i
+					begin
+						File.unlink path
+					rescue
+					end
+				end
+			end
+			cookie
+		end
+
+		def main(cache_path, cgi, options, timer, dir, path, today)
+			cookie = nil
+			if FileTest.exist?(File.join(dir, "counter.dat"))
+				db = PStore.new(File.join(dir, "counter.dat"))
+				db.transaction do 
+					old = db["countdata"]
+					TDiaryCountData.new(dir, old.all, old.today, old.yesterday).save
+				end
+				FileUtils.mv(File.join(dir, "counter.dat"), File.join(dir, "counter.dat.old"))
+			end
+			db = PStore.new(path)
+			db.transaction do
+				begin
+					@access = db["accessdata"]
+				rescue PStore::Error
+				end
+				unless @access
+					@access = TDiaryAccessData.new
+				end
+
+				begin
+					@cnt = TDiaryCountData.new(dir).load
+				rescue Exception
+					@cnt = TDiaryCountData.new(dir)
+				end
+
+				changed = false
+				if new_user?(cgi, options)
+					@cnt.up(today, dir, cgi, (options and options["counter.log"]))
+					cookie = CGI::Cookie.new({"name" => "tdiary_counter", 
+							"value" => @version, 
+							"expires" => Time.now + timer * 3600})
+					changed = true
+				end
+
+				if options["counter.kiriban"]
+					if options["counter.kiriban"].kind_of? String
+						if options["counter.kiriban"] == ""
+							options["counter.kiriban"] = [-1]
+						elsif options["counter.kiriban"].include?(",")
+							options["counter.kiriban"] =  
+								options["counter.kiriban"].split(",").collect{|i| i.to_i}
+						else
+							options["counter.kiriban"] = [options["counter.kiriban"].to_i]
+						end
+					end
+					@kiriban = options["counter.kiriban"].include?(@cnt.all + @init_num) 
+				end
+
+				if ! @kiriban and options["counter.kiriban_today"]
+					if options["counter.kiriban_today"].kind_of? String
+						if options["counter.kiriban_today"] == ""
+							options["counter.kiriban_today"] = [-1]
+						elsif options["counter.kiriban_today"].include?(",")
+							options["counter.kiriban_today"] = 
+								options["counter.kiriban_today"].split(",").collect{|i| i.to_i}
+						else
+							options["counter.kiriban_today"] = [options["counter.kiriban_today"].to_i]
+						end
+					end
+					@kiriban_today = options["counter.kiriban_today"].include?(@cnt.today)
+				end
+
+				if @access.ignore_cookie
+					@access.ignore_cookie = false
+					changed = true
+				end
+
+				#when it is kiriban time, ignore the cookie next access time. 
+				if @kiriban or @kiriban_today
+					@access.ignore_cookie = true
+					changed = true
+				end
+
+				if changed
+					db["accessdata"] = @access
+				end
+			end
+			cookie
+		end
+
+		def new_user_without_cookie?(cgi, options)
+			if options
+				interval = options["counter.deny_same_src_interval"] 
+				maxaccessnum = options["counter.max_keep_access_num"] 
+			end
+			interval = 2 unless interval	         # 2 hour.
+			maxaccessnum = 10000 unless maxaccessnum # 2 hour.
+			current_time = Time.now
+			previous_access_time = @access.previous_access_time(current_time, cgi.remote_addr, 
+				cgi.user_agent, interval, maxaccessnum)
+			if previous_access_time
+				ret = current_time - previous_access_time > interval * 3600
+			else
+				ret = true
+			end
+			ret
+		end
+
+		def new_user?(cgi, options)
+			return true if @access.ignore_cookie
+			if cgi.cookies 
+				if cgi.cookies.keys.include?("tdiary_counter")
+					ret = false
+				else
+					ret = new_user_without_cookie?(cgi, options)
+				end
+			else
+				ret = new_user_without_cookie?(cgi, options)
+			end
+			ret
+		end
+
+		def format(classtype, theme_url, cnt, figure = 0, filetype = "", init_num = 0, &proc)
+			str = "%0#{figure}d" % (cnt + init_num)
+			result = %Q[<span class="counter#{classtype}">]
+			depth = 0
+			str.scan(/./).each do |num|
+				if block_given?
+					result << %Q[<img src="#{h theme_url}/#{yield(num)}" alt="#{num}" />]
+				elsif filetype == ""
+					result << %Q[<span class="counter-#{depth}"><span class="counter-num-#{num}">#{num}</span></span>]
+				else 
+					result << %Q[<img src="#{h theme_url}/#{num}.#{filetype}" alt="#{num}" />]
+				end
+				depth += 1
+			end
+			result << "</span>"
+		end
+
+		def called?; @called; end
+		def called; @called = true; end
+		def all; @cnt.all + @init_num; end
+		def today; @cnt.today; end
+		def yesterday; @cnt.yesterday; end
+		def kiriban?; @kiriban; end
+		def kiriban_today?; @kiriban_today; end
+
+		module_function :new_user?, :new_user_without_cookie?, :all, :today, :yesterday, :format, 
+      :main, :run, :kiriban?, :kiriban_today?
+	end
+
+	#init_num is deprecated.
+	#please replace it to @options["counter.init_num"]
+	def counter(figure = 0, filetype = "", init_num = 0, &proc) 
+		TDiaryCounter.format("", theme_url, TDiaryCounter.all, figure, filetype, init_num, &proc)
+	end
+
+	def counter_today(figure = 0, filetype = "", &proc)
+		TDiaryCounter.format("-today", theme_url, TDiaryCounter.today, figure, filetype, 0, &proc)
+	end
+
+	def counter_yesterday(figure = 0, filetype = "", &proc)
+		TDiaryCounter.format("-yesterday", theme_url, TDiaryCounter.yesterday, figure, filetype, 0, &proc)
+	end
+
+	def kiriban?
+		TDiaryCounter.kiriban?
+	end
+
+	def kiriban_today?
+		TDiaryCounter.kiriban_today?
+	end
+
+	tdiary_counter_cookie = TDiaryCounter.run(@cache_path, @cgi, @options)
+	if tdiary_counter_cookie
+		if defined?(add_cookie)
+			add_cookie(tdiary_counter_cookie)
+		else
+			@cookie = tdiary_counter_cookie if tdiary_counter_cookie
+		end
+	end
+
+	def kiriban
+		if kiriban?
+			msg = @options["counter.kiriban_msg"] ? @options["counter.kiriban_msg"] : ""
+			ERB.new(msg.untaint).result(binding)
+		elsif kiriban_today?
+			msg = @options["counter.kiriban_today_msg"] ? @options["counter.kiriban_today_msg"] : ""
+			ERB.new(msg.untaint).result(binding)
+		else
+			msg = @options["counter.kiriban_nomatch_msg"] ? @options["counter.kiriban_nomatch_msg"] : ""
+		end
+	end
+end
+
+@counter_conf_counter ||= "アクセスカウンタ"
+@counter_conf_init_head ||= "初期値の指定"
+@counter_conf_init_desc ||= "「全て」表示の際のカウンタの初期値を指定できます。他のアクセスカウンタからの乗り換える時などに使用すると良いでしょう。デフォルトは0です。"
+@counter_conf_init_label ||= " 初期値："
+@counter_conf_log_head ||= "ログの取得"
+@counter_conf_log_desc ||= " 日別のアクセス数をログファイルに残したい場合に指定します。デフォルトは「残す」です。基本的には残すようにしましょう。<br/>ログファイルは、&quot;#{@cache_path}/counter/counter.log&quot; に保存されます。"
+@counter_conf_log_true ||= "残す"
+@counter_conf_log_false ||= "残さない"
+@counter_conf_timer_head ||= "訪問間隔の指定"
+@counter_conf_timer_desc ||= "指定した期間、繰り返し訪問してくるユーザをカウントアップしないようになっています(Cookieを使っています)。デフォルトは12(時間)です。"
+@counter_conf_timer_label ||= "訪問間隔："
+@counter_conf_timer_unit ||= "時間"
+@counter_conf_deny_same_src_interval_head ||= "カウントアップしない連続アクセス間隔の指定"
+@counter_conf_deny_same_src_interval_desc ||= "前出の「訪問間隔の指定」では、Cookie機能を持たないクライアントからのアクセスがあると、アクセスがあるたびにカウントアップしてしまいます。こちらの機能は、同一IPアドレス/クライアントアプリケーションからの連続アクセスをカウントアップしないようにします。デフォルトは4時間です。"
+@counter_conf_deny_same_src_interval_label ||= "カウントアップしない連続アクセス間隔："
+@counter_conf_deny_same_src_interval_unit ||= "時間"
+@counter_conf_max_keep_access_num_head ||= "最大保持アクセス数の指定"
+@counter_conf_max_keep_access_num_desc ||= "前出の「カウントアップしない連続アクセス間隔の指定」で内部的に保持するクライアントユーザ数を指定します。数が多いほど処理に時間がかかるようになるため、小さい方が望ましいです。デフォルトは10000件です。"
+@counter_conf_max_keep_access_num_label ||= "最大保持アクセス数："
+@counter_conf_max_keep_access_num_unit ||= "件"
+@counter_conf_deny_user_agents_head ||= "カウントアップしないユーザエージェント"
+@counter_conf_deny_user_agents_desc ||= "カウントしないユーザーエージェントを指定します。ロボットなどを指定すると良いでしょう。各エージェントを'|'(パイプ)で区切って並べてください（正規表現を使うことができます）。<pre>例：Googlebot|Bulkfeeds</pre><p>指定しない場合でも以下のユーザーエージェントからのアクセスはカウントされません。</p>"
+@counter_conf_deny_user_agents_label ||= "カウントしないユーザーエージェント："
+@counter_conf_kiriban_head ||= "キリ番の指定"
+@counter_conf_kiriban_desc ||= "「全て」「今日」のキリ番を指定します。複数指定する場合は','(カンマ)を使ってください（例：100,123,300）。"
+@counter_conf_kiriban_label_all ||= "「全て」のキリ番："
+@counter_conf_kiriban_label_today ||= "「今日」のキリ番："
+@counter_conf_kiriban_messages_head ||= "kiribanプラグインで出力されるメッセージの指定"
+@counter_conf_kiriban_messages_desc ||= "ヘッダやサイドメニュー等に、&lt;%= kiriban %&gt;という形でキリ番プラグインを記述しておくと、キリ番になったときに（あるいはキリ番で無いときに）ここで記述する内容を表示します。ヘッダ同様、HTML形式です。"
+@counter_conf_kiriban_messages_label_all ||= "「全て」のキリ番メッセージ："
+@counter_conf_kiriban_messages_label_today ||= "「今日」のキリ番メッセージ："
+@counter_conf_kiriban_messages_label_nomatch ||= "キリ番では無いときのメッセージ："
+
+def print_conf_html
+	@conf["counter.init_num"] ||= 0
+	@conf["counter.log"] ||= true
+	@conf["counter.timer"] ||= 12
+	@conf["counter.deny_same_src_interval"] ||= 4
+	@conf["counter.deny_user_agents"] ||= ""
+	@conf["counter.max_keep_access_num"] ||= 10000
+
+	@conf["counter.kiriban"] ||= ""
+	if @conf["counter.kiriban"].kind_of? Array
+		@conf["counter.kiriban"] = @conf["counter.kiriban"].join(", ")
+	end 
+	@conf["counter.kiriban_today"] ||= ""
+	if @conf["counter.kiriban_today"].kind_of? Array
+		@conf["counter.kiriban_today"] = @conf["counter.kiriban_today"].join(", ")
+	end 
+
+	@conf["counter.kiriban_msg"] ||= ""
+	@conf["counter.kiriban_today_msg"] ||= ""
+	@conf["counter.kiriban_nomatch_msg"] ||= ""
+
+	if @mode == 'saveconf' then
+		@conf["counter.init_num"] = @cgi.params['counter.init_num'][0].to_i
+		@conf["counter.log"] = @cgi.params['counter.log'][0] == "true"
+		@conf["counter.timer"] = @cgi.params['counter.timer'][0].to_i
+		@conf["counter.deny_same_src_interval"] = @cgi.params['counter.deny_same_src_interval'][0].to_i
+		@conf["counter.deny_user_agents"] = @cgi.params['counter.deny_user_agents'][0]
+		@conf["counter.max_keep_access_num"] ||= @cgi.params["counter.max_keep_access_num"][0].to_i
+		@conf["counter.kiriban"] = @cgi.params["counter.kiriban"][0]
+		@conf["counter.kiriban_today"] = @cgi.params["counter.kiriban_today"][0]
+		@conf["counter.kiriban_msg"] = @conf.to_native(@cgi.params["counter.kiriban_msg"][0]).gsub(/\r\n/, "\n" ).gsub(/\r/, '').sub(/\n+\z/, '')
+		@conf["counter.kiriban_today_msg"] = @conf.to_native(@cgi.params["counter.kiriban_today_msg"][0]).gsub(/\r\n/, "\n").gsub(/\r/, '').sub(/\n+\z/, '')
+		@conf["counter.kiriban_nomatch_msg"] = @conf.to_native(@cgi.params["counter.kiriban_nomatch_msg"][0]).gsub(/\r\n/, "\n").gsub(/\r/, '').sub(/\n+\z/, '')
+	end  
+
+	<<-HTML
+	<h3 class="subtitle">#{@counter_conf_init_head}</h3>
+ 	<p>#{@counter_conf_init_desc}</p>
+	<p>#{@counter_conf_init_label}<input name="counter.init_num" value="#{h @conf["counter.init_num"]}" size="5"></p>
+
+	<h3 class="subtitle">#{@counter_conf_log_head}</h3>
+	<p>#{@counter_conf_log_desc}</p>
+	<p>
+		<select name="counter.log">
+			<option value="true"#{" selected" if @conf["counter.log"]}>#{@counter_conf_log_true}</option>
+			<option value="false"#{" selected" if ! @conf["counter.log"]}>#{@counter_conf_log_false}</option>
+		</select></li>
+	</p>
+
+	<h3 class="subtitle">#{@counter_conf_timer_head}</h3>
+	<p>#{@counter_conf_timer_desc}</p>
+	<p>#{@counter_conf_timer_label}<input name="counter.timer" value="#{h @conf["counter.timer"]}" size="2">#{@counter_conf_timer_unit}</p>
+
+	<h3 class="subtitle">#{@counter_conf_deny_same_src_interval_head}</h3>
+	<p>#{@counter_conf_deny_same_src_interval_desc}</p>
+	<p>#{@counter_conf_deny_same_src_interval_label}<input name="counter.deny_same_src_interval" value="#{h @conf["counter.deny_same_src_interval"]}" size="2">#{@counter_conf_deny_same_src_interval_unit}</p>
+
+	<h3 class="subtitle">#{@counter_conf_max_keep_access_num_head}</h3>
+	<p>#{@counter_conf_max_keep_access_num_desc}</p>
+	<p>#{@counter_conf_max_keep_access_num_label}<input name="counter.max_keep_access_num" value="#{h @conf["counter.max_keep_access_num"]}" size="7">#{@counter_conf_max_keep_access_num_unit}</p>
+
+	<h3 class="subtitle">#{@counter_conf_deny_user_agents_head}</h3>
+	<p>#{@counter_conf_deny_user_agents_desc}</p>
+	<blockquote>#{(@conf["bot"]||[]).join(", ")}, #{@counter_default_user_agents.gsub(/\|/, ", ")}</blockquote>
+	<dl><li>#{@counter_conf_deny_user_agents_label}<br/><textarea name="counter.deny_user_agents" cols="70" rows="3">#{@conf["counter.deny_user_agents"]}</textarea></li></dl>
+
+	<h3 class="subtitle">#{@counter_conf_kiriban_head}</h3>
+	<p>#{@counter_conf_kiriban_desc}</p>
+	<p><dl>
+		<li>#{@counter_conf_kiriban_label_all}<input name="counter.kiriban" value="#{h @conf["counter.kiriban"]}" size="60"></li>
+		<li>#{@counter_conf_kiriban_label_today}<input name="counter.kiriban_today" value="#{h @conf["counter.kiriban_today"]}" size="60"></li>
+	</dl></p>
+	<h3 class="subtitle">#{@counter_conf_kiriban_messages_head}</h3>
+	<p>#{@counter_conf_kiriban_messages_desc}</p>
+	<p><dl>
+	<li>#{@counter_conf_kiriban_messages_label_all}<br/>
+		<textarea name="counter.kiriban_msg" cols="70" rows="10">#{CGI.escapeHTML(@conf["counter.kiriban_msg"])}</textarea></li>
+	<li>#{@counter_conf_kiriban_messages_label_today}<br/>
+		<textarea name="counter.kiriban_today_msg" cols="70" rows="10">#{CGI.escapeHTML(@conf["counter.kiriban_today_msg"])}</textarea></li>
+	<li>#{@counter_conf_kiriban_messages_label_nomatch}<br/>
+		<textarea name="counter.kiriban_nomatch_msg" cols="70" rows="10">#{CGI.escapeHTML(@conf["counter.kiriban_nomatch_msg"])}</textarea></li>
+	</dl>
+	</p>
+	HTML
+end
+
+# Configure
+add_conf_proc('counter', @counter_conf_counter) do 
+	print_conf_html
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End: