tdiary 3.2.2.20130507

data/misc/plugin/speed_comment.rb

@@ -0,0 +1,68 @@
+# -*- coding: utf-8 -*-
+# speed_comment.rb
+#
+# spped_comment: 最新・月毎表示時に簡易なツッコミフォームを表示する
+#                pluginディレクトリに入れるだけで動きます。
+#
+# Copyright (c) 2002 TADA Tadashi <sho@spc.gr.jp>
+# Distributed under the GPL
+#
+=begin ChangeLog
+2003-09-24 TADA Tadashi <sho@spc.gr.jp>
+	* support cookie for name.
+	* support conf_proc.
+
+2002-03-24 TADA Tadashi <sho@spc.gr.jp>
+	* suppress output in mobile mode. 
+
+2002-03-12 TADA Tadashi <sho@spc.gr.jp>
+	* support insert into @header.
+=end
+
+add_body_leave_proc do |date|
+	if /latest|month/ =~ @mode and not @cgi.mobile_agent? then
+		@conf['speed_comment.name_size'] = 20 unless @conf['speed_comment.name_size']
+		@conf['speed_comment.body_size'] = 40 unless @conf['speed_comment.body_size']
+		r = ""
+		r << %Q[<div class="form"><form method="post" action="#{h( @index )}"><p>]
+		r << %Q[<input type="hidden" name="date" value="#{h( date.strftime( '%Y%m%d' ) )}">]
+		r << %Q[<input type="hidden" name="mail" value="">]
+		r << %Q[#{h( comment_name_label )} : <input class="field" name="name" size="#{@conf['speed_comment.name_size']}" value="#{h( @conf.to_native(@cgi.cookies['tdiary'][0] || '' ))}">]
+		r << %Q[#{h( comment_body_label )} : <input class="field" name="body" size="#{@conf['speed_comment.body_size']}">]
+		r << %Q[<input type="submit" name="comment" value="#{h( comment_submit_label )}">]
+		r << %Q[</p></form></div>]
+	else
+		''
+	end
+end
+
+unless @resource_loaded then
+	def speed_comment_label
+		'簡易ツッコミ'
+	end
+
+	def speed_comment_html
+		<<-HTML
+		<h3>簡易ツッコミフォームのサイズ</h3>
+		<p>名前欄: <input name="speed_comment.name_size" size="5" value="#{h( @conf['speed_comment.name_size'] ) || 20}"></p>
+		<p>本文欄: <input name="speed_comment.body_size" size="5" value="#{h( @conf['speed_comment.body_size'] ) || 40}"></p>
+		HTML
+	end
+end
+
+add_conf_proc( 'speed_comment', speed_comment_label ) do
+	if @mode == 'saveconf' then
+		@conf['speed_comment.name_size'] = @cgi.params['speed_comment.name_size'][0].to_i
+		@conf['speed_comment.name_size'] = 20 if @conf['speed_comment.name_size'] < 1
+		@conf['speed_comment.body_size'] = @cgi.params['speed_comment.body_size'][0].to_i
+		@conf['speed_comment.body_size'] = 40 if @conf['speed_comment.body_size'] < 1
+	end
+	speed_comment_html
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/squeeze.rb

@@ -0,0 +1,272 @@
+#!/usr/bin/env ruby
+
+# squeeze.rb
+#
+# Create daily HTML file from tDiary database.
+#
+# See URLs below for more details.
+#   http://ponx.s5.xrea.com/hiki/squeeze.rb.html (English) 
+#   http://ponx.s5.xrea.com/hiki/ja/squeeze.rb.html (Japanese) 
+#
+# Copyright (C) 2002 MUTOH Masao <mutoh@highway.ne.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+# The original version of this file was distributed with squeeze 
+# TADA Tadashi <sho@spc.gr.jp> with GPL2.
+#
+unless $tdiary_squeeze_loaded
+$tdiary_squeeze_loaded ||= true
+
+mode = defined?(TDiary) ? "PLUGIN" : ENV["REQUEST_METHOD"]? "CGI" : "CMD"
+
+if mode == "CMD" || mode == "CGI"
+	output_path = "./html/"
+	tdiary_path = "."
+	tdiary_conf = "."
+	suffix = ''
+	all_data = false
+	overwrite = false
+	compat = false
+	$stdout.sync = true
+
+	if mode == "CMD"
+		def usage
+			puts "squeeze $Revision: 1.25 $"
+			puts " making html files from tDiary's database."
+			puts " usage: ruby squeeze.rb [-p <tDiary path>] [-c <tdiary.conf path>] [-a] [-s] [-x suffix] <dest path>"
+			exit
+		end
+
+		require 'getoptlong'
+		parser = GetoptLong::new
+		parser.set_options(['--path', '-p', GetoptLong::REQUIRED_ARGUMENT],
+											 ['--conf', '-c', GetoptLong::REQUIRED_ARGUMENT],
+											 ['--suffix', '-x', GetoptLong::REQUIRED_ARGUMENT],
+											 ['--all', '-a', GetoptLong::NO_ARGUMENT],
+											 ['--overwrite', '-o', GetoptLong::NO_ARGUMENT],
+											 ['--squeeze', '-s', GetoptLong::NO_ARGUMENT])
+		begin
+			parser.each do |opt, arg|
+				case opt
+				when '--path'
+					tdiary_path = arg.dup.untaint
+				when '--conf'
+					tdiary_conf = arg
+				when '--suffix'
+					suffix = arg
+				when '--all'
+					all_data = true
+				when '--overwrite'
+					overwrite = true
+				when '--squeeze'
+					compat = true
+				end
+			end
+		rescue
+			usage
+			exit( 1 )
+		end
+		output_path = ARGV.shift
+		usage unless output_path
+		output_path = File::expand_path(output_path)
+		output_path += '/' if /\/$/ !~ output_path
+
+		tdiary_conf = tdiary_path unless tdiary_conf
+		Dir::chdir( tdiary_conf )
+		ARGV << '' # dummy argument against cgi.rb offline mode.
+		$:.unshift tdiary_path
+	else
+		@options = Hash.new
+		File::readlines("tdiary.conf").each {|item| 
+			if item =~ /@options/
+				begin
+					eval(item)
+				rescue SyntaxError
+				end
+			end
+		}
+		output_path = @options['squeeze.output_path'] || @options['yasqueeze.output_path']
+		suffix = @options['squeeze.suffix'] || ''
+		all_data = @options['squeeze.all_data'] || @options['yasqueeze.all_data']
+		overwrite = @options['squeeze.overwrite']
+		compat = @options['squeeze.compat_path'] || @options['yasqueeze.compat_path']
+
+		if FileTest::symlink?( __FILE__ ) then
+			org_path = File::dirname( File::readlink( __FILE__ ) )
+		else
+			org_path = File::dirname( __FILE__ )
+		end
+		$:.unshift( org_path.untaint )
+	end
+
+	begin
+		require "tdiary"
+	rescue LoadError
+		$stderr.print "squeeze.rb: cannot load tdiary.rb. <#{tdiary_path}/tdiary>\n"
+		exit( 1 )
+	end
+end
+
+#
+# Dairy Squeeze
+#
+module ::TDiary
+	class YATDiarySqueeze < TDiaryBase
+		def initialize(diary, dest, all_data, overwrite, compat, conf, suffix)
+			@ignore_parser_cache = true
+	
+			cgi = CGI::new
+			def cgi.referer; nil; end
+			def cgi.user_agent; 'bot'; end
+			super( cgi, 'day.rhtml', conf )
+			@diary = diary
+			@date = diary.date
+			@diaries = {@date.strftime('%Y%m%d') => @diary} if @diaries.size == 0
+			@dest = dest
+			@all_data = all_data
+			@overwrite = overwrite
+			@compat = compat
+			@suffix = suffix
+		end
+	
+		def execute
+			if @compat
+				dir = @dest
+				name = @diary.date.strftime('%Y%m%d')
+			else
+				dir = @dest + "/" + @diary.date.strftime('%Y')
+				name = @diary.date.strftime('%m%d')
+				Dir.mkdir(dir, 0755) unless File.directory?(dir)
+			end
+			filename = dir + "/" + name + @suffix
+			if FileTest.exist?( filename ) and @overwrite
+				File::delete( filename )
+			end
+			if @diary.visible? or @all_data
+				if not FileTest::exist?(filename) or 
+						File::mtime(filename) != @diary.last_modified
+					File::open(filename, 'w'){|f| f.write(eval_rhtml)}
+					File::utime(@diary.last_modified, @diary.last_modified, filename)
+				end
+			else
+				if FileTest.exist?(filename) and ! @all_data
+					name = "remove #{name}"
+					File::delete(filename)
+				else
+					name = ""
+				end
+			end
+			name
+		end
+		
+		protected
+		def mode
+			'day'
+		end
+
+		def cookie_name; ''; end
+		def cookie_mail; ''; end
+	end
+end
+
+#
+# Main
+#
+module ::TDiary
+	class YATDiarySqueezeMain < TDiaryBase
+		def initialize(dest, all_data, overwrite, compat, conf, suffix)
+			@ignore_parser_cache = true
+
+			cgi = CGI::new
+			def cgi.referer; nil; end
+			super( cgi, 'day.rhtml', conf )
+			calendar
+			@years.keys.sort.each do |year|
+				print "(#{year.to_s}/) "
+				@years[year.to_s].sort.each do |month|
+					diaries2 = nil
+					@io.transaction(Time::local(year.to_i, month.to_i)) do |diaries|
+						diaries2 = diaries
+						DIRTY_NONE
+					end
+					diaries2.sort.each do |day, diary|
+						print YATDiarySqueeze.new(diary, dest, all_data, overwrite, compat, conf, suffix).execute + " "
+					end
+				end
+			end
+		end
+	end
+end
+
+squeeze_navi_on_footer = '<div class="adminmenu"><%= navi_user %></div>'
+
+if mode == "CGI" || mode == "CMD"
+	if mode == "CGI"
+		print %Q[Content-type:text/html\n\n
+			<html>
+			<head>
+				<title>Squeeze for tDiary</title>
+				<link href="./theme/default/default.css" type="text/css" rel="stylesheet"/>
+			</head>
+			<body><div style="text-align:center">
+			<h1>Squeeze for tDiary</h1>
+			<p>$Revision: 1.25 $</p>
+			<p>Copyright (C) 2002 MUTOH Masao&lt;mutoh@highway.ne.jp&gt;</p></div>
+			<br><br>Start!</p><hr>
+		]
+	end
+
+	begin
+		require 'cgi'
+		cgi = CGI.new
+		def cgi.user_agent; 'bot'; end
+		conf = TDiary::Config::new(cgi)
+		conf.header = ''
+		conf.footer = squeeze_navi_on_footer
+		conf.show_comment = true
+		conf.hide_comment_form = true
+		output_path = "#{conf.data_path}/cache/html" unless output_path
+		Dir.mkdir(output_path, 0755) unless File.directory?(output_path)
+		::TDiary::YATDiarySqueezeMain.new(output_path, all_data, overwrite, compat, conf, suffix)
+	rescue
+		print $!, "\n"
+		$@.each do |v|
+			print v, "\n"
+		end
+		exit( 1 )
+	end
+
+	if mode == "CGI"
+		print "<hr><p>End!</p></body></html>\n"
+	else
+		print "\n\n"
+	end
+else
+	add_update_proc do
+		conf = @conf.clone
+		conf.header = ''
+		conf.footer = squeeze_navi_on_footer
+		conf.show_comment = true
+		conf.hide_comment_form = true
+
+		diary = @diaries[@date.strftime('%Y%m%d')]
+		dir = @options['squeeze.output_path'] || @options['yasqueeze.output_path']
+		dir = @cache_path + "/html" unless dir
+		Dir.mkdir(dir, 0755) unless File.directory?(dir)
+		::TDiary::YATDiarySqueeze.new(diary, dir,
+					    @options['squeeze.all_data'] || @options['yasqueeze.all_data'],
+					    @options['squeeze.overwrite'],
+					    @options['squeeze.compat_path'] || @options['yasqueeze.compat_path'],
+					    conf,
+					    @options['squeeze.suffix'] || ''
+					    ).execute
+	end
+end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/src.rb

@@ -0,0 +1,30 @@
+# -*- coding: utf-8 -*-
+# src.rb
+#
+# src: 外部ファイルを挿入する(HTMLエスケープ付き)
+#   パラメタ:
+#     file: ファイル名
+#
+# Copyright (c) 2005 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL2.
+#
+def src( file )
+	h( File::readlines( file ).join )
+end
+
+#
+# src_inline: テキストを挿入する(HTMLエスケープ付き)
+#
+# パラメタ: テキスト文字列
+#
+def src_inline( str )
+	h( str )
+end
+
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/tb-show.rb

@@ -0,0 +1,212 @@
+# tb-show.rb
+#
+# functions:
+#   * show TrackBack ping URL in right of TSUKKOMI label.
+#   * hide TrackBacks in TSUKKOMI.
+#   * show TrackBacks above Today's Links.
+#
+# options:
+#	@options['tb.cgi']:
+#		the TrackBack ping URL. './tb.rb' is default.
+#	@options['tb.hide_if_no_tb']:
+#		If true, hide 'TrackBacks(n)' when there is no TrackBacks.  Default value is false.
+#
+# Copyright (c) 2003 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL.
+#
+# Modified: by Junichiro Kita <kita@kitaj.no-ip.com>
+#
+#
+# If you want to show TrackBack Ping URL under comment_new link, try this.
+#
+#	alias :comment_new_tb_backup :comment_new
+#	def comment_new
+#		cgi = @options['tb.cgi'] || './tb.rb'
+#		url = "#{cgi}/#{@tb_date.strftime( '%Y%m%d' )}"
+#		%Q|#{comment_new_tb_backup }</a>]<br>[TrackBack to <a href="#{@tb_url}">#{@tb_url}|
+#	end
+#
+ 
+# running on only non mobile mode
+unless @cgi.mobile_agent? then
+
+#
+# show TrackBack ping URL
+#
+add_body_enter_proc do |date|
+	cgi = File.basename(@options['tb.cgi'] || './tb.rb')
+	@tb_date = date
+	@tb_id_url = %Q|#{@index}#{anchor( @tb_date.strftime('%Y%m%d') )}|
+	@tb_id_url[0, 0] = base_url if %r|^https?://|i !~ @conf.index
+	@tb_id_url.gsub!( %r|/\./|, '/' )
+	@tb_url = %Q|#{base_url}#{cgi}/#{@tb_date.strftime('%Y%m%d')}|
+	''
+end
+
+#
+# make RDF
+#
+if @mode == 'day' and not bot? then
+	add_body_leave_proc do |date|
+		if @tb_url and @diaries[@tb_date.strftime('%Y%m%d')] then
+			<<-TBRDF
+<!--
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+	xmlns:dc="http://purl.org/dc/elements/1.1/"
+	xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/">
+<rdf:Description
+	rdf:about="#{h @tb_id_url}"
+	dc:identifier="#{h @tb_id_url}"
+	dc:title="#{h( apply_plugin( @diaries[@tb_date.strftime('%Y%m%d')].title, true ) ).gsub(/-{2,}/) {'&#45;' * $&.size}}"
+	trackback:ping="#{@tb_url}" />
+</rdf:RDF>
+-->
+			TBRDF
+		else
+			''
+		end
+	end
+end
+
+#
+# hide TrackBacks in TSUKKOMI
+#
+eval( <<MODIFY_CLASS, TOPLEVEL_BINDING )
+module TDiary
+	class Comment
+		def visible_true?
+			@show
+		end
+		#{if @mode !~ /^(form|edit|comment|showcomment|trackbackreceive)$/ then
+			'def visible?
+				@show and /^(TrackBack|Pingback)$/ !~ name
+			end'
+		else
+			'def visible?; @show; end'
+		end}
+	end
+end
+MODIFY_CLASS
+
+#
+# insert TrackBacks above Today's Link.
+#
+alias :referer_of_today_short_tb_backup :referer_of_today_short
+def referer_of_today_short( diary, limit )
+	r = referer_of_today_short_tb_backup( diary, limit )
+	return r unless @plugin_files.grep(/blog_style.rb\z/).empty?
+	if diary and !bot? and
+	  @conf['trackback_shortview_mode'] == "num_in_reflist" then
+		count = 0
+		diary.each_visible_trackback {|t,count|} # count up
+		r << %Q|<a href="#{h @index}#{anchor @tb_date.strftime( '%Y%m%d' )}#t">TrackBack#{'s' if count > 1}(#{count})</a>| unless count == 0 and @conf['tb.hide_if_no_tb']
+	end
+	r
+end
+
+def trackbacks_of_today_short( diary, limit = @conf['trackback_limit'] || 3 )
+	is_blog_style = !@plugin_files.grep(/blog_style.rb\z/).empty?
+	return unless is_blog_style || !diary.nil? &&
+	  (@conf['trackback_shortview_mode'] == "shortlist" ||
+	   @conf['trackback_disp_pingurl'])
+	fragment = 't%02d'
+	today = anchor( diary.date.strftime( '%Y%m%d' ) )
+	count = 0
+	diary.each_visible_trackback( -1 ) {|t,count|} # count up
+	r = ''
+	r << %Q!\t<div class="comment trackbacks">\n!
+
+	r << %Q!\t\t<div class="caption">\n!
+	r << %Q!\t\t\t#{trackback_today}#{trackback_total( count )}\n! if count > 0 && (is_blog_style || @conf['trackback_shortview_mode'] == "shortlist")
+	r << %Q!\t\t</div>\n!
+	return r << %Q!\t</div>\n! unless is_blog_style || @conf['trackback_shortview_mode'] == "shortlist"
+
+	r << %Q!\t\t<div class="commentshort trackbackshort">\n!
+	r << %Q!\t\t\t<p><a href="#{h @index}#{today}#t01">Before...</a></p>\n! if count > limit
+
+	diary.each_visible_trackback_tail( limit ) do |t,i|
+		url, name, title, excerpt = t.body.split( /\n/,4 )
+		a = name || url
+		a += ':' + title if title &&! title.empty?
+
+		r << %Q!\t\t\t<p>\n!
+		r << %Q!\t\t\t\t<a href="#{h @index}#{today}##{fragment % i}">#{@conf['trackback_anchor']}</a>\n!
+		r << %Q!\t\t\t\t<span class="commentator blog"><a href="#{h url}">#{h a}</a></span>\n!
+		r << %Q!\t\t\t\t#{h @conf.shorten( excerpt, @conf.comment_length )} \n! if excerpt
+		r << %Q!\t\t\t</p>\n!
+	end
+	r << %Q!\t\t</div>\n!
+	r << %Q!\t</div>\n!
+	r
+end
+
+def trackbacks_of_today_long( diary, limit = -1 )
+	count = 0
+	diary.each_visible_trackback( limit ) {|t,count|} # count up
+	fragment = 't%02d'
+	today = anchor( @date.strftime( '%Y%m%d' ) )
+
+	r = ''
+	r << %Q!\t<div class="comment trackbacks">\n!
+
+	r << %Q!\t\t<div class="caption">\n!
+	r << %Q!\t\t\t#{trackback_today}#{trackback_total( count )}\n! if count > 0
+	r << %Q!\t\t</div>\n!
+
+	r << %Q!\t\t<div class="commentbody trackbackbody">\n!
+	diary.each_visible_trackback( limit ) do |t,i|
+		url, name, title, excerpt = t.body.split( /\n/,4 )
+		a = (name and name.length > 0) ? name : url
+		a += ':' + title if title &&! title.empty?
+		f = fragment % i
+		excerpt = excerpt || ''
+		if excerpt.length > 255
+			excerpt = @conf.shorten( excerpt, 252 )
+		end
+
+		r << %Q!\t\t\t<div class="commentator trackback">\n!
+		r << %Q!\t\t\t\t<a name="#{f}" href="#{h @index}#{today}##{f}">#{@conf['trackback_anchor']}</a>\n!
+		if bot? then
+			r << %Q!\t\t\t\t<span class="commentator trackbackblog">#{h a}</span>\n!
+		else
+			r << %Q!\t\t\t\t<span class="commentator trackbackblog"><a href="#{h url}">#{h a}</a></span>\n!
+		end
+		r << %Q!\t\t\t\t<span class="commenttime trackbacktime">#{comment_date( t.date )}</span>\n!
+		r << %Q!\t\t\t</div>\n!
+		r << %Q!\t\t\t<p>#{h( excerpt ).strip.gsub( /\n/,'<br>')}</p>\n! if excerpt
+  	end
+	r << %Q!\t\t</div>\n!
+	r << %Q!\t</div>\n!
+	r
+end
+
+# running on only non mobile mode
+end # unless mobile_agent?
+
+# configurations
+@conf['trackback_anchor'] ||= @conf.comment_anchor
+@conf['trackback_limit']  ||= @conf.comment_limit
+
+add_conf_proc( 'tb-show', 'TrackBack', 'tsukkomi' ) do
+	if @mode == 'saveconf' then
+		@conf['trackback_anchor'] = @conf.to_native( @cgi.params['trackback_anchor'][0] )
+		@conf['trackback_shortview_mode'] = @cgi.params['trackback_shortview_mode'][0]
+		if @conf['trackback_shortview_mode'] == "num_in_reflist_if_exists"
+			@conf['tb.hide_if_no_tb'] = true
+			@conf['trackback_shortview_mode'] = "num_in_reflist"
+		elsif @conf['trackback_shortview_mode'] == "num_in_reflist"
+			@conf['tb.hide_if_no_tb'] = false
+		end
+		@conf['trackback_limit']  = @cgi.params['trackback_limit'][0].to_i
+		@conf['trackback_limit'] = 3 if @conf['trackback_limit'] < 1
+		@conf['trackback_disp_pingurl'] = @cgi.params['trackback_disp_pingurl'][0] == "true" ? true : false
+	end
+	tb_show_conf_html
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End: