#! /usr/local/bin/perl

#
#	くずはすくりぷと Final Beta #3 (Preview Release 2)
#	 (掲示板本体)
#

###############################################################################
#  設定
###############################################################################

# 管理者パスワード (bbspass.cgiで生成された文字列を記述)
$adminpost = '';

# 掲示板CGIのURL
$cgiurl = 'http://cgi.iwa.server.ne.jp/strangeworld/bbs.cgi';

# 管理ツールのファイル名
$admincgi = 'bbsadmin.cgi';

# jcode.plのパス
$jcode = './jcode.pl';

# gzipのパス
#  (gzip圧縮転送機能を使用しない場合は空のままにしておきます)
$gzip = '/usr/bin/gzip';

# CGIを設置するホストアドレス
$bbshost = 'cgi.iwa.server.ne.jp';

# ログファイル名
$logfilename = './bbs.log';

# カウンターのスタート日付
$countdate = '2000/01/05';

# カウンターのファイル名の先頭部分
$countfile = './count1/count';

# カウンターの壊れにくさレベル
$countlevel = 3;

# メッセージの保存数
$logsave = 300;

# １画面に表示するメッセージの表示数
#  (1〜メッセージの保存数)
$msgdisp = 30;

# サーバー設置場所と日本との時差
#   日本             : 0
#   グリニッジ標準時 : -9
#   アメリカ         : -14 (ワシントン)
#                    : -20 (ミッドウェー諸島)
#   ニュージーランド : 3
$difftime = 0;

# 掲示板の名前
$bbstitle = 'ぁゃιぃわーるど＠あにめ';

# 背景色
$bgc    = '004040';

# テキスト色
$textc  = 'ffffff';

# 引用行テキスト色
$quotc  = 'ffffff';

# リンク色
$linkc  = 'eeffee';
$vlinkc = 'dddddd';
$alinkc = 'ff0000';

# 題名の色
$subjc  = 'fffffe';

# フォロー投稿画面ボタンに表示する文字
$txtfollow = '■';

# 同一画面フォロー投稿ボタンに表示する文字
$txtfollow2 = '□';

# 投稿者検索ボタンに表示する文字
$txtauthor = '★';

# スレッド表示ボタンに表示する文字
$txtthread = '◆';

# 昇順スレッド表示ボタンに表示する文字
$txtthread2 = '◇';


# フォロー投稿時に相手の投稿者名に付加する文字
# （一般の掲示板では「さん」などを付けると良いでしょう）
$fsubj = '';

# 過去ログの背景色
$oldlogbgc = '004040';

# 過去ログ保存用ディレクトリの名前
$oldlogfiledir = './log/';

# 過去ログからのフォロー投稿・投稿者検索
#   0 : 不可
#   1 : 可
$oldlogbtn = 1;

# 過去ログの保存方法
#   0 : 日毎
#   1 : 月毎
$oldlogsavesw = 0;

# 過去ログの保存日数
#  (過去ログ保存単位が日毎の場合にのみ有効)
$oldlogsaveday = 10;

# 過去ログの最大ファイルサイズ
$maxoldlogsize = 4 * 1024 * 1024;

#二重書き込みチェック件数
$checkcount = 30;

# １メッセージの最大桁数
$maxmsgcol = 192;

# １メッセージの最大行数
$maxmsgline = 100;

# １メッセージの最大サイズ(byte)
$maxmsgsize = 8400;

# 連続投稿防止コード（必ず変更すること）
$protect_a = ;	# ８桁の数字
$protect_b = ;		# ２桁の数字

$pstime = 5;
$pltime = 3600;

# 自動リンク機能の初期値
#   0 : 無効
#   1 : 有効
$autolink = 1;

# フォロー投稿画面表示
#   0 : 新規ウィンドウをオープンして表示
#   1 : 同一画面に表示
$followwin = 0;

# 投稿者IPアドレスの記録
#   0 : 記録しない
#   1 : 匿名プロクシのみ記録
#   2 : 全て記録
$iprec = 0;

# User Agent(ブラウザ名)の記録
#   0 : 無効
#   1 : 有効
$uarec = 0;

# 管理人の名前
$adminname = '管理人';

# 管理人のメールアドレス
$adminmail = 'webmaster@iwa.server.ne.jp';

# データの受渡方法
$formmethod = 'post';

### ＠あにめカスタム
# 自動画像展開とview-sourceの有無
#   0 : 無効
#   1 : 有効
$animeauto = 1;

### ＠あにめカスタム
# 自動画像展開の初期値
#   0 : 無効
#   1 : 有効
$autoimg = 0;

### ＠あにめカスタム
# view-sourceチェックの初期値
#   0 : 無効
#   1 : 有効
$autovs = 0;


###############################################################################
#  時刻フォーマット変換
###############################################################################

sub getnowdate {
	
	( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat )
		= localtime ( $_[0] );
	$year += 1900;
	$mon++;
	$nowdate = sprintf ( "%d/%02d/%02d(%s)%02d時%02d分%02d秒", 
		$year, $mon, $mday, 
		( '日', '月', '火', '水', '木', '金', '土' )[$wday],
		$hour, $min, $sec );
}


###############################################################################
#  フォームデータ取得
###############################################################################

sub getformdata {
	
	#my ( $buf, $name, $value );
	my ( $name, $value );
	
	if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) {
		read ( STDIN, $buf, $ENV{'CONTENT_LENGTH'} );
	} else {
		$buf = $ENV{'QUERY_STRING'};
	}
	
	if ( $buf ne '' ) {
		
		&prterror ( '呼び出し元が不正です。' ) 
		  if ( $ENV{'HTTP_HOST'} ne '' && ! ( $ENV{'HTTP_HOST'} =~ /$bbshost/i ) );
		
		$referer = $ENV{'HTTP_REFERER'};
		$referer =~ s/\+/ /g;
		$referer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ( "C", hex ( $1 ) )/eg;
		
		foreach ( split ( /&/, $buf ) ) {
			( $name, $value ) = split ( /=/ );
			$value =~ s/\+/ /g;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ( "C", hex ( $1 ) )/eg;
			$value =~ s/&/&amp;/g;
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
			$value =~ s/\r\n/\r/g;
			$value =~ s/\n/\r/g;
			$value =~ s/\r$//;
			$value =~ s/\,/\0/g;
			$FORM{$name} = $value;
		}
		
		if ( $FORM{'charchk'} ne 'あ' && $FORM{'message'} ) {
			require "$jcode";
			foreach ( keys %FORM ) {
				&jcode'convert ( *FORM{$_}, 'sjis' );
			}
		}
	}
}


###############################################################################
#  環境変数取得
###############################################################################

sub getenv {
	
	if ( $uarec ) {
		$agent = $ENV{'HTTP_USER_AGENT'};
		$agent =~ s/</&lt;/g;
		$agent =~ s/>/&gt;/g;
		$agent =~ s/,/./g;
	}
	
	if ( $iprec == 0 ) { return; }
	
	$addr = $ENV{'REMOTE_ADDR'};
	$host = $ENV{'REMOTE_HOST'};
	if ( $addr eq $host || $host eq '' ) {
		$host = gethostbyaddr ( pack ( 'C4', split ( /\./, $addr ) ), 2 ) || $addr;
	}
	
	$proxyflg = 0;
	
	if ( $ENV{'HTTP_CACHE_CONTROL'} ne '' )			{ $proxyflg = 1; }
	if ( $ENV{'HTTP_CACHE_INFO'} ne '' )			{ $proxyflg += 2; }
	if ( $ENV{'HTTP_CLIENT_IP'} ne '' )				{ $proxyflg += 4; }
	if ( $ENV{'HTTP_FORWARDED'} ne '' )				{ $proxyflg += 8; }
	if ( $ENV{'HTTP_FROM'} ne '' )					{ $proxyflg += 16; }
	if ( $ENV{'HTTP_PROXY_AUTHORIZATION'} ne '' )	{ $proxyflg += 32; }
	if ( $ENV{'HTTP_PROXY_CONNECTION'} ne '' )		{ $proxyflg += 64; }
	if ( $ENV{'HTTP_SP_HOST'} ne '' )				{ $proxyflg += 128; }
	if ( $ENV{'HTTP_VIA'} ne '' )					{ $proxyflg += 256; }
	if ( $ENV{'HTTP_X_FORWARDED_FOR'} ne '' )		{ $proxyflg += 512; }
	if ( $ENV{'HTTP_X_LOCKING'} ne '' )				{ $proxyflg += 1024; }
	if ( $agent =~ /cache|delegate|gateway|httpd|proxy|squid|www|via/i ) {
		$proxyflg += 2048;
	}
	if ( $host =~ /cache|^dns|dummy|^ns|firewall|gate|keep|mail|^news|pop|proxy|smtp|w3|^web|www/i ) {
		$proxyflg += 4096;
	}
	if ( $host eq $addr ) {
		$proxyflg += 8192;
	}
	
	$realaddr = '';
	$realhost = '';
	if ( $proxyflg > 0 ) {
		
		if ( $ENV{'HTTP_X_FORWARDED_FOR'} =~
		  s/^(\d+)\.(\d+)\.(\d+)\.(\d+).*/$1.$2.$3.$4/ ) {
			$realaddr = "$1.$2.$3.$4";
		} elsif ( $ENV{'HTTP_FORWARDED'} =~ 
		  s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) {
			$realaddr = "$1.$2.$3.$4";
		} elsif ( $ENV{'HTTP_VIA'} =~
		  s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) {
			$realaddr = "$1.$2.$3.$4";
		} elsif ( $ENV{'HTTP_CLIENT_IP'} =~
		  s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) {
			$realaddr = "$1.$2.$3.$4";
		} elsif ( $ENV{'HTTP_SP_HOST'} =~
		  s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) {
			$realaddr = "$1.$2.$3.$4";
		} elsif ( $ENV{'HTTP_FORWARDED'} =~ s/.*\sfor\s(.+)/$1/ ) {
			$realhost = "$1";
		} elsif ( $ENV{'HTTP_FROM'} =~ s/\-\@(.+)/$1/ ) {
			$realhost = "$1";
		}
		
		if ( $realaddr eq '' && $realhost ne '' ) {
			$realpackaddr = gethostbyname ( $realhost );
			( $a, $b, $c, $d ) = unpack ( 'C4', $realpackaddr );
			$realaddr = "$a.$b.$c.$d";
		}
		
		if ( $realaddr ne '' && $iprec != 2 ) {
			$host = '(leak)';
		}
	} else {
		$host = '(none)' if ( $iprec != 2 );
	}
}


###############################################################################
#  文字列のエンコード
###############################################################################

sub escstring {
	
	my ( $srcstr ) = $_[0];
	
	$srcstr =~ s/([^a-zA-Z0-9\s])/sprintf ( "%%%lx", ( unpack ( "C", $1 ) ) )/eg;
	$srcstr =~ s/ /\+/g;
	
	return $srcstr;
}


###############################################################################
#  メッセージ読み込み
###############################################################################

sub loadmessage {
	
	if( $FORM{'file'} eq '' ) {
		open ( READLOG, "$logfilename" ) || &prterror ( 'メッセージ読み込みに失敗しました' );
	} else {
		open ( READLOG, "$FORM{'file'}" ) || &prterror ( 'メッセージ読み込みに失敗しました' );
	}
	eval 'flock ( READLOG, 1 )';
	seek ( READLOG, 0, 0 );
	@logdata = <READLOG>;
	eval 'flock ( READLOG, 8 )';
	close ( READLOG );
}


###############################################################################
#  メッセージ１件取得
###############################################################################

