#!/usr/bin/perl
#-*- mode: Text; -*-  Time-stamp: "01/05/05 07:24:23 levin"

$|=1;
$ver = 'PETIT v4.5';
require './jcode.pl';
require './sub.cgi';
require '../kickit.cgi';
# メイン処理
&get_time;	# 時間を取得
&ipget;		# アクセスログを記録
&code;		# 投稿コード生成
&decode;
#if ($mode eq "howto") { &howto; }
#if ($mode eq "find") { &find; }
if ($mode eq "usr_del") { &usr_del; }
if ($mode eq "msg_del") { &msg_del; }
if ($mode eq "msg") { &regist; }
if ($mode eq "res_msg") { &res_msg; }
if ($mode eq "admin") { &admin; }
if ($mode eq "admin_del") { &admin_del; }
if ($mode eq "res") { &allres; }
&html_log;

#--------------#
#  記事表示部  #
#--------------#
sub html_log {
&getstart;
	print <<"EOM";
ここはジャニオタのHPを潰すためのBBSです<br></center>
<hr size=2 color=$hrcolor>
<form method="$method" action="$script">
<input type=hidden name=mode value="msg">
<input type=hidden name=cc value="$cc">
<blockquote>
<table border=0 cellspacing=2>
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>名 前</b></font></td>
  <td>
    <input type=text name=name size="$nam_wid" value="$c_name">
EOM

	# カウンタ処理
	if ($counter) { &counter; }

	print <<"EOM";
  </td>
</tr>
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>Ｅメール</b></font></td>
  <td>
    <input type=text name=email size="$nam_wid" value="$c_email">
  </td>
</tr>
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>題 名</b></font></td>
  <td>
    <input type=text name=subj size="$subj_wid">
　  <input type=submit value="投稿する"><input type=reset value="リセット">
  </td>
</tr>
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>内 容</b></font></td>
  <td>　</td></tr>
<tr>
  <td colspan=2>
    <textarea cols="$com_wid" rows=7 name=comment wrap="$wrap"></textarea>
  </td>
</tr>
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>URL</b></font></td>
  <td>
    <input type=text size="$url_wid" name=url value="http://$c_url">
  </td>
</tr>
EOM
  if ($pict) {
if ($codesort eq 'gif') { $codecolor = $gifcolor; } else { $codecolor = $himicolor; }
	print <<"EOM";
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>コード</b></font></td>
  <td>
      <table><tr><td>
      <input type="text" size=8 name="checka">
      <input type="hidden" name="checkb" value="$rport"></td>
      <td bgcolor=$codecolor><img src="$himicode"></tr></td></table>
  </td>
</tr>
EOM
  }
	print <<"EOM";
<tr>
  <td nowrap bgcolor=$t_color align=center><font color=$bgcolor><b>削除キー</b></font></td>
  <td>
    <input type=password name=pwd size=10 maxlength=8 value="$c_pwd">
    <small>(自分の記事を削除時に使用。英数字で8文字以内)</small>
  </td>
</tr>
</table></form></blockquote>
<div align=center><font color=white>書き込む奴はまずここを読め！</font><br>
<font size=+1><b>管理人からジャニオタへ心温まる<a href="from_hide.html" target="_blank">メッセージ</a></b>
</font><br><br>
</div>
<hr size=2 color=$hrcolor>
EOM

	print "■<a href=\"$homepage\" target='_top'>Back</a>\n";
#	print "■<a href=\"$script?mode=howto\">使い方</a>\n";
#	print "■<a href=\"$script?mode=find\">ワード検索</a>\n";

	if ($pastkey) {
		print "■<a href=\"$petit2\">過去ログ</a>\n";
	}

	print <<"EOM";
■<a href="$script?mode=msg_del">記事削除</a>
■<a href="$script?mode=admin">管理用</a>
■<a href="irasshai.cgi">Π</a>
■<a href="../../url.html">∩</a>
<br>
■<a href="../image/gabriduke.zip">GabriDuke</a>
■<a href="../../dora/duke1.htm">ガブリデュークの使い方</a>(from doraevon)
■<a href="../../dora/papapa/">how to use 'John the Ripper'</a>(from doraevon)
EOM

&attack;

	if ($FORM{'page'} eq '') { $page = 0; } 
	else { $page = $FORM{'page'}; }

	# 記事数を取得
	$end_data = @new - 1;
	$page_end = $page + ($pagelog - 1);

	if ($page_end >= $end_data) { $page_end = $end_data; }

print "<table border=1 width=95% cellpadding=5 cellspacing=0 bgcolor=$tbl_color align=center><tr><td><font size=2>\n";
	foreach ($page .. $page_end) {
		($fdate,$fccc,$num,$k,$date,$name,$email,$sbj,
			$com,$url,$host,$pwd,$color) = split(/<>/, $new[$_]);
		if (!$sbj) { $sbj = "Untitled"; }
	print "<a href=\"#$num\">[$num]: $sbj</a> \n";
					}
print "<a href=\"#bottom\">▼ 一番下へ行く</a> \n";
print "</tr></td></table>\n";

print "</font><hr size=2 color=$hrcolor>\n";

	foreach ($page .. $page_end) {
		($fdate,$fccc,$num,$k,$date,$name,$email,$sbj,
			$com,$url,$host,$pwd,$color) = split(/<>/, $new[$_]);

&kakihyoji;

	}

	print "<table border=0><tr><a name=bottom>\n";

	# 改頁処理
	$next_line = $page_end + 1;
	$back_line = $page - $pagelog;

	# 前頁処理
	if ($back_line >= 0) {
		print "<td><form method=\"$method\" action=\"$script\">\n";
		print "<input type=hidden name=page value=\"$back_line\">\n";
		print "<input type=hidden name=mode value=\"page\">\n";
		print "<input type=submit value=\"前の$pagelog件\">\n";
		print "</form></td>\n";	
	}

	# 次頁処理
	if ($page_end ne $end_data) {
		print "<td><form method=\"$method\" action=\"$script\">\n";
		print "<input type=hidden name=page value=\"$next_line\">\n";
		print "<input type=hidden name=mode value=\"page\">\n";
		print "<input type=submit value=\"次の$pagelog件\">\n";
		print "</form></td>\n";
	}

	print "</a></tr></table><hr size=2 color=$hrcolor>\n";

	&footer;
	exit;
}

