#!/usr/bin/perl

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

### メイン処理
sub skin {
	&read_data();
	&skin_init();

	&skin_header();
	&skin_title();
	&skin_form();
	&skin_log();
	&skin_navi();
	&skin_link();
	&skin_footer();
}

### データ読み込み
sub read_data {
	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);

		$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;
		}
	}

	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]}++;
		}
	}

	if ($show_last_post == 1) {
		($sec, $min, $hour, $day, $mon, $year, $week) = localtime($date);
		$last_post = sprintf("%02d/%02d-%02d:%02d", $mon + 1, $day, $hour, $min);
_HTML_
	}

	$link_info = '';
	foreach (0 .. int(($parent - 1) / $page_size)) {
		$page_info = $_ + 1;
		if ($in{'page'} == 0 && $page_info > $max_page_info) {
			$link_info .= qq| [<a href="$script?page=$_">ShowNext</a>]|;
			last;
		}
		if ($in{'page'} == $_) {
			$link_info .= qq| [$page_info]|;
		} else {
			$link_info .= qq| [<a href="$script?page=$_">$page_info</a>]|;
		}
	}

	return;
}

### 初期化処理
sub skin_init {
	open(SKIN, "$skin_file") || &skin_error();
	@skin = <SKIN>;
	close(SKIN);

	$skin_header   = '';
	$skin_title    = '';
	$skin_form     = '';
	$skin_loghead  = '';
	$skin_parent   = '';
	$skin_res      = '';
	$skin_undervar = '';
	$skin_logfoot  = '';
	$skin_navi     = '';
	$skin_link     = '';
	$skin_footer   = '';
	$skin_info     = '';
	foreach (@skin) {
		if ($_ =~ /<!--HEADER_START-->/) {
			$skin_info = 'header';
			next;
		} elsif ($_ =~ /<!--HEADER_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--TITLE_START-->/) {
			$skin_info = 'title';
			next;
		} elsif ($_ =~ /<!--TITLE_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--FORM_START-->/) {
			$skin_info = 'form';
			next;
		} elsif ($_ =~ /<!--FORM_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--LOGHEAD_START-->/) {
			$skin_info = 'loghead';
			next;
		} elsif ($_ =~ /<!--LOGHEAD_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--PARENT_START-->/) {
			$skin_info = 'parent';
			next;
		} elsif ($_ =~ /<!--PARENT_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--RES_START-->/) {
			$skin_info = 'res';
			next;
		} elsif ($_ =~ /<!--RES_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--UNDERVAR_START-->/) {
			$skin_info = 'undervar';
			next;
		} elsif ($_ =~ /<!--UNDERVAR_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--LOGFOOT_START-->/) {
			$skin_info = 'logfoot';
			next;
		} elsif ($_ =~ /<!--LOGFOOT_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--NAVI_START-->/) {
			$skin_info = 'navi';
			next;
		} elsif ($_ =~ /<!--NAVI_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--LINK_START-->/) {
			$skin_info = 'link';
			next;
		} elsif ($_ =~ /<!--LINK_END-->/) {
			$skin_info = '';
			next;
		} elsif ($_ =~ /<!--FOOTER_START-->/) {
			$skin_info = 'footer';
			next;
		} elsif ($_ =~ /<!--FOOTER_END-->/) {
			$skin_info = '';
			next;
		}

		if ($skin_info eq 'header') {
			$skin_header .= $_;
		} elsif ($skin_info eq 'title') {
			$skin_title .= $_;
		} elsif ($skin_info eq 'form') {
			$skin_form .= $_;
		} elsif ($skin_info eq 'loghead') {
			$skin_loghead .= $_;
		} elsif ($skin_info eq 'parent') {
			$skin_parent .= $_;
		} elsif ($skin_info eq 'res') {
			$skin_res .= $_;
		} elsif ($skin_info eq 'undervar') {
			$skin_undervar .= $_;
		} elsif ($skin_info eq 'logfoot') {
			$skin_logfoot .= $_;
		} elsif ($skin_info eq 'navi') {
			$skin_navi .= $_;
		} elsif ($skin_info eq 'link') {
			$skin_link .= $_;
		} elsif ($skin_info eq 'footer') {
			$skin_footer .= $_;
		}
	}

	return;
}