sub getmessage {
	
	( $ndate, $postid, $protect, $thread, $host, $agent, $user, $mail, $title, $msg )
	  = split ( /\,/, $_[0] );
	$msg =~ s/\n$//;
	$title =~ s/\0/\,/g;
	$mail =~ s/\0/\,/g;
	$user =~ s/\0/\,/g;
	$msg =~ s/\0/\,/g;
	$wdate = &getnowdate ( $ndate );
}


###############################################################################
#  メッセージ１件出力
###############################################################################

sub prtmessage {
	
	my $mode = $_[0];
	my $file = $_[1];
	my ( $tag, $refdate, $prtmessage, $btn, $btnfollow, $btnfollow2, $btnauthor, $btnthread, $btnthread2 );
	
	#$title =~ s/\0/\,/g;
	#$mail =~ s/\0/\,/g;
	#$user =~ s/\0/\,/g;
	#$msg =~ s/\0/\,/g;

	### autoimg 追加 ###
	#
	# jpg か gif の時のみ展開（PNGは追加しない）
	#
	if ( mode == 0 ) {
		if ( $autoimg eq '1' || $FORM{'autoimg'} ) {
			if ( $msg !~ /\?/g ) {
				$msg =~ s#<a href=\"http://((=[\x21-\xfc]+|[\x21-\x7e])+(jpg|gif))\" target=\"link\">http://((=[\x21-\xfc]+|[\x21-\x7e])+(jpg|gif))</a>#<img src=\"http://$1\" alt=\"http://$1\">#ig;
			}
		}
	}

	### 引用テキスト色変え ###
	#
	if ( mode == 0 ) {
		$msg=~s/(^|\r)(&gt;[^\r]*)/$1<font color=\"#$quotc\">$2<\/font>/g;
		$msg=~s/<\/font>\r<font color=\"#$quotc\">/\r/g;
	}

	# 「参考」
	if ( $mode == 0 ) {
		$msg =~ s/<A href=\"mode=follow\&search=(.*)\&ref=(.*)\">(.*)<\/A>/<A href=\"$cgiurl\?bgcolor=$bgc\&mode=follow\&search=$1\&ref=$2\">$3<\/A>/i;
	} else {
		$msg =~ s/<A href=\"mode=follow\&search=(.*)\&ref=(.*)\">(.*)<\/A>/<A href=\"#$1\">$3<\/A>/i;
	}

	$prtmessage = $msgtemp;
	
	if ( $mode == 0 || ( $mode == 1 && $oldlogbtn == 1 ) ) {
		
		# フォロー投稿ボタン
		$btnfollow = "<A href=\"$cgiurl\?mode\=follow\&username=".
		  &escstring ( $FORM{'username'} ) .
		  "&msgdisp=$FORM{'msgdisp'}&postid=$toppostid&search\=$postid\&".
		  "file=$file\&autoimg=$FORM{'autoimg'}\&autolink=$FORM{'autolink'}\&custom\=$FORM{'custom'}\"";
		if ( $followwin == 0 ) {
			$btnfollow .= " target=\"link\"";
		}
		$btnfollow .= ">$txtfollow</A>　\n";
		
		#同一画面フォロー投稿ボタン
		$btnfollow2 = "<A href=\"$cgiurl\?mode\=follow2\&username=".
		  &escstring ( $FORM{'username'} ) .
		  "&msgdisp=$FORM{'msgdisp'}&postid=$toppostid&search\=$postid\&".
		  "file=$file\&autoimg=$FORM{'autoimg'}\&autolink=$FORM{'autolink'}\&custom\=$FORM{'custom'}\"";
		$btnfollow2 .= ">$txtfollow2</A>　\n";
		
		# 投稿者検索ボタン
		$btnauthor = "<A href=\"$cgiurl\?mode\=search\&search\=".
		  &escstring ( $user ) .
		  "\&file=$file\&autoimg=$FORM{'autoimg'}\&autolink=$FORM{'autolink'}\&custom=$FORM{'custom'}\"".
		  " target=\"link\">$txtauthor</A>　\n";
		
		# スレッド表示ボタン
		if ( $thread ) {
			$btnthread = "<A href=\"$cgiurl\?mode\=thread\&custom=$FORM{'custom'}".
			  "\&file=$file\&search\=$thread\" target=\"link\">$txtthread</A>　\n";
			$btnthread2 = "<A href=\"$cgiurl\?mode\=thread2\&custom=$FORM{'custom'}".
			  "\&file=$file\&search\=$thread\" target=\"link\">$txtthread2</A>\n";
		} else {
			$btnthread = '';
		}
		
		$btn = "　\n  $btnfollow  $btnfollow2  $btnauthor  $btnthread  $btnthread2";
	} else {
		$btn = '';
	}
	
	# メールアドレス
	if ( $mail ) {
		$user = "<A href=\"mailto\:$mail\">$user<\/A>";
	}
	
	# メッセージ表示内容定義
	$prtmessage = <<__EOF__;
<FONT size="+1" color="#$subjc"><B>$title</B></FONT>
　投稿者：<B>$user</B>
　<FONT size="-1">投稿日：$wdate$btn</FONT>
<BLOCKQUOTE>
<PRE>
$msg
</PRE>
</BLOCKQUOTE>
<HR>
__EOF__
	
	return $prtmessage;
}


###############################################################################
#  こわれにくいカウンター処理
###############################################################################

sub counter {
	
	my ( @count, @filenumber, @sortedcount, $maxcount, $mincount );
	
	for ( $i = 0 ; $i < $countlevel ; $i++ ) {
		open ( IN, "$countfile$i.dat" );
		$count[$i] = <IN>;
		$filenumber{$count[$i]} = $i;
		close ( IN );
	}
	
	@sortedcount = sort { $a <=> $b; } @count;
	$maxcount = $sortedcount[$countlevel-1];
	$mincount = $sortedcount[0];
	
	$maxcount++;
	
	open ( OUT, ">$countfile$filenumber{$mincount}.dat" );
	print OUT $maxcount;
	close ( OUT );
	
	return $maxcount;
}


