#!/usr/bin/perl

#Web Board Professional CGI Library (2004/05/02)
$ver = '2.27';
#
#Copyright(C) Knight 2002-2004
#Mail ... knight@big.or.jp
#Home ... http://www.big.or.jp/~knight/

### HTML出力
sub html {
	if ($mini_counter != 0) {
		if ($ENV{'REQUEST_METHOD'} ne 'POST' && $ENV{'QUERY_STRING'} eq '') {
			&count_up();
		}

		open(COUNT, "$count_log") || &error("カウントログファイルを読み出せません");
		$data = <COUNT>;
		close(COUNT);

		($sum, $today, $yesterday, $key) = split(/\t/, $data);
	}

	open(FILE, "$log_file") || &error("ログファイルを読み出せません");
	@logs = <FILE>;
	close(FILE);

	$no     = 0;
	$parent = 0;
	$date = '';
	$name = '';
	%child_logs = ();
	foreach (@logs) {
		if ($show_last_post == 1 && $_ + 0 > $no) {
			($no, $reno, $date, $name) = (split(/\t/))[0, 1, 2, 3];
		}
		if ((split(/\t/))[1] == 0) {
			$parent++;
		} else {
			$child_logs{(split(/\t/))[1]}++;
		}
	}

	&header();

	print <<"_HTML_";
<div class="link">
	<a href="$back_url">▲戻る</A> / 
	<a href="$script?mode=howto">使い方</a> / 
_HTML_

	if ($rank_mode == 1) {
		print qq|<a href="$script?mode=rank">ランキング</a> / \n|;
	}

	print <<"_HTML_";
	<a href="$script?mode=search">ログ検索</a> / 
	<a href="$script?mode=userdel">記事編集</a> / 
_HTML_

	if ($make_past == 1) {
		print qq|<a href="$script?mode=past">過去ログ</a> / \n|;
	}

	print <<"_HTML_";
	<a href="$script?mode=admin">管理者用</a>
</div>
<div align="right">
_HTML_

	if ($show_last_post == 1) {
		($sec, $min, $hour, $day, $mon, $year, $week) = localtime($date);
		$date = sprintf("%02d/%02d-%02d:%02d", $mon + 1, $day, $hour, $min);
		print qq|LastPost $date $name\n|;
	}
	if ($mini_counter == 1) {
		$counter = sprintf("%0${count_figure}d", $sum);
		if ($count_img == 1) {
			$counter =~ s/(.)/<img src="$count_img_dir$1$count_img_ext" alt="$1">/g;
		}
		print qq|Access $counter\n|;
	}

	print <<"_HTML_";
</div>
<div class="title">
_HTML_

	if ($title_img ne '') {
		print qq|<br><img src="$title_img" alt="$title" width="$title_width" height="$title_height"><br><br>\n|;
	} else {
		print qq|<h1>$title</h1>\n|;
	}

	print <<"_HTML_";
	$top_message<br>
	<br>
</div>
<hr>
_HTML_

	&form();
	&navigator();
	&showlog();
	&navigator();

	print qq|<div class="link">ページ移動 /|;
	foreach (0 .. int(($parent - 1) / $page_size)) {
		$page_info = $_ + 1;
		if ($in{'page'} == 0 && $page_info > $max_page_info) {
			print qq| [<A href="$script?page=$_">ShowNext</A>]|;
			last;
		}
		if ($in{'page'} == $_) {
			print qq| [$page_info]|;
		} else {
			print qq| [<a href="$script?page=$_">$page_info</a>]|;
		}
	}
	print qq|</div><hr>\n|;

	&footer();
}