#--------------------#
#  ログ書き込み処理  #
#--------------------#
sub regist {

unless ($name eq $manager_name && $pwd eq $pass) {

	# 他サイトからのアクセスを排除
	if ($base_url) {
		$ref_url = $ENV{'HTTP_REFERER'};
		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		if ($browse_check) {
			foreach (@browser) {
				if ( $hua =~/$_/i) { $base_url = ''; last; }
			}
		}

		if ($ref_url !~ /$base_url/i)
		{ &error("外部投稿は出来ません。"); }
	}

	if ($reg_prx_kick) { &check_proxy("$reg_prx_kick",'2'); }

	# 投稿コードチェック

	local($codeflag) = 0;
	foreach $codecheck(@codeline){
	$codecheck =~ s/\n//;
	($codeline,$codekey) = split(/\,/,$codecheck);
	if ($ccc eq $codeline){ $codeflag = 1; $last_ctime = $codekey; last; }
		}
	unless($codeflag){ &error("不正投稿の可能\性があります。リロードして再投稿して下さい。");}
	if ($allow_submit && !$letout_ip) {
		if (($cc_time - $last_ctime) < $noprx_stime)
		{ &error("アクセスしてから投稿するまでは$noprx_stime秒以上開けて下さい。");}
							}
	elsif (($cc_time - $last_ctime) < $submit_time)
		{ &error("アクセスしてから投稿するまでは$submit_time秒以上開けて下さい。");}

if ($pict) {
	if ($FORM{'checka'} eq '') {&error("投稿コードが入力されてません");}
	$dukecheck = $FORM{'checka'} . $FORM{'checkb'}; 
	if ( !open(DB,"$himicode_log") ) {&error("ファイルをオープン出来ません");}
	@liness = <DB>;
	close(DB);
	$himikocheck=0;
	foreach $line (@liness) {
	chop($line);
	if ($dukecheck eq $line) {$himikocheck=1;}
		}
	if ($himikocheck != 1) {&error("投稿コードエラー");}
	}

	# 名前とコメントは必須
	if ($name eq "") { $name = "名無しさん"; }
	if ($comment eq "") { &error("コメントが入力されていません"); }
	if ($FORM{'resno'} eq "" && $subj eq "") { &error("題名が入力されていません"); }
if($email){
if ($email =~ /,/) {&error("Ｅメールの入力内容が正しくありません。");}
unless ($email =~ /(.*)\@(.*)\.(.*)/) {&error("Ｅメールの入力内容が正しくありません。");}
unless ($email =~ /to$|hr$|mx$|ru$|au$|jp$|us$|uk$|cz$|ch$|sg$|ec$|nl$|au$|fi$|ca$|de$|kr$|tw$|it$|pl$|edu$|com$|org$|net$/i){&error("Ｅメールの入力内容が正しくありません。");}
}

	$ngg = 'Messiel'; $nga = '神'; $ngb = 'メサイエル'; $ngc = 'infoweb';
#	if ($pwd eq 'Jr' || $subj =~/$ngg/) { &html_log; exit; }
	if ($name =~/$ngg/i || $name =~/$nga/i || $name =~/$ngb/i || $host =~/$ngc/i) { &html_log; exit; }
	if ($name eq 'M.I.A.' && $pwd eq '787878') { $host = ''; }

}	#管理者特権ここまで

	# ファイルロック
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	# ログを開く
	open(IN,"$logfile") || &error("Can't open $logfile");
	@lines = <IN>;
	close(IN);

	# 親記事NO処理
	$oya = $lines[0];
	if ($oya =~ /<>/) {
		&error("ログが正しくありません。");
	}
	$oya =~ s/\n//;
	shift(@lines);

unless ($name eq $manager_name && $pwd eq $pass) {

	# 二重投稿の禁止
	local($flag) = 0;
	local($flag2) = 0;
	local($flag3) = 0;
	local($flag4) = 0;
	foreach $line (@lines) {
		($kwdate,$kccc,$knum,$kk,$kd,$kname,$kem,$ksub,$kcom,$kurl,$khost) = split(/<>/,$line);
		if ($name eq "$kname" && $comment eq "$kcom") { $flag = 1; last; }
		if ($allow_submit && !$letout_ip) {
			if (( $wdate - $kwdate ) < $diff_nprtime && $host ne $khost) { $flag2 = 1; last; }
			if (( $wdate - $kwdate ) < $same_nprtime && $host eq $khost) { $flag3 = 1; last; }
			} else {
		if (( $wdate - $kwdate ) < $diff_rtime && $host ne $khost) { $flag2 = 1; last; }
		if (( $wdate - $kwdate ) < $same_rtime && $host eq $khost) { $flag3 = 1; last; }
		}
		if ($kccc eq $ccc) { $flag4 = 1; last; }
	}
	if ($flag) { &error("二重投稿は禁止です"); }
	if ($flag2) { &error("連続投稿制限"); }
	if ($flag3) { &error("連続投稿制限"); }
	if ($flag4) { &error("チェックコードエラー"); }

}	#管理者特権ここまで

	# 親記事の場合、記事Noをカウントアップし、クッキーを発行
	if ($FORM{'resno'} eq "") { $oya++; }
	&set_cookie;
	$number = $oya;

	# 削除キーを暗号化
	if ($pwd) { &passwd_encode($name,$pwd); }

	# ログをフォーマット
	$new_msg = "$wdate<>$ccc<>$number<>$FORM{'resno'}<>$date<>$name<>$email<>$subj<>$comment<>$url<>$host $hua<>$ango<>$color<>\n";

	## 自動ソート時は、レス記事投稿時は親記事はトップへ移動
	if ($res_sort && $FORM{'resno'} ne "") {
		@res_data = ();
		@new = ();
		foreach $line (@lines) {
		  $flag = 0;
		  ($fdate,$fccc,$num,$k,$d,$na,$em,$sub,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line);

		  # 親記事を抜き出す
		  if ($k eq "" && $FORM{'resno'} eq "$num") {
			$new_line = "$line";
			$flag = 1;
		  }
		  # 関連のレス記事を抜き出す
		  elsif ($k eq "$FORM{'resno'}") {
			push(@res_data,$line);
			$flag = 1;

			if ((@res_data - 1) > $res_limit)  { &error("新スレ立てれって言っただろ"); }

		  }
		  if ($flag == 0) { push(@new,$line); }
		}

		# 関連レス記事をトップへ
		unshift(@new,@res_data);

		# 新規メッセージをトップへ
		unshift(@new,$new_msg);

		# 親記事をトップへ
		unshift(@new,$new_line);

	## 親記事の場合、最大記事数を超える記事をカット
	} elsif ($FORM{'resno'} eq "") {

		$i = 0;
		$stop = 0;
		foreach $line (@lines) {
		    ($fdate,$fccc,$num,$k,$d,$na,$em,$sub,$com,$u,$ho,$p,$c,$ico)=split(/<>/,$line);

		    if ($k eq "") { $i++; }
		    if ($i > $max-1) {
			$stop = 1;
			if ($pastkey == 0) { last; }
			else {
				if ($k eq "") { $kflag=1; push(@past_data,$line); }
				else { push(@past_res,$line); }
			}
		    }
		    if ($stop == 0) { push(@new,$line); }
		}

		## 過去記事生成
		if ($kflag) {
			@past_res = reverse(@past_res);
			push(@past_data,@past_res);
			&pastlog;
		}

		unshift(@new,$new_msg);

	## レス記事は記事数の調整はしない
	} else {
		@res_data = ();
		@new = ();

		foreach $line (@lines) {
		  $flag = 0;
		  ($fdate,$fccc,$num,$k,$d,$na,$em,$sub,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line);

		  # 親記事を抜き出す
		  if ($k eq "" && $FORM{'resno'} eq "$num") {
			$new_line = "$line";
			$flag = 2;
		  }
		  if ($flag == 0) { push(@new,$line); }
		  elsif ($flag == 2) {
			push(@new,$new_line);
			push(@new,$new_msg);
		  }
		}
	}

	# 親記事NOを付加
	unshift (@new,"$oya\n");

	# ログを更新
	open(OUT,">$logfile") || &error("Can't write $logfile");
	print OUT @new;
	close(OUT);

	# ロック解除
	if (-e $lockfile) { unlink($lockfile); }

	# メール処理
	if ($mailing && $mail_me) { &mail_to; }
	elsif ($mailing && $mail_me == 0 && $email ne "$mailto") { &mail_to; }
}

#---------------#
#  デコード処理 #
#---------------#
sub decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# 文字コード変換
		&jcode'convert(*value,'sjis');

		# タグ処理
		if ($tagkey == 0) {
			$value =~ s/</&lt\;/g;
			$value =~ s/>/&gt\;/g;
		} else {
			$value =~ s/<!--(.|\n)*-->//g;
			$value =~ s/<>/&lt\;&gt\;/g;
		}

		# 一括削除用
		if ($name eq 'del') { push(@delete,$value); }

        if($name ne 'comment'){
	$value =~ s/\r|\n|\"//g;}
		$FORM{$name} = $value;
	}
	$name = $FORM{'name'};
		$name =~ s/\ //g;
		$name =~ s/\　//g;
	$comment = $FORM{'comment'};
		$comment =~ s/\r\n/\n/g;
		$comment =~ s/\r/\n/g;
		$comment =~ s/\ \n/\n/g;
		$comment =~ s/\　\n/\n/g;
		$comment=~ s/\n{3,}/\n\n/g;
	$pwd   = $FORM{'pwd'};

