#!/usr/bin/perl 

### read.cgi ver 2.05 (2001/08/22) editted (2001/08/27)
### onpuch original (2003/03/19) version (2004/05/15)
# -----------------------------------------------------------
use strict;
require 'jcode.pl';
use CGI::Carp qw/fatalsToBrowser/;

use vars qw($hannyou);
use vars qw($hyoujun);
use vars qw($ver);
use vars qw($gzip_path);
use vars qw($gzip_enable);

$hyoujun = "http://suika.fam.cx".$ENV{'REQUEST_URI'};
$hyoujun =~ s/\/test\/.*/\/test\//g;
# このままの設定で動作しない場合は、↓の#を取って正確なベースURLを書く。例：http://pc.2ch.net/test/
#$hyoujun = 'http://onpumoe.hp.infoseek.co.jp/cgi-bin/test/';

$ver='read.cgi ver4.20 by <a href="http://onpumoe.hp.infoseek.co.jp/script/">GlobalNoteScript</a> (2004/09/05)';
$gzip_path = "/bin/gzip";
$gzip_enable = 1;


#==================================================
#　初期情報の取得（POST）
#==================================================

{
	use vars qw(%FORM);
	my ($buffer, @pairs, $name, $value, $path_info, $res, $ls);
	$path_info = $ENV{'PATH_INFO'};
#	if ($ENV{'REQUEST_METHOD'} eq "GET") {
	if ($ENV{'PATH_INFO'} eq "") {
		$buffer = $ENV{'QUERY_STRING'};
		@pairs = split(/&/,$buffer);
		foreach (@pairs) {
			($name, $value) = split /=/;
			$value =~ tr/+/ /;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
			$FORM{$name} = $value;
		}
	} else {
		($FORM{dummy},$FORM{bbs},$FORM{key},$res,$ls) = split /\//, $path_info;

		if ($res =~ /-/) {
			($FORM{st}, $FORM{to}) =  split /-/, $res;
		} else {
			$FORM{st} = $res;
			$FORM{to} = $res;
		}
		if ($res =~ /n/) {
			$FORM{nofirst} = "true";
			$FORM{st} =~ s/n//g;
			$FORM{to} =~ s/n//g;
		} else {
			$FORM{nofirst} = "false";
		}

		if ($res =~ /l/) {
			$ls = $FORM{to};
			$ls =~ s/l//g;
			$ls =~ s/n//g;
			$ls =~ s/i//g;
			$FORM{ls} = $ls;
			$FORM{st} = "";
			$FORM{to} = "";
		}

#		if ($res =~ /i/) {
		if (($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo\//) && ($res =~ /i/)) {
			$FORM{imode} = "true";
			$FORM{nofirst} = "true";
		}

		$FORM{to} =~ s/i//g;
		$FORM{to} =~ s/n//g;

	}
}


#==================================================
#　エラーレスポンス（BBS情報）
#==================================================

{
	if(!-e "../$FORM{'bbs'}/dat/$FORM{'key'}.dat" || $FORM{'bbs'} =~ /(\.|\/)/){
		DispError("そんな板orスレッドないです。");
	}
	if(-s "../$FORM{'bbs'}/dat/$FORM{'key'}.dat" > 550000) {
		DispError("このスレッド大きすぎます。");
	}
}


#==================================================
#　初期情報の取得（設定ファイル）
#==================================================

{
	use vars qw(%SETTING);

	# 設定ファイルを読む
	my ($m_pass,$m_key,$m_value);
	$m_pass = "../$FORM{'bbs'}/SETTING.TXT";
	if(-e $m_pass){
		open(FILE,$m_pass);
		foreach (<FILE>){
			chop;
			($m_key,$m_value) = split /=/;
			$SETTING{$m_key} = $m_value;
		}
		close(FILE);
	}else{
		# 設定ファイルがない（ERROR)
		DispError("ユーザー設定が消失しています！");
	}

	# 欠落情報の補完
	unless($SETTING{"BBS_THREAD_COLOR"}) {$SETTING{"BBS_THREAD_COLOR"}="#EFEFEF";}
	unless($SETTING{"BBS_SUBJECT_COLOR"}) {$SETTING{"BBS_SUBJECT_COLOR"}="#FF0000";}
	unless($SETTING{"BBS_NAME_COLOR"}) {$SETTING{"BBS_NAME_COLOR"}="forestgreen";}
	unless($SETTING{"BBS_TEXT_COLOR"}) {$SETTING{"BBS_TEXT_COLOR"}="#000000";}
	unless($SETTING{"BBS_LINK_COLOR"}) {$SETTING{"BBS_LINK_COLOR"}="#0000FF";}
	unless($SETTING{"BBS_ALINK_COLOR"}) {$SETTING{"BBS_ALINK_COLOR"}="#FF0000";}
	unless($SETTING{"BBS_VLINK_COLOR"}) {$SETTING{"BBS_VLINK_COLOR"}="#660099";}

	$SETTING{"BBS_BG_COLOR"}=$SETTING{'BBS_THREAD_COLOR'};

	$gzip_path = $SETTING{"BBS_GZIP_PATH"};
	if ($SETTING{"BBS_GZIP_CHECK"} eq "checked") {
		$gzip_enable = 1;
	} else {
		$gzip_enable = 0;
	}
}


#==================================================
#　変数の設定
#==================================================

{
	use vars qw($start);
	use vars qw($end);
	use vars qw($NOW);
	use vars qw(@LOG);
$NOW=time;
	open(ALL,"../$FORM{'bbs'}/dat/$FORM{'key'}.dat");
	@LOG=<ALL>;
	close(ALL);
	my $LINENUM = @LOG;

	if ($FORM{'st'}) {
		$start = $FORM{'st'};
	} elsif ($FORM{'ls'}) {
		$start = $LINENUM - $FORM{'ls'} + 1;
	} else {
		$start=1;
	}
	if ($start < 1) {$start = 1;}

	if ($FORM{'to'}) {
		$end = $FORM{'to'} + 1;
	} else {
		$end = $LINENUM + 1;
	}
	if ($end - $start < 1) {$end = $start + 1;}

	my $st1 = $start - 100; if ($st1 <= 0) {$st1 = 1;}
	my $st2 = $start - 1;
	my $st3 = $end;
	my $st4 = $end + 99; if ($st4 > $LINENUM) {$st4 = $LINENUM;}
	my $st5 = $LINENUM;
	my $res1 = $st2 - $st1 + 1;
	my $res2 = $st4 - $st3 + 1;

	my $subject=(split /<>/,$LOG[0])[4];

my ($name,$mail,$time,$message,$mailto);

	if(!$FORM{'imode'}){
		print "Content-type: text/html; charset=shift_jis\n";

		if ( $gzip_enable ){
			if ( $ENV{'HTTP_ACCEPT_ENCODING'} =~ /x-gzip/ ){
				print "Content-encoding: x-gzip\n\n";
			}
			elsif ( $ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/ ){
				print "Content-encoding: gzip\n\n";
			} else {
				print "\n";
				$gzip_enable = 0;
			}
		}
		else {
			print "\n";
		}
		open(STDOUT,"| $gzip_path -1 -c") if $gzip_enable;

		print <<EOF;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>
$subject
</TITLE>
<SCRIPT LANGUAGE="JavaScript" type="text/javascript">
<!--
Name = getCookie("NAME");
Mail = getCookie("MAIL");
function getCookie(key,tmp1,tmp2,xx1,xx2,xx3) {
tmp1 = " " + document.cookie + ";";
xx1 = xx2 = 0;
len = tmp1.length;
while (xx1 < len) {
xx2 = tmp1.indexOf(";", xx1);
tmp2 = tmp1.substring(xx1 + 1, xx2);
xx3 = tmp2.indexOf("=");
if (tmp2.substring(0, xx3) == key) {
return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));
}
xx1 = xx2 + 1;
}
return("");
}
// -->
</SCRIPT>
<BASE HREF="$hyoujun">
</HEAD>
<BODY TEXT="$SETTING{'BBS_TEXT_COLOR'}" BGCOLOR="$SETTING{'BBS_BG_COLOR'}" link="$SETTING{'BBS_LINK_COLOR'}" alink="$SETTING{'BBS_ALINK_COLOR'}" vlink="$SETTING{'BBS_VLINK_COLOR'}">
<a href="../$FORM{'bbs'}/index.html">■掲示板に戻る■</a>
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/">全部</a>
EOF

my $hundred = int ($LINENUM / 100);
for (my $i = 0; $i <= $hundred; $i++) {
	my $hndst = $i * 100 + 1;
	my $hndto = $i * 100 + 100;
	if ($hndst == $LINENUM) {
		print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$hndst">$hndst</a>
EOF
	} elsif ($hndto > $LINENUM) {
		$hndto = $LINENUM;
		print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$hndst-$hndto">$hndst-$hndto</a>
EOF
	} else {
		print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$hndst-$hndto">$hndst-</a>
EOF
	}
}

if ($st2 > 0) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st1-$st2" . "n" ;
print <<EOF;
 <a href=$hannyou>前$res1</a>
EOF
}
if ($st3 - $LINENUM < 1) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st3-$st4" . "n" ;
print <<EOF;
 <a href=$hannyou>次$res2</a>
