#!/usr/local/bin/perl

use strict;
require 'jcode.pl';

### pageview.cgi ver 2.04 (2001/07/10)


#べーじびゅー！

#==================================================
#　システム関連（タイムゾーン・シグナル）
#==================================================

#タイムゾーンをセットする
{
	$ENV{'TZ'} = "JST-9";
}

#シグナル対処関数
sub SigExit {
	exit(0);
}

#対応シグナル
{
	$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "SigExit";
}


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

{
	use vars qw(%FORM);
	my ($buffer, @pairs, $name, $value);
	if($ENV{'REQUEST_METHOD'} eq 'POST'){
		read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	}else{
		$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;
	}
}


#==================================================
#　設定
#==================================================

{
	# 各種PATH生成
	use vars qw(%SETTING);
	use vars qw($WWWPATH);
	use vars qw($PATH);
	use vars qw($DATPATH);
	use vars qw($TEMPPATH);
	use vars qw($IMODEPATH);
	use vars qw($npf);
	$PATH = "../" . $FORM{'bbs'} . "/";
	$DATPATH = $PATH . "dat/";
	$TEMPPATH = $PATH . "html/";
	$IMODEPATH = $PATH . "i/";

	use vars qw($NOWTIME);
	$NOWTIME = time;
}


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

#設定ファイルを読む
{
	# 設定ファイルを読む
	my ($m_pass,$m_key,$m_value);
	$m_pass = $PATH . "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("ERROR！","ユーザー設定が消失しています！$m_pass");
	}


	# 欠落情報の補完
	unless($SETTING{'BBS_THREAD_NUMBER'}){$SETTING{'BBS_THREAD_NUMBER'}=20;}
	unless($SETTING{'BBS_CONTENTS_NUMBER'}){$SETTING{'BBS_CONTENTS_NUMBER'}=10;}
	unless($SETTING{'BBS_LINE_NUMBER'}){$SETTING{'BBS_LINE_NUMBER'} = 30;}
	unless($SETTING{'BBS_MAX_MENU_THREAD'}){$SETTING{'BBS_MAX_MENU_THREAD'}=100;}
	unless($SETTING{'BBS_BG_COLOR'}){$SETTING{'BBS_BG_COLOR'}="#FFFFFF";}
	unless($SETTING{'BBS_MENU_COLOR'}){$SETTING{'BBS_MENU_COLOR'}="#CCFFCC";}
	unless($SETTING{'BBS_MAKETHREAD_COLOR'}){$SETTING{'BBS_MAKETHREAD_COLOR'}="#CCFFCC";}
	unless($SETTING{'BBS_THREAD_COLOR'}){$SETTING{'BBS_THREAD_COLOR'}="#EFEFEF";}
	unless($SETTING{'BBS_SUBJECT_COLOR'}){$SETTING{'BBS_SUBJECT_COLOR'}="#FF0000";}
	unless($SETTING{'BBS_TEXT_COLOR'}){$SETTING{'BBS_TEXT_COLOR'}="#000000";}
	unless($SETTING{'BBS_NAME_COLOR'}){$SETTING{'BBS_NAME_COLOR'}="#008800";}
	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";}
	unless($SETTING{'BBS_TITLE_COLOR'}){$SETTING{'BBS_TITLE_COLOR'}="#000000";}
}


#==================================================
#　ファイル操作（サブジェクトファイル読み込み）
#==================================================

{
	my $subject = $PATH . "subject.txt";
	use vars qw(@PAGEFILE);
	use vars qw(%SUBJECT);
	use vars qw($FILENUM);

	my ($file, $value,$filename);
	# サブジェクトファイルを読み込む
	open(SUBR,"<$subject");
	foreach(<SUBR>){
		chop;
		($file, $value) = split /<>/;
		unless($file){next;}
		$filename = $DATPATH . $file;
		if(-e $filename){ # datが存在する場合順番に追加
			push(@PAGEFILE,$file);
			$SUBJECT{$file} = $value;
		}
	}
	close(SUBR);
	# サブジェクト数を取得
	$FILENUM=@PAGEFILE;
	#パーミッション調整
	chmod(0666,$subject);
}

#==================================================
#　もしページが1ならトップに戻す
#==================================================