unless ($name eq $manager_name && $pwd eq $pass) {

	if ($max_line) {
	$value_size = ($comment =~ tr/\n/\n/) + 1;
	if ($value_size > $max_line){ &error("本文の行数が多すぎます"); }
	}

if ($max_width){
	@max_widthcheck = split(/\n/,$comment);
	for(@max_widthcheck){
		if (length($_) > $max_width){&error('1行の文字数が多すぎます'); }
			}
	}

	if(length($comment) > $max_comment)
	{ $errorword = length($comment);&error("投稿量が大きすぎます"); }

}	#管理者特権 ここまで

	$comment =~ s/\n/<br>/g;
	$email = $FORM{'email'};
	$url   = $FORM{'url'};
	$url   =~ s/^http\:\/\///;
	$mode  = $FORM{'mode'};
	$subj  = $FORM{'subj'};

	$color = $toukou_color;
	$ccc = $FORM{'cc'};
	$sage = $FORM{'sage'};

	if ($sage eq 'sage') { $res_sort = 0; }

unless ($name eq $manager_name && $pwd eq $pass) {

	if(length($subj) > $max_subj)
	{ $errorword = length($subj);&error("題名の文字数が多すぎます。<br>現在$errorword文字ですが、$max_subj	文字以内で書いて下さい。"); }
	if(length($name) > $max_name)
	{ $errorword = length($name);&error("名前の文字数が多すぎます。<br>現在$errorword文字ですが、$max_name文字以内で書いて下さい。"); }
	if(length($email) > $max_email)
	{ $errorword = length($email);&error("Mailの文字数が多すぎます。<br>現在$errorword文字ですが、$max_email文字以内で書いて下さい。"); }
	if(length($url) > $max_url)
	{ $errorword = length($url);&error("URLの文字数が多すぎます。<br>現在$errorword文字ですが、$max_url文字以内で書いて下さい。"); }

}	#管理者特権 ここまで

}

#--------------------------#
#  ワード検索サブルーチン  #
#--------------------------#
sub find {
	&header;
	print <<"HTML";
[<a href="$script\?">掲示板にもどる</a>]
<table width="100%"><tr><th bgcolor="#0000A0">
<font color="#FFFFFF">ワード検索</font></th></tr></table>
<P><center>
<table cellpadding=5>
<tr><td bgcolor="$tbl_color" nowrap>
  <UL>
  <LI>検索したい<b>キーワード</b>を入力し、検索領域を選択して「検索ボタン」
      を押してください。
  <LI>キーワードを「半角スペース」で区切って複数指定することができます。
  </UL>
</td></tr></table><P>
<form action="$script" method="$method">
<input type=hidden name=mode value="find">
<table border=1>
<tr>
  <th colspan=2>キーワード <input type=text name=word size=30></th>
</tr>
<tr>
  <td>検索条件</td>
  <td>
    <input type=radio name=cond value="and" checked>AND
    <input type=radio name=cond value="or">OR
  </td>
</tr>
<tr>
  <th colspan=2>
    <input type=submit value="検索する"><input type=reset value="リセット">
  </th>
</tr>
</table>
</form>
</center>
HTML
	# ワード検索の実行と結果表示
	if ($FORM{'word'} ne "") {

		# 入力内容を整理
		$cond = $FORM{'cond'};
		$word = $FORM{'word'};
		$word =~ s/　/ /g;
		$word =~ s/\t/ /g;
		@pairs = split(/ /,$word);

		# ファイルを読み込み
		open(DB,"$logfile") || &error("Can't open $logfile");
		@lines = <DB>;
		close(DB);

		# 検索処理
		foreach (1 .. $#lines) {
			$flag = 0;
			foreach $pair (@pairs){
				if (index($lines[$_],$pair) >= 0){
					$flag = 1;
					if ($cond eq 'or') { last; }
				} else {
					if ($cond eq 'and'){ $flag = 0; last; }
				}
			}
			if ($flag == 1) { push(@new,$lines[$_]); }
		}

		# 検索終了
		$count = @new;
		print "<hr size=2 color=$hrcolor><b><font color=$t_color>検索結果：$count件</font></b><P>\n";
		print "<OL>\n";

		foreach $line (@new) {
			($fdate,$fccc,$num,$k,$date,$name,$email,$sub,$com,$url) = split(/<>/, $line);
			if (!$sub) { $sub = "Untitled"; }
			if ($email) { $name = "<a href=mailto\:$email>$name</a>"; }
			if ($url) { $url = "[<a href=\"http://$url\" target=_blank>HOME</a>]"; }

			if ($k) { $num = "$kへのレス"; }

			# 結果を表示
			print "<LI>[$num] <font color=$sbj_color><b>$sub</b></font>\n";
			print "投稿者：<b>$name</b> <small>$url 投稿日：$date</small><P>\n";
			print "<blockquote>$com</blockquote><hr size=2>\n";
		}

		print "</OL><P>\n";
	}
	&footer;
	exit;
}

#--------------#
#  日時の取得  #
#--------------#
sub get_time {
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);
	$year += 1900;
	$mon++;
	if ($mon  < 10) { $mon  = "0$mon";  }
	if ($mday < 10) { $mday = "0$mday"; }
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min  < 10) { $min  = "0$min";  }
	if ($sec  < 10) { $sec  = "0$sec";  }

	# 日時のフォーマット
	if ($date_type && $FORM{'resno'} eq "") {
		$youbi = ('日','月','火','水','木','金','土') [$wday];
		$date = "$year年$mon月$mday日 ($youbi) $hour時$min分$sec秒";
	} else {
		$youbi = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
		$date = "$year/$mon/$mday($youbi) $hour\:$min\:$sec";
	}
}

#------------------------------------#
#  ブラウザを判断しフォーム幅を調整  #
#------------------------------------#
sub get_bros {
	# ブラウザ名を取得
	$agent = $hua;

	if ($agent =~ /MSIE 3/i) { 
		$nam_wid  = 30;
		$subj_wid = 40;
		$com_wid  = 65;
		$url_wid  = 48;
		$nam_wid2 = 15;
	} elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) { 
		$nam_wid  = 30;
		$subj_wid = 40;
		$com_wid  = 65;
		$url_wid  = 78;
		$nam_wid2 = 15;
	} else {
		$nam_wid  = 20;
		$subj_wid = 25;
		$com_wid  = 56;
		$url_wid  = 50;
		$nam_wid2 = 10;
	}
}