### 投稿フォーム表示
sub form {
	if ($ENV{'REQUEST_METHOD'} ne 'POST') {
		%cookie = &get_cookie($cookie_id);
		if ($cookie{'url'} eq '') {
			$cookie{'url'} = 'http://';
		}
		if ($cookie{'color'} eq '') {
			$cookie{'color'} = $color[0];
		}
	}

	if ($in{'mode'} eq 'res') {
		$subj   = 'Re:' . (split(/\t/, $logs[0]))[6];
		$text   = '';
		$mode   = 'regist';
		$submit = '返信する';
	} elsif ($in{'mode'} eq 'userdel') {
		%cookie = &get_cookie($cookie_id);

		$in{'no'}        = $reno;
		$cookie{'name'}  = $name;
		$cookie{'mail'}  = $mail;
		$cookie{'url'}   = $url;
		$text            =~ s/<br>/\n/g;
		$cookie{'color'} = $color;
		$cookie{'icon'}  = $icon;
		$cookie{'pwd'}   = $in{'user_pwd'};
		$mode            = 'userdel';
		$submit          = '修正する';
	} elsif ($in{'mode'} eq 'admin') {
		$in{'no'}        = $reno;
		$cookie{'name'}  = $name;
		$cookie{'mail'}  = $mail;
		$cookie{'url'}   = $url;
		$text            =~ s/<br>/\n/g;
		$cookie{'color'} = $color;
		$cookie{'icon'}  = $icon;
		$in{'user_pwd'}  = $pwd;
		$mode            = 'admin';
		$submit          = '修正する';
	} else {
		$subj     = '';
		$in{'no'} = 0;
		$text     = '';
		$mode     = 'regist';
		$submit   = '投稿する';
	}

	if ($script_mode == 1) {
		$check_form = qq| onSubmit="return checkForm()" onReset="return checkReset()"|;
	}

	if ($cookie_save_mode == 1) {
		print <<"_HTML_";
<script type="text/javascript">
<!--

//一時保存クッキーの識別名
var cookieName = "$cookie_save_id";

//一時保存クッキーの保存日数
var cookieHold = $cookie_save_days;

//保存内容呼出
function Call() {
	var allCookies = new Array();
	var cookies    = new Array();
	var icon       = new Array();
	var i;

	if (document.form.icon) {
		i = 0;
		while (i < document.form.icon.length) {
			icon.push(document.form.icon[i].value);
			i++;
		}
	}

	allCookies = document.cookie.split("; ");

	i = 0;
	while (allCookies[i]){
		if (allCookies[i].substr(0, (cookieName.length + 1)) == (cookieName + "=")) {
			cookies = allCookies[i].substr((cookieName.length + 1), allCookies[i].length).split("%00");
			break;
		}
		i++;
	}

	if (document.form.name && cookies[0]) {
		document.form.name.value = unescape(cookies[0]);
	}
	if (document.form.mail && cookies[1]) {
		document.form.mail.value = unescape(cookies[1]);
	}
	if (document.form.url && cookies[2]) {
		document.form.url.value = unescape(cookies[2]);
	}
	if (document.form.subj && cookies[3]) {
		document.form.subj.value = unescape(cookies[3]);
	}
	if (document.form.text && cookies[4]) {
		document.form.text.value = unescape(cookies[4]);
	}
	if (document.form.icon && cookies[5]) {
		i = 0;
		while (i < document.form.icon.length) {
			if (unescape(cookies[5]) == icon[i]) {
				break;
			}
			i++;
		}
		document.form.icon.options[i].selected = true;
	}
	if (document.form.color && cookies[6]) {
		document.form.color[cookies[6]].checked = true;
	}
	if (document.form.pwd && cookies[7]) {
		document.form.pwd.value = unescape(cookies[7]);
	}

	alert('一時的に保存された内容を呼び出しました。');

	return true;
}

//入力内容保存
function Save() {
	var cookies = new Array();
	var expires = new Date();
	var i;

	if (document.form.name) {
		cookies[0] = escape(document.form.name.value);
	}
	if (document.form.mail) {
		cookies[1] = escape(document.form.mail.value);
	}
	if (document.form.url) {
		cookies[2] = escape(document.form.url.value);
	}
	if (document.form.subj) {
		cookies[3] = escape(document.form.subj.value);
	}
	if (document.form.text) {
		cookies[4] = escape(document.form.text.value);
	}
	if (document.form.icon) {
		cookies[5] = escape(document.form.icon.value);
	}
	if (document.form.color) {
		i = 0;
		while (i < document.form.color.length) {
			if (document.form.color[i].checked == true) {
				cookies[6] = i;
			}
			i++;
		}
	}
	if (document.form.pwd) {
		cookies[7] = escape(document.form.pwd.value);
	}

	expires.setTime(expires.getTime() + 1000 * 60 * 60 * 24 * cookieHold);

	document.cookie = cookieName + "=" + cookies.join("%00") + "; expires=" + expires.toGMTString();

	alert('入力内容を一時的に保存しました。');

	return true;
}

//保存内容消去
function Del() {
	if (confirm('一時的に保存した内容を消去します。よろしいですか？')) {
		document.cookie = cookieName + "=;";
		alert('一時的に保存された内容を消去しました。');
	}

	return true;
}

//-->
</script>
_HTML_
	}

	print <<"_HTML_";
<a name="form"></a>
<p class="form">
	<form action="$script" method="post" name="form" $check_form>
		<table class="form_table">
			<tr>
				<td class="form_table_head">名前</td>
				<td class="form_table_data"><input type="text" name="name" size="32" value="$cookie{'name'}"></td>
			</tr>
			<tr>
				<td class="form_table_head">Ｅメール</td>
				<td class="form_table_data"><input type="text" name="mail" size="32" value="$cookie{'mail'}"></td>
			</tr>
			<tr>
				<td class="form_table_head">ＵＲＬ</td>
				<td class="form_table_data">
					<input type="text" name="url" size="50" value="$cookie{'url'}">
_HTML_

	if ($in{'mode'} ne 'res') {
		print <<"_HTML_";
				</td>
			</tr>
			<tr>
				<td class="form_table_head">題名</td>
				<td class="form_table_data">
					<input type="text" name="subj" size="50" value="$subj">
_HTML_
	} else {
		print <<"_HTML_";
					<input type="hidden" name="subj" value="$subj">
_HTML_
	}

	print <<"_HTML_";
					<input type="hidden" name="mode" value="$mode">
					<input type="hidden" name="reno" value="$in{'no'}">
					<input type="submit" value="$submit" class="submit">
					<input type="reset" value="リセット" class="reset">
					<input type="hidden" name="no" value="$no">
					<input type="hidden" name="date" value="$date">
					<input type="hidden" name="admin_pwd" value="$in{'admin_pwd'}">
					<input type="hidden" name="user_pwd" value="$in{'user_pwd'}">
					<input type="hidden" name="rank" value="$rank">
					<input type="hidden" name="host" value="$host">
				</td>
			</tr>
			<tr>
				<td class="form_table_head">本文</td>
				<td class="form_table_data"><textarea name="text" cols="60" rows="6" wrap="soft">$text</textarea></td>
			</tr>
_HTML_

	if ($icon_mode == 1) {
		print <<"_HTML_";
			<tr>
				<td class="form_table_head">アイコン</td>
				<td class="form_table_data">
					<select name="icon">
						<option value="">その他</option>
_HTML_

		if ($personal_icon == 1) {
			push(@icon, @personal_icon);
		}
		if ($admin_key ne '') {
			push(@icon, @admin_icon);
		}

		@new = ();
		foreach (@icon) {
			if ($_ ne '') {
				push(@new, $_);
			}
		}
		@icon = @new;

		while (scalar(@icon) != 0) {
			$icon_file = shift(@icon);
			$icon_name = shift(@icon);
			if ($cookie{'icon'} eq $icon_file) {
				print qq|<option value="$icon_file" selected>$icon_name</option>\n|;
			} else {
				print qq|<option value="$icon_file">$icon_name</option>\n|;
			}
		}

		print <<"_HTML_";
					</select>
					<a href="$script?mode=icon">アイコン一覧</a>
				</td>
			</tr>
_HTML_
	}

	if ($color_mode == 1) {
		print <<"_HTML_";
			<tr>
				<td class="form_table_head">本文の色</td>
				<td class="form_table_data">
_HTML_

		foreach (@color) {
			if ($_ eq '') {
				next;
			}

			if ($cookie{'color'} eq $_) {
				print qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio" checked><label for="radio_$_" style="color:$_;">■</label> / |;
			} else {
				print qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio"><label for="radio_$_" style="color:$_;">■</label> / |;
			}
		}

		print <<"_HTML_";
				</td>
			</tr>
_HTML_
	}

	if ($in{'mode'} ne 'admin') {
		print <<"_HTML_";
			<tr>
				<td class="form_table_head">削除キー</td>
				<td class="form_table_data"><input type="password" name="pwd" size="20" value="$cookie{'pwd'}"></td>
			</tr>
_HTML_
	}

	print <<"_HTML_";
			<tr>
				<td align="right" colspan="2" class="form_table_data">
_HTML_

	if ($cookie_save_mode == 1) {
		print qq|<input type="button" value="保存" class="button" onClick="Save();">\n|;
		print qq|<input type="button" value="呼出" class="button" onClick="Call();">\n|;
		print qq|<input type="button" value="消去" class="button" onClick="Del();">\n|;
	}

	if ($show_preview == 0 || $in{'mode'} eq 'userdel' || $in{'mode'} eq 'admin') {
		print qq|<input type="hidden" name="preview" value="off">\n|;
	} elsif ($show_preview == 1) {
		if ($cookie{'preview'} eq 'on') {
			print qq|<input type="checkbox" name="preview" id="checkbox_preview" value="on" class="checkbox" checked>|;
		} else {
			print qq|<input type="checkbox" name="preview" id="checkbox_preview" value="on" class="checkbox">|;
		}
		print ' <label for="checkbox_preview">プレビューを表示</label>';
	} else {
		print qq|<input type="hidden" name="preview" value="on">\n|;
	}

	print <<"_HTML_";
				</td>
			</tr>
		</table>
	</form>
</p>
<hr>
_HTML_

	return;
}