###############################################################################
#  エラーメッセージ表示
###############################################################################

sub prterror {
	
	my $error = $_[0];
	
	print <<__EOF__;
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$bbstitle (error)</TITLE>
</HEAD>
$body
<H3>$error</H3>
</BODY>
</HTML>
__EOF__
	
	exit;
}


###############################################################################
#  フォロー画面表示
###############################################################################

sub prtfollow {
	
	my $retry = $_[0];
	my $success = 0;
	my $formmsg;
	
	&loadmessage( "$FORM{'file'}" );
	
	&prterror ( 'パラメータがありません。' ) if ( $FORM{'search'} eq '' );
	
	print "<html><head><title>$bbstitle</title></head>\n$body\n<hr>\n";
	
	foreach ( 0 .. @logdata - 1 ) {
		&getmessage ( $logdata[$_] );
		if ( $postid eq $FORM{'search'} ) {
			$success = 1;
			last;
		}
		$i++;
	}
	
	if ( $success == 0 ) {
		print "<h3>指定されたメッセージが見つかりません。</h3><body></html>";
		exit;
	}
	
	if ( $retry == 0 ) {
		$formmsg = $msg;
		#$formmsg =~ s/\0/\,/g;
		$formmsg =~ s/\r\r\<A href\=\S+\>参考：.*\<\/A\>//i;
		$formmsg =~ s/\<A href\=\S+ target\=\"link\"\>(\S+)\<\/A\>/$1/ig;
		$formmsg =~ s/\r/\r&gt; /g;
		$formmsg = "&gt; $formmsg\r";
		$formmsg =~ s/&gt; &gt; &gt;.*?\r//g;
		$formmsg =~ s/\r&gt;\s+\r/\r/g;
	} else {
		$formmsg = $FORM{'message'};
	}
	
	print &prtmessage ( 0, "$FORM{'file'}" );
	
	if ( $thread eq '' ) {
		$thread = $postid;
	}
	
	if ( $user =~ /\<A\shref=\"mailto\:.*\"\>(.*)\<\/A\>/ ) {
		$user = $1;
	}
	print "フォロー記事投稿<br>";
	&prtform ( "＞$user$fsubj", "$formmsg\r", '' );
	
	print <<__EOF__;
  <BR>
  <INPUT type=\"hidden\" name=\"msgdisp\" value=\"$FORM{'msgdisp'}\">
  <FONT size="-1">URL自動リンク <INPUT type=\"checkbox\" name=\"autolink\" value=\"checked\" $FORM{'autolink'}></FONT><BR>
  <INPUT type=\"hidden\" name=\"autoimg\" value=\"$FORM{'autoimg'}\">
  <INPUT type=\"hidden\" name=\"postid\" value=\"$FORM{'postid'}\">
  <INPUT type=\"hidden\" name=\"search\" value=\"$FORM{'search'}\">
__EOF__

	if( $FORM{'mode'} eq 'follow2' ) {
		print "<INPUT type=\"hidden\" name=\"follow2\" value=\"1\">";
	}

	print <<__EOF__;
  <INPUT type=\"hidden\" name=\"thread\" value=\"$thread\">
  <INPUT type=\"hidden\" name=\"follow\" value=\"$postid:$wdate\">
  <HR>
</FORM>
</BODY>
</HTML>
__EOF__
	
	exit;
}


###############################################################################
#  メッセージチェック
###############################################################################