{
	my $lp=int($FILENUM / $SETTING{"BBS_THREAD_NUMBER"});
	if($FILENUM != $lp * $SETTING{"BBS_THREAD_NUMBER"}){
		$lp++;
	}
	
	if($FORM{'page'} eq '' || $FORM{'page'} > $lp || $FORM{'page'} == 1 && $FORM{'imode'} ne 'true'){
		$PATH .= "index.html";
		if ($SETTING{'BBS_LOCATION_CHECK'} eq 'checked') {
			print "Location: $PATH \n\n";
		} else {
			print "Content-Type: text/html; charset=shift_jis\n\n";
			print <<EOF;
<html><head>
<title>移動中</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META content=0;URL=$PATH http-equiv=refresh></head>
<body bgcolor=#EEEEEE>
移動中
</body></html>
EOF
		}
		exit;
	}

	if($FORM{'page'} =~/\D/ || $FORM{'page'} <= 0){DispError("ERROR！","ページ指定が不正です！ ")}

}


#==================================================
#　i-mode
#==================================================

{
	if($FORM{'imode'} eq 'true'){
		# 一括書き込み
		print "Content-type: text/html\n\n";
		print "<HTML>\n";
		print "<HEAD>\n";
		print "<TITLE>$SETTING{'BBS_TITLE'}</TITLE>\n";
		print "</HEAD>\n";
		print "おんぷちゃんねる i-mode <a href=\"../../../../i/\">ﾄｯﾌﾟ</a><hr>";
		print "$SETTING{'BBS_TITLE'} ： page $FORM{'page'}<hr>";

		my ($count,$key,$top,$end,$subtitle);
		$top = (($FORM{'page'}-1)*30)+1;
		$end = $top+30;
		if($end>$FILENUM){$end=$FILENUM+1;}

		for($count=$top;$count<$end;$count++){
			@PAGEFILE[$count-1]=~ /(\d*)\.dat/;
			$key = $1;
			$subtitle = $SUBJECT{@PAGEFILE[$count-1]};
			&jcode::z2h_sjis(\$subtitle);
			print "$count: <a href=\"../test/read.cgi?bbs=$FORM{'bbs'}&key=$key&imode=true\">$subtitle</a><br>";
		}
		$count=@PAGEFILE;
		my $nextpage = $FORM{'page'} + 1;
		my $prevpage = $FORM{'page'} - 1;
		print "<hr>";
		if ($end < $FILENUM){
			print "<a href=\"../test/pageview.cgi?bbs=$FORM{'bbs'}&page=$nextpage&imode=true\">次</a> ";
		}
		if ($top > 30){
			print "<a href=\"../test/pageview.cgi?bbs=$FORM{'bbs'}&page=$prevpage&imode=true\">前</a> ";
		}
		print "<a href=\"../$FORM{'bbs'}/i/index.html\">最初</a>\n";
		print "<hr></BODY></HTML>\n";
		exit;
	}
}


#==================================================
#　本HTML吐き処理
#==================================================