### 投稿記事表示
sub showlog {
	$start = $in{'page'} * $page_size;
	$end   = $start + $page_size;

	$i = 0;
	$flag = 0;
	foreach (@logs) {
		($no, $reno, $date, $name, $mail, $url, $subj, $text, $color, $icon, $file, $rank, $pwd, $host) = split(/\t/);

		if ($in{'mode'} eq 'search' || $reno == 0) {
			$i++;
		}
		if ($i <= $start) {
			next;
		}
		if ($i > $end) {
			last;
		}

		if ($new_date != 0 && time() - $date < $new_date * 24 * 60 * 60 && $in{'preview'} ne 'on') {
			$new = $new_mark;
		} else {
			$new = '';
		}

		($sec, $min, $hour, $day, $mon, $year, $week) = localtime($date);
		@week = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
		$date = sprintf("%04d/%02d/%02d/%s/%02d:%02d", $year + 1900, $mon + 1, $day, $week[$week], $hour, $min);

		if ($mail ne '') {
			$mail = qq|/ <a href="mailto:$mail">Ｅメール</a>|;
		}
		if ($url ne '') {
			$url = qq|/ <a href="$url" target="_blank">ＵＲＬ</a>|;
		}

		if ($replace_mode == 1) {
			$text =~ s/\/\+([^+]+)\+\//<big>$1<\/big>/gi;
			$text =~ s/\/\-([^-]+)\-\//<small>$1<\/small>/gi;
			$text =~ s/\/\!([^!]+)\!\//<b>$1<\/b>/gi;
			$text =~ s/\/i([^i]+)i\//<i>$1<\/i>/gi;
			$text =~ s/\/s([^s]+)s\//<s>$1<\/s>/gi;
			$text =~ s/\/\'([^']+)\'\//<span style="color:$replace_color;">$1<\/span>/gi;
			$text =~ s/\/h\//<span style="color:#FF69B4;">&hearts;<\/span>/gi;
		}

		if ($refer_mode == 1 && $in{'mode'} eq 'res') {
			$ref_text = $text;

			$ref_text =~ s/<br>/\\n&gt; /g;
			$ref_text =~ s/<[^<]*>//gi;

			$ref_text =~ s/&quot;/”/g;
			$ref_text =~ s/&lt;(script|\/script)(\s*)([^&]*)\s*&gt;/＜$1$2$3＞/gi;

			$ref_text =~ s/&hearts;/\/h\//gi;
			$ref_text = '&gt; ' . $ref_text;
			$ref_text =~ s/&lt;/</g;
			$ref_text =~ s/&gt;/>/g;

			print <<"_HTML_";
<script type="text/javascript">
<!--
var text$no = "$ref_text";
//-->
</script>
_HTML_
			$ref = qq|/ <a href="javascript:void(0)" onClick="document.form.text.value=text$no" onmouseover="return window.status='本文を引用'" onmouseout="return window.status=''">引用</a>|;
		}

		if ($auto_link == 1) {
			$text = &auto_link($text);
		}
		if ($color_mode == 1) {
			if ($color eq '') {
				$color = $color[0];
			}
			$text = qq|<span style="color:$color;">$text</span>|;
		}
		if ($ref_color ne '') {
			$text =~ s/([\>]|^)(&gt;|＞)([^<]*)/$1<span style=\"color:$ref_color;\">$2$3<\/span>/g;
		}

		if ($icon_mode == 1 && $icon ne '') {
			$icon = qq|<img src="$iconfile_dir$icon" alt="$icon" hspace="10">|;
		} else {
			$icon = '&nbsp;';
		}

		if ($rank_mode == 1 && $in{'preview'} ne 'on') {
			$j = 0;
			foreach (0 .. (($#class - 1) / 2)) {
				$class_cont = $class[$j];
				$now_rank = '';
				$j++;
				if ($rank < $class_cont) {
					if ($rank_show == 1 && $rank ne '' && $rank != 0) {
						$now_rank = " … $rank回";
					}
					$class = " ($class_name$now_rank)";
					last;
				}
				$class_name = $class[$j];
				$j++;
			}
		} else {
			$class = '';
		}

		chop($host);

		if (($in{'mode'} eq 'search' && $in{'no'} eq '' && $flag == 1) || ($flag == 1 && $reno == 0)) {
			if ($quick_link == 1) {
				print $quick_bar;
			}

			print <<"_HTML_";
	</table>
</p>
_HTML_
		}

		if (($in{'mode'} eq 'search' && $in{'no'} eq '') || $reno == 0) {
			$flag  = 1;
			$resno = 0;

			if ($in{'mode'} eq '') {
				if ($max_res_size != 0 && ($child_logs{"$no"} + 0) >= $max_res_size) {
					$res = '';
					$max_res_info = '[<span class="warning">これ以上返信できません</span>]';
				} else {
					$res = qq|/ <a href="$script?mode=res&no=$no#form">返信</a>|;
					$max_res_info = '';
				}

				if ($quick_link == 1 && $reno == 0) {
					$quick_bar = <<"_HTML_";
		<tr>
			<td align="right" colspan="2" class="log_table_head">
_HTML_
					if ($show_res_size != 0) {
						$quick_bar .= qq|/ <a href="$script?mode=res&no=$no">全レスを表\示する</a>\n|;
					}

					if ($max_res_info eq '') {
						$quick_bar .= qq|/ <a href="$script?mode=res&no=$no#form">返信する</a>\n|;
					}

					$quick_bar .= <<"_HTML_";
				/ <a href="$back_url">戻る</a>
			</td>
		</tr>
_HTML_
				}
			}

			if ($show_res_size != 0 && $in{'mode'} eq '' && $child_logs{"$no"} > $show_res_size) {
				$all_show_info = qq|[<a href="$script?mode=res&no=$no">全レス表\示</a>]|;
			} elsif ($in{'mode'} eq 'search' && $in{'no'} eq '') {
				if ($reno == 0) {
					$show = $no;
				} else {
					$show = $reno;
				}
				$all_show_info = qq|[<a href="$script?mode=search&obje=$in{'obje'}&no=$show">関連記事を表\示</a>]|;
			} else {
				$all_show_info = '';
			}

			if ($in{'mode'} ne 'new' && $in{'mode'} ne 'search') {
				$threadno = '[' . ($resno + 1) . ']';
			}

			print <<"_HTML_";
<p class="log">
	<table class="log_table">
		<tr>
			<td class="log_table_head">■ <strong>$subj</strong></td>
			<td align="right" class="log_table_head">$res</td>
		</tr>
		<tr>
			<td colspan="2" class="log_table_data">
				$threadno $name$class $mail $url / $date (No.$no) $ref $new<br>
				<br>
				<table width="100%">
					<tr>
						<td class="log_table_indent">$icon</td>
						<td>$text</td>
						<td class="log_table_indent">&nbsp;</td>
					</tr>
				</table>
				<div align="right">$max_res_info $all_show_info<br></div>
			</td>
		</tr>
_HTML_
		} else {
			$resno++;
			if ($show_res_size != 0 && $child_logs{"$reno"}-- > $show_res_size) {
				next;
			}
			if ($show_res_size != 0) {
				$res_show_info = "[Re:$resno]";
			}

			if ($in{'mode'} ne 'new' && $in{'mode'} ne 'search') {
				$threadno = '[' . ($resno + 1) . ']';
			}

			print <<"_HTML_";
		<tr>
			<td class="log_table_data" colspan="2">
				$threadno $name$class $mail $url / $date (No.$no) $ref $new<br>
				<br>
				<table width="100%">
					<tr>
						<td class="log_table_indent">$icon</td>
						<td>$text</td>
						<td class="log_table_indent">&nbsp;</td>
					</tr>
				</table>
				<br>
			</td>
		</tr>
_HTML_
		}
	}

	if ($quick_link == 1) {
		print $quick_bar;
	}

	print <<"_HTML_";
	</table>
</p>
_HTML_

	return;
}

### ページナビゲーター表示
sub navigator {
	$new  = '最新の投稿';
	$prev = '↑前のページ';
	$next = '↓次のページ';

	if ($in{'page'} > 0) {
		$new  = qq|<a href="$script">$new</a>|;
	}
	if ($in{'page'} > 0) {
		$n = $in{'page'} - 1;
		$prev = qq|<a href="$script?page=$n">$prev</a>|;
	}
	if (int(($parent - 1) / $page_size) > $in{'page'}) {
		$n = $in{'page'} + 1;
		$next = qq|<a href="$script?page=$n">$next</a>|;
	}

	print qq|<p class="navi">$new / $prev / $next</p>\n|;

	return;
}

1;