EOF
} else {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st5" . "n-" ;
print <<EOF;
 <a href=$hannyou>新着レス</a>
EOF
}

print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/l50">最新50</a>
EOF

my $size = int ((-s "../$FORM{'bbs'}/dat/$FORM{'key'}.dat") / 1024);

if ($LINENUM >= $SETTING{'BBS_MAX_RES_COUNT'}){
my $maxres = $SETTING{'BBS_MAX_RES_COUNT'};
print <<EOF;
<P><TABLE><TR><TD BGCOLOR=RED>
<FONT COLOR=WHITE><BR>レス数が $maxres を超えています。残念ながらこのスレッドには書き込めません。<BR><BR></FONT>
</TD></TR></TABLE>
EOF
}elsif (($LINENUM >= ($SETTING{'BBS_MAX_RES_COUNT'} - 50)) && ($SETTING{'BBS_MAX_RES_COUNT'} >= 50)){
my $maxres = $SETTING{'BBS_MAX_RES_COUNT'};
my $rescount = $maxres - 50;
print <<EOF;
<P><TABLE><TR><TD BGCOLOR=RED>
<FONT COLOR=WHITE>レス数が $rescount を超えています。$maxresを超えると書き込めなくなるよ。</FONT>
</TD></TR></TABLE>
EOF
}elsif (($LINENUM >= ($SETTING{'BBS_MAX_RES_COUNT'} - 100)) && ($SETTING{'BBS_MAX_RES_COUNT'} >= 100)){
my $maxres = $SETTING{'BBS_MAX_RES_COUNT'};
my $rescount = $maxres - 100;
print <<EOF;
<P><TABLE><TR><TD BGCOLOR=YELLOW>
レス数が $rescount を超えています。$maxresを超えると書き込めなくなるよ。
</TD></TR></TABLE>
EOF
}elsif ($size >= $SETTING{'BBS_MAX_RES_SIZE'}) {
my $maxkb = $SETTING{'BBS_MAX_RES_SIZE'} . "KB";
print <<EOF;
<P><TABLE><TR><TD BGCOLOR=RED>
<FONT COLOR=WHITE><BR>スレッドの大きさが $maxkb を超えています。残念ながらこのスレッドには書き込めません。<BR><BR></FONT>
</TD></TR></TABLE>
EOF
}elsif (($size >= ($SETTING{'BBS_MAX_RES_SIZE'} - 20)) && ($SETTING{'BBS_MAX_RES_SIZE'} >= 20)) {
my $maxkb = $SETTING{'BBS_MAX_RES_SIZE'} . "KB";
my $maxsize = $SETTING{'BBS_MAX_RES_SIZE'} - 20;
my $sizekb = $maxsize . "KB";
print <<EOF;
<P><TABLE><TR><TD BGCOLOR=RED>
<FONT COLOR=WHITE>スレッドの大きさが $sizekb を超えています。$maxkbを超えると書き込めなくなるよ。</FONT>
</TD></TR></TABLE>
EOF
}elsif (($size >= ($SETTING{'BBS_MAX_RES_SIZE'} - 50)) && ($SETTING{'BBS_MAX_RES_SIZE'} >= 50)) {
my $maxkb = $SETTING{'BBS_MAX_RES_SIZE'} . "KB";
my $maxsize = $SETTING{'BBS_MAX_RES_SIZE'} - 50;
my $sizekb = $maxsize . "KB";
print <<EOF;
<P><TABLE><TR><TD BGCOLOR=YELLOW>
スレッドの大きさが $sizekb を超えています。$maxkbを超えると書き込めなくなるよ。
</TD></TR></TABLE>
EOF
}