### ヘッダ
sub skin_header {
	$skin_header = &skin_basic($skin_header);

	print "Content-Type: text/html\n\n";
	print $skin_header;

	return;
}

### タイトル
sub skin_title {
	$skin_title = &skin_basic($skin_title);

	print $skin_title;

	return;
}

### フォーム
sub skin_form {
	$skin_form = &skin_basic($skin_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 ($personal_icon == 1) {
		push(@icon, @personal_icon);
	}
	if ($admin_key ne '') {
		push(@icon, @admin_icon);
	}

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

	if ($in{'mode'} eq 'res') {
		$subj = 'Re:' . (split(/\t/, $logs[0]))[6];

		$skin_form =~ s/\$COOKIE_NAME/$cookie{'name'}/g;
		$skin_form =~ s/\$COOKIE_MAIL/$cookie{'mail'}/g;
		$skin_form =~ s/\$COOKIE_URL/$cookie{'url'}/g;
		$skin_form =~ s/\$COOKIE_PWD/$cookie{'pwd'}/g;
		if ($cookie{'preview'} eq 'on') {
			$skin_form =~ s/\$COOKIE_PREVIEW/ checked/g;
		} else {
			$skin_form =~ s/\$COOKIE_PREVIEW//g;
		}

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

			if ($cookie{'color'} eq $_) {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio" checked><label for="radio_$_" style="color:$_;">■</label> / |;
			} else {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio"><label for="radio_$_" style="color:$_;">■</label> / |;
			}
		}
		$skin_form =~ s/\$COOKIE_COLOR/$color_info/g;

		$icon_info = '';
		$icon_info .= qq|<select name="icon"><option value="">その他</option>\n|;
		while (scalar(@icon) != 0) {
			$icon_file = shift(@icon);
			$icon_name = shift(@icon);
			if ($cookie{'icon'} eq $icon_file) {
				$icon_info .= qq|<option value="$icon_file" selected>$icon_name</option>\n|;
			} else {
				$icon_info .= qq|<option value="$icon_file">$icon_name</option>\n|;
			}
		}
		$icon_info .= qq|</select>\n|;
		$skin_form =~ s/\$COOKIE_ICON/$icon_info/g;

		$skin_form =~ s/<!--FORM_SUBJ_START-->/<!--/g;
		$skin_form =~ s/<!--FORM_SUBJ_END-->/-->\n<input type="hidden" name="subj" value="$subj">/g;

		$skin_form =~ s/\$FORM_SUBJ/$subj/g;
		$skin_form =~ s/\$FORM_TEXT//g;
		$skin_form =~ s/\$FORM_MODE/regist/g;
		$skin_form =~ s/\$FORM_RENO/$in{'no'}/g;
		$skin_form =~ s/\$FORM_NO//g;
		$skin_form =~ s/\$FORM_DATE//g;
 		$skin_form =~ s/\$FORM_ADMINPWD//g;
		$skin_form =~ s/\$FORM_USERPWD//g;
		$skin_form =~ s/\$FORM_RANK//g;
		$skin_form =~ s/\$FORM_HOST//g;
	} elsif ($in{'mode'} eq 'userdel') {
		%cookie = &get_cookie($cookie_id);
		$cookie{'color'} = $color;
		$cookie{'icon'}  = $icon;
		$text            =~ s/<br>/\n/g;

		$skin_form =~ s/\$COOKIE_NAME/$name/g;
		$skin_form =~ s/\$COOKIE_MAIL/$mail/g;
		$skin_form =~ s/\$COOKIE_URL/$url/g;
		$skin_form =~ s/\$COOKIE_PWD/$in{'user_pwd'}/g;
		$skin_form =~ s/\$COOKIE_PREVIEW//g;

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

			if ($cookie{'color'} eq $_) {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio" checked><label for="radio_$_" style="color:$_;">■</label> / |;
			} else {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio"><label for="radio_$_" style="color:$_;">■</label> / |;
			}
		}
		$skin_form =~ s/\$COOKIE_COLOR/$color_info/g;

		$icon_info = '';
		$icon_info .= qq|<select name="icon"><option value="">その他</option>\n|;
		while (scalar(@icon) != 0) {
			$icon_file = shift(@icon);
			$icon_name = shift(@icon);
			if ($cookie{'icon'} eq $icon_file) {
				$icon_info .= qq|<option value="$icon_file" selected>$icon_name</option>\n|;
			} else {
				$icon_info .= qq|<option value="$icon_file">$icon_name</option>\n|;
			}
		}
		$icon_info .= qq|</select>\n|;
		$skin_form =~ s/\$COOKIE_ICON/$icon_info/g;

		$skin_form =~ s/\$FORM_SUBJ/$subj/g;
		$skin_form =~ s/\$FORM_TEXT/$text/g;
		$skin_form =~ s/\$FORM_MODE/userdel/g;
		$skin_form =~ s/\$FORM_RENO/$reno/g;
		$skin_form =~ s/\$FORM_NO/$no/g;
		$skin_form =~ s/\$FORM_DATE/$date/g;
 		$skin_form =~ s/\$FORM_ADMINPWD//g;
		$skin_form =~ s/\$FORM_USERPWD/$in{'user_pwd'}/g;
		$skin_form =~ s/\$FORM_RANK/$rank/g;
		$skin_form =~ s/\$FORM_HOST/$host/g;

		$skin_form =~ s/<!--FORM_PREVIEW_START-->/<!--/g;
		$skin_form =~ s/<!--FORM_PREVIEW_END-->/-->/g;
	} elsif ($in{'mode'} eq 'admin') {
		$cookie{'color'} = $color;
		$cookie{'icon'}  = $icon;
		$text            =~ s/<br>/\n/g;

		$skin_form =~ s/\$COOKIE_NAME/$name/g;
		$skin_form =~ s/\$COOKIE_MAIL/$mail/g;
		$skin_form =~ s/\$COOKIE_URL/$url/g;
		$skin_form =~ s/\$COOKIE_PWD/$pwd/g;
		$skin_form =~ s/\$COOKIE_PREVIEW//g;

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

			if ($cookie{'color'} eq $_) {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio" checked><label for="radio_$_" style="color:$_;">■</label> / |;
			} else {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio"><label for="radio_$_" style="color:$_;">■</label> / |;
			}
		}
		$skin_form =~ s/\$COOKIE_COLOR/$color_info/g;

		$icon_info = '';
		$icon_info .= qq|<select name="icon"><option value="">その他</option>\n|;
		while (scalar(@icon) != 0) {
			$icon_file = shift(@icon);
			$icon_name = shift(@icon);
			if ($cookie{'icon'} eq $icon_file) {
				$icon_info .= qq|<option value="$icon_file" selected>$icon_name</option>\n|;
			} else {
				$icon_info .= qq|<option value="$icon_file">$icon_name</option>\n|;
			}
		}
		$icon_info .= qq|</select>\n|;
		$skin_form =~ s/\$COOKIE_ICON/$icon_info/g;

		$skin_form =~ s/\$FORM_SUBJ/$subj/g;
		$skin_form =~ s/\$FORM_TEXT/$text/g;
		$skin_form =~ s/\$FORM_MODE/admin/g;
		$skin_form =~ s/\$FORM_RENO/$reno/g;
		$skin_form =~ s/\$FORM_NO/$no/g;
		$skin_form =~ s/\$FORM_DATE/$date/g;
 		$skin_form =~ s/\$FORM_ADMINPWD/$in{'admin_pwd'}/g;
		$skin_form =~ s/\$FORM_USERPWD/$pwd/g;
		$skin_form =~ s/\$FORM_RANK/$rank/g;
		$skin_form =~ s/\$FORM_HOST/$host/g;

		$skin_form =~ s/<!--FORM_PWD_START-->/<!--/g;
		$skin_form =~ s/<!--FORM_PWD_END-->/-->/g;

		$skin_form =~ s/<!--FORM_PREVIEW_START-->/<!--/g;
		$skin_form =~ s/<!--FORM_PREVIEW_END-->/-->/g;
	} else {
		$skin_form =~ s/\$COOKIE_NAME/$cookie{'name'}/g;
		$skin_form =~ s/\$COOKIE_MAIL/$cookie{'mail'}/g;
		$skin_form =~ s/\$COOKIE_URL/$cookie{'url'}/g;
		$skin_form =~ s/\$COOKIE_PWD/$cookie{'pwd'}/g;
		if ($cookie{'preview'} eq 'on') {
			$skin_form =~ s/\$COOKIE_PREVIEW/ checked/g;
		} else {
			$skin_form =~ s/\$COOKIE_PREVIEW//g;
		}

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

			if ($cookie{'color'} eq $_) {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio" checked><label for="radio_$_" style="color:$_;">■</label> / |;
			} else {
				$color_info .= qq|<input type="radio" name="color" id="radio_$_" value="$_" class="radio"><label for="radio_$_" style="color:$_;">■</label> / |;
			}
		}
		$skin_form =~ s/\$COOKIE_COLOR/$color_info/g;

		$icon_info = '';
		$icon_info .= qq|<select name="icon"><option value="">その他</option>\n|;
		while (scalar(@icon) != 0) {
			$icon_file = shift(@icon);
			$icon_name = shift(@icon);
			if ($cookie{'icon'} eq $icon_file) {
				$icon_info .= qq|<option value="$icon_file" selected>$icon_name</option>\n|;
			} else {
				$icon_info .= qq|<option value="$icon_file">$icon_name</option>\n|;
			}
		}
		$icon_info .= qq|</select>\n|;
		$skin_form =~ s/\$COOKIE_ICON/$icon_info/g;

		$skin_form =~ s/\$FORM_SUBJ//g;
		$skin_form =~ s/\$FORM_TEXT//g;
		$skin_form =~ s/\$FORM_MODE/regist/g;
		$skin_form =~ s/\$FORM_RENO/0/g;
		$skin_form =~ s/\$FORM_NO//g;
		$skin_form =~ s/\$FORM_DATE//g;
 		$skin_form =~ s/\$FORM_ADMINPWD//g;
		$skin_form =~ s/\$FORM_USERPWD//g;
		$skin_form =~ s/\$FORM_RANK//g;
		$skin_form =~ s/\$FORM_HOST//g;
	}

	print $skin_form;

	return;
}