{
print "Content-type: text/html\n\n";
print <<EOF;
<HTML>
<HEAD>
<meta http-equiv=Content-Type content=text/html; charset=Shift_JIS>
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<SCRIPT LANGUAGE="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>
<TITLE>$SETTING{'BBS_TITLE'}</TITLE>
</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'}" background="$SETTING{'BBS_BG_PICTURE'}">
EOF

if($SETTING{'BBS_TITLE_PICTURE'}){
	print "<div align=center>";
	if($SETTING{'BBS_TITLE_LINK'}){ print "<a href=\"$SETTING{'BBS_TITLE_LINK'}\" border=0>"; }
	print "<img src=\"$SETTING{'BBS_TITLE_PICTURE'}\" border=0>";
	if($SETTING{'BBS_TITLE_LINK'}){ print "</a>"; }
	print "</div>";
}else{
	print "<div align=center>";
	if($SETTING{'BBS_TITLE_LINK'}){ print "<a href=\"$SETTING{'BBS_TITLE_LINK'}\" border=0>"; }
#	print "<FONT COLOR=\"$SETTING{'BBS_TITLE_COLOR'}\"><H1>$SETTING{'BBS_TITLE'}</H1></FONT>";
	if($SETTING{'BBS_TITLE_LINK'}){ print "</a>"; }
	print "</div>";
}

print "\n";
print<<EOF;
<table border=1 cellspacing=8 cellpadding=2 width=95%  bgcolor="$SETTING{'BBS_MAKETHREAD_COLOR'}" align=center><tr><td align="center">
<form method=POST action="../test/bbs.cgi">
<TABLE BORDER="0" CELLPADDING="1" WIDTH="100%">
	<TR><TD nowrap COLSPAN="2">
		<font size=+1><b>$SETTING{'BBS_TITLE'}</b></font><br>
EOF
if ($SETTING{'BBS_PROXY_CHECK'} eq "checked") {
	print "		<font color=#FF0000>■PROXY規制中■</font><br>\n";
}
print "	</TD>\n";
print "	<TD width=10% ALIGN=\"right\">";
&HTM("../right.txt");
print<<EOF;
</TD>
	<TD nowrap width=5% ALIGN="right" VALIGN="top"><a href="#menu">■</a> <a href="#1">▼</a></TD>
	</TR>
	<TR><TD COLSPAN="3">
EOF
&HTM($PATH."head.txt");

print<<EOF;
	<br><font color=red>この板の1スレッドの制限は最大$SETTING{'BBS_MAX_RES_COUNT'}レス、または最大$SETTING{'BBS_MAX_RES_SIZE'}KBになっています。</font><br>
EOF

print "	<br></TD></TR>\n";

if ($SETTING{'BBS_PASSWORD_CHECK'} ne "checked"){
print<<EOF;
<TR>
<TD nowrap ALIGN="right">タイトル：</TD>
<TD COLSPAN="2"><input type="text" name="subject" size="40">　<input type=submit value="新規スレッド作成" name="submit"></TD>
</TR><TR>
<TD nowrap ALIGN="right">名前：</TD>
<TD>
<SCRIPT Language="JavaScript">
<!--
	document.write("<INPUT TYPE=text NAME=FROM SIZE=20 VALUE=");
	document.write(Name, ">");
// -->
</SCRIPT>
<NOSCRIPT>
	<INPUT TYPE=text NAME=FROM SIZE=20>
</NOSCRIPT>
</TD>
<TD nowrap width=45%>E-mail<font size="1">（省略可）</font>：
<SCRIPT Language="JavaScript">
<!--
	document.write("<INPUT TYPE=text NAME=mail SIZE=20 VALUE=");
	document.write(Mail, ">");
// -->
</SCRIPT>
<NOSCRIPT>
	<INPUT TYPE=text NAME=mail SIZE=20>
</NOSCRIPT>
</TD>
<TD><br></TD></TR><TR>
<TD nowrap ALIGN="right" VALIGN="top">内容：</TD>
<TD COLSPAN="2">
<textarea rows=5 cols=60 wrap=OFF name=MESSAGE></textarea>
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$NOWTIME>
</TD></TR></TABLE>
EOF
}else{
print<<EOF;
<TD nowrap COLSPAN="5" ALIGN="center">
<input type=submit value="新規スレッド作成画面へ" name="submit">
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$NOWTIME>
</TD></TR></TABLE>
EOF
}

&HTM("../bottom.txt");
print "\n</form>\n";

	$npf=0;
	my $PAGE = $FORM{'page'};
	my $frontpage=$PAGE-1;
	if($frontpage>=1){
		print "<a href=\"./pageview.cgi?page=$frontpage&bbs=$FORM{'bbs'}\">前のページ</a>";
	}else{
		my $lp=int($FILENUM / $SETTING{"BBS_THREAD_NUMBER"});
		if($FILENUM != $lp * $SETTING{"BBS_THREAD_NUMBER"}){
			$lp++;
		}
		print "　<a href=\"./pageview.cgi?page=$lp&bbs=$FORM{'bbs'}\">最後のページ</a>";
	}
	
	my $nextpage=$PAGE+1;
	if($FILENUM>$PAGE*$SETTING{"BBS_THREAD_NUMBER"}){
		$npf=1;
		print "　<a href=\"./pageview.cgi?page=$nextpage&bbs=$FORM{'bbs'}\">次のページ</a>";
	}else{
		print "　<a href=\"./pageview.cgi?page=1&bbs=$FORM{'bbs'}\">最初のページ</a>";
	}
	print "　<a href=\"../$FORM{'bbs'}/subback.html\">過去ログ</a>";

	print "　<a href=\"../$FORM{'bbs'}/i/index.html\">i-mode</a>";
	print "　<a href=\"http://www.2ch.net/guide/faq.html\">FAQ</a>";
	print "　<a href=\"../$FORM{'bbs'}/index.html\">リロード</a></td>\n";
	
	$PAGE--;
	if($PAGE<0){
		$PAGE=0;
	}

print <<EOF;
</td></tr></table><br>
<a name="menu"></a>
<table border=1 cellspacing=8 cellpadding=2 width=95% bgcolor="$SETTING{"BBS_MENU_COLOR"}"align=center>
<tr><td><font size=2>
EOF

my $TOPFILE = $PAGE * $SETTING{"BBS_THREAD_NUMBER"};
my $ENDFILE = $TOPFILE+$SETTING{"BBS_MAX_MENU_THREAD"};

if($ENDFILE>$FILENUM){
	$ENDFILE=$FILENUM;
}


#スレッド一覧を吐き出す
	my($count,$key,$dat,$subtemp);
	for($count=$TOPFILE+1;$count<=$ENDFILE;$count++){
		$dat = $key = $PAGEFILE[$count-1];
		$key =~ /(.+)\.dat/;
		$key = $1;
		unless($1){next;}
		my $subtemp = $SUBJECT{$dat};
		if($SETTING{"BBS_THREAD_NUMBER"} > $count - $TOPFILE-1){
			print "<a href=\"../test/read.cgi?bbs=$FORM{'bbs'}&key=$key\" target=\"body\">$count</a> : <a href=\"#$count\">$subtemp</a>　\n";
		}else{
			print "<a href=\"../test/read.cgi?bbs=$FORM{'bbs'}&key=$key\" target=\"body\">$count :  $subtemp</a>　\n";
		}
	}
	print "\n";
	print "<div align=\"right\"><a href=\"../$FORM{'bbs'}/subback.html\"><b>過去ログはこちら</b></a></font>\n";
	print "</td></tr></table><br>\n";
	my $headad = "../headad.txt";
	if(-e $headad){
		open(IN, "$headad");
		my @headad = <IN>;
		close(IN);
		if (@headad){
			print "<table border=1 cellspacing=8 cellpadding=2 width=95% bgcolor=\"$SETTING{'BBS_MENU_COLOR'}\"align=center><tr><td>\n";
			foreach(@headad){print}
			print "</td></tr></table><br>\n";
		}
	}
&HTM("../headad2.txt");

$ENDFILE = $TOPFILE+$SETTING{"BBS_THREAD_NUMBER"};
if($ENDFILE>$FILENUM){
	$ENDFILE=$FILENUM;
}

### スレッドを吐き出す
	my ($front, $next, $ancnum, $dap, $first, $line);
	for(my $contnum = $TOPFILE;$contnum < $ENDFILE;$contnum++){
		$front=$contnum;
		$next=$contnum+2;
		if($front==$TOPFILE){$front=$ENDFILE;}
		if($next>$ENDFILE){$next=$TOPFILE+1;}
		$ancnum=$contnum+1;
		$dap = $PAGEFILE[$contnum];
		$dap =~ s/([^\.]*)\.dat/$1/;
		print "\n";
		open(IN, "$TEMPPATH$dap.html");
		$first=<IN>;
		$first =~ s/\$ANCOR/$ancnum/g;
		$first =~ s/\$FRONT/$front/g;
		$first =~ s/\$NEXT/$next/g;
		print $first;
		print while <IN>;
		close(IN);
		print <<EOF;
		<input type=hidden name=time value=$NOWTIME>
<b>
	<a href="../test/read.cgi/$FORM{'bbs'}/$dap/">レスを全部読む</a> 
	<a href="../test/read.cgi/$FORM{'bbs'}/$dap/l50">最新レス50</a> 
	<a href="../test/read.cgi/$FORM{'bbs'}/$dap/-100">レス1-100</a> 
	<a href="#menu">掲示板のトップへ</a> <a href="../$FORM{'bbs'}/./index.html">リロード</a>
</b></form></DL></td></tr></table></TD></TR></DL></TABLE><br>
EOF

	}

$FORM{'page'}=$FORM{'page'}+1;

if($npf){
print <<EOF;
<table border=1 cellspacing=8 cellpadding=2 width=95% bgcolor="$SETTING{'BBS_MENU_COLOR'}"align=center>
<tr><td align=center>
<a href="../test/pageview.cgi?page=$FORM{'page'}&bbs=$FORM{'bbs'}"><font size=5><b>次のページ</b></font></a>
</td></tr>
</table>
EOF
}

print "<table border=0 align=center><tr><td><center>";

print "<br><br>";

&HTM("../bottom_ad.txt");

print "\n";
print "</center></tr></td></table></body></html>";


exit;
}

sub HTM {
	my ($file,$h) = @_;
	if($h){select(HTM);}
	if(-e $file){
		open(IN, "$file");
		print while <IN>;close(IN);
	}
	if($h){select(STDOUT);}
}
#ロケーションジャンプ（エラー処理）
sub LocationJump{
	print "Location: http://2ch.net/ \n\n";
	exit;
}

#エラー画面（エラー処理）
#DispError(TITLE,TOPIC);
sub DispError{
	my $title=$_[0];
	my $topic=$_[1];
	print "Content-type: text/html; charset=shift_jis\n\n";
	#-----------------------------------------------------------------------
print <<EOF;
<html>
<head>
<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body bgcolor="#FFFFFF">
<font size=+1 color=#FF0000><b>$topic</b></font>
<center>こちらでリロードしてください。<a href="../$FORM{'bbs'}/index.html"> GO! </a><br>


</body>
</html>
EOF
	#-----------------------------------------------------------------------
	exit;
}