print <<EOF;
<P><FONT SIZE=+1 COLOR="$SETTING{'BBS_SUBJECT_COLOR'}">
$subject
</FONT></B><BR>
<DL>
EOF

		if($FORM{'nofirst'} ne "true" || $FORM{'st'} eq 1){
			chop($LOG[0]);
			($name,$mail,$time,$message,$subject) = split(/<>/,$LOG[0]);
			#本文が空の場合
			if ($message eq "") {
				$name="";
				$mail="";
				$time="[ここ壊れてます]";
				$message="[ここ壊れてます]";
			}
			my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
			$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1<a href=\"$2\:$3\" target=\"_blank\">$2\:$3<\/a>/igo;

			# 末尾にsjisの1バイト目があったら削る
			my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
			my $check2 = '[\201-\237\340-\374]';
			$mail =~ s/($check1)$check2$/$1/g;
			$name =~ s/($check1)$check2$/$1/g;

			if($mail){
				$mailto = "<a href=\"mailto:$mail\"><b>$name</B></a>";
			}else{
				$mailto = "<font color=\"$SETTING{'BBS_NAME_COLOR'}\"><b>$name</b></font>";
			}
			print "<dt>1 名前：$mailto 投稿日：$time<dd>$message<br><br>\n";
			if($start eq 1){$start++;}
		}

		while($start != $end){
			unless($LOG[$start-1]){last;}
			chop($LOG[$start-1]);
			($name,$mail,$time,$message,$subject) = split(/<>/,$LOG[$start-1]);
			#本文が空の場合
			if ($message eq "") {
				$name="";
				$mail="";
				$time="[ここ壊れてます]";
				$message="[ここ壊れてます]";
			}
			my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
			$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1<a href=\"$2\:$3\" target=\"_blank\">$2\:$3<\/a>/igo;

			# 末尾にsjisの1バイト目があったら削る
			my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
			my $check2 = '[\201-\237\340-\374]';
			$mail =~ s/($check1)$check2$/$1/g;
			$name =~ s/($check1)$check2$/$1/g;

			if($mail){
				$mailto = "<a href=\"mailto:$mail\"><b>$name</B></a>";
			}else{
				$mailto = "<font color=\"$SETTING{'BBS_NAME_COLOR'}\"><b>$name</b></font>";
			}
			print "<dt>$start 名前：$mailto 投稿日：$time<dd>$message<br><br>\n";
			$start++;
		}

		my $newres = $LINENUM + 1;
		print <<EOF;