### 投稿記事表示
sub skin_log {
	$skin_loghead  = &skin_basic($skin_loghead);
	$skin_parent   = &skin_basic($skin_parent);
	$skin_res      = &skin_basic($skin_res);
	$skin_undervar = &skin_basic($skin_undervar);
	$skin_logfoot  = &skin_basic($skin_logfoot);

	$start = $in{'page'} * $page_size;
	$end   = $start + $page_size;

	$i = 0;
	$flag = 0;
	$new_flag = 0;
	$tmp_skin_loghead = '';
	$tmp_skin_parent  = '';
	$tmp_skin_res     = '';
	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_flag = 1;
		} else {
			$new_flag = 0;
		}

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

		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;

			$ref_text = <<"_HTML_";
<script type="text/javascript">
<!--
var text$no = "$ref_text";
//-->
</script>
_HTML_
		}

		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 ($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) {
					last;
				}
				$class_name = $class[$j];
				$j++;
			}
		} else {
			$class = '';
		}

		chop($host);

		if (($in{'mode'} eq 'search' && $in{'no'} eq '') || $reno == 0) {
			if ($in{'mode'} eq '') {
				if ($flag == 1) {
					$tmp_skin_undervar = $skin_undervar;
					$tmp_skin_undervar =~ s/<!--PARENT_SHOWALL_START-->/<a href="$script?mode=res&no=$res_no">/g;
					$tmp_skin_undervar =~ s/<!--PARENT_SHOWALL_END-->/<\/a>/g;
					if ($max_res_flag == 0) {
						$tmp_skin_undervar =~ s/<!--PARENT_RES_START-->/<a href="$script?mode=res&no=$res_no#form">/g;
						$tmp_skin_undervar =~ s/<!--PARENT_RES_END-->/<\/a>/g;
					}
					print $tmp_skin_undervar;
				}

				if ($max_res_size != 0 && ($child_logs{"$no"} + 0) >= $max_res_size) {
					$max_res_flag = 1;
				} else {
					$max_res_flag = 0;
				}
			}
			if ($flag == 1) {
				print $skin_logfoot;
			}
		}

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

			$tmp_skin_loghead = $skin_loghead;
			$tmp_skin_parent  = $skin_parent;

			$tmp_skin_parent =~ s/\$PARENT_NO/$no/g;
			$tmp_skin_parent =~ s/\$PARENT_DATE/$date/g;
			$tmp_skin_parent =~ s/\$PARENT_SUBJ/$subj/g;
			$tmp_skin_parent =~ s/\$PARENT_NAME/$name/g;

			if ($refer_mode == 1 && $in{'mode'} eq 'res') {
				$tmp_skin_parent =~ s/<!--PARENT_REF_START-->/<a href="javascript:void(0)" onClick="document.form.text.value=text$no" onmouseover="return window.status='本文を引用'" onmouseout="return window.status=''">/g;
				$tmp_skin_parent =~ s/<!--PARENT_REF_END-->/<\/a>/g;

				$tmp_skin_parent .= $ref_text;
			} else {
				$tmp_skin_parent =~ s/<!--PARENT_REF_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_REF_END-->/-->/g;
			}

			if ($new_flag == 0) {
				$tmp_skin_parent =~ s/<!--PARENT_NEW_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_NEW_END-->/-->/g;
			}

			if ($in{'preview'} ne 'on') {
				$tmp_skin_parent =~ s/\$PARENT_CLASS/$class_name/g;
				$tmp_skin_parent =~ s/\$PARENT_RANK/$rank/g;
			} else {
				$tmp_skin_parent =~ s/<!--PARENT_RANK_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_RANK_END-->/-->/g;
			}

			if ($mail ne '') {
				$tmp_skin_parent =~ s/<!--PARENT_MAIL_START-->/<a href="mailto:$mail">/g;
				$tmp_skin_parent =~ s/<!--PARENT_MAIL_END-->/<\/a>/g;
			} else {
				$tmp_skin_parent =~ s/<!--PARENT_MAIL_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_MAIL_END-->/-->/g;
			}
			if ($url ne '') {
				$tmp_skin_parent =~ s/<!--PARENT_URL_START-->/<a href="$url" target="_blank">/g;
				$tmp_skin_parent =~ s/<!--PARENT_URL_END-->/<\/a>/g;
			} else {
				$tmp_skin_parent =~ s/<!--PARENT_URL_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_URL_END-->/-->/g;
			}

			if ($in{'mode'} eq '' && $max_res_flag == 0) {
				$tmp_skin_parent =~ s/<!--PARENT_RES_START-->/<a href="$script?mode=res&no=$no#form">/g;
				$tmp_skin_parent =~ s/<!--PARENT_RES_END-->/<\/a>/g;
			} else {
				$tmp_skin_parent =~ s/<!--PARENT_RES_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_RES_END-->/-->/g;
			}

			$tmp_skin_parent =~ s/\$PARENT_TEXT/$text/g;
			if ($icon ne '') {
				$tmp_skin_parent =~ s/\$PARENT_ICON/$icon/g;
			} else {
				$tmp_skin_parent =~ s/\$PARENT_ICON/&nbsp;/g;
			}

			if ($max_res_flag == 0) {
				$tmp_skin_parent =~ s/<!--PARENT_MAXRES_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_MAXRES_END-->/-->/g;
			}

			if ($show_res_size != 0 && $in{'mode'} eq '' && $child_logs{"$no"} > $show_res_size) {
				$tmp_skin_parent =~ s/<!--PARENT_SHOWALL_START-->/<a href="$script?mode=res&no=$no">/g;
				$tmp_skin_parent =~ s/<!--PARENT_SHOWALL_END-->/<\/a>/g;
			} else {
				$tmp_skin_parent =~ s/<!--PARENT_SHOWALL_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--PARENT_SHOWALL_END-->/-->/g;
			}

			if ($in{'mode'} eq 'search' && $in{'no'} eq '') {
				if ($reno == 0) {
					$show = $no;
				} else {
					$show = $reno;
				}
				$tmp_skin_parent =~ s/<!--SEARCH_SHOW_START-->/<a href="$script?mode=search&obje=$in{'obje'}&no=$show">/g;
				$tmp_skin_parent =~ s/<!--SEARCH_SHOW_END-->/<\/a>/g;
			} else {
				$tmp_skin_parent =~ s/<!--SEARCH_SHOW_START-->/<!--/g;
				$tmp_skin_parent =~ s/<!--SEARCH_SHOW_END-->/-->/g;
			}

			$tmp_skin_parent =~ s/\$PARENT_HOST/$host/g;

			print $tmp_skin_loghead;
			print $tmp_skin_parent;
		} else {
			$resno++;
			if ($show_res_size != 0 && $child_logs{"$reno"}-- > $show_res_size) {
				next;
			}
			if ($show_res_size != 0) {
				$res_show_info = "[Re:$resno]";
			}

			$tmp_skin_res = $skin_res;

			$tmp_skin_res =~ s/\$RES_NO/$no/g;
			$tmp_skin_res =~ s/\$RES_DATE/$date/g;
			$tmp_skin_res =~ s/\$RES_SUBJ/$subj/g;
			$tmp_skin_res =~ s/\$RES_NAME/$name/g;

			if ($refer_mode == 1 && $in{'mode'} eq 'res') {
				$tmp_skin_res =~ s/<!--RES_REF_START-->/<a href="javascript:void(0)" onClick="document.form.text.value=text$no" onmouseover="return window.status='本文を引用'" onmouseout="return window.status=''">/g;
				$tmp_skin_res =~ s/<!--RES_REF_END-->/<\/a>/g;

				$tmp_skin_res .= $ref_text;
			} else {
				$tmp_skin_res =~ s/<!--RES_REF_START-->/<!--/g;
				$tmp_skin_res =~ s/<!--RES_REF_END-->/-->/g;
			}

			if ($new_flag == 0) {
				$tmp_skin_res =~ s/<!--RES_NEW_START-->/<!--/g;
				$tmp_skin_res =~ s/<!--RES_NEW_END-->/-->/g;
			}

			if ($in{'preview'} ne 'on') {
				$tmp_skin_res =~ s/\$RES_CLASS/$class_name/g;
				$tmp_skin_res =~ s/\$RES_RANK/$rank/g;
			} else {
				$tmp_skin_res =~ s/<!--RES_RANK_START-->/<!--/g;
				$tmp_skin_res =~ s/<!--RES_RANK_END-->/-->/g;
			}

			$tmp_skin_res =~ s/\$RES_URL/$url/g;
			$tmp_skin_res =~ s/\$RES_RESNO/$res_show_info/g;

			if ($mail ne '') {
				$tmp_skin_res =~ s/<!--RES_MAIL_START-->/<a href="mailto:$mail">/g;
				$tmp_skin_res =~ s/<!--RES_MAIL_END-->/<\/a>/g;
			} else {
				$tmp_skin_res =~ s/<!--RES_MAIL_START-->/<!--/g;
				$tmp_skin_res =~ s/<!--RES_MAIL_END-->/-->/g;
			}
			if ($url ne '') {
				$tmp_skin_res =~ s/<!--RES_URL_START-->/<a href="$url" target="_blank">/g;
				$tmp_skin_res =~ s/<!--RES_URL_END-->/<\/a>/g;
			} else {
				$tmp_skin_res =~ s/<!--RES_URL_START-->/<!--/g;
				$tmp_skin_res =~ s/<!--RES_URL_END-->/-->/g;
			}

			$tmp_skin_res =~ s/\$RES_TEXT/$text/g;
			if ($icon ne '') {
				$tmp_skin_res =~ s/\$RES_ICON/$icon/g;
			} else {
				$tmp_skin_res =~ s/\$RES_ICON/&nbsp;/g;
			}

			$tmp_skin_res =~ s/\$RES_HOST/$host/g;

			print $tmp_skin_res;
		}
	}
	if ($in{'mode'} eq '') {
		$tmp_skin_undervar = $skin_undervar;
		$tmp_skin_undervar =~ s/<!--PARENT_SHOWALL_START-->/<a href="$script?mode=res&no=$res_no">/g;
		$tmp_skin_undervar =~ s/<!--PARENT_SHOWALL_END-->/<\/a>/g;
		if ($max_res_flag == 0) {
			$tmp_skin_undervar =~ s/<!--PARENT_RES_START-->/<a href="$script?mode=res&no=$res_no#form">/g;
			$tmp_skin_undervar =~ s/<!--PARENT_RES_END-->/<\/a>/g;
		}
		print $tmp_skin_undervar;
	}
	if ($flag == 1) {
		print $skin_logfoot;
	}

	return;
}

