#!/usr/local/bin/perl

##########################################################
my $scriptname = "rss.cgi";
my $scriptversion = "0.6.4";
my $scriptlastupdate = "2006-11-23";
my $scripturl = "http://sibelian.jp.land.to/texqa/";
##########################################################

$t1 = (times)[0];

# パッケージの読み込み
use Encode qw/ from_to /;	# 文字コード変換に Encode を利用
use URI::Fetch;	# 外部ページ読み込みに URI::Fetch を利用
use XML::TreePP;	# XML の読み込みにXML::TreePP を利用
use Time::Local;	# localtime → time 変換

# 各種設定
my $encode = "UTF-8";	# 出力文字コードは UTF-8 （変更不可）
my $logfile = "./log.xml";	# ログ
my $messagesfile = "./messages.xml";	# キャッシュ
my $lockfile = "./rss.lock";	# ロックファイル（中身は空）
my $messagesfilelength = "400";	# キャッシュする件数
my $baseurl = "http://oku.edu.mie-u.ac.jp/~okumura/texfaq/qa/";	# index.html のあるディレクトリ
my $descriptionlinemaximum = 10;	# <description> に表示する最大の行数
my $updateperiod = 300;	# 更新間隔（秒）
my $presenttime = time();	# 現在時刻

# 配信件数を取得。デフォルトは 10 件
# オプション f をつけると、強制更新（テスト用）
# オプション n をつけると、カウンタを回さない（作者用、ユーザーは使わないで！）。
# オプション a をつけると、本文全文を配信（つけないと $descriptionlinemaximum 行の要約のみ）
# オプション l をつけると、リスト（番号、日時、タイトル、名前）のみを表示
# オプション s をつけると、リンクをスレッド XHTML のものに変更
# オプション t をつけると、 $num 番の書き込みを含むスレッドを表示
# オプション th をつけると、 $num 番の書き込みを含むスレッドを XHTML 1.0 形式で出力（新しいものから）
# オプション tho をつけると、 $num 番の書き込みを含むスレッドを XHTML 1.0 形式で出力（古いものから）
$num = 0;
$num = $ARGV[0];
$force = 0;
$nocount = 0;
$all = 0;
$list = 0;
$sibelian = 0;
$thread = 0;
$html = 0;
$old = 0;
if($num=~ /f/) {$num =~ s/f//; $force = 1;}
if($num=~ /n/) {$num =~ s/n//; $nocount = 1;}
if($num=~ /a/) {$num =~ s/a//; $all = 1;}
if($num=~ /l/) {$num =~ s/l//; $list = 1;}
if($num=~ /s/) {$num =~ s/s//; $sibelian = 1;}
if($num=~ /t/) {$num =~ s/t//; $thread = 1;}
if($num=~ /h/) {$num =~ s/h//; $html = 1;}
if($num=~ /o/) {$num =~ s/o//; $old = 1;}
if(($num <= 0) || ($num =~ /[^0-9]/)) { $num = 10;}

# 暫定的な利用調査
#sub get_ipaddr_hash {
#    my $ipaddr = $ENV{REMOTE_ADDR} or return;
#    my $intaddr = unpack( N => pack( C4 => reverse split( /\./, $ipaddr )));
#    my $hashval = 10000 + $intaddr % 90000;
#    $hashval;
#}
#if (!$nocount) {
#	open(OUT, ">> log.txt");
#	flock(OUT, 2);
#	seek(OUT, 0, 2);
#	print OUT "$presenttime,".&get_ipaddr_hash().",$ARGV[0],$ENV{HTTP_USER_AGENT}\n";
#	close(OUT);
#}

# 広告
sub adlist {
	print "<rdf:li rdf:resource=\"http://land.to/index.php\" />\n";
}
sub ad {
	print "<item rdf:about=\"http://land.to/index.php\">\n";
	print "<title>[qa:00000] スポンサードリンク</title>\n";
	print "<link>http://land.to/index.php</link>\n";
	print "<description>\n";
	print "&lt;iframe src=\"http://jp.land.to/ad/adpc_if.p\" name=\"AD\" id=\"AD\" title=\"ad\" width=\"468\" height=\"70\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\" scrolling=\"no\"&gt;&lt;a href=\"http://land.to/index.php\"&gt;Land.to&lt;/a&gt;&lt;/iframe&gt;\n";
#	$t2 = (times)[0];
#	$t3 = $t2 - $t1;
#	print "&lt;br /&gt;[".sprintf("%.2f",$t3)." sec]";
	print "</description>\n";
	print "<dc:creator>Land.to</dc:creator>\n";
	print "<dc:date>".&W3CDTF6time($presenttime)."</dc:date>\n";
	print "</item>\n";
}

# お知らせ
sub announcementlist {
	print "<rdf:li rdf:resource=\"$scripturl"."index.html#history20061007\" />\n";
}
sub announcement {
	print "<item rdf:about=\"$scripturl"."index.html#history20061007\">\n";
	print "<title>[qa:INFO5] 本文を含まないリストの配信をサポートしました。</title>\n";
	print "<link>$scripturl"."index.html#history20061007</link>\n";
	print "<description>\n";
	print "詳しくは &lt;a href=\"$scripturl\"&gt;$scripturl&lt;/a&gt; をご覧ください。&lt;br /&gt;\n";
	print "</description>\n";
	print "<content:encoded>\n";
	print "スクリプトをバージョン・アップして&lt;br /&gt;\n";
	print "本文を含まないリストの配信をサポートしました。&lt;br /&gt;\n";
	print "\"l\" オプションで、リスト（番号、日時、タイトル、名前）のみを返します。&lt;br /&gt;\n";
	print "ネットワーク資源の無駄遣いを防ぐためにも、&lt;br /&gt;\n";
	print "本文や要約がいらない方（ Firefox の Live Bookmark とかをお使いの方）は&lt;br /&gt;\n";
	print "できるだけ \"l\" をつけてアクセスしてください。&lt;br /&gt;\n";
	print "詳しくは &lt;a href=\"$scripturl\"&gt;$scripturl&lt;/a&gt; をご覧ください。\n";
	print "</content:encoded>\n";
	print "<dc:creator>Sibelian</dc:creator>\n";
	print "<dc:date>".&W3CDTF6time($presenttime)."</dc:date>\n";
	print "</item>\n";
}

# UNIX 時間→ W3CDTF (YYYY-MM-DDThh:mm:ssTZD)
sub W3CDTF6time {
	(my $sec, my $min, my $hour, my $mday, my $mon, my $year,
		my $wday, my $yday, my $isdst) = localtime($_[0]);
	$year = 1900 + $year;
	$mon = sprintf("%02d", ($mon + 1));
	$mday = sprintf("%02d", $mday);
	$hour = sprintf("%02d", $hour);
	$min = sprintf("%02d", $min);
	$sec = sprintf("%02d", $sec);
	return ("$year-$mon-$mday\T$hour:$min:$sec+09:00");
}
# W3CDTF (YYYY-MM-DDThh:mm:ssTZD) → UNIX 時間
sub timeW3CDTF6 {
	if($_[0] =~ /([0-9]+)-([0-9]+)-([0-9]+)T([0-9]+):([0-9]+):([0-9]+)\+9:00/) {
		return (timelocal($6,$5,$4,$3,($2-1),($1-1900)));
	} else {
		return 0;
	}
}
# UNIX 時間→ 普通の時間表示 (YYYY-MM-DD hh:mm:ss)
sub normaltime {
	(my $sec, my $min, my $hour, my $mday, my $mon, my $year,
		my $wday, my $yday, my $isdst) = localtime($_[0]);
	$year = 1900 + $year;
	$mon = sprintf("%02d", ($mon + 1));
	$mday = sprintf("%02d", $mday);
	$hour = sprintf("%02d", $hour);
	$min = sprintf("%02d", $min);
	$sec = sprintf("%02d", $sec);
	return ("$year-$mon-$mday $hour:$min:$sec");
}

# 相対 URL →絶対 URL
sub absolute {
	if ($_[0] =~/^http|^https|^ftp|^ftps/) {"$_[0]";}
	else {"$baseurl$_[0]";}
}

# アイテム要素を出力する
sub item {
	print "<item rdf:about=\"$_[0]->{link}\">\n";
	print "<title>[qa:$_[0]->{id}] $_[0]->{title}</title>\n";
	print "<link>$_[0]->{link}</link>\n";
	if(!$list) {
		print "<description>\n";
#		print "名前：$_[0]->{author}\&lt;br \/\&gt;\n";
		my @textlines = split(/\n/, $_[0]->{text});
		foreach (@textlines) {
			~ s/&amp;/&amp;amp;/g;
			~ s/&lt;/&amp;lt;/g;
			~ s/&gt;/&amp;gt;/g;
			~ s/</&lt;/g;
			~ s/>/&gt;/g;
			~ s/\s*$/\n/;
		}
		print "&lt;pre&gt;";
		my $linecount = 0;
		foreach (@textlines) {
			$linecount ++;
			if($linecount > $descriptionlinemaximum) {
				print "...\n";
				last;
			}
			print;
		}
		print "&lt;/pre&gt;";
		print "</description>\n";
		if ($all) {
			print "<content:encoded>\n";
			print "&lt;pre&gt;";
			foreach (@textlines) {
				print;
			}
			print "&lt;/pre&gt;\n";
			print "</content:encoded>\n";
		}
	}
	print "<dc:creator>$_[0]->{author}</dc:creator>\n";
	print "<dc:date>".&W3CDTF6time($_[0]->{timestamp})."</dc:date>\n";
	print "</item>\n";
}

# TeX Q & A へのリンクにするかどうかの判断してリンクアンカーを作成
sub linkqa {
	my $anchor = shift(@_);
	my $innertext = shift(@_);
	foreach (@_) {
		if ($anchor eq $_) {
			return("<a href=\"\#id$anchor\">$innertext<\/a>");
		}
	}
	return("<a href=\"$baseurl$anchor.html\">$innertext<\/a><img src=\".\/texqa.png\" height=\"16\" width=\"16\" alt=\"[qa:$1]\" border=\"0\"\ />");
}

# スクリプト本体実行の排他処理
open(LOCK,"> $lockfile");
flock(LOCK, 2);
##########################################################
# スクリプト本体
##########################################################

# キャッシュを読み込み
my $messagespp = XML::TreePP->new(
	output_encoding => $encode,
	force_array => [ "thread" ],
	first_out => ["id", "title", "link"],
	last_out => ["text","thread"]
);
$messages = $messagespp->parsefile($messagesfile);

# ログを読み込み
my $logpp = XML::TreePP->new(
	output_encoding => $encode
);
$log = $logpp->parsefile($logfile);
# カウンタを回す
if (!$nocount) {$log->{log}->{counter}++;}

# 前回の更新時間から $updateperiod 以上経っていればキャッシュを更新
if (time() > ($log->{log}->{lastupdatetime} + $updateperiod) || $force) {

	# index.html を取得
	my $res = URI::Fetch->fetch("$baseurl")
		or die URI::Fetch->errstr;
	
	# 文字コードを EUC から UTF-8 に変換
	$indexpage = $res->content();
	from_to ($indexpage, 'euc-jp', 'utf8');
	
	# 行ごとに分割し、記事のリストから新しい書き込みをキャッシュに追加
	my @indexlines = split(/\n/, $indexpage);
	@indexlines = reverse(@indexlines);
	my @ids;
	foreach my $indexline (@indexlines) {
		if ($indexline =~ /^([0-9]+): ([0-9]+)-([0-9]+)-([0-9]+) ([0-9]+):([0-9]+):([0-9]+) <a href=\"([0-9]+\.html)\">(.+)<\/a> (.+)<br>/) {
			(my $id, my $timestamp, my $link, my $title, my $author) = ("$1", &timeW3CDTF6("$2-$3-$4T$5:$6:$7+9:00"), "$8", "$9", "$10");
			@ids = (@ids, $id);
			if ($id > $log->{log}->{lastnewestnumber}) {
				my $res = URI::Fetch->fetch("$baseurl$link")
					or die URI::Fetch->errstr;
				my $textpage = $res->content();
				from_to ( $textpage, 'euc-jp' , 'utf8' );
				my @textlines = split(/\n/, $textpage);
				my $flag = 0;
				my $text;
				my @referers;	# リファラ
				foreach my $textline (@textlines) {
					if($textline =~ /<\/pre>/) {
						last;
					}
					if($flag) {
						# リファラを読み込む
						if($textline =~ /<a href=\"([0-9]+?)\.html\">&gt;&gt;(.+?)<\/a>/) {
							$textline =~ s/<a href=\"([0-9]+?)\.html\">&gt;&gt;(.+?)<\/a>/<a href=\"$baseurl$1\.html\">&gt;&gt;$2<\/a>/g;
							@referers = (@referers, $1);
						}
						if($textline =~/&lt;a href=\\\"([0-9]+?)\.html\\\"&gt;&gt;&gt;(.+?)&lt;\/a&gt;/) {
							$textline =~ s/&lt;a href=\\\"([0-9]+?)\.html\\\"&gt;&gt;&gt;(.+?)&lt;\/a&gt;/<a href=\"$baseurl$1\.html\">&gt;&gt;$2<\/a>/g;
							@referers = (@referers, $1);
						}
						
						# ほかのリンクタグはそのまま（ http:// がないものには $baseurl を加える）
						$textline =~s/<a href="(.+?)">(.+?)<\/a>/"<a href=\"".&absolute("$1")."\">$2<\/a>"/eg;
						
						# テキストを読み込む
						$text .= "$textline\n";
					}
					if($textline =~ /<hr>/) {
						$flag = 1;
					}
				}
				
				# リファラから、どこのスレッドなのか決定
				my @thread = "#0";
				if (@referers[0]) {
					foreach my $referer (@referers) {
						foreach my $message (@{$messages->{messages}->{message}}) {
							if ($message->{id} == $referer) {
								my $flag = 0;
								foreach $thread (@{$message->{thread}}) {
									foreach (@thread) {
										if ($thread eq "$_") {
											$flag =1;
											last;
										}
									}
									if (!$flag) {@thread = (@thread, "$thread");}
								}
							}
						}
					}
				}
				else {
					if($title =~ /^Re: (.+)/) {
						my $roottitle = $1;
						foreach my $message (@{$messages->{messages}->{message}}) {
							if($message->{title} eq "$roottitle" || $message->{title} eq "$title") {
								@thread = (@thread, "@{$message->{thread}}");
								last;
							}
						}
					}
				}
				shift(@thread);
				if (!@thread) {@thread = ("\#$id");}
				push(@{$messages->{messages}->{message}}, {"id" => "$id", "title" => "$title", "link" => "$link", "author" => "$author",
					"timestamp" => "$timestamp", "text" => "$text", "thread" => [@thread]});
				$log->{log}->{lastnewestnumber} = $id;
			}
		}
	}

	# スパム書き込み（欠番）を削除する
	my $latestid = $ids[0];
	my @spamids;
	foreach my $id (@ids) {
		if (($id - $latestid) != 1) {
			my $i;
			for ($i = 0; $i < ($id - $latestid - 1); $i++) {
				@spamids = (@spamids, ($latestid + $i + 1));
			}
		}
		$latestid = $id;
	}
	foreach my $spamid (@spamids) {
		my $i;
		for ($i = 0; $i < ($#{$messages->{messages}->{message}}+1); $i++) {
			if($messages->{messages}->{message}->[$i]->{id} == $spamid) {
				splice(@{$messages->{messages}->{message}}, $i, 1);
				$i--;
			}
		}
	}

	# キャッシュの数が $messagesfilelength より多ければキャッシュを削除する
	if ( ($#{$messages->{messages}->{message}} + 1 - $messagesfilelength)>0) {
		splice(@{$messages->{messages}->{message}}, 0, ($#{$messages->{messages}->{message}} + 1 - $messagesfilelength) );
	}

	$messagespp->writefile($messagesfile, $messages, $encode );
	$log->{log}->{lastupdatetime} = $presenttime;
}

# ログに書き込み
$logpp->writefile($logfile, $log, $encode);

close(LOCK);

@{$messages->{messages}->{message}} = reverse(@{$messages->{messages}->{message}});
##########################################################
# 新着 RSS 出力
##########################################################

if (!$thread) {
if (!$html) {

print <<EOF;
Content-type: application/xml

<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="style.xsl"?>
<rdf:RDF
	xmlns="http://purl.org/rss/1.0/"
	xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:admin="http://webns.net/mvcb/"
	xml:lang="ja">

<channel rdf:about="$scripturl$scriptname?$ARGV[0]">
<title>TeX Q &amp; A （新着）</title>
<link>$baseurl</link>
EOF

print "<description>".&normaltime($log->{log}->{lastupdatetime})." 更新（更新後 ".($updateperiod/60)." 分間はキャッシュを配信） $log->{log}->{counter}</description>\n";
print "<admin:generatorAgent rdf:resource=\"$scripturl$scriptname?$num";
if($sibelian&&$all){print "as";}
elsif($sibelian&&$list){print "ls";}
elsif($sibelian){print "s";}
elsif($list){print "l";}
elsif($all){print "a";}
print "\" />\n";
print "<items>\n";
print "<rdf:Seq>\n";

#&announcementlist();

my $count = 0;
foreach my $message (@{$messages->{messages}->{message}}) {
	$count++;
	if ($count > $num) {
		last;
	}
	if($sibelian) {
		$message->{link} =~ s/([0-9]+).html/$scriptname?th$1\#id$1/;
	} else {
		$message->{link} = "$baseurl$message->{link}";
	}
	print "<rdf:li rdf:resource=\"$message->{link}\" />\n";
}	
&adlist();

print "</rdf:Seq>\n";
print "</items>\n";
print "</channel>\n";

#&announcement();

my $count = 0;
foreach my $message (@{$messages->{messages}->{message}}) {
	$count++;
	if ($count > $num) {
		last;
	}
	&item($message);
}
&ad();

print "</rdf:RDF>\n"

}# end of if (!$html)


##########################################################
# 新着 XHTML 出力
##########################################################

else {	# if ($html)
@{$messages->{messages}->{message}} = reverse(@{$messages->{messages}->{message}});

print <<EOF;
Content-type: text/html

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />
<title>TeX Q &amp; A （新着）</title>
<link rel="alternate" type="application/rss+xml" title="TeX Q &amp; A （新着）" href="$scripturl$scriptname?a$num" />
<link rel="stylesheet" type="text/css" href="../style.css" />
<style type="text/css">
ul {
	margin-left: 0;
	padding-left: 0;
}
ul li {
	list-style-type: none;
	line-height : 130%;
}
pre {
	color: black;
	margin-left: 0em;
	line-height : 110%;
}
</style>
<script type="text/javascript" src="./rss.js"></script>
</head>
<body>
<!--nobanner-->
<h2><a href=\"$baseurl\">TeX Q &amp; A</a></h2>

<p>新 <a href="http://oku.edu.mie-u.ac.jp/tex/">TeXフォーラム</a> をぜひお試しください。</p>
<p><a href="http://oku.edu.mie-u.ac.jp/~okumura/texfaq/search.html">サイト内検索</a> (Powered by <a href="http://www.google.co.jp/">Google</a>)

<p>新しい話題の書き込みは<a href="post.html">こちらのページ</a>です。
<a href="http://oku.edu.mie-u.ac.jp/~okumura/texfaq/qa/6592.html">メールサービス</a>は<a href="http://oku.edu.mie-u.ac.jp/~okumura/">私</a>までメールでお申し込みください。
Sibelianさんが<a href="http://sibelian.jp.land.to/texqa/">RSS</a>を提供してくださっています。

<!-- <p><a href="/~okumura/texwiki/">TeX Wiki</a> の中で引用する際には [[qa:12345]] のようにお書きください。
自動でリンクが張られます。 -->

<p><em>◆</em>TeX Wikiの<a href="http://oku.edu.mie-u.ac.jp/~okumura/texwiki/?%E8%B3%AA%E5%95%8F%E3%81%AE%E3%81%97%E3%81%8B%E3%81%9F">質問のしかた</a>をぜひお読みください。

<p><em>◆</em>スパムが急増したため少し強い制約を付けました。もし書き込めない場合はご連絡ください。</p>

<h2>
EOF

if(!$list) {print "<a href=\"javascript:onClick=showall();\" id=\"allbutton\" name=\"allbutton\" class=\"showall\"><img src=\"./plusall.png\" style=\"border: 0;\" height=\"16\" width=\"16\" alt=\"showall\" /></a> ";}
print "書き込み一覧";
print " <a href=\"./$scriptname?$num";
if($list){print "l";}
print "\">\n";
print "<img src=\"../feed.png\" height=\"16\" width=\"16\" alt=\"{rss:channel/rss:title}\" border=\"0\" /></a>\n";
print " <a href=\"./$scriptname?$num";
if($list){print "l";}
print "\">\n";
print "<img src=\"./flat.png\" style=\"border: 0;\" height=\"16\" width=\"16\" alt=\"flat\" /></a>\n";
print "<select onchange=\"location.href='./rss.cgi?";
if($list){print "l";}
print "h'+this.value\">\n";
print <<EOF;
	<option selected="selected">表示件数</option>
	<option value="10">10件</option>
	<option value="20">20件</option>
	<option value="50">50件</option>
	<option value="100">100件</option>
	<option value="200">200件</option>
	<option value="300">300件</option>
	<option value="400">400件</option>
</select>
</h2>

<iframe src="http://ad.land.to/ad/adpc_if120x240.p" name="AD" id="AD" title="ad" width="120" height="250" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" align="right" style="margin: 1em .5em 0 1em;"><a href="http://land.to/index.php">Land.to</a></iframe>

EOF

if (($#{$messages->{messages}->{message}} + 1 -$num)>0) {
	splice(@{$messages->{messages}->{message}}, 0, ($#{$messages->{messages}->{message}} + 1 -$num) );
}

my $treepp = XML::TreePP->new(
	output_encoding => $encode,
	xml_decl => '',
	ignore_error => 1
);

%treelist;
$treenumber = 0;

sub newtag {
	if (($presenttime - $_[0]) < 86400) {
		"<span style=\"color: red;\">New!</span>";
	}
}

foreach my $message (@{$messages->{messages}->{message}}) {
	if($sibelian) {
		$message->{link} =~ s/([0-9]+).html/$scriptname?th$1\#id$1/;
	} else {
		$message->{link} = "$baseurl$message->{link}";
	}
	foreach (@{$message->{thread}}) {
		my $threadnumber;
		if($_ =~/([0-9]+)/){$threadnumber = $1;}
		if(!exists($treelist{$_})) {
			$treelist{$_} = $treenumber;
			$treenumber++;
			$tree->{ul}->{li}->[$treelist{$_}]->{-style} = "margin-top: 1em;";
			if ($list) {
				push(@{$tree->{ul}->{li}->[$treelist{$_}]->{ul}->{li}},{"#text" => "<a href=\"./$scriptname?tho$message->{id}\">▼</a> $message->{id}: ".&normaltime($message->{timestamp})." <a href=\"$message->{link}\">$message->{title}</a> $message->{author} ".&newtag($message->{timestamp})});
			} else {
				push(@{$tree->{ul}->{li}->[$treelist{$_}]->{ul}->{li}},{"#text" => "<a href=\"./$scriptname?tho$message->{id}\">▼</a> <a href=\"javascript:onClick=showthread('id$threadnumber')\" id=\"id$threadnumber"."button\" name=\"id$threadnumber"."button\" class=\"showthread\"><img src=\"./plusall.png\" style=\"border: 0;\" height=\"16\" width=\"16\" alt=\"showthread\"/></a> <a href=\"javascript:onClick=show('id$threadnumber-$message->{id}');\" id=\"id$threadnumber-$message->{id}button\" name=\"id$threadnumber-$message->{id}button\"><img src=\"./plus.png\" style=\"border: 0;\" height=\"9\" width=\"9\" alt=\"show\" /></a> $message->{id}: ".&normaltime($message->{timestamp})." <a href=\"$message->{link}\">$message->{title}</a> $message->{author} ".&newtag($message->{timestamp})."<div id=\"id$threadnumber-$message->{id}\" style=\"display:none; margin: .5em 5em .5em 3em; padding: .5em .5em .5em .5em; border: 3px solid #F99;\" class=\"content\"><pre>$message->{text}</pre></div>"});
			}
			$tree->{ul}->{li}->[$treelist{$_}]->{-title} = "$message->{timestamp}";
		} else {
			if($list) {
				push(@{$tree->{ul}->{li}->[$treelist{$_}]->{ul}->{li}},{"#text" => "　└ $message->{id}: ".&normaltime($message->{timestamp})." <a href=\"$message->{link}\">$message->{title}</a> $message->{author} ".&newtag($message->{timestamp})});
			} else {
				push(@{$tree->{ul}->{li}->[$treelist{$_}]->{ul}->{li}},{"#text" => "　　　└ <a href=\"javascript:onClick=show('id$threadnumber-$message->{id}');\" id=\"id$threadnumber-$message->{id}button\" name=\"id$threadnumber-$message->{id}button\"><img src=\"./plus.png\" style=\"border: 0;\" height=\"9\" width=\"9\" alt=\"show\" /></a> $message->{id}: ".&normaltime($message->{timestamp})." <a href=\"$message->{link}\">$message->{title}</a> $message->{author} ".&newtag($message->{timestamp})."<div id=\"id$threadnumber-$message->{id}\" style=\"display:none; margin: .5em 5em .5em 3em; padding: .5em .5em .5em .5em; border: 3px solid #F99;\" class=\"content\"><pre>$message->{text}</pre></div>"});
			}
			$tree->{ul}->{li}->[$treelist{$_}]->{ul}->{li}->[0]->{"#text"} =~ s/tho[0-9]+/tho$message->{id}/;
			$tree->{ul}->{li}->[$treelist{$_}]->{-title} = "$message->{timestamp}";
		}
	}
}


#@{$tree->{ul}->{li}} = reverse(@{$tree->{ul}->{li}});

my $temptree;
my $i,$j;
for ($j=0;$j<($#{$tree->{ul}->{li}});$j++) {
	for ($i=0;$i<($#{$tree->{ul}->{li}}-$j); $i++) {
		if ($tree->{ul}->{li}->[$i]->{-title} < $tree->{ul}->{li}->[$i+1]->{-title}) {
			$temptree = $tree->{ul}->{li}->[$i];
			$tree->{ul}->{li}->[$i] = $tree->{ul}->{li}->[$i+1];
			$tree->{ul}->{li}->[$i+1] = $temptree;
		}
	}
}

$source = $treepp->write( $tree, $encode );

$source =~ s/&lt;/</g;
$source =~ s/&gt;/>/g;
$source =~ s/&quot;/"/g;
$source =~ s/&apos;/'/g;
$source =~ s/&amp;/&/g;
$source =~ s/title=".+?"//g;
print "$source";

print "<hr />\n";

print "<div class=\"lastmodified\">".&normaltime($log->{log}->{lastupdatetime})." 更新（更新後 ".($updateperiod/60)." 分間はキャッシュを配信） $log->{log}->{counter}<br />\n";
$t2 = (times)[0];
$t3 = $t2 - $t1;
print "Generated by <a href=\"$scripturl\">$scriptname</a> $scriptversion ($scriptlastupdate) [".sprintf("%.2f",$t3)." sec]\n";
if ($ENV{HTTP_USER_AGENT} =~ /MSIE/) {
	print " <a href=\"http://getfirefox.jp/\"><img src=\"./firefox_80x15.png\" width=\"80\" height=\"15\" border=\"0\" alt=\"Get Firefox\" /></a>\n";
}
print "</div>\n";
print "</body>\n";
print "</html>\n";

}# end of if ($html)

} # end of if (!$thread)


##########################################################
# スレッド RSS 出力
##########################################################

elsif ($thread) {	# if ($thread)

# どのスレッドに属するかを調べる
my @threads;
@threads = "\#0";
foreach my $message (@{$messages->{messages}->{message}}) {
	if ($message->{id} == $num) {
		@threads = @{$message->{thread}};
	}
}

if(!$html) {
print <<EOF;
Content-type: application/xml

<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="style.xsl"?>
<rdf:RDF
	xmlns="http://purl.org/rss/1.0/"
	xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:admin="http://webns.net/mvcb/"
	xml:lang="ja">

<channel rdf:about="$scripturl$scriptname?$ARGV[0]">
EOF

if (@threads[0] eq "\#0") {
	print "<title>TeX Q &amp; A （該当するスレッドが見つかりません）</title>\n";
} else {
	print "<title>TeX Q &amp; A （スレッド @threads ）</title>\n";
}
print "<link>$scripturl$scriptname?th$num</link>\n";
print "<description>".&normaltime($log->{log}->{lastupdatetime})." 更新（更新後 ".($updateperiod/60)." 分間はキャッシュを配信） $log->{log}->{counter}</description>\n";
print "<admin:generatorAgent rdf:resource=\"$scripturl$scriptname?$num";
if($sibelian&&$all){print "as";}
elsif($sibelian&&$list){print "ls";}
elsif($sibelian){print "s";}
elsif($list){print "l";}
elsif($all){print "a";}
print "t\" />\n";
print "<items>\n";
print "<rdf:Seq>\n";

#&announcementlist();

foreach my $message (@{$messages->{messages}->{message}}) {
	foreach $thread (@threads) {
		foreach (@{$message->{thread}}) {
			if($thread eq "$_"){
				if($sibelian) {
					$message->{link} =~ s/([0-9]+).html/$scriptname?th$1\#id$1/;
				} else {
					$message->{link} = "$baseurl$message->{link}";
				}
				print "<rdf:li rdf:resource=\"$message->{link}\" />\n";
				last;
			}
		}
	}
}
&adlist();

print "</rdf:Seq>\n";
print "</items>\n";
print "</channel>\n";

#&announcement();

foreach my $message (@{$messages->{messages}->{message}}) {
	foreach $thread (@threads) {
		foreach (@{$message->{thread}}) {
			if($thread eq "$_"){
				&item($message);
				last;
			}
		}
	}
}
&ad();

print "</rdf:RDF>\n"
}	# end of if(!$html)

##########################################################
# スレッド XHTML 出力
##########################################################

else {	# if($html)

# 古いものから表示する場合
if ($old) {
	@{$messages->{messages}->{message}} = reverse(@{$messages->{messages}->{message}});
}

print <<EOF;
Content-type: text/html

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
EOF

if ($threads[0] eq "\#0") {
	print "<title>TeX Q &amp; A （該当するスレッドが見つかりません）</title>\n";
} else {
	print "<title>TeX Q &amp; A （スレッド @threads ）</title>\n";
}
print <<EOF;
<link rel="alternate" type="application/rss+xml" title="TeX Q &amp; A （スレッド $thread ）" href="$scripturl$scriptname?t$num" />
<link rel="stylesheet" type="text/css" href="../style.css" />
<style type="text/css">
ul li {
	list-style-type: none;
	line-height : 130%;
}
pre {
	color: black;
	margin-left: 0em;
	line-height : 110%
}
</style>
</head>
<body>
<!--nobanner-->
<iframe src="http://jp.land.to/ad/adpc_if.p" name="AD" id="AD" title="ad" width="468" height="70" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" align="right"><a href="http://land.to/index.php">Land.to</a></iframe>
EOF

print "<h1><a href=\"$baseurl\">TeX Q &amp; A</a></h1>\n";

if ($threads[0] eq "\#0") {
	print "<p>大量破壊兵器はイラクには見つかりませんでした。</p>\n";
	if ($num != 10) {
		print "<p>指定した書き込みが古すぎるかもしれません。<br />\n";
		print "<a href=\"$baseurl$num.html\">$baseurl$num.html</a> をお探しですか？</p>\n";
	} else {
		print "<p>たぶん、スレッドの指定方法が間違っています。<br />\n";
		print "<a href=\"$scripturl\">$scripturl</a> を読んで出直してきてください。</p>\n";
	}
} else {
	print "<h2><a id=\"index\" name=\"index\">スレッド @threads</a> <a href=\"./rss.cgi?t$num\"><img src=\"../feed.png\" height=\"16\" width=\"16\" alt=\"TeX Q &amp; A （スレッド @threads ）\" border=\"0\" /></a></h2>\n";
	print "<ul>\n";
	my @threadlist;
	foreach my $message (@{$messages->{messages}->{message}}) {
		my $flag = 0;
		foreach my $thread (@threads) {
			foreach (@{$message->{thread}}) {
				if($thread eq "$_"){
					$flag = 1;
				}
			}
		}
		if($flag) {
			if (!$old) {
				if ($message->{id} == $num) {
					print "<li><span style=\"color: red\">[qa:$message->{id}]</span> <a href=\"\#id$message->{id}\">$message->{title}</a> $message->{author}</li>\n";
				} else {
					print "<li>[qa:$message->{id}] <a href=\"\#id$message->{id}\">$message->{title}</a> $message->{author}</li>\n";
				}
			} else {
				if (!@threadlist) {
					if ($message->{id} == $num) {
						print "<li><span style=\"color: red\">[qa:$message->{id}]</span> <a href=\"\#id$message->{id}\">$message->{title}</a> $message->{author}</li>";
					} else {
						print "<li>[qa:$message->{id}] <a href=\"\#id$message->{id}\">$message->{title}</a> $message->{author}</li>";
					}
				} else {
					if ($message->{id} == $num) {
						print "<li>└ <span style=\"color: red\">[qa:$message->{id}]</span> <a href=\"\#id$message->{id}\">$message->{title}</a> $message->{author}</li>";
					} else {
						print "<li>└ [qa:$message->{id}] <a href=\"\#id$message->{id}\">$message->{title}</a> $message->{author}</li>";
					}
				}
			}
			@threadlist = (@threadlist, $message->{id});
		}
	}
	print "</ul>\n";
	print "<hr />\n";
	
	foreach my $message (@{$messages->{messages}->{message}}) {
		my $flag = 0;
		foreach my $thread (@threads) {
			foreach (@{$message->{thread}}) {
				if($thread eq "$_"){
					$flag = 1;
				}
			}
		}
		if($flag) {
			if ($message->{id} == $num) {
				print "<h2 style=\"border: 3px solid red;\"><a id=\"id$message->{id}\" name=\"id$message->{id}\">[qa:$message->{id}] $message->{title}</a> <a href=\"#index\"><img src=\"./index.png\" height=\"16\" width=\"16\" alt=\"スレッド $thread\" border=\"0\" /></a> <a href=\"$baseurl$message->{id}.html\"><img src=\"./texqa.png\" height=\"16\" width=\"16\" alt=\"[qa:$message->{id}] $message->{title}\" border=\"0\" /></a></h2>\n";
			} else {
				print "<h2><a id=\"id$message->{id}\" name=\"id$message->{id}\">[qa:$message->{id}] $message->{title}</a> <a href=\"#index\"><img src=\"./index.png\" height=\"16\" width=\"16\" alt=\"スレッド $thread\" border=\"0\" /></a> <a href=\"$baseurl$message->{id}.html\"><img src=\"./texqa.png\" height=\"16\" width=\"16\" alt=\"[qa:$message->{id}] $message->{title}\" border=\"0\" /></a></h2>\n";
			}
			print "<p>名前：$message->{author}<br />\n";
			print "日時：".&normaltime($message->{timestamp})."</p>\n";
			print "<pre>\n";
			my @textlines = split(/\n/, $message->{text});
			foreach my $textline (@textlines) {
				
				# リンクアンカーの処理
				$textline =~ s/<a href="$baseurl([0-9]+?).html">(.+?)<\/a>/&linkqa($1,$2,@threadlist)/eg;
				$textline =~ s/\s*$/\n/;
				print $textline;
			}
			print "</pre>\n";
		}
	}
}

print "<hr />\n";
print "<div class=\"lastmodified\">".&normaltime($log->{log}->{lastupdatetime})." 更新（更新後 ".($updateperiod/60)." 分間はキャッシュを配信） $log->{log}->{counter}<br />\n";
$t2 = (times)[0];
$t3 = $t2 - $t1;
print "Generated by <a href=\"$scripturl\">$scriptname</a> $scriptversion ($scriptlastupdate) [".sprintf("%.2f",$t3)." sec]\n";
if ($ENV{HTTP_USER_AGENT} =~ /MSIE/) {
	print " <a href=\"http://getfirefox.jp/\"><img src=\"./firefox_80x15.png\" width=\"80\" height=\"15\" border=\"0\" alt=\"Get Firefox\" /></a>\n";
}
print "</div>\n";
print "</body>\n";
print "</html>\n";
}	# end of if($html)

} # end of if($thread)