</DL><font color=red><b>$size KB</b></font>
<hr>
<a href="../$FORM{'bbs'}/index.html">掲示板に戻る</a>
<a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/">全部</a>
EOF
for (my $i = 0; $i <= $hundred; $i++) {
	my $hndst = $i * 100 + 1;
	my $hndto = $i * 100 + 100;
	if ($hndst == $LINENUM) {
		print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$hndst">$hndst</a>
EOF
	} elsif ($hndto > $LINENUM) {
		$hndto = $LINENUM;
		print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$hndst-$hndto">$hndst-$hndto</a>
EOF
	} else {
		print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$hndst-$hndto">$hndst-</a>
EOF
	}
}

if ($st2 > 0) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st1-$st2" . "n" ;
print <<EOF;
 <a href=$hannyou>前$res1</a>
EOF
}
if ($st3 - $LINENUM < 1) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st3-$st4" . "n" ;
print <<EOF;
 <a href=$hannyou>次$res2</a>
EOF
} else {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st5" . "n-" ;
print <<EOF;
 <a href=$hannyou>新着レス</a>
EOF
}

print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/l50">最新50</a><hr>
EOF

		if (($LINENUM < $SETTING{'BBS_MAX_RES_COUNT'}) && ($size < $SETTING{'BBS_MAX_RES_SIZE'})){
			print <<EOF;
<table border=0 cellspacing=0 cellpadding=10 vspace=0 hspace=0><tr align="center" valign="top"><td align=left>
<form method=POST action="./bbs.cgi">
<table border=0 cellspacing=0 cellpadding=0><tr><td align=right>
<input type=submit value="書き込む" name="submit">
</td><td> 名前： 
<SCRIPT Language="JavaScript">
<!--
document.write("<INPUT TYPE=text NAME=FROM SIZE=19 VALUE=");
document.write(Name,">");
// -->
</SCRIPT><NOSCRIPT>
<INPUT TYPE=text NAME=FROM SIZE=19>
</NOSCRIPT>
 E-mail<font size=1>（省略可）</font>： 
<SCRIPT Language="JavaScript">
<!--
document.write("<INPUT TYPE=text NAME=mail SIZE=19 VALUE=");
document.write(Mail,">");
// -->
</SCRIPT><NOSCRIPT>
<INPUT TYPE=text NAME=mail SIZE=19>
</NOSCRIPT>
</td></tr></table>
<textarea rows=5 cols=70 wrap=OFF name=MESSAGE></textarea>
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=key value=$FORM{'key'}>
<input type=hidden name=time value=$NOW>
</form></td></tr></table>
EOF
}