#------------#
#  削除画面  #
#------------#
sub msg_del {
$ad_flag = 0; $ad_check = 0 ;
	if ($FORM{'action'} eq 'admin') { $ad_flag = 1; }
	if ($FORM{'pass'} eq "$pass" || $FORM{'pass'} eq "$pass2") { $ad_check = 1; }
		if ($ad_flag) { unless ($ad_check) { &error("パスワードが違います"); } }


	open(DB,$logfile) || &error("Can't open $logfile");
	@lines = <DB>;
	close(DB);

	shift(@lines);

	# 親記事のみの配列データを作成
	@new = ();
	foreach $line (@lines) {
		local($fdate,$fccc,$num,$k,$date,$name,
			$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line);

		# RES記事を外す
		if ($k eq "") { push(@new,$line); }
	}

	@lines = reverse(@lines);

	&header;
	print "[<a href=\"$script?\">掲示板へ戻る</a>]\n";
	print "<table width=100%><tr><th bgcolor=\"#0000A0\">\n";
	print "<font color=\"#FFFFFF\">コメント削除画面</font></th></tr></table>\n";
	print "<P><center>\n";
	print "<table border=0 cellpadding=5><tr>\n";
	print "<td bgcolor=\"$tbl_color\">\n";

	if ($FORM{'action'} eq '') {
		print "■投稿時に記入した「削除キー」により、記事を削除します。<br>\n";
	}

	print "■削除したい記事のチェックボックスにチェックを入れ、下記フォームに「削除キー」を入力してください。<br>\n";
	print "■親記事を削除する場合、そのレスメッセージも同時に消滅してしまうことになりますので、ご注意ください。<br>\n";
	print "</td></tr></table><P>\n";
	print "<form action=\"$script\" method=$method>\n";

	if ($FORM{'action'} eq '') {
		print "<input type=hidden name=mode value=\"usr_del\">\n";
		print "<b>削除キー</b> <input type=text name=del_key size=10>\n";
	} else {
		print "<input type=hidden name=mode value=\"admin_del\">\n";
		print "<input type=hidden name=action value=\"admin\">\n";
		print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
	}

	print "<input type=submit value=\"削除する\"><input type=reset value=\"リセット\">\n";
	print "<P><table border=1>\n";
	print "<tr><th>削除</th><th>記事No</th><th>題名</th><th>投稿者</th>";
	print "<th>投稿日</th><th>コメント</th>\n";

	if ($FORM{'action'} eq 'admin') { print "<th>ホスト名</th>\n"; }

	print "</tr>\n";

	if ($FORM{'page'} eq '') { $page = 0; }
	else { $page = $FORM{'page'}; }

	# 記事数を取得
	$end_data = @new - 1;
	$page_end = $page + ($pagelog - 1);
	if ($page_end >= $end_data) { $page_end = $end_data; }

	foreach ($page .. $page_end) {
		($fdate,$fccc,$num,$k,$date,$name,$email,$sub,
			$com,$url,$host,$pw,$color) = split(/<>/,$new[$_]);

		if ($email) { $name="<a href=mailto\:$email>$name</a>"; }
		if (!$sub) { $sub = "Untitled"; }

		$com =~ s/<br>/ /g;
		if ($tagkey) { $com =~ s/</&lt;/g; $com =~ s/>/&gt;/g; }
		if (length($com) > 60) { $com=substr($com,0,58); $com=$com . '..'; }

		if ($FORM{'action'} eq 'admin') {
			print "<tr><th><input type=checkbox name=del value=\"$date\"></th>\n";

		} else {
			print "<tr><th><input type=radio name=del value=\"$date\"></th>\n";
		}

		print "<th>$num</th><td>$sub</td><td>$name</td>\n";
		print "<td><small>$date</small></td><td>$com</td>\n";

		if ($FORM{'action'} eq 'admin') { print "<td>$host</td>\n"; }

		print "</tr>\n";

		## レスメッセージを表示
		foreach (@lines) {
			($fdate,$fccc,$rnum,$rk,$rd,$rname,$rem,$rsub,
				$rcom,$rurl,$rho,$rp,$rc) = split(/<>/, $_);

			$rcom =~ s/<br>/ /g;
			if ($tagkey) { $rcom =~ s/</&lt;/g; $rcom =~ s/>/&gt;/g; }
			if (length($rcom) > 60) { $rcom=substr($rcom,0,58); $rcom=$rcom . '..'; }
			if ($num eq "$rk"){

				if ($FORM{'action'} eq 'admin') {
					print "<tr><th><input type=checkbox name=del value=\"$rd\"></th>\n";
				} else {
					print "<tr><th><input type=radio name=del value=\"$rd\"></th>\n";
				}

				print "<td colspan=2 align=center><b>$num</b>へのレス</td>\n";
				print "<td>$rname</td><td><small>$rd</small></td><td>$rcom</td>\n";

				if ($FORM{'action'} eq 'admin') { print "<td>$rho</td>\n"; }

				print "</tr>\n";
			}
		}
	}
	print "</table></form>\n";
	print "<table border=0 width=100%><tr>\n";

	# 改頁処理
	$next_line = $page_end + 1;
	$back_line = $page - $pagelog;

	# 前頁処理
	if ($back_line >= 0) {
		print "<td><form method=\"$method\" action=\"$script\">\n";
		print "<input type=hidden name=page value=\"$back_line\">\n";
		print "<input type=hidden name=mode value=msg_del>\n";
		print "<input type=submit value=\"前の親記事$pagelog件\">\n";

		if ($FORM{'action'} eq 'admin') {
		  print "<input type=hidden name=action value=\"admin\">\n";
		  print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
		}

		print "</form></td>\n";	
	}

	# 次頁処理
	if ($page_end ne $end_data) {
		print "<td><form method=\"$method\" action=\"$script\">\n";
		print "<input type=hidden name=page value=\"$next_line\">\n";
		print "<input type=hidden name=mode value=msg_del>\n";
		print "<input type=submit value=\"次の親記事$pagelog件\">\n";

		if ($FORM{'action'} eq 'admin') {
		  print "<input type=hidden name=action value=\"admin\">\n";
		  print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
		}

		print "</form></td>\n";
	}

	print "</tr></table><P><hr size=2 color=$hrcolor><P>\n";
	&footer;
	exit;
}

## --- ユーザ記事削除処理
sub usr_del {
	if ($FORM{'del_key'} eq "") { &error("削除キーが入力モレです。"); }
	if ($FORM{'del'} eq "") { &error("ラジオボタンの選択がありません。"); }

	# ロック開始
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	# ログを読み込む
	open(DB,"$logfile") || &error("Can't open $logfile");
	@lines = <DB>;
	close(DB);

	# 親記事NO
	$oya = $lines[0];
	if ($oya =~ /<>/) {
		&error("ログが正しくありません。");
	}

	shift(@lines);

	## 削除キーによる記事削除 ##
	@new=();
	foreach $line (@lines) {
		$dflag = 0;
		($fdate,$fccc,$num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw,$color) = split(/<>/,$line);

		if ($FORM{'del'} eq "$dt") {
			$dflag = 1;
			$encode_pwd = $pw;
			$del_num = $num;
			if ($k eq '') { $oyaflag=1; }

		} elsif ($oyaflag && $del_num eq "$k") {
			$dflag = 1;
		}

		if ($dflag == 0) { push(@new,$line); }
		elsif ($dflag == 1)
			{ push(@new,"$fdate<>$fccc<>$num<>$k<>$dt<>$name<>$email<>$sub<>ユーザー削除<>$url<>$host<>削除<>$color<>$com\n"); }
	}

	if ($del_num eq '') { &error("削除対象記事が見つかりません"); }
	else {
		if ($encode_pwd eq '') { &error("削除キーが設定されていません"); }
		$check = &passwd_decode("$FORM{'del_key'}","$encode_pwd");
		if ($check ne 'yes') { &error("パスワードが違います"); }
	}

	# 親記事NOを付加
	unshift(@new,$oya);

	## ログを更新 ##
	open(DB,">$logfile") || &error("Can't write $logfile");
	print DB @new;
	close(DB);

	# ロック解除
	if (-e $lockfile) { unlink($lockfile); }

	# 削除画面にもどる
	&msg_del;
}