sub chkmessage {
	
	my ( @hostbin, $admincheck, $adminfname );
	
	if ( ! ( $referer =~ /$cgiurl/i ) ) {
		&chkerror ( "投稿画面のＵＲＬが<br>$cgiurl<br>" .
		  '以外からの投稿はできません。',  3 );
	}
	
	$i = 0;
	foreach ( split ( /\r/, $FORM{'message'} ) ) {
		if ( length ( $_ ) > $maxmsgcol ) {
			$i++;
		}
	}
	if ( $i != 0 ) { &chkerror ( '投稿内容の桁数が大きすぎます。', 10 ); }
	
	if ( ( $FORM{'message'} =~ tr/\r/\r/ ) > ( $maxmsgline - 1 ) ) {
		&chkerror ( '投稿内容の行数が大きすぎます。', 11 );
	}
	
	if ( length ( $FORM{'message'} ) > $maxmsgsize ) {
		&chkerror ( '投稿内容が大きすぎます。', 12 );
	}
	
	if ( $FORM{'protect'} ne '' ) {
		@hostbin = split ( /\./, $ENV{'REMOTE_ADDR'} );
		for ( $i = 0 ; $i < 4 ; $i++ ) {
			$hostbin[$i] = vec ( pack ( 'C4', $hostbin[$i] ), 0, 8 );
		}
		$protect_c = $hostbin[0] ^ $hostbin[1] ^ $hostbin[2] ^ $hostbin[3];
		$pcheck = ( $FORM{'protect'} - $protect_c ) / $protect_b - $protect_a;
		&getnowdate ( $pcheck );
		if ( ( $sec  < 0 ) || ( $sec  > 60 ) || 
		  ( $min  < 0 ) || ( $min  > 60 ) ||
		  ( $hour < 0 ) || ( $hour > 24 ) ) {
			&chkerror ( '', 32 );
		}
		if ( ( $nowtime - $pcheck ) < $pstime ) {
			&chkerror ( 'もう一度やり直して下さい。', 30 );
		}
		if ( ( $nowtime - $pcheck ) > $pltime ) {
			&chkerror ( '', 31 );
			if ( $FORM{'follow'} ne '' ) {
				&prtfollow ( 1 );
			} else {
				&prtmain ( $FORM{'title'}, $FORM{'message'}, $FORM{'linkurl'} );
			}
			exit;
		}
	} else {
		&chkerror ( 'フォームデータの一部に欠落があります。もう一度やり直して下さい。', 33 );
	}
	
	if ( $FORM{'mailaddr'} =~ / /i ) {
		$FORM{'mailaddr'} = '';
	}
	if ( $FORM{'mailaddr'} ne '' ) {
#		if ( ! ( $FORM{'mailaddr'} =~ /(.*)\@(.*)\.(.*)/ ) ) {
		if ( ! ( $FORM{'mailaddr'} =~ /.*\@.*\..*/ ) ) {
			&chkerror ( 'メールアドレスが正しく入力されていません。', 20 );
		} elsif ( $FORM{'mailaddr'} =~ /,/ ) {
			&chkerror ( 'メールアドレスは複数指定できません。', 21 );
		}
	}
	
	if ( $FORM{'title'} eq '' ) {
		$FORM{'title'} = ' ';
	}
	
	if ( $FORM{'username'} eq '' ) {
		$FORM{'username'} = '　';
	}
	
	if ( crypt ( "[$FORM{'username'}]", 'r7' ) eq $adminpost ) {
		$FORM{'username'} = $adminname;
		$FORM{'mailaddr'} = $adminmail;
	} else {
		if ( $FORM{'username'} eq $adminpost ) {
			$FORM{'username'} = "$adminname（ハカー）";
		}
		$adminfname = $adminname;
		$adminfname =~ s/\x5b/\\x5b/g;
		if ( $FORM{'username'} =~ /$adminfname/i ) {
			$admincheck = $FORM{'username'};
			$admincheck =~ s/ //g;
			$admincheck =~ s/　//g;
			$admincheck =~ s/_//g;
			if ( $admincheck eq $adminname ) {
				$FORM{'username'} =~ s/$adminfname/$adminname（騙り）/;
			}
		}
	}
	
	if ( $FORM{'autolink'} eq 'checked' ) {
		$FORM{'message'} =~ s#((https?|ftp|gopher|telnet|whois|news)://(=[\x21-\xfc]+|[\x21-\x7e])+)#<A href="$1" target="link">$1</A>#ig;
	}
	
	if ( $FORM{'linkurl'} =~ '^\w+\:\/\/$' || $FORM{'linkurl'} =~ /\s+/ || $FORM{'linkurl'} eq '' ) {
		$FORM{'linkurl'} = '';
	} else {
		$FORM{'linkurl'} =~ s/http:\/\/http:\/\//http:\/\//;
		$FORM{'message'} .= "\r\r<A href=\"$FORM{'linkurl'}\" target=\"link\">$FORM{'linkurl'}</A>";
	}
	if ( $FORM{'follow'} ne '' ) {
		( $i, $j ) = split ( /:/, $FORM{'follow'} );
		$FORM{'message'} .= "\r\r<A href=\"mode=follow\&search=$i\&ref=$j\">参考：$j</A>";
	}
}


###############################################################################
#  メッセージチェックエラー処理
###############################################################################

sub chkerror {
	
	my $errstr = $_[0];
	$posterr = $_[1];
	
	&prterror ( $errstr ) if ( $errstr ne '' );
}


###############################################################################
#  メッセージ登録
###############################################################################

sub putmessage {
	
	my $oldlogext;
	
	open ( FLOG, "+<$logfilename" ) || &prterror ( 'メッセージ読み込みに失敗しました' );
	eval 'flock ( FLOG, 2 )';
	seek ( FLOG, 0, 0 );
	@logdata = <FLOG>;
	
	$i = 0;
	$posterr = 0;
	while ( $i < $logsave && $posterr == 0 ) {
		@items = split ( /\,/, $logdata[$i] );
		$items[9] =~ s/\n$//;
		$posterr = 1 if ( $i < $checkcount && $FORM{'message'} eq $items[9] );
		$posterr = 2 if ( $FORM{'protect'} eq $items[2] );
		$i++;
	}
	
	if ( $posterr == 0 ) {
		
		@items = split ( /\,/, $logdata[0] );
		$newpostid = $items[1] + 1;
		$msgdata = "$nowtime,$newpostid,$FORM{'protect'},$FORM{'thread'},$host,$agent,$FORM{'username'},$FORM{'mailaddr'},$FORM{'title'},$FORM{'message'}\n";
		
		@logdata = @logdata[0 .. $logsave - 2] if ( @logdata >= $logsave );
		unshift ( @logdata, $msgdata );
		
		$oldstream = select ( FLOG );
		$| = 1;
		seek ( FLOG, 0, 0 );
		truncate ( FLOG, 0 );
		print FLOG @logdata;
		eval 'flock ( FLOG, 8 )';
		close ( FLOG );
		
		select ( $oldstream );
		
		&getnowdate ( $nowtime );
		
		# 過去ログ出力
		if ( $oldlogfiledir ne '' ) {
			
			if ( $oldlogsavesw == 0 ) {
				$oldlogfilename = sprintf ( "%s/%d%02d%02d.dat",
				  $oldlogfiledir, $year, $mon, $mday );
			} else {
				$oldlogfilename = sprintf ( "%s%d%02d.dat",
				  $oldlogfiledir, $year, $mon );
			}
			
			open ( CLOG, ">>$oldlogfilename" ) || &prterror ( '過去ログ出力に失敗しました' );
			eval 'flock ( CLOG, 2 )';
			
			$oldstream = select ( CLOG );
			$| = 1;
			print CLOG $msgdata;
			eval 'flock ( CLOG, 8 )';
			close ( CLOG );
			
			select ( $oldstream );
			
			chmod 0400, $logfilename if ( ( -s $oldlogfilename ) > $maxoldlogsize );
			
			&getnowdate ( time + $difftime - $oldlogsaveday * 60 * 60 * 24 );
			$oldlogfilename = sprintf (  "%s/%d%02d%02d.*",
			  $oldlogfiledir, $year, $mon, $mday );
			unlink $oldlogfilename;
		}
		
	} else {
		eval 'flock ( FLOG, 8 )';
		close ( FLOG );
		
		if ( $posterr == 2 ) {
			&chkerror ( '', $posterr );
			if ( $FORM{'follow'} ne '' ) {
				&prtfollow ( 1 );
			} else {
				&prtmain ( $FORM{'title'}, $FORM{'message'}, $FORM{'linkurl'} );
			}
			exit;
		}
	}
}