print <<EOF;
$ver</BODY></HTML>
EOF
close(STDOUT) if $gzip_enable;
	}else{
#==================================================
#　i-mode用
#==================================================
if ($FORM{'st'} eq '' && $FORM{'to'} eq '' && $FORM{'ls'} eq '') {
	$start = $LINENUM - 4; if ($start < 1) {$start = 1;}
	$end = $LINENUM + 1;
}

if ($end - $start > 5) {$end = $start + 5;}
if ($LINENUM => $start && $end - $LINENUM > 1) {$end = $LINENUM + 1;}

my $st1 = $start - 5; if ($st1 <= 0) {$st1 = 1;}
my $st2 = $start - 1;
my $st3 = $end;
my $st4 = $end + 4; if ($st4 > $LINENUM) {$st4 = $LINENUM;}
my $st5 = $LINENUM;
my $res1 = $st2 - $st1 + 1;
my $res2 = $st4 - $st3 + 1;

# 全角カナと半角カナの変換
&jcode::z2h_sjis(\$subject);
foreach (@LOG) {
	&jcode::z2h_sjis(\$_);
}

print "Content-type: text/html; charset=shift_jis\n\n";
print <<EOF;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>
$subject
</TITLE>
<BASE HREF="$hyoujun">
</HEAD>
<BODY TEXT="$SETTING{"BBS_TEXT_COLOR"}" BGCOLOR="$SETTING{"BBS_BG_COLOR"}" link="$SETTING{"BBS_LINK_COLOR"}" alink="$SETTING{"BBS_ALINK_COLOR"}" vlink="$SETTING{"BBS_VLINK_COLOR"}">
<a href="../$FORM{'bbs'}/i/index.html">掲示板に戻る</a>
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/1-5i">最初-</a>
EOF
if ($st2 > 0) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st1-$st2" . "ni";
print <<EOF;
 <a href=$hannyou>前$res1</a>
EOF
}
if ($st3 - $LINENUM < 1) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st3-$st4" . "ni";
print <<EOF;
 <a href=$hannyou>次$res2</a>