#----------------------#
#  管理者一括記事削除  #
#----------------------#
sub admin_del {
$ad_check = 0 ;
	if ($FORM{'pass'} eq "$pass" || $FORM{'pass'} eq "$pass2") { $ad_check = 1; }
		unless ($ad_check) { &error("パスワードが違います"); }
	if ($FORM{'del'} eq "") { &error("チェックボックスの選択がありません"); }

	# ロック開始
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	# ログを読み込む
	open(DB,"$logfile") || &error("Can't open $logfile");
	@lines = <DB>;
	close(DB);

	# 親記事NO
	$oya = $lines[0];
	if ($oya =~ /<>/) {
		&error("ログが正しくありません。<P><small>\(v2.5以前のログの場合は変換の必要があります\)<\/small>");
	}

	shift(@lines);

	## 削除処理
	foreach $line (@lines) {
		$dflag=0;
		($fdate,$fccc,$num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line);

		foreach $del (@delete) {
			if ($del eq "$dt") {
				$dflag = 1;
				$del_num = $num;
				if ($k eq '') { $oyaflag=1; }

			} elsif ($oyaflag && $del_num eq "$k") {
				$dflag = 1;
			}
		}
		if ($dflag == 0) { push(@new,$line); }
		elsif ($dflag == 1)
			{ push(@new,"$fdate<>$fccc<>$num<>$k<>$dt<>$name<>$email<>$sub<>削除<>$url<>$host<>削除<>$color<>$com\n"); }
	}

	# 親記事NOを付加
	unshift(@new,$oya);

	## ログを更新 ##
	open(DB,">$logfile") || &error("Can't write $logfile");
	print DB @new;
	close(DB);

	# ロック解除
	if (-e $lockfile) { unlink($lockfile); }

	# 削除画面にもどる
	&msg_del;
}

## --- 管理者入室画面
sub admin {
	&header;
	print "<center><h4>パスワードを入力してください</h4>\n";
	print "<form action=\"$script\" method=$method>\n";
	print "<input type=hidden name=mode value=\"msg_del\">\n";
	print "<input type=hidden name=action value=\"admin\">\n";
	print "<input type=password name=pass size=8><input type=submit value='認証'>\n";
	print "</form></center>\n";
	print "</body></html>\n";
	exit;
}