### ページナビゲーター
sub skin_navi {
	$skin_navi = &skin_basic($skin_navi);

	print $skin_navi;

	return;
}

### 直接移動リンク
sub skin_link {
	$skin_link = &skin_basic($skin_link);

	print $skin_link;

	return;
}

### フッタ
sub skin_footer {
	$skin_footer = &skin_basic($skin_footer);

	print $skin_footer;

	exit();
}

### 基本変数
sub skin_basic {
	local($_) = @_;

	$_ =~ s/\$INFO_SCRIPT/$script/g;
	$_ =~ s/\$INFO_COUNTER/$counter/g;
	$_ =~ s/\$INFO_LASTPOST/$last_post $name/g;

	$_ =~ s/\$LINK_BACK/$back_url/g;
	$_ =~ s/\$LINK_HOWTO/$script?mode=howto/g;
	$_ =~ s/\$LINK_RANK/$script?mode=rank/g;
	$_ =~ s/\$LINK_SEARCH/$script?mode=search/g;
	$_ =~ s/\$LINK_USERDEL/$script?mode=userdel/g;
	$_ =~ s/\$LINK_PAST/$script?mode=past/g;
	$_ =~ s/\$LINK_ADMIN/$script?mode=admin/g;
	$_ =~ s/\$LINK_ICON/$script?mode=icon/g;
	$_ =~ s/\$LINK_PAGE/$link_info/g;

	if ($in{'page'} > 0) {
		$_ =~ s/<!--LINK_NEW_START-->/<a href="$script">/g;
		$_ =~ s/<!--LINK_NEW_END-->/<\/a>/g;
	} else {
		$_ =~ s/<!--LINK_NEW_START-->//g;
		$_ =~ s/<!--LINK_NEW_END-->//g;
	}
	if ($in{'page'} > 0) {
		$n = $in{'page'} - 1;
		$_ =~ s/<!--LINK_PREV_START-->/<a href="$script?page=$n">/g;
		$_ =~ s/<!--LINK_PREV_END-->/<\/a>/g;
	} else {
		$_ =~ s/<!--LINK_PREV_START-->//g;
		$_ =~ s/<!--LINK_PREV_END-->//g;
	}
	if (int(($parent - 1) / $page_size) > $in{'page'}) {
		$n = $in{'page'} + 1;
		$_ =~ s/<!--LINK_NEXT_START-->/<a href="$script?page=$n">/g;
		$_ =~ s/<!--LINK_NEXT_END-->/<\/a>/g;
	} else {
		$_ =~ s/<!--LINK_NEXT_START-->//g;
		$_ =~ s/<!--LINK_NEXT_END-->//g;
	}

	return $_;
}

### スキン読み込みエラー
sub skin_error {
	print <<"_HTML_";
Content-Type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Style-Type" content="text/css">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<title>$title</title>
<link rel="stylesheet" href="$css_file" type="text/css">
</head>

<body>
<div class="document">
<p>
	<div align="center">
		<br>
		<hr width="70%">
		<br>
		<span class="warning">エラーが発生しました</span><br>
		<br>
		スキンファイルを読み出せません<br>
		<br>
		<hr width="70%">
		<br>
	</div>
</p>
<!-- Copyright -->
<div align="center">- <a href="http://www.big.or.jp/~knight/" target="_blank">Web Board Professional ver $ver</a> -</div>
</div>
</body>

</html>
_HTML_

	exit();
}

1;