EOF
} else {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st5" . "-ni";
print <<EOF;
 <a href=$hannyou>新着</a>
EOF
}
print <<EOF;
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/l5i">最新5</a>
<P><FONT SIZE=+1 COLOR="$SETTING{'BBS_SUBJECT_COLOR'}">
$subject
</FONT></B><BR>
EOF

	if($FORM{'nofirst'} ne "true" || $FORM{'st'} eq 1){
		chop($LOG[0]);
		($name,$mail,$time,$message,$subject) = split(/<>/,$LOG[0]);
		#本文が空の場合
		if ($message eq "") {
			$name="";
			$mail="";
			$time="[ここ壊れてます]";
			$message="[ここ壊れてます]";
		}
		# URLを変換（onpuch.jp以外のURLはリンクせず）
		my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
		$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1<r>$2\:$3<\/r>/igo;
		$message =~ s/<r>(http\:\/\/www\.onpuch\.jp[\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)<\/r>/<a href=\"$1\" target=\"_blank\">$1<\/a>/igo;
		$message =~ s/<r>(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)<\/r>/(URL)/igo;
		$message =~ s/(<a href="(?:\.\.|http\:\/\/www\.onpuch\.jp\/cgi-bin\/onpuch)\/test\/read\.cgi\?bbs=\w+&key=\d+(?:&st=\d+)*(?:&to=\d+)*(?:&nofirst=true)*)/$1&imode=true/g;
		$message =~ s/<\/?r>//g;

		# 末尾にsjisの1バイト目があったら削る
		my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
		my $check2 = '[\201-\237\340-\374]';
		$mail =~ s/($check1)$check2$/$1/g;
		$name =~ s/($check1)$check2$/$1/g;

		if($mail && $mail ne "sage"){
			$mailto = "<b><a href=\"mailto:$mail\">$name</a></b>";
		}else{
			$mailto = "<b>$name</b>";
		}
		print "<p>[1:$mailto($time)]<br>$message</p><hr>\n";
		if($start eq 1){$start++;}
	}

	while($start != $end){
		unless($LOG[$start-1]){last;}
		chop($LOG[$start-1]);
		($name,$mail,$time,$message,$subject) = split(/<>/,$LOG[$start-1]);
		#本文が空の場合
		if ($message eq "") {
			$name="";
			$mail="";
			$time="[ここ壊れてます]";
			$message="[ここ壊れてます]";
		}
		# URLを変換（onpuch.jp以外のURLはリンクせず）
		my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
		$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1<r>$2\:$3<\/r>/igo;
		$message =~ s/<r>(http\:\/\/www\.onpuch\.jp[\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)<\/r>/<a href=\"$1\" target=\"_blank\">$1<\/a>/igo;
		$message =~ s/<r>(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)<\/r>/(URL)/igo;
		$message =~ s/(<a href="(?:\.\.|http\:\/\/www\.onpuch\.jp\/cgi-bin\/onpuch)\/test\/read\.cgi\?bbs=\w+&key=\d+(?:&st=\d+)*(?:&to=\d+)*(?:&nofirst=true)*)/$1&imode=true/g;
		$message =~ s/<\/?r>//g;

		# 末尾にsjisの1バイト目があったら削る
		my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
		my $check2 = '[\201-\237\340-\374]';
		$mail =~ s/($check1)$check2$/$1/g;
		$name =~ s/($check1)$check2$/$1/g;

		if($mail && $mail ne "sage"){
			$mailto = "<b><a href=\"mailto:$mail\">$name</a></b>";
		}else{
			$mailto = "<b>$name</b>";
		}
			print "<p>[$start:$mailto($time)]<br>$message</p><hr>\n";
		$start++;
	}

#my $FL=1;
#if($FORM{'ls'} || $end > 1001 || $end > @LOG-1){$FL=0}
#if($FL){

print <<EOF;
<a href="../$FORM{'bbs'}/i/index.html">掲示板に戻る</a>
 <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/1-5i">最初-</a>
EOF
if ($st2 > 0) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st1-$st2" . "ni";
print <<EOF;
 <a href=$hannyou>前$res1</a>
EOF
}
if ($st3 - $LINENUM < 1) {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st3-$st4" . "ni";
print <<EOF;
 <a href=$hannyou>次$res2</a>
EOF
} else {
 $hannyou = "./read.cgi/$FORM{'bbs'}/$FORM{'key'}/$st5" . "-ni";
print <<EOF;
 <a href=$hannyou>新着</a>
EOF
}
print <<EOF;
  <a href="./read.cgi/$FORM{'bbs'}/$FORM{'key'}/l5i">最新5</a><BR>
EOF
#}
		print  "<FORM METHOD=POST ACTION=\"./bbs.cgi\">\n";
		print  "<INPUT TYPE=submit VALUE=\"かきこむ\" name=\"submit\"> ";
		print  "NAME：<INPUT TYPE=text NAME=FROM SIZE=20 VALUE=\"\">";
		print  "MAIL：<INPUT TYPE=text NAME=mail SIZE=20 VALUE=\"\">";
		print  "<br>";
		print  "<INPUT TYPE=hidden name=time VALUE=$NOW>\n";
		print  "<INPUT TYPE=hidden name=bbs VALUE=$FORM{'bbs'}>\n";
		print  "<INPUT TYPE=hidden name=key VALUE=$FORM{'key'}>\n";
		print  "<TEXTAREA ROWS=5 COLS=60 wrap=off NAME=MESSAGE></TEXTAREA>\n";
		print  "</FORM><br>\n";
	print "<P>$ver";
	print "</BODY>";
	print "</HTML>";
	exit;
	}
}


#エラー画面（エラー処理）
#DispError(TITLE,TOPIC);
sub DispError{
	my ($topic)=@_;
	print "Content-type: text/html; charset=shift_jis\n\n";
	#-----------------------------------------------------------------------
print <<EOF;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$topic</TITLE>
<style type="text/css">
<!--
TD.Type1 {
color: #ffffff;
text-align: left;
}
A.BigLine {
color: #000000;
text-decoration: none;
}
-->
</style>
<BASE HREF="$hyoujun">
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">
<P><FONT SIZE=+1 COLOR="#FF0000">$topic</FONT></B><BR>
<DL>
<dt>1 名前：<font color="forestgreen"><b>$ver</b></font>投稿日：2001/04/12(木) 15:11<dd>$topic<br><br><br>
</DL>
<HR>
<FONT SIZE=-2>$ver</FONT>
<HR><P>
EOF
my $datn = substr($FORM{'key'},0,3);

if (-e "../$FORM{'bbs'}/kako/$FORM{'key'}.html"){
	print "隊長! 過去ログ倉庫で、<A TARGET=\"_self\" HREF=\"../$FORM{'bbs'}/kako/$FORM{'key'}.html\">スレッド $FORM{'key'}.html</A>　を発見しました。\n";
}elsif (-e "../$FORM{'bbs'}/kako/$datn/$FORM{'key'}.dat"){
	print "隊長! 過去ログ倉庫で、<A TARGET=\"_self\" HREF=\"../$FORM{'bbs'}/kako/$datn/$FORM{'key'}.dat\">スレッド $FORM{'key'}.dat</A>　を発見しました。<BR><B><FONT SIZE=+1 COLOR=RED>が</FONT></B>、しかしまだ html化されていません。残念、待つしかない。\n";
}else{
	print "<A TARGET=\"_self\" HREF=\"../$FORM{'bbs'}/kako/index.html\">過去ログ倉庫</A>にもありませんでした。<BR>問い合わせても見つかる可能\性はほとんどありません。\n";
}
print <<EOF;
</BODY>
</HTML>
EOF
exit;
}