tDiary update report

途中までで力尽きた。またしばらくしたら続けるかも。
なおソースのほとんどがきたさんのtb-send.rbという。
あらら、タブ消えちゃうのか。まあいいや。

if /^(append|replace)$/ =~ @mode then

	require 'net/http'

##############

	url="http://www.spacehorn.com/text/report.cgi"

	sendcode=Kconv::SJIS

	id=""

	pass=""

	query="ope=report_one®_num=#{id}&password=#{pass}&new_subtitle=#{title}"

##############

	query = Kconv::kconv(query, sendcode, Kconv::EUC)

	query = CGI::escape(query)

	if %r|^http://([^/]+)(/.*)$| =~ url then

			request = $2

			host, port = $1.split( /:/, 2 )

			port = '80' unless port

			Net::HTTP.version_1_1

			begin

				Net::HTTP.start( host.untaint, port.to_i ) do |http|

					response, = http.post( request, query,

							 "Content-Type" => 'application/x-www-form-urlencoded')

# XREA taisaku.

# how to deal with responce.body?

#					$stderr.puts response.body

				end

			rescue

			end

		end
end