###############################################################################
#  プロテクトコード生成
###############################################################################

sub pcode {
	
	my ( @hostbin, @pkey, @pkeystr, @apkey );
	srand ( time | $$ );
	
	$nowtime = time - $difftime * 60 * 60;
	@hostbin = split ( /\./, $ENV{'REMOTE_ADDR'} );
	for ( $i = 0 ; $i < 4 ; $i++ ) {
		$hostbin[$i] = vec ( pack ( 'C4', $hostbin[$i] ), 0, 8 );
	}
	$protect_c = $hostbin[0] ^ $hostbin[1] ^ $hostbin[2] ^ $hostbin[3];
	$pkey[0] = ( $nowtime + $protect_a ) * $protect_b + $protect_c;
	$pkey[1] = $pkey[0] - int ( rand ( 64 ) );
	$pkey[2] = $pkey[1] + int ( rand ( 128 ) );
	
	$pkeystr[0] = "\n  <INPUT type=\"hidden\" name=\"protect\" value=\"$pkey[0]\">\n";
	$pkeystr[1] = "  <!--\n  <INPUT type=\"hidden\" name=\"protect\" value=\"$pkey[1]\">\n  -->";
	$pkeystr[2] = "  <!--\n  <INPUT type=\"hidden\" name=\"protect\" value=\"$pkey[2]\">\n  -->";
	
	push ( @apkey, splice ( @pkeystr, rand ( @pkeystr ), 1 ) ) while @pkeystr;
	@pkeystr = @apkey;
	
	return "$pkeystr[0]$pkeystr[1]$pkeystr[2]";
}


###############################################################################
#  フォーム部分表示
###############################################################################

sub prtform {
	
	my $dtitle = $_[0];
	my $dmsg = $_[1];
	my $dlink = $_[2];
	
	# プロテクトコード生成
	my $ptext = &pcode;
	
	if ( $FORM{'mode'} eq 'rom' ) {
		print <<__EOF__;
<FORM method="$formmethod" action="$cgiurl">
  <INPUT type="hidden" name="mode" value="rom">
  <INPUT type="hidden" name="charchk" value="あ">
  <INPUT type="hidden" name="custom" value="$FORM{'custom'}">
__EOF__
	} else {
		print <<__EOF__;
<FORM method="$formmethod" action="$cgiurl">
  <INPUT type="hidden" name="mode" value="post">
  投稿者 <INPUT size="20" type="text" name="username" maxlength="30" value="$FORM{'username'}"><BR>
  メール <INPUT size="30" type="text" name="mailaddr" maxlength="255" value="$FORM{'mailaddr'}"><BR>
  題名 　<INPUT size="30" type="text" name="title" maxlength="40" value="$dtitle">
  <INPUT type="submit" name="post" value="投稿／リロード"> <INPUT type="reset" value="消す"><BR>
  内容 <FONT size="-1"><I>
  （適当に改行を入れてください。タグは使えません。内容を書かずに投稿ボタンを押すとリロードになります）
  </I></FONT><BR>
  <TEXTAREA rows="5" cols="70" name="message">$dmsg</TEXTAREA><BR>
  URL <FONT size="-1"><I>（リンクを入れたい場合はここに記入します）</I></FONT><BR>
  <INPUT size="70" type="text" name="linkurl" maxlength="255" value="$dlink">
  $ptext
  <INPUT type="hidden" name="charchk" value="あ">
  <INPUT type="hidden" name="custom" value="$FORM{'custom'}">
__EOF__
	}
}


###############################################################################
#  画面表示
###############################################################################