## --- カウンタ処理
sub counter {
	# 閲覧時のみカウントアップ
	$match=0;
	if ($FORM{'mode'} eq '') {
		# カウンタロック
		if ($lockkey) { &lock3; }

		$match=1;
	}

	# カウントファイルを読みこみ
	open(NO,"$cntfile") || &error("Can't open $cntfile",'0');
	$cntlog = <NO>;
	close(NO);

	($today_c,$yesterday_c,$total_c,$w_day) = split(/\,/,$cntlog);

	# カウントアップ
	if ($match) { 
		if ($w_day ne $mday){
			$w_day = $mday;
			$yesterday_c = $today_c;
			$today_c = '0';
			}

		$today_c ++;
		$total_c ++;
	}

	# 更新
	open(OUT,">$cntfile") || &error("Write Error : $cntfile");
	print OUT "$today_c,$yesterday_c,$total_c,$w_day";
	close(OUT);

	# カウンタロック解除
	if (-e $cntlock) { unlink($cntlock); }

	# 桁数調整
	while(length($total_c) < $mini_fig) { $total_c = '0' . "$total_c"; }
	@cnts = split(//,$total_c);

#	print "<table><tr><td>\n";

	# GIFカウンタ表示
	if ($counter == 2) {
		foreach (0 .. $#cnts) {
			print "<img src=\"$gif_path/$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
		}

	# テキストカウンタ表示
	} else {
		print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$total_c</font>";
	}
	print "　<small>(today - $today_c yesterday - $yesterday_c)</small>";
#	print "</td></tr></table>\n";
}

## --- ロックファイル（symlink関数）
sub lock1 {
	local($retry) = 5;
	while (!symlink(".", $lockfile)) {
		if (--$retry <= 0) { &error('LOCK is BUSY'); }
		sleep(1);
	}
}

## --- ロックファイル（open関数）
sub lock2 {
	local($flag) = 0;
	foreach (1 .. 5) {
		if (-e $lockfile) { sleep(1); }
		else {
			open(LOCK,">$lockfile");
			close(LOCK);
			$flag = 1;
			last;
		}
	}
	if ($flag == 0) { &error("LOCK is BUSY"); }
}

## --- カウンタロック
sub lock3 {
	$cnt_flag = 0;
	foreach (1 .. 7) {
		if (-e $cntlock) { sleep(1); }
		else {
			open(LOCK,">$cntlock");
			close(LOCK);
			$cnt_flag = 1;
			last;
		}
	}
	if (!$cnt_flag) { unlink($cntlock); }
}

## --- メール送信
sub mail_to {
	$mail_subj = "$title に投稿がありました。";

    	&jcode'convert(*mail_subj,'jis');
    	&jcode'convert(*name,'jis');
    	&jcode'convert(*subj,'jis');
    	&jcode'convert(*comment,'jis');
	if ($date_type && $FORM{'resno'} eq "") { &jcode'convert(*date,'jis'); }

	$comment =~ s/<br>/\n/g;
	$comment =~ s/\&lt\;/</g;
	$comment =~ s/\&gt\;/>/g;

	open(MAIL,"| $sendmail $mailto") || &error("Can't post sendmail");
	print MAIL "To: $mailto\n";

	# メールアドレスがない場合はダミーメールに置き換え
	if ($FORM{'email'} eq "") { $email = 'nomail@xxx.xxx'; }

	print MAIL "From: $email\n";
	print MAIL "Subject: $mail_subj\n";
	print MAIL "MIME-Version: 1.0\n";
	print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "X-Mailer: $ver\n\n";
	print MAIL "$mail_subj\n";
	print MAIL "--------------------------------------------------------\n";
	print MAIL "TIME : $date\n";
	print MAIL "NAME : $name\n";
	print MAIL "EMAIL: $FORM{'email'}\n";
	if ($url ne "") { print MAIL "URL  : http://$url\n"; }

	if ($FORM{'resno'} ne "") { $subj = "(Res Message to $FORM{'resno'})"; }
	elsif ($FORM{'resno'} eq "" && $subj eq "") { $subj = "no title"; $mail_num = $number; }
	else { $mail_num = $number; }

	print MAIL "TITLE: $mail_num $subj\n\n";
	print MAIL "$comment\n";
	print MAIL "--------------------------------------------------------\n";
	print MAIL "pass - $pwd host - $host $hua\n";
	close(MAIL);
}

#----------------------#
#  パスワード暗号処理  #
#----------------------#
## --- パスワード暗号処理(Crypt関数)
sub passwd_encode {
local ($asc,@in_name,@saltset,$saltnum,$nsalt);
if ($_[0] eq $manager_name && $_[1] eq $pass){ $ango = 'hide'; $host = '255.255.255.255'; $hua = '';}
elsif ($_[0] eq '嶺那' && $_[1] eq $pass){ $ango = 'tEaMhEd'; $host = '192.168.30.1'; $hua = '';}
	else{
	@saltset = ('0' .. '9','a' .. 'z','A' .. 'Z','.','/');
	$saltnum = @saltset;
	@in_name = split ('',(join('',@_)));
	foreach (@in_name){ $asc += ord($_); }
	$nsalt = $saltset[($asc * $saltnum) % $saltnum] . $saltset[$asc % $saltnum];
	$ango = crypt($_[1], $nsalt) || crypt ($_[1], '$1$' . $nsalt);
	}
}

#----------------------#
#  パスワード照合処理  #
#----------------------#
sub passwd_decode {
	($inpw, $logpw) = @_;
	if ($logpw =~ /^\$1\$/) { $key = 3; } else { $key = 0; }

	local($check) = "no";
	if (crypt($inpw, substr($logpw,$key,2)) eq "$logpw") {
		$check = "yes";
	}
}

#--------------#
#  自動リンク  #
#--------------#
sub auto_link {
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=$2 target=_blank>$2<\/a>/g;
}

#------------------#
#  HTMLのヘッダー  #
#------------------#
sub header { 
	print "Content-type: text/html\n\n";
	print <<"EOM";
<html><head>
<meta http-equiv="Pragma" content="no-cache">
<meta name="robots" content="noindex,nofollow">
<meta name="GENERATOR" content="Mozilla/4.7 [en] (WinNT; I) [Netscape]">
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>$title</title></head>
<body background="$backgif" bgcolor="$bgcolor" text="$text" link="$link" vlink="$vlink" alink="$alink">
EOM

}

## --- HTMLのフッター
sub footer {
	## 著作権表示（削除不可）
	print "$banner2\n";
	print "<center><a href=\"../../team.html\">about tEaM hEd</a><br><img src=\"../../img/logo.gif\"></center>\n";
	print "<hr size=2 color=$hrcolor><small><!-- $ver -->\n";
	print "<div align=\"right\"><a href=\"http://www.kent-web.com/\" target='_top'>Petit Board</a><br>\n";
	print "Modified by";
	print " <a href=\"http://www3.takeoff.ne.jp/~elmo/\" target='_top'>脱走犬エルモ</a><br>\n";
	print "<!-- elmo version 2.13 -->\n";
	print "arranged by <a href=\"mailto:ragou\@SoftHome.net\">羅豪</a> \& <a href=\"mailto:hidenotdead\@post.com\">hide</a>\n";
	print "</small></div>\n";
	print "</body></html>\n";
}

## --- クッキーの発行
sub set_cookie {
	# クッキーは60日間有効
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg) = gmtime(time + 365*24*60*60);

	$yearg += 1900;
	if ($secg  < 10) { $secg  = "0$secg";  }
	if ($ming  < 10) { $ming  = "0$ming";  }
	if ($hourg < 10) { $hourg = "0$hourg"; }
	if ($mdayg < 10) { $mdayg = "0$mdayg"; }

	$month = ('Jan','Feb','Mar','Apr','May','Jun',
			'Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday',
			'Thursday','Friday','Saturday')[$wdayg];

	$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
	$cook="name\:$name\,email\:$email\,url\:$url\,pwd\:$pwd";
	print "Set-Cookie: TRASH1=$cook; expires=$date_gmt\n";
}

## --- クッキーを取得
sub get_cookie {
	@pairs = split(/\;/, $ENV{'HTTP_COOKIE'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/\=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/\,/, $DUMMY{'TRASH1'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/\:/, $pair);
		$COOKIE{$name} = $value;
	}

	$c_name  = $COOKIE{'name'};
	$c_email = $COOKIE{'email'};
	$c_url   = $COOKIE{'url'};
	$c_pwd   = $COOKIE{'pwd'};

	if ($FORM{'name'})  { $c_name  = $FORM{'name'}; }
	if ($FORM{'email'}) { $c_email = $FORM{'email'}; }
	if ($FORM{'url'})   { $c_url   = $url; }
	if ($FORM{'pwd'})   { $c_pwd   = $FORM{'pwd'}; }
}

## --- エラー処理
sub error {
	if (-e $lockfile) { unlink($lockfile); }
	if ($_[1] ne '0') { &header; }

	print "<center><hr size=2 color=$hrcolor width=\"75%\"><P><h1>ヽ(´ー`)ノ</h1>\n";
	print "<P><font size=+1 color=$t_color><B>$_[0]</B></font>\n";
	print "<P><hr size=2 color=$hrcolor width=\"75%\"></center>\n";
	print "$banner2\n";
	print "<center><a href=\"../../team.html\">about tEaM hEd</a><br><img src=\"../image/logo.gif\"></center>\n";
	print "<hr size=2 color=$hrcolor>\n";
	print "</body></html>\n";

	exit;
}

## --- 過去ログ生成
sub pastlog {
	$new_flag = 0;

	# 過去NOを開く
	open(NO,"$nofile") || &error("Can't open $nofile");
	$count = <NO>;
	close(NO);

	# 過去ログのファイル名を定義
	$pastfile  = "$past_dir/$count\.html";

	# 過去ログがない場合、新規に自動生成する
	unless(-e $pastfile) { &new_log; }

	# 過去ログを開く
	if ($new_flag == 0) {
		open (IN,"$pastfile") || &error("Can't open $pastfile");
		@past = <IN>;
		close(IN);
	}

	# 規定の行数をオーバーすると、次ファイルを自動生成する
	if ($#past > $log_line) { &next_log; }

	foreach $pst_line (@past_data) {
		($pdate,$pccc,$pnum,$pk,$pdt,$pname,$pemail,$psub,$pcom,
			$purl,$phost,$ppw) = split(/<>/, $pst_line);

	if ($idview && $ppw)
	{ $ppw ='<small>(ID: '.substr($ppw,-7,7).')</small>'; }
	 else { $ppw = ''; }

		if ($pk eq "" && $psub eq "") { $psub = "no title"; }
		if ($pemail) { $pname = "<a href=mailto:$pemail>$pname</a>"; }
		if ($purl) { $purl="<a href=http://$purl target=_blank>http://$purl</a>"; }
		if ($pk) { $pnum = "$pkへのレス"; }

	&jisyohenkan3;

		# 自動リンク
		if ($autolink) { &auto_link($pcom); }

		# 保存記事をフォーマット
		$html = <<"HTML";
[$pnum] <font color=$sbj_color><b>$psub</b></font><!--T--> 投稿者：<font color=$link><b>$pname</b></font> $ppw <small>投稿日：$pdt</small><p><blockquote>$pcom<p>$purl</blockquote><!-- $phost --><hr size=2 color=$hrcolor>
HTML
		push(@htmls,"$html");
	}

	
	@news = ();
	foreach $line (@past) {
		if ($line =~ /<!--OWARI-->/i) { last; }
		push (@news,$line);
		if ($line =~ /<!--HAJIME-->/i) { push (@news,@htmls); }
	}

	push (@news,"<!--OWARI-->\n<hr size=2 color=$hrcolor>$banner2</body></html>\n");

	# 過去ログを更新
	open(OUT,">$pastfile") || &error("Can't write $pastfile");
	print OUT @news;
	close(OUT);

}

## --- 過去ログ次ファイル生成ルーチン
sub next_log {
	# 次ファイルのためのカウントアップ
	$count++;

	# カウントファイル更新
	open(NO,">$nofile") || &error("Can't write $nofile");
	print NO "$count";
	close(NO);

	$pastfile  = "$past_dir/$count\.html";

	&new_log;
}

## --- 新規過去ログファイル生成ルーチン
sub new_log {
	$new_flag = 1;

	if ($backgif) { $bgkey = "background=\"$backgif\""; }
	else { $bgkey = "bgcolor=$bgcolor"; }

	$past[0] = "<html><head><title>過去ログ</title><meta name=\"robots\" content=\"noindex,nofollow\">\n";
	$past[1] = "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\"></head>\n";
	$past[2] = "<body $bgkey text=$text link=$link vlink=$vlink alink=$alink><hr size=2 color=$hrcolor>\n";
	$past[3] = "<\!--HAJIME-->\n";
	$past[4] = "<\!--OWARI-->\n";
	$past[5] = "<hr size=2 color=$hrcolor>\n$banner2\n</body></html>\n";

	# 新規過去ログファイルを生成更新
	open(OUT,">$pastfile") || &error("Can't write $pastfile");
	print OUT @past;
	close(OUT);

	# パーミッションを604へ。
	chmod(0604,"$pastfile");
}

##--------------------------------------------------------------

## --- アクセスログ記録ルーチン
sub ipget{
local (@accline,$acclogline2,$cache_c,$cache_i,$cli_ip,$foward,$host_head,$ht_con,$ht_from,$ht_xon,
$logdata,$maxlog,$pro_con,$sp_host,$via,$xfoward,$xro_con);

$addr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'}; unless ($host) { $host = $addr; }
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }

$hua = $ENV{'HTTP_USER_AGENT'};
$hua =~ s/(<|>|\,)//g;
if(length($hua) > 150){$hua = "";}

$href = $ENV{'HTTP_REFERER'};
$href =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$base_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($href =~ /$base_url/) { $href=""; }

$cache_c	= $ENV{'HTTP_CACHE_CONTROL'};
$cache_i	= $ENV{'HTTP_CACHE_INFO'};
$cli_ip		= $ENV{'HTTP_CLIENT_IP'};
$ht_con		= $ENV{'HTTP_CONNECTION'};
$foward		= $ENV{'HTTP_FORWARDED'};
$ht_from	= $ENV{'HTTP_FROM'};
$pro_con	= $ENV{'HTTP_PROXY_CONNECTION'};
$sp_host	= $ENV{'HTTP_SP_HOST'};
$via		= $ENV{'HTTP_VIA'};
$xfoward	= $ENV{'HTTP_X_FORWARDED_FOR'};
$ht_xon		= $ENV{'HTTP_XONNECTION'};
$xro_con	= $ENV{'HTTP_XROXY_CONNECTION'};

if ($cli_ip =~ s/^(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) { $letout_ip = $cli_ip; }
if ($foward =~s/^(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) { $letout_ip = $foward; }
if ($ht_from =~s/^(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) { $letout_ip = $ht_from; }
if ($sp_host =~s/^(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) { $letout_ip = $sp_host; }
if ($via =~s/^(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) { $letout_ip = $via; }
if ($xfoward =~s/^(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/ ) { $letout_ip = $xfoward; }

if ($letout_ip eq '' && $cache_c) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $cache_i) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $pro_con) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $foward) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $ht_xon) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $hua =~/cache|delegate|proxy|squid|via/i) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $via) { $letout_ip = "(proxy)"; }
if ($letout_ip eq '' && $xro_con) { $letout_ip = "(proxy)"; }

$host_head = (split(/\./,$host))[0];
if ($letout_ip eq '' && $host =~ /cache|^cgi|delegate|^dns|^firewall|^ftp|^fw|keeper|^mail|^ns\d{0,2}\.|^news|proxy|squid|^web|^www/i) { $letout_ip = "(proxy)"; }
elsif ($letout_ip eq '' && $host_head !~ /\d{2,}/) { $letout_ip = "(maybe proxy)"; }
if ($letout_ip eq '' && $ht_con !~ /Keep-Alive/i) { $letout_ip = "(maybe proxy)"; }

if ($letout_ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
	$letout_ip = gethostbyaddr(pack('C4',split(/\./,$letout_ip)),2) || $letout_ip;
	if ($letout_ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)/) { $letout_ip .= "(perhaps proxy)"; }
	else {	$host_head = (split(/\./,$letout_ip))[0];
		if ($letout_ip =~ /cache|^cgi|delegate|^dns|^firewall|^ftp|^fw|keeper|^mail|^ns\d{0,2}\.|^news|proxy|squid|^web|^www/i) { $letout_ip .= "(proxy)"; }
		elsif ($host_head !~ /\d{2,}/) { $letout_ip .= "(perhaps proxy)"; }
		}
	}

foreach (@kickhost) { if($host =~ /$_/i || $addr =~ /$_/i){ $kickflag = 'kick'; } }

foreach (@denyagent) { if($hua =~ /$_/i){ $kickflag = 'kick'; } }

if (!open(LOG,"$lognum")) { &error('ファイルをオープン出来ません'); }
$num = <LOG>;
close(LOG);

local($logdatfile) = "$logname"."$num"."\.txt";

if (-e $logdatfile){
if (!open(LOG,"$logdatfile")) { &error('ファイルをオープン出来ません'); }
@logfilelines=<LOG>;
close(LOG);
} else {
$cmd_flag = 1;
}

$linecount = @logfilelines;

if ($linecount >= ($logmax- 1)) {
	if (!open(LOG,">$lognum")) { &error('ファイルをオープン出来ません'); }
	$num ++;
	print LOG $num;
	close(LOG);	}

$log_data = "$date,$href,$host,$addr,$via,$letout_ip,$hua,$ENV{'HTTP_COOKIE'},$kickflag\n";

if (!open(LOG,">$logdatfile")){ &error('ファイルをオープン出来ません'); }
print LOG $log_data;
	foreach (@logfilelines) { print LOG $_; }
close(LOG);

if ($cmd_flag) { if(!chmod (0600,"$logdatfile")){ &error('ファイルをオープン出来ません'); }}

if ($proxy_kick){ &check_proxy("$proxy_kick",'1'); }

	if($kickflag eq 'kick'){
	    &htaccess;
	    &error("Unknown Error!!");
	}

}

## --- プロクシーチェックルーチン
sub check_proxy {
local ($p_flag) = 0;
local ($p_kick,$check_f) = @_;

if ($check_f == 1) { @allowhost = @allowproxy; $e_word = 'アクセス'; }
elsif ($check_f == 2) { @allowhost = @reg_allowprx; $e_word = '投稿'; }

	if ($p_kick == 1 && $letout_ip =~ /\(proxy\)/)
		{ $p_flag = 1; }
	elsif ($p_kick == 2 && ($letout_ip =~ /\(proxy\)/ || $letout_ip eq "\(maybe proxy\)"))
		{ $p_flag = 1; }
	elsif ($p_kick == 3 && $letout_ip =~ /proxy/)
		{ $p_flag = 1; }
	elsif ($p_kick == 4){
		if ($host =~ /\.jp/i || $host =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
			{ $p_flag = 0; }
		if ($letout_ip =~ /proxy/)
			{ $p_flag = 1; }
				}
	elsif ($p_kick == 5){
		if ($host =~ /\.jp/i || $host =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
			{ $p_flag = 0; }
		if ($letout_ip)
			{ $p_flag = 1; }
				}

		foreach(@allowhost) { if($host =~ /$_/i || $addr =~ /$_/i){ $p_flag = 0; } }

	if ($p_flag)
		{ &error("あなたがお使いのホスト( $host )からの$e_wordは許可されていません。<br>掲示板管理者に該当ホストの許可を申\し出て下さい。");
	}
}


## --- 投稿コード生成ルーチン
sub code{
	srand();

local (@data,@henka,@henkan,$henkan,$rand,$maxlog,$codelogline2);
@data = (0 .. 9);
@henka = (a .. z,A .. Z);
$henkan = @henka;

for(0 .. 9){ push (@henkan,$henka[int(rand($henkan))]); }
	$cc = $cc_time = $wdate = time;
	$rand = (int(rand(100))+1) ** 4;
	$cc .= $rand;

for(0 .. 9){ $cc =~ s/$data[$_]/$henkan[$_]/g; }

open(LOG,"$code_log") || &error("ログファイルが開けられません");
@codeline = <LOG>;
close(LOG);

$maxlog = @codeline;
$codelogline2 = ($codelogline - 2);
open(LOG,">$code_log") || &error("ログファイルが開けられません");
print LOG "$cc,$cc_time\n";
if ($maxlog >= $codelogline) {
		foreach (0 .. $codelogline2) { print LOG $codeline[$_]; }
	}else {
		foreach (@codeline) { print LOG $_; }
	}
close(LOG);
}


#----------------------------------------------------------------------------------------------
sub getstart{
	# クッキーを取得
	&get_cookie;

	# フォーム長を調整
	&get_bros;

	# ログを読み込み
	open(IN,"$logfile") || &error("Can't open $logfile");
	@lines = <IN>;
	close(IN);

	# 記事番号をカット
	shift(@lines);

	# 親記事のみの配列データを作成
	@new = ();
	foreach $line (@lines) {
		local($fdate,$fccc,$num,$k,$date,$name,$email,
			$subj,$com,$url,$host,$pw,$color) = split(/<>/,$line);
		# 親記事を集約
		if ($k eq "") { push(@new,$line); }
	}

	# レス記事はレス順につけるため配列を逆順にする
	@lines = reverse(@lines);

	# ヘッダを出力
	&header;

	print "<div align=\"right\"><font size=-1>■ <a href=\"http://hello.to/j_trash\">http://hello.to/j_trash</a>でここに来ます<br>\n";
	print "■ 転送予\備 <a href=\"http://up.to/j_trash\">http://up.to/j_trash</a><br>\n";
#	print "■ 転送予\備 <a href=\"http://up.to/j_trash\">http://up.to/j_trash</a> <a href=\"http://way.to/j_trash\">http://way.to/j_trash</a> <a href=\"http://got.to/j_trash\">http://got.to/j_trash</a><br>\n";
	print "■ JAPANESE TRASH イメージソ\ングは旗をクリック♪</font></div><p>\n";

	print "<center>$banner1<P>\n";

	# タイトル部
	if ($title_gif eq '') {
		print "<a href=\"../image/theme.mid\"><img src=\"../image/hata.gif\" border=\"0\"></a>";
		print "<font color=$t_color size=$t_size>";
		print "<b>$title</b></font>";
		print "<a href=\"../image/theme.mid\"><img src=\"../image/hata.gif\" border=\"0\"></a><br>\n";
	} else {
		print "<img src=\"$title_gif\" width=\"$tg_w\" height=\"$tg_h\"><br>\n";
	}

if ($pict) { 
	$rport = $ENV{'REMOTE_PORT'};
	$himicode .= "?$ENV{'REMOTE_PORT'}";
	}

}

sub kakihyoji {
		if ($email) { $name = "<a href=mailto\:$email>$name</a>"; }
		if (!$sbj) { $sbj = "Untitled"; }

		# URL表示
		if ($url && $home_icon) {
			$url = "<a href=\"http://$url\" target=_blank><img src=\"$icon_dir\/$home_gif\" border=0 align=top HSPACE=10 WIDTH=\"$home_wid\" HEIGHT=\"$home_hei\"></a>";

		} elsif ($url && $home_icon == 0) {
			$url = "<small>[<a href=\"http://$url\" target=_blank>HOME</a>]</small>";
		}

	&jisyohenkan;
	&rescolor;
		# 自動リンク
		if ($autolink) { &auto_link($com); }

		print "<center><table border=1 width=95% cellpadding=5 cellspacing=0 bgcolor=$tbl_color>\n";
		print "<tr><td>\n";
		print "<table border=0 cellspacing=0><tr>\n";
		print "<td colspan=3><a name=$num>[<b>$num</b>] <font color=$sbj_color><b>$sbj</b></font></a></td></tr>\n";
		print "<tr><td>1 投稿者：<font color=$link><b>$name</b>　</font>";

	if ($idview && $pwd)
	{ $pwd ='ID: '.substr($pwd,-7,7);
	print "<small>($pwd)</small>"; }

	if ($host_view) {
		if ($host_view == 1) { print " <!-- $host --> "; }
		elsif ($host_view == 2) { print " &lt; $host &gt; "; }
		}

		print "</td>\n";
		print "<td><small>投稿日：$date</small></td><td>$url</td></tr></table>\n";
		print "<blockquote><font color=\"$color\">$com</font></blockquote>\n<dl>\n";

		## レスメッセージを表示

	@resnew = ();$resflag = 0;
	foreach $line (@lines) {
		($dammy,$dammy,$dammy,$rk) = split(/<>/,$line);
		if ($num eq "$rk") {push(@resnew,$line);}
	}

$reswrite_frag="";
if (@resnew){
$resline = @resnew - 1;
$resstart = ($resline - $reshyoji + 1);
if ($resstart <= 0 || $resnum){$resstart = 0;$resend = $resline;}
else{$resend = $resline;$resflag = 1;}

#スレッドストッパー
		if ($resend  > $res_limit)
			{$reswrite_flag = "on"; $resend ++;
			push (@resnew,'<><><><>2001/00/00(Sun) 00:00:00<>hide<><><><br>新スレ立てれ<><>255.255.255.255<>stopper<>#ff0000<>');
			}else
			{$reswrite_flag = "";
			}


print "<p><hr width=95% size=2 color=$hrcolor>\n";

	foreach ($resstart .. $resend) {
		($rdate,$rccc,$rnum,$rk,$rd,$rname,$rem,$rsub,$rcom,$rurl,$rho,$rp,$rc)
						= split(/<>/,$resnew[$_]);
		$renumber = $_ +2 ;

	&jisyohenkan2;
	&rescolor2;

				# 自動リンク
				if ($autolink) { &auto_link($rcom); }

	if ($idview && $rp)
	{ $rp ='<small>(ID: '.substr($rp,-7,7).')</small>'; }
	 else { $rp = ''; }

				print "<dt>$renumber 投稿者：<font color=$link><b>$rname</b></font> $rp\n";
				print "<small>投稿日：$rd</small><dd><font color=$rc>$rcom ";

	if ($host_view) {
		if ($host_view == 1) { print " <!-- $rho --> "; }
		elsif ($host_view == 2) { print "<small> &lt; $rho &gt; </small>"; }
		}
				print "<br></font>\n";
			}
		}else { $resend=""; $reswrite_flag="";}
		print "</dl>\n";


	if($resflag){
	print "<div align=\"left\"><a href=\"$script?mode=res\&resnum=$num\">";
	print "レスを全部読む</a></div>\n";
		}


	if ($reswrite_flag eq ""){	#スレッドストッパー ここから

		print "<hr size=2 width=90% color=$hrcolor>\n";
		print "<table width=100% border=0><tr><td><table border=0><tr><form action=\"$script\" method=$method>\n";
		print "<input type=hidden name=mode value=\"msg\">\n";
		print "<input type=hidden name=cc value=\"$cc\">\n";
		print "<input type=hidden name=resno value=\"$num\">\n";
		print "<input type=hidden name=page value=\"$FORM{'page'}\">\n";
		print "<input type=hidden name=email value=\"$c_email\">\n";
		print "<input type=hidden name=url value=\"$c_url\">\n";
		print "<td>名前<input type=text name=name size=$nam_wid2 value=\"$c_name\"></td>\n";
		print "<td>削除キー<input type=password name=pwd size=10 maxlength=8 value=\"$c_pwd\"></td>\n";
  if ($pict) {
if ($codesort eq 'gif') { $codecolor = $gifcolor; } else { $codecolor = $himicolor; }
	print "<td>コード<input type=\"text\" size=8 name=\"checka\"></td>\n";
	print "<td bgcolor=$codecolor>";
	print "<input type=\"hidden\" name=\"checkb\" value=\"$rport\"><img src=\"$himicode\">";
	print "</td>\n";
		}
		print "<td>sage<input type=checkbox name=\"sage\" value=\"sage\"></td>\n";
		print "<td><input type=submit value=\"返信する\"></td></tr></table></tr>\n";

		print "<tr><td>\n";
		print "レス<br><textarea cols=\"$com_wid\" rows=3 name=comment wrap=\"$wrap\"></textarea>\n";
		print "</td></form></tr></table>\n";

	}	#スレッドストッパー ここまで

		print "</td></tr></table>\n";

		print "</center><hr size=2 color=$hrcolor>\n";


}

sub allres {
&getstart;
$resnum = $FORM{'resnum'};
	foreach (@new) {
		($fdate,$fccc,$num,$k,$date,$name,$email,$sbj,
			$com,$url,$host,$pwd,$color) = split(/<>/,$_);
		if ($num eq $resnum){last;}
				}
	&kakihyoji;
	&footer;
	exit;
}