tdiary-contrib 3.2.2.20130518

data/util/posttdiary/posttdiary.rb

@@ -0,0 +1,245 @@
+#!/usr/bin/env ruby
+$KCODE= 'u'
+#
+# posttdiary: update tDiary via e-mail. $Revision: 1.5 $
+#
+# Copyright (C) 2002, All right reserved by TADA Tadashi <sho@spc.gr.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+
+def usage
+	<<-TEXT.gsub( /^\t{2}/, '' )
+		#{File::basename __FILE__}: update tDiary via e-mail.
+		usage: ruby #{File::basename __FILE__} [options] <url> [user] [passwd]
+		arguments:
+		  url:    update.rb's URL of your diary.
+		  user:   user ID of your diary updating.
+		  passwd: password of your diary updating.
+		          If To: field of the mail likes "user-passwd@example.com",
+		          you can omit user and passwd arguments.
+		options:
+		  --image-path,   -i: directory of image saving into.
+		  --image-url,    -u: URL of image.
+		          You have to specify both options when using images.
+		  --image-format, -f: format of image tag specified image serial
+		          number as '$0' and image url as '$1'.
+		          default format is ' <img class="photo" src="$1" alt="">'.
+		  --use-subject,  -s: use mail subject to subtitle.
+		          and insert image between subtitle and body.
+	TEXT
+end
+
+def image_list( date, path )
+	image_path = []
+	Dir.foreach( path ) do |file|
+		if file =~ /(\d{8,})_(\d+)\./ and $1 == date then
+			image_path[$2.to_i] = file
+		end
+	end
+	image_path
+end
+
+def bmp_to_png( bmp )
+	png = bmp.sub( /\.bmp$/, '.png' )
+	begin
+		require 'magick'
+		img = Magick::Image::new( bmp )
+		img.write( 'magick' => 'png', 'filename' => png )
+	rescue LoadError
+		system( "convert #{bmp} #{png}" )
+	end
+	if FileTest::exist?( png )
+		File::delete( bmp )
+		png
+	else
+		bmp
+	end
+end
+
+begin
+
+	raise usage if ARGV.length < 1
+
+	require 'getoptlong'
+	parser = GetoptLong::new
+	image_dir = nil
+	image_url = nil
+	image_format = ' <img class="photo" src="$1" alt="">'
+	use_subject = false
+	parser.set_options(
+		['--image-path', '-i', GetoptLong::REQUIRED_ARGUMENT],
+		['--image-url', '-u', GetoptLong::REQUIRED_ARGUMENT],
+		['--image-format', '-f', GetoptLong::REQUIRED_ARGUMENT],
+		['--use-subject', '-s', GetoptLong::NO_ARGUMENT]
+	)
+	begin
+		parser.each do |opt, arg|
+			case opt
+			when '--image-path'
+				image_dir = arg
+			when '--image-url'
+				image_url = arg
+			when '--image-format'
+				image_format = arg
+			when '--use-subject'
+				use_subject = true
+			end
+		end
+	rescue
+		raise usage
+	end
+	raise usage if (image_dir and not image_url) or (not image_dir and image_url)
+	image_dir = image_dir.sub( %r[/*$], '/' ) if image_dir
+	image_url = image_url.sub( %r[/*$], '/' ) if image_url
+	url = ARGV.shift
+	if %r|http://([^:/]+)(?::(\d+))?(/.*)| =~ url then
+		host = $1
+		port = ($2 || 80).to_i
+		cgi  = $3
+	else
+		raise 'bad url.'
+	end
+
+	user = ARGV.shift
+	pass = ARGV.shift
+
+	require 'base64'
+	require 'nkf'
+	image_name = nil
+
+	mail = NKF::nkf( '-m0 -Xwd', ARGF.read )
+	raise "#{File::basename __FILE__}: no mail text." if not mail or mail.length == 0
+
+	head, body = mail.split( /(?:\r?\n){2}/, 2 )
+
+	if head =~ %r|Content-Type:\s*Multipart/Mixed.*boundary="?(.*?)"?[\r\n]|im then
+		if not image_dir or not image_url then
+			raise "no --image-path and --image-url options"
+		end
+
+		bound = "--" + $1
+		body_sub = body.split( Regexp.compile( Regexp.escape( bound ) ) )
+		body_sub.each do |b|
+			sub_head, sub_body = b.split( /(?:\r?\n){2}/, 2 )
+
+			next unless sub_head =~ /Content-Type:/i
+
+			if sub_head =~ %r[^Content-Type:\s*text/plain]i then
+				@body = sub_body
+			elsif sub_head =~ %r[
+				^Content-Type:\s*
+				(?:image/|application/octet-stream).+
+				name="?.+(\.\w{3})"? (?# 1: extension)
+			]imx
+				image_ext = $1.downcase
+				now = Time::now
+				list = image_list( now.strftime( "%Y%m%d" ), image_dir )
+				image_name = now.strftime( "%Y%m%d" ) + "_" + list.length.to_s + image_ext
+				File::umask( 022 )
+				open( image_dir + image_name, "wb" ) do |s|
+					begin
+						s.print Base64::decode64( sub_body.strip )
+					rescue NameError
+						s.print decode64( sub_body.strip )
+					end
+				end
+				if /\.bmp$/i =~ image_name then
+					bmp_to_png( image_dir + image_name )
+					image_name.sub!( /\.bmp$/i, '.png' )
+				end
+				@image_name ||= []
+				@image_name << image_name
+			end
+		end
+	elsif head =~ /^Content-Type:\s*text\/plain/i
+		if head =~ /^Content-Transfer-Encoding:\squoted-printable/
+			@body = body.unpack("M").map {|str| NKF::nkf("-wJd", str) }
+		else
+			@body = body
+		end
+	else
+		raise "cannot read this mail"
+	end
+
+	if @image_name then
+		img_src = ""
+		@image_name.each do |i|
+			serial = i.sub( /^\d+_(\d+)\..*$/n, '\1' )
+			img_src += image_format.gsub( /\$0/, serial ).gsub( /\$1/, image_url + i )
+		end
+		if use_subject then
+			@body = "#{img_src}\n#{@body}".sub( /(?:\r?\n|\r)+\z/, "\n" )
+		else
+			@body = "#{@body}".sub( /(?:\r?\n|\r)+\z/, "\n" ) << img_src
+		end
+	end
+
+	addr = nil
+	if /^To:(.*)$/ =~ head then
+		addr = case to = $1.strip
+		when /.*?\s*<(.+)>/, /(.+?)\s*\(.*\)/
+			$1
+		else
+			to
+		end
+	end
+
+	if /([^-]+)-(.*)@/ =~ addr then
+		user ||= $1
+		pass ||= $2
+	end
+
+	raise "no user." unless user
+	raise "no passwd." unless pass
+
+	subject = ''
+	nextline = false
+	headlines = head.split( /(?:\r?\n|\r)+/ )
+	for n in 0 .. headlines.size-1
+		if nextline then
+			if /^[ \t]/ =~ headlines[n] then
+				s = headlines[n].sub( /^[ \t]/, '' )
+				subject += NKF::nkf( '-wXd', s )
+			else
+				break
+			end
+		end
+		if /^Subject:\s*(.+)$/i =~ headlines[n] then
+			subject = NKF::nkf( '-wXd', $1 )
+			nextline = true
+		end
+	end
+	subject.strip!
+	if use_subject then
+		title = ''
+		@body = "#{subject}\n#{@body}"
+	else
+		title = subject
+	end
+
+	require 'cgi'
+	require 'nkf'
+	data = "title=#{CGI::escape title}"
+	data << "&body=#{CGI::escape @body}"
+	data << "&append=true"
+
+	require 'net/http'
+	Net::HTTP.start( host, port ) do |http|
+		auth = ["#{user}:#{pass}"].pack( 'm' ).strip
+		res, = http.get( cgi, {
+				'Authorization' => "Basic #{auth}",
+				'Referer' => url })
+		if %r|<input type="hidden" name="csrf_protection_key" value="([^"]+)">| =~ res.body then
+			data << "&csrf_protection_key=#{CGI::escape( CGI::unescapeHTML( $1 ) )}"
+		end
+		res, = http.post( cgi, data, {
+				'Authorization' => "Basic #{auth}",
+				'Referer' => url })
+	end
+
+rescue
+	$stderr.puts $!
+	$stderr.puts $@.join( "\n" )
+	File::delete( image_dir + image_name ) if image_dir and image_name and FileTest::exist?( image_dir + image_name )
+	exit 1
+end

data/util/rast-search/ChangeLog

@@ -0,0 +1,55 @@
+2007-01-08  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb, rast-search.rb: revise for UTF8.
+
+2005-12-10  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb: set 'diaries' for the 'my-ex' plugin.
+
+	* rast-register.rb: revise attributes of the 'date' property.
+	rebuilding indices is necessary.
+	* rast-search.rb: revise for mod_ruby.
+
+2005-12-06  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast.rhtml: remove a dummy link.
+
+2005-12-05  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb: revise attributes of the 'date' property.
+	remove indices before rebuilding.
+
+2005-12-04  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb: support tDiary-2.0.x.
+	* en/rast-register.rb, ja/rast-register.rb: add resources.
+
+2005-11-24  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb: fix a bug in command-line mode (reported by
+	YAA). set 'cache_path' for the 'tlink' plugin (reported by YAA).
+
+	* rast-register.rb: support rebuilding index by conf mode. abolish
+	'CGI' mode.
+
+2005-11-23  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb: use 'require' instead of 'autoload'.
+
+2005-11-21  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-register.rb: add a plugin file.
+	* rast-search.rb, rast.rxml: support opensearch rss.
+	* rast.rhtml: revise for more valid HTML output.
+
+2005-05-11  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast.rhtml, i.rast.rhtml: use @num instead of 10.
+
+2005-05-11 TADA Tadashi <sho@spc.gr.jp>
+	* rast.rhtml, i.rast.rhtml: set title to h2 element, and copy format_links
+	plugin on top of results.
+
+2005-05-10 TADA Tadashi <sho@spc.gr.jp>
+	* README.ja: fix typo.
+
+2005-04-16  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast.rhtml: convert the encoding of @query.
+
+2005-04-15  Kazuhiko  <kazuhiko@fdiary.net>
+	* rast-search.rb: never use Rast::LocalDB. fix a bug in running
+	from a shell.
+
+2005-04-14  Kazuhiko  <kazuhiko@fdiary.net>
+	* initial release of rast-search.

data/util/rast-search/README.ja

@@ -0,0 +1,99 @@
+rast-search README
+===================
+
+  Rast <http://projects.netlab.jp/rast/> を用いた tDiary 検索環境です。
+
+
+特徴
+----------
+
+  日記の更新と連動して自動的にインデックスを更新するので、いつでも最新の
+  情報で検索することができます。日記を HTML 化した後に必要な部分だけを取
+  り出してインデックスを作成するので、ヘッダやフッタなどによる検索ノイズ
+  がなく、また、プラグインの出力が検索対象になるという特徴があります。
+
+
+必要なもの
+----------
+
+  * tDiary 1.5 以降
+  * Ruby 1.8.2 以降
+  * Rast 0.3.1 以降
+
+
+セットアップ
+------------
+
+  1. rast-register.rb を tDiary の プラグインディレクトリにコピーします。
+
+  2. rast-search.rb を tDiary の index.rb があるディレクトリにコピーしま
+     す。必要なら index.rb と同じようにシンボリックリンクを張ったり名前を
+     変えたりしてください。
+
+  3. CGI として実行可能にします。
+
+     $ chmod a+x rast-search.rb
+
+  4. 必要なら #! のパスを変更します。
+
+  5. rast.rhtml と rast.rxml と i.rast.rhtml を tDiary の skel/ ディレク
+     トリにコピーします。
+
+  6. rast-register.rb プラグインを有効にします。(tDiary の plugin/ ディレ
+     クトリにコピーするか、プラグイン選択のディレクトリにコピーしてブラウ
+     ザから有効に設定します。言語リソースファイルの en/rast-register.rb
+     と ja/rast-register.rb も、プラグインディレクトリの en/ 以下および
+     ja/ 以下にコピーしてください。)
+
+  7. (オプション) tdiary.conf で以下のように encoding の設定をできます。
+     Rast の encoding module の名前で設定してください。デフォルトは
+     'utf8' です。encoding の設定を変更する場合は、Rast のインデックス
+     があるディレクトリ (cache ディレクトリの下の /rast) を消して、再度イ
+     ンデックスを作りなおしてください。
+
+     @options['rast.index'] = 'utf8'
+
+  8. 既存の日記コンテンツに対して検索インデックスを作成します。tDiary の
+     設定画面から「Rast検索」を選び、「Rast検索のインデックスを再構築する
+     場合は、チェックボックスをチェックしてOKを押してください」というメッ
+     セージに従ってチェックしてOKを押すと、
+
+     インデックスの作成は、tDiary の CGI の実行権限で以下のように実行する
+     ことでも可能です。
+
+     ruby rast-register.rb [-p tdiary.rbのあるディレクトリ] [-c tdiary.confのあるディレクトリ]
+
+  9. 自分の tDiary の好きな場所 (例えばヘッダ) に以下のようなフォームを加
+     えてください。
+
+     <form method="get" action="rast-search.rb" class="search">
+     <input type="text" name="query" size="20" value="">
+     <input type="submit" value="Search">
+     </form>
+
+     search-form.rb プラグインを有効にしている場合は、以下のように書くこ
+     ともできます。
+
+     <%= search_form('rast-search.rb', 'query') %>
+
+  以上です。
+
+
+検索のしかた
+------------
+
+  rast-search の検索対象は、日記本文、ツッコミ、TrackBack です。
+
+  検索方法については、 http://projects.netlab.jp/rast/query.html.ja をご覧くだ
+  さい。
+
+
+連絡先
+------
+
+  かずひこ <kazuhiko@fdiary.net>
+  http://www.fdiary.net/
+
+  バグ報告は以下のどこかにお願いします。
+    * tdiary-devel ML
+    * 直接メール

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

@@ -0,0 +1,3 @@
+@rast_register_conf_label = 'Rast Search'
+@rast_register_conf_header = 'Rebuild Rast search index'
+@rast_register_conf_description = 'To rebuild Rast search index, check the box and submit \'OK\'.'

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

@@ -0,0 +1,33 @@
+<%# i.rast.rhtml $Revision: 1.5.2.1 $ %>
+<h1><%= CGI::escapeHTML( @conf.html_title ) %> [全文検索]</h1>
+<form action="<%= _(@cgi.script_name) %>">
+<p>
+<input type="text" name="query" value="<%= _(@conf.to_native(@query)) %>">
+<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><%= @result.hit_count %>件中<%= @start + 1 %>-<%= @start + @result.items.length %>件目</p>
+<% for item in @result.items %><% format_result_item(item) %>
+<h2><a href="<%= @conf.index %><%= @plugin.anchor(@date) %>"><%= _(@conf.to_native(@title)) %></a>(スコア:<%= item.score %>)</h2>
+<% end %>
+<% if @result.hit_count > @num %>
+<%= format_links(@result) %>
+<% end %>
+<% end %>

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

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