sub prtmain {
	
	my ( @prtmessage, $dispcount, @pkeystr, $msgmore, $msgnext, $cntnext, $counter );
	my $dtitle = $_[0];
	my $dmsg = $_[1];
	my $dlink = $_[2];
	
	&loadmessage( "$FORM{'file'}" );
	
	# 最新のPOSTIDを取得（０件リロード用）
	$logdata[0] =~ /^.*,(.*),.*,.*,.*,.*,.*,.*,.*,.*/;
	$toppostid = $1;
	
	# メッセージ表示件数設定
	if ( $FORM{'msgdisp'} == 0 ) {
		$dispcount = $toppostid - $FORM{'postid'};
		$cntnext = $msgdisp;
	} else {
		$dispcount = $FORM{'msgdisp'};
		$cntnext = $FORM{'msgdisp'};
	}
	
	# 表示メッセージ作成
	$msgtop = $bmsg + $dispcount;
	$msgtop = @logdata if ( $msgtop > @logdata );
	$j = 0;
	
	if ( $FORM{'msgdisp'} == 0 && $reltype == 1 ) {
		for ( $i = $msgtop - 1 ; $i >= $bmsg ; $i-- ) {
			&getmessage ( $logdata[$i] );
			$prtmessage[$j] = &prtmessage ( 0, "$FORM{'file'}" );
			$j++
		}
	} else {
		for ( $i = $bmsg ; $i < $msgtop ; $i++ ) {
			&getmessage ( $logdata[$i] );
			$prtmessage[$j] = &prtmessage ( 0, "$FORM{'file'}" );
			$j++
		}
	}
	$bmsg++;
	if ( $j > 0 ) {
		$msgmore = "以上は、現在登録されている新着順$bmsg番目から$msgtop番目までの記事です。"
	} else {
		$msgmore = '未読メッセージはありません。';
	}
	if ( $logdata[$msgtop] ne '' && $j > 0 ) {
		$msgnext = <<__EOF__;
<TABLE>
  <TR>
    <TD>
      <FORM method="$formmethod" action="$cgiurl">
        <INPUT type="hidden" name="mode" value="page">
        <INPUT type="hidden" name="bmsg" value="$msgtop">
        <INPUT type="hidden" name="username" value="$FORM{'username'}">
        <INPUT type="hidden" name="msgdisp" value="$cntnext">
        <INPUT type="hidden" name="autolink" value="$FORM{'autolink'}">
        <INPUT type="hidden" name="autoimg" value="$FORM{'autoimg'}">
        <INPUT type="hidden" name="custom" value="$FORM{'custom'}">
        <INPUT type="submit" name="pnext" value="次のページ">
      </FORM>
    </TD>
    <TD>
      <FORM method="$formmethod" action="$cgiurl">
        <INPUT type="hidden" name="username" value="$FORM{'username'}">
        <INPUT type="hidden" name="postid" value="$toppostid">
        <INPUT type="hidden" name="msgdisp" value="$FORM{'msgdisp'}">
        <INPUT type="hidden" name="autolink" value="$FORM{'autolink'}">
        <INPUT type="hidden" name="autoimg" value="$FORM{'autoimg'}">
        <INPUT type="hidden" name="custom" value="$FORM{'custom'}">
        <INPUT type="submit" name="reload" value="リロード">
      </FORM>
    </TD>
  </TR>
</TABLE>
__EOF__
	} else {
		$msgmore .= 'これ以下の記事はありません。';
		$msgnext = '';
	}
	
	# カウンタ
	$counter = &counter;
	
	# メイン出力
	print <<__EOF__;
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$bbstitle</TITLE>
</HEAD>

<BODY bgcolor="#$bgc" text="#$textc" link="#$linkc" vlink="#$vlinkc" alink="#$alinkc">

<P>
  <B><FONT size="+1">$bbstitle</FONT></B>
  <FONT size="-1"><A href="http://cgi.iwa.server.ne.jp/strangeworld/info.html">広報室</A></FONT>
  <FONT size="-1"><A href="mailto:$adminmail">連絡先</A></FONT>
</P>
__EOF__
	
	&prtform ( $dtitle, $dmsg, $dlink );
	
	print <<__EOF__;
  <P><FONT size="-1">表\示件数 <INPUT size="6" type="text" name="msgdisp" value="$FORM{'msgdisp'}">
  　<FONT size="-1">URL自動リンク <INPUT type="checkbox" name="autolink" value="checked" $FORM{'autolink'}></FONT>
  　<FONT size="-1">画像自動展開 <INPUT type="checkbox" name="autoimg" value="checked"  $FORM{'autoimg'}></FONT>
  　<INPUT type="submit" name="setup" value="その他の設定"></FONT></P>
  <FONT size="-1">$countdate から $counter（こわれにくさレベル$countlevel）</FONT>
  <HR>
  <FONT size="-1">| 
  <A href="$cgiurl?mode=getlog">最近の過去ログ</A>|
<a href="http://cgi.iwa.server.ne.jp/strangeworld/upload/upload.cgi" target="_blank">あぷろだ＠あにめ</a>|
<a href="http://members.tripod.co.jp/~swattylink/">SLW</a>|
<a href="http://members.tripod.co.jp/~strange_walker/">ぁW</a>|
<a href="http://www.yunasoft.gr.jp/cgi-bin/strangeworld/bbs.cgi">声優萌え</a>|
<a href="http://ag.st2.arena.ne.jp/cgi-bin/strangeworld/bbs.cgi">II</a>|
<a href="http://maripe.sakura.ne.jp/strangeworld/bbs.cgi">まりぺ!</a>|
<a href="http://www.strange2000.f2s.com/bbs.cgi">2000</a>|
<a href="http://extra.tomato.nu/strangeworld/">エクストラ</a>|
<a href="http://wave.ruru.ne.jp/loplop/remix/bbs.cgi">REMIX</a>|
<a href="http://socialkowai.virtualave.net/cgi-bin/bbs.cgi">鶏拉麺</a>|
<a href="http://gikousa-bunke.virtualave.net/cgi-bin/usakobbs.cgi">チョンボ</a>|
<a href="http://www.netpro.ne.jp/~salonweb/cgi-bin/strangeworld/bbs.cgi">レイパー</a>|
<a href="http://ep.st22.arena.ne.jp/cgi-bin/remix/bbs.cgi?code=＠東風荘">＠東風荘</a>|
<a href="http://extra.tomato.nu/notstrange/">ヽ(´ー`)ノ</a>|
<a href="http://jo.st22.arena.ne.jp/cgi-bin/strangeworld/bbs.cgi">みらい</a>|
<a href="http://www.strangeworld.cx/cgi-bin/strangeworld/bbs/bbs.cgi">cx島</a>|
<a href="http://ekaki00.hypermart.net/cgi-bin/bbs.cgi">絵描き</a>/<a href="http://ekaki00.hypermart.net/cgi-bin/ura.cgi">裏</a>|
<a href="http://strgw.virtualave.net/reproduction/bbs.cgi">転載</a>|<hr>
| <a href="http://www.infonia.ne.jp/~sei777/sakura.htm" target="_blank">CCさくら</a>|
<a href="http://www.tamon.co.jp/TINAMI/" target="_blank">TINAMI</a>|
<a href="http://www1.odn.ne.jp/hml/" target="_blank">HML</a>|
<a href="http://www.nn.iij4u.or.jp/~showtake/ecoice/" target="_blank">えここ</a>|
<a href="http://sp.cup.com/" target="_blank">さーぱら</a>|
<a href="http://tv.yahoo.co.jp/" target="_blank">ﾔﾎｰTV欄</a>|
<a href="http://member.nifty.ne.jp/office98/aniban/index.htm" target="_blank">あに番</a>|
<a href="http://www.searchdesk.com/" target="_blank">検索デスク</a>|
  </FONT>
  <HR>
  <FONT size="-1">$txtfollow : フォロー投稿画面表\示 　 $txtauthor : 投稿者検索表\示 　 $txtthread : スレッド表\示
  　　　最大登録件数 : $logsave件</FONT>
  <HR>
__EOF__

### 今日のアニメ情報 ###
&animeinfo;
########################

	print<<__EOF__;
  <HR><FONT size="-1"><INPUT type="submit" name="post" value="投稿／リロード"></FONT>
  <INPUT type="hidden" name="postid" value="$toppostid">
</FORM>
<HR>

@prtmessage

<P><I><FONT size="-1">$msgmore</FONT></I></P>

$msgnext
<HR>

<P align="right">
<FONT size="-1"><A href="http://kuzuha.tripod.co.jp/">くずはすくりぷと</A> Final Beta #3 (Preview Release 2) + <A href="http://cgi.iwa.server.ne.jp/strangeworld/info.html">＠あにめカスタム(2000/04/19)</A></FONT>
</P>

</BODY>
</HTML>
__EOF__
}


###############################################################################
#  今日のアニメ情報
###############################################################################
sub animeinfo {
	
	my $tddata, $tmdata, $str1, $str2, $tdw, $tmw;

	( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat )
		= localtime ( $nowtime );

	$tdw = $wday;
	$tmw = $tdw + 1;
	if ( $tmw == 7 ) {
		$tmw = 0;
	}

	open ( IN, "info$tdw.dat" );
	$tddata = <IN>;
	close ( IN );

	open ( IN, "info$tmw.dat" );
	$tmdata = <IN>;
	close ( IN );

	$str1 = sprintf ( "%s曜日のアニメ", 
				( '日', '月', '火', '水', '木', '金', '土' )[$tdw] );
	$str2 = sprintf ( "%s曜日のアニメ", 
				( '日', '月', '火', '水', '木', '金', '土' )[$tmw] );

	print "<table border=\"0\" width=\"100%\"><tr>\n";
	print "<td width=\"50%\"><font size=\"-1\">$str1</font></td>";
	print "<td width=\"50%\"><font size=\"-1\">$str2</font></td>\n";
	print "</tr><tr>\n";
	print "<td><table>$tddata</table></td>\n";
	print "<td><table>$tmdata</table></td>\n";
	print "</tr></table>\n";
}


###############################################################################
#  メイン
###############################################################################

&getformdata;
&getenv;

if ( $FORM{'mode'} eq 'customset' ) {
	require './bbscust.cgi';
	&setcustom;
	exit;
}

# ヘッダ出力
print "Content-type: text/html\n";
if ( $gzip && ( $ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/ ) ) {
	print "Content-encoding: gzip\n\n";
	open ( STDOUT, "| $gzip -1 -c" );
	print "<!-- gzip enable -->";
} else {
	print "\n<!-- gzip disable -->";
}

if ( $FORM{'mode'} eq 'admin' && $FORM{'admin'} ) {
	require "$admincgi";
	exit;
}

# 個人用設定反映
if ( $FORM{'custom'} ne '' ) {
	$FORM{'custom'} =~ /^(\w\w\w\w\w\w)(\w\w\w\w\w\w)(\w\w\w\w\w\w)(\w\w\w\w\w\w)(\w\w\w\w\w\w)(\d+)$/;
	$textc = $1;
	$subjc = $textc;
	$bgc = $2;
	$linkc = $3;
	$vlinkc = $4;
	$quotc = $5;
	$i = $6;
	$followwin = int ( $i / 2 );
	$reltype = int ( $i % 2 );
} else {
	$i = $followwin * 2;
	$FORM{'custom'} = "$textc$bgc$linkc$vlinkc$quotc$i";
	if ( ! $FORM{'autolink'} && $autolink eq '1' ) {
		$FORM{'autolink'} = 'checked';
	}
	if ( ! $FORM{'autoimg'} && $autoimg eq '1' ) {
		$FORM{'autoimg'} = 'checked';
	}
}
$body = "<BODY bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" " .
		"vlink=\"#$vlinkc\" alink=\"#$alinkc\">";

if ( $FORM{'msgdisp'} ne '' ) {
	if ( $FORM{'msgdisp'} > $logsave ) {
		$FORM{'msgdisp'} = $logsave;
	}
} else {
	$FORM{'msgdisp'} = $msgdisp;
}

$nowtime = time - $difftime * 60 * 60;

if ( $FORM{'setup'} ne '' ) {
	require './bbscust.cgi';
	&prtcustom;
	exit;
}
if ( $FORM{'mode'} eq 'getlog' ) {
	require './bbslog.cgi';
	&getlog;
	exit;
}
if ( $FORM{'mode'} eq 'post' && $FORM{'message'} ne '' && $FORM{'reload'} eq '' ) {
	$postid = 0;
	$posterr = 0;
	if ( $ENV{'CONTENT_TYPE'} eq 'application/x-www-form-urlencoded' ) {
		&chkmessage;
		&putmessage;
	} else {
		$posterr = 255;
	}

	if ( $FORM{'follow2'} ne '1' ) {
		if ( $FORM{'follow'} && $followwin == 0 ) {
			print <<__EOF__;
<html><head><title>$bbstitle</title></head>
$body
<h1>書き込み完了</h1>
</body></html>
__EOF__
exit;
		}
	}
} elsif ( $FORM{'mode'} eq 'follow' || $FORM{'mode'} eq 'follow2' ) {
	&prtfollow ( 0 );
} elsif ( $FORM{'mode'} eq 'search' || $FORM{'mode'} eq 'thread' || $FORM{'mode'} eq 'thread2' ) {
	require './bbssrc.cgi';
	&srcmessage;
} else {
	if ( $FORM{'mode'} eq 'page' ) {
		$bmsg = $FORM{'bmsg'};
	} else {
		$bmsg = 0;
	}
}

&prtmain ( '', '', '' );

exit;


__END__
