#!/usr/local/bin/perl#---------------------------------------##  PETIT BOARD v5.22 (2001/03/21)	##  Copyright(C) Kent Web 1997-2001	##  webmaster@kent-web.com		##  http://www.kent-web.com/		##---------------------------------------##---------------------------------------##  PETIT BOARD Next 3.6 (2001/05/15)	##  改造者：立川　よーま 2000-2001	##  webmaster@tri.site.ne.jp		##  http://tri.site.ne.jp/		##---------------------------------------##---------------------------------------##  Aqua for Petit Board			##            Ver2.0 (2001/06/17)	##  改造者：立川　よーま 2000-2001	##  webmaster@tri.site.ne.jp		##  http://tri.site.ne.jp/		##---------------------------------------## バージョン情報$ver = 'PETIT BOARD v5.22';$next = 'Aqua for Petit Board v2.0';#--- [注意事項] ------------------------------------------------## 1. このスクリプトはフリーソフトです。このスクリプトを使用した	##    いかなる損害に対して作者は一切の責任を負いません。		## 2. 設置に関する質問はサポート掲示板にお願いいたします。	##    直接メールによる質問は一切お受けいたしておりません。	##---------------------------------------------------------------##============##  設定項目  ##============## 文字コードライブラリ取込require './jcode.pl';# 初期設定ライブラリ読み込みrequire './pref.cgi';#============##  設定完了  ##============## メイン処理&decode;&axs_check;if ($mode eq "howto") {$modename = "掲示板の使い方"; &howto; }elsif ($mode eq "find") {$modename = "ワード検索"; &find; }elsif ($mode eq "usr_del") { &usr_del; }elsif ($mode eq "regist") { &regist; }elsif ($mode eq "res") { &res_form; }elsif ($mode eq "admin") {$modename = '管理人モード'; &admin; }elsif ($mode eq "image") {$modename = 'イメージサンプル'; &image; }elsif ($mode eq "past") {$modename = '過去ログモード'; &past; }&html_log;#--------------##  記事表示部  ##--------------#sub html_log {	# クッキーを取得	&get_cookie;	# フォーム長を調整	&get_agent;	# ヘッダを出力	if ($ImageView == 1) { &header('ImageUp'); }	else { &header; }	# タイトル／カウンタ処理	if ($banner1 ne "<!-- 上部 -->") { print "$banner1<P>\n"; }	&dlog_1;	print "$title\n";	&dlog_2;	print <<"HTML";<BR><a href=\"$homepage\" target='_top'><image src=\"$aquaimg_dir/btn_top.gif\" alt=\"トップにもどる\" ALIGN=middle border=0></a><a href=\"$script?mode=howto\"><image src=\"$aquaimg_dir/btn_howto.gif\" alt=\"使い方\" ALIGN=middle border=0></a><a href=\"$script?mode=find\"><image src=\"$aquaimg_dir/btn_find.gif\" alt=\"ワード検索\" ALIGN=middle border=0></a>HTML	# 過去ログのリンク部を表示	if ($pastkey) { print "<a href=\"$script?mode=past\"><image src=\"$aquaimg_dir/btn_log.gif\" alt=\"過去ログ\" ALIGN=middle border=0></a>\n"; }	print <<"EOM";<a href="$script?mode=admin"><image src="$aquaimg_dir/btn_admin.gif" alt="管理用" ALIGN=middle border=0></a><a href="http://tri.site.ne.jp/" target="$linktarget"><image src="$aquaimg_dir/btn_site.gif" alt="配布サイト" ALIGN=middle border=0></a><hr width='90%'></center>EOM	# 投稿フォーム表示	&registform;	&dlog_3;	# ページ区切り処理	$start = $page + 1;	$end   = $page + $p_log;	# 記事を展開	open(IN,"$logfile") || &error("ログファイルが開けません：$logfile");	$top = <IN>;	$i=0;	$flag=0;	print "<BR><BR><CENTER>\n";	# ログ書き出し処理　▽ここから	# データー形式：記事番号,レスのフラグ,投稿日,投稿者,投稿者のメール,記事のタイトル,	# 	記事,ホームページ,投稿者のホスト,パスワード,記事の文字色,アイコン,テーブル背景色	print "<!-- ここから -->\n";	while (<IN>) {		$rf_flag=1;		($no,$reno,$date,$name,$mail,$sub,			$comment,$url,$host,$pw,$color,$icon,$tbl_color) = split(/<>/);		if ($reno eq "") { $i++; $j++;}		if ($i < $start) { next; }		if ($i > $end) { last; }		# ナビゲーション用		$nav_next = ($j + 1);		$nav_prev = ($j - 1);		# ホームページのリンクの処理		if ($home_icon && $url) { 			$url = "<a href=\"http://$url\" target='$linktarget'><img src=\"$imgurl$home_gif\" border=0 align=top alt='HomePage' width=\"$home_wid\" height=\"$home_hei\"></a>"; 		}elsif (!$home_icon && $url) { 			$url = "&lt;<a href=\"http://$url\" target='$linktarget'>HOME</a>&gt;"; 		}		# 親記事の時で、レスがないとき、ここでテーブルを閉じ、返信フォームを表示する		if (!$reno && $flag) {			&window_4;			&res_form("$res_num");			$flag=1;			&window_5;			print "<br><br>\n\n";		}		# 親記事のときは、一番外側のテーブルを表示		if (!$reno) {			&window_1;			$flag=1;		}		# レスの時に区切り線を表示		if ($reno && !$res_flag) {			print "<hr noshade size=1 width='85%'>\n";			$res_flag=1;		}		elsif (!$reno && $res_flag) {			$res_flag=0;		}		if (!$reno) {			print "<IMG SRC=\"$aquaimg_dir/titlebar_icon2.gif\" WIDTH=23 HEIGHT=23 ALIGN=middle>";			print "[<b>$no</b>] $sub";			print "／<font color=$link>$name</font>\n";			&window_2;			# 親記事の場合			$res_num = $no;			print "<small>投稿日：$date</small>\n";			# ホストを表示			if ($showhost) { print "<font color=\"$host_color\"><small>($host)</small></font>"; }			else { print "<!-- $host -->";}			print "$url";			&window_3;			# 親記事専用テーブルを表示			print "<table border=0 cellpadding=0><tr><td>\n";			# アイコンモード			if ($icon_mode) {				# アイコンが見つからないときの処理				if (!(-e "$IconPath/$icon")){ $icon = $DefImg;}				# テーブルを区切ってアイコンを表示				print "<img src=\"$imgurl$icon\" alt=\"$icon\" $icon_name $size></td>\n";			}else{				# 非アイコンモード時の処理				$comment = "<blockquote>$comment</blockquote>";			}			# 記事を表示			print "<td><font color=\"$color\">$comment</font></td>";		} else {			# レス記事の場合レス記事表示用テーブルを表示			print "<table cellpadding=0 border=0><tr><td VALIGN=top nowrap>";			# 投稿者（EメールがCookieにある場合は、リンクもはる）			if ($mail) { 				print "<a href=\"mailto:$mail\"><font color=\"$color\"><b>$name</b></a>";			}else{				print "<font color=\"$color\"><b>$name</a></b>";			}			print " ＞</font></td>\n";			# レス記事を表示			print "<td VALIGN=top><font color=\"$color\">$comment</font>";			# 投稿日／記事番号を表示			print "<small>&lt;$date&gt; <font color=\"$sub_color\">No\.$no</font>\n";			# ホストを表示			if ($showhost) { print " <small>($host)</small>" }			else{ print " <!-- $host -->"; }		}		print "</td></tr></table>\n";	}	close(IN);	if ($rf_flag) {		&window_4;		&res_form("$res_num");		&window_5;		print "</center>\n<!--ここまで-->";	}	# 一度に表示される親記事数をログの記事から計算	$next_page = $page + $p_log;	$back_page = $page - $p_log;	print "<blockquote><table align=left cellpadding=0 cellspacing=0><tr>\n";	if ($back_page >= 0) {		print "<td><form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=page value=\"$back_page\">\n";		print "<input type=image src=\"$aquaimg_dir/btn_prevlog.gif\" value=\"前の$p_log件\" title=\"前のログを参照します\" ALIGN=middle border=0>\n";		print "</td></form>\n";	}	if ($next_page < $i) {		print "<td><form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=page value=\"$next_page\">\n";		print "<input type=image src=\"$aquaimg_dir/btn_nextlog.gif\" value=\"次の$p_log件\" title=\"次のログを参照します。\" ALIGN=middle border=0>\n";		print "</td></form>\n";	}	print "</tr></table>\n";	&dlog_1;	print "<font color=\"$sub_color\">【記事削除フォーム】</font>\n";	&dlog_2;	print "<br><form action=\"$script\" method=\"$method\">";	print "<input type=hidden name=mode value=\"usr_del\">";	print "<NOBR>記事No<input type=text name=no size=3 title=\"削除したい記事の番号を入れて下さい\" $form_dhtml>";	print "削除キー<input type=password name=pwd size=4 maxlength=8 title=\"記事を書き込んだ時のパスワードを入れて下さい\" $form_dhtml>";	print "<input type=image src=\"$aquaimg_dir/btn_delate.gif\" value=\"削除\" title=\"指定した記事を削除します。（取り消しできません）\" ALIGN=middle border=0></NOBR>";	print "</form>\n";	&dlog_3;	# Eメールチェック用JavaScriptを表示	if ($emailchk){ &emailchkjs; }	&footer;}#----------------------##  投稿フォーム表示部  ##----------------------#sub registform {	print <<"EOM";<form method="$method" action="$script"><input type=hidden name=mode value="regist"><CENTER><table width=90% border=0 cellpadding=10><tr><td><table width=90% border=0 cellpadding=0><tr>  <td nowrap><b>おなまえ</b></td>  <td><input type=text name=name size="$nam_wid" value="$c_name" $form_dhtml></tr><tr>  <td nowrap><b>Ｅメール</b></td>  <td><input type=text name=email size="$nam_wid" value="$c_email" $form_dhtml>$emailchk_str</td></tr><tr>  <td nowrap><b>タイトル</b></td>  <td><input type=text name=sub value="$resub" size=$sub_wid $form_dhtml>　  <input type=image src="$aquaimg_dir/btn_submit.gif" value="投稿する" ALIGN=middle border=0>  </td></tr><tr>  <td colspan=2>    <b>コメント</b><br>    <textarea cols="$com_wid" rows=7 name=comment wrap="$wrap" $form_dhtml></textarea>  </td></tr><tr>  <td nowrap><b>ＵＲＬ</b></td>  <td><input type=text size="$url_wid" name=url value="http://$c_url" $form_dhtml></td></tr>EOM	if ($icon_mode) { 		# アイコンモード時		&select_icon;	}else{		# アイコンを使用しない場合アイコンなしを強制選択		print "<input type=hidden name=icon value=\"$DefImg\">\n";	}	print "<tr><td nowrap><b>削除キー</b></td>\n";	print "<td><input type=password name=pwd size=8 maxlength=8 value=\"$c_pwd\" $form_dhtml>\n";	print "<small>(自分の記事を削除時に使用。英数字で8文字以内)</small></td></tr>\n";	# 文字色変更機能	print "<tr><td nowrap><b>文字色</b></td><td>\n";	# クッキーの色情報がない場合	if ($c_color eq "") { $c_color = $COLORS[0]; }	print "<font face=\"$samp_font\" class=\"pointer\">\n";	foreach (0 .. $#COLORS) {		if ($c_color eq "$COLORS[$_]") {			print "<input type=radio name=color value=\"$COLORS[$_]\" checked title=\"$COL_NAME[$_]\" $radio_dhtml>";			print "<font color=\"$COLORS[$_]\">$f_color_samp</font>\n";		} else {			print "<input type=radio name=color value=\"$COLORS[$_]\" title=\"$COL_NAME[$_]\" $radio_dhtml>";			print "<font color=\"$COLORS[$_]\">$f_color_samp</font>\n";		}	}	print "<input type=hidden name=tbl_color value=\"FFFFFF\">\n";	print "</font></td></tr></table></td></tr></table></form>\n";}#------------------##  アイコンモード  ##------------------#sub select_icon{	# アイコン無しとランダムを配列の先頭に追加	@icon1 = reverse @icon1;	@icon2 = reverse @icon2;	if ($randamicon){		# ランダム		push (@icon1,"randam");		push (@icon2,"ランダム");	}	# なし	push (@icon1,"$DefImg");	push (@icon2,"なし");	@icon1 = reverse @icon1;	@icon2 = reverse @icon2;	# 管理者アイコンを配列に付加	if ($my_icon) {		push(@icon1,"admin");		push(@icon2,"管理者用");	}	print "<tr><td nowrap><b>イメージ</b></td><td><NOBR><select name=icon>\n";	foreach(0 .. $#icon1) {		if ($c_icon eq "$icon1[$_]") {			print "<option value=\"$icon1[$_]\" selected>$icon2[$_]\n";		} else {			print "<option value=\"$icon1[$_]\">$icon2[$_]\n";		}	}	print "</select><small>（あなたのイメージを選択して下さい。）</small>";	# イメージ参照のリンク	if ($ImageView == 1) {		print "[<a href=\"javascript:ImageUp()\">画像イメージ参照</a>] \n";	} else {		print "[<a href=\"$script?mode=image\" target=\"_blank\">画像イメージ参照</a>] \n";	}	print "</NOBR></td></tr>\n";}sub footer{	# 著作権表示部 (削除改変を禁止)	print "<CENTER>$banner2<P>\n<small><!-- $ver -->\n";	if ($input_border){ print "<TABLE border=1 cellpadding=2 cellspacing=0 bgcolor=\"$input_color\" background=\"$input_wall\" $input_dhtml><TR><TD><CENTER>\n";}	print "- <a href='http://www.kent-web.com/' target='_top'>PetitBoard</a> -\n";	print "<BR>- <a href='http://tri.site.ne.jp/' target='_top'>$next</a> - By立川　よーま<br>\n";	print "</small></center>\n";	if ($input_border){ print "</TD></TR></table>\n";}	print "</CENTER></body></html>\n";	exit;}#----------------##  ログ書込処理  ##----------------#sub regist {	# POST限定	if ($MethPost && !$post_flag) { &error("不正なアクセスです"); }	# 他サイトからのアクセスを排除	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 ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }	}	# 名前とコメントは必須	if ($in{'name'} eq "") { 		&error("名前が入力されていません"); 	}elsif ($in{'name'} eq $AdminName) {		if ($in{'pwd'} ne $pass ) { &error("管理人の名前を使わないで下さい！"); }	}	if ($in{'comment'} eq "") { &error("コメントが入力されていません"); }	if ($in{'email'} && $in{'email'} !~ /(.*)\@(.*)\.(.*)/){ 		&error("Ｅメールの入力内容が正しくありません"); 	}elsif ($emailkey) {		if ($in{'email'} eq ""){ &error("この掲示板はＥメール必修入力です。");}		if ($emailchk) { 			$use_type = "この掲示板に書き込む";			&emailchk;		}	}	# 題名の長さ制限	if (length($in{'sub'}) > $sub_len * 2)		{ &error("題名の長さは全角$sub_len文字までにして下さい"); }	# 禁止ワードのチェック（By よーま）	foreach (0 .. $#NOWORDS){		if ($in{'name'} =~ /\Q$NOWORDS[$_]\E/) {			&error("投稿された名前に不適切な語句が含まれています。：<br><b>$NOWORDS[$_]</b>");		}		if ($in{'sub'} =~ /\Q$NOWORDS[$_]\E/) {			&error("投稿されたタイトルに不適切な語句が含まれています。：<br><b>$NOWORDS[$_]</b>");		}		if ($in{'comment'} =~ /\Q$NOWORDS[$_]\E/) {			&error("投稿された文章に不適切な語句が含まれています。：<br><b>$NOWORDS[$_]</b>");		}	}	# 時間を取得	&get_time;	# クッキーを発行	&set_cookie;	# ファイルロック	if ($lockkey) { &lock; }	# ログを開く	open(IN,"$logfile") || &error("Open Error : $logfile");	@lines = <IN>;	close(IN);	# 記事NO処理	$top = shift(@lines);	($no,$ip,$time2) = split(/<>/, $top);	$no++;	# 連続投稿チェック	if ($addr eq "$ip" && $wait > $times - $time2)		{ &error("連続投稿はもうしばらく時間をおいて下さい"); }	# 重複チェック	$flag=0;	foreach (@lines) {		($no2,$reno2,$date2,$name2,$mail2,$sub2,$com2) = split(/<>/);		if ($in{'name'} eq "$name2" && $in{'comment'} eq "$com2") {			$flag=1; last;		}	}	if ($flag) { &error("重複投稿のため処理を中断しました"); }	# 削除キーを暗号化	if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }	# URL自動リンク	if ($autolink) { &auto_link($in{'comment'}); }	if ($icon_mode) {		# 管理アイコンのチェック		if ($my_icon && $in{'icon'} eq "admin") {			if ($in{'pwd'} ne "$pass") { 				&error("管理用アイコンは管理者専用です"); 			}else{				$in{'icon'} = $my_gif;			}		}		if ($in{'icon'} eq 'randam'){			# アイコンにランダムが選択されたときの処理			srand;			$randam = @icon3;			$in{'icon'} = "$icon3[int(rand($randam))]";		}	}	# 親記事の場合	if ($in{'reno'} eq "") {		$i=0;		$stop=0;		foreach (@lines) {			($no2,$reno2) = split(/<>/);			$i++;			if ($i > $max-1 && $reno2 eq "") { $stop=1; }			if (!$stop) { push(@new,$_); }			elsif ($stop && $pastkey) { push(@data,$_); }		}		unshift(@new,"$no<><>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>$in{'tbl_color'}<>\n");		unshift(@new,"$no<>$addr<>$times<>\n");		# 過去ログ更新		if ($data[0]) { &pastlog; }		# 更新		open(OUT,">$logfile") || &error("Write Error : $logfile");		print OUT @new;		close(OUT);	}	# レス記事の場合：トップソートあり	elsif ($in{'reno'} && $topsort) {		$match=0;		@new=();		@tmp=();		foreach (@lines) {			($no2,$reno2) = split(/<>/);			if ($in{'reno'} eq "$no2") {				$match=1;				push(@new,$_);			}			elsif ($in{'reno'} eq "$reno2") {				push(@new,$_);			}			elsif ($match == 1 && $in{'reno'} ne "$reno2") {				$match=2;				push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>$in{'tbl_color'}<>\n");				push(@tmp,$_);			}			else { push(@tmp,$_); }		}		if ($match == 1) {			push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>$in{'tbl_color'}<>\n");		}		push(@new,@tmp);		# 更新		unshift(@new,"$no<>$addr<>$times<>\n");		open(OUT,">$logfile") || &error("Write Error : $logfile");		print OUT @new;		close(OUT);	}	# レス記事の場合：トップソートなし	else {		$match=0;		@new=();		foreach (@lines) {			($no2,$reno2) = split(/<>/);			if ($match == 0 && $in{'reno'} eq "$no2") { $match=1; }			elsif ($match == 1 && $in{'reno'} ne "$reno2") {				$match=2;				push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>$in{'tbl_color'}<>\n");			}			push(@new,$_);		}		if ($match == 1) {			push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>$in{'tbl_color'}<>\n");		}		# 更新		unshift(@new,"$no<>$addr<>$times<>\n");		open(OUT,">$logfile") || &error("Write Error : $logfile");		print OUT @new;		close(OUT);	}	# ロック解除	if ($lockkey) { &unlock; }	# メール処理	if ($mailing == 1 && $in{'email'} ne "$mailto") { &mail_to; }	elsif ($mailing == 2) { &mail_to; }}#----------------##  返信フォーム  ##----------------#sub res_form {	$res_num = $_[0];	print <<"HTML";<form acrion=\"$script\" method=$method NAME="REQFORM"><input type=hidden name=mode value=regist><input type=hidden name=reno value="$res_num"><input type=hidden name=page value="$in{'page'}"><input type=hidden name=url value="$c_url"><input type=hidden name=icon value="$DefImg"><input type=hidden name=email value="$c_email"><CENTER><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 nowrap> <tr>  <td align="right">名前<input type=text name=name size=10 value="$c_name" $form_dhtml></td>  <td ROWSPAN=2 align="center">HTML	if ( $resmode == 1 ) {		#１行レスの場合		print "<input type=text name=comment size=$com_wid title=\"ここにレス記事を入力します。\" $form_dhtml>";	}else{		#複数行レスの場合		print "<textarea name=comment cols=$com_wid rows=2 wrap=soft title=\"ここにレス記事を入力します。\" $form_dhtml></textarea>";	}	print <<"HTML";  </td>  <td>色<select name=color title="ここで文字色を選べます。" $popup_dhtml>HTML	foreach (0 .. $#COLORS) {		if ($c_color eq "$COLORS[$_]") {			print "<option value=\"$COLORS[$_]\" selected>";		} else {			print "<option value=\"$COLORS[$_]\">";		}		if ($COL_NAME[$_] eq ''){ 			print "$COLORS[$_]\n";		}else{			print "$COL_NAME[$_]\n";		}	}	print <<"HTML";   </SELECT></td> </tr> <tr>  <td align="right">キー<input type=password name=pwd size=10 value=\"$c_pwd\" $form_dhtml></td>  <td><input type=image src=\"$aquaimg_dir/btn_res.gif\" value=\"返信する\" ALIGN=middle border=0></td> </tr></table></CENTER></form><BR>HTML}#----------------##  デコード処理  ##----------------#sub decode {	$post_flag=0;	if ($ENV{'REQUEST_METHOD'} eq "POST") {		$post_flag=1;		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); }		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});	} else { $buffer = $ENV{'QUERY_STRING'}; }	@pairs = split(/&/, $buffer);	foreach (@pairs) {		($name,$value) = split(/=/);		if ($name eq "word") { $word = $value; }		$value =~ tr/+/ /;		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;		# 文字コードをシフトJIS変換		&jcode'convert(*value, "sjis", "", "z");		# タグ処理		$value =~ s/</&lt;/g;	# <の処理		$value =~ s/>/&gt;/g;	# >の処理		# コメントタグ対策（$value =~ s/<!--(.|\n)*-->//g;でも問題ない？）		$value =~ s/<!--/&lt;!--/g;		$value =~ s/-->/--&gt;/g;		# データ区切りに<>を使っているためここでその対策		$value =~ s/<>/&lt;&gt;/g;		# 改行等処理		if ($name eq "comment") {			# リターン処理（いったんに書き換える）			$value =~ s/\r\n//g;			$value =~ s/\r//g;			$value =~ s/\n//g;			if (!$tagkey) {				# "の処理				$value =~ s/\"/&quot;/g;				# &の処理				$value =~ s/&/&amp;/g;			}else {				if ($tagkey eq 1) { $value = &tag_change($value); }			}			# リターンを復元			$value =~ s//<br>/g;		} else {			$value =~ s/\"/&quot;/g;			$value =~ s/&/&amp;/g;			$value =~ s/\r//g;			$value =~ s/\n//g;		}		# 一括削除用		if ($name eq "del") { push(@DEL,$value); }		$in{$name} = $value;	}	$mode = $in{'mode'};	$page = $in{'page'};	$in{'url'} =~ s/^http\:\/\///;	if ($in{'sub'} eq "") { $in{'sub'} = "無題"; }}#------------------------##  許可HTMLタグの再変換  ##------------------------#sub tag_change {	# データー形式：&tag_change(再変換する文字列)	# By よーま	# この関数を作る上でお世話になったandiさん，WINGさん，うさぎさん，NUさんに感謝します。	local($str) = @_;	$oktag =~ tr/A-Z/a-z/;	if ($oktag =~ "img"){ 		# イメージタグの処理		$str =~ s/(.*)(&lt;(img([!-:A-~\s\=]+))&gt;)/$1<img$4>/i;	}elsif ($oktag =~ "embed") { 		# EMBEDタグの処理		$str =~ s/(.*)(&lt;(embed([!-:A-~\s\=]+))&gt;)/$1<embed$4>/ig;	}	# 許可タグを展開	$str =~ s/(.*)&lt;($oktag)\s*(.*?)&gt;(.*?)&lt;\/\2&gt;/$1<\U$2\E \L$3\E>$4<\/\U$2\E>/i;	# タグを|で区切り、@tagsの配列に納める	@tags = split(/\|/, $oktag);	# @tagsの数だけ繰り返す。またその時の値を$tagに代入	foreach $tag (@tags){		if ($tag eq "a"){			# aタグの処理			$str =~ s/<A\s+[^<>]*?href\=(?:\"|\')(.+?)(?:\"|\')[^<>]*?>(.*?)<\/A>/<a href\=\"$1\">$2<\/a>/;			$str =~ s/<A\s*(.*?)>(.*?)<\/A>/&lt;a $1&gt;$2&lt;\/a&gt;/;		}elsif ($tag eq "font"){			# FONTタグの処理			$str =~ s/<FONT\s+[^<>]*?((?:(?:size|face|color)(?:\=(?:\"|\').*?(?:\"|\')\s*)){1,3})[^<>]*?>(.*?)<\/FONT>/<font $1>$2<\/font>/;			$str =~ s/<FONT\s*(.*?)>(.*?)<\/FONT>/&lt;font $1&gt;$2&lt;\/font&gt;/;		}else{			# 上記以外のタグは、ここで処理			$str =~ s/(.*)<$tag.*?>(.*?)<\/$tag>/$1<$tag>$2<\/$tag>/;		}	}	return $str;}#----------------------------##  掲示板の使い方メッセージ  ##----------------------------#sub howto {	&header;	&dlog_1;	print "掲示板の利用上の注意\n";	&dlog_2;	print <<"HTML";<table border=0 cellpadding=10><tr><td><OL><LI>この掲示板は<b>クッキー対応</b>です。１度記事を投稿いただくと、おなまえ、Ｅメール、ＵＲＬ、削除キーの情報は２回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）<P><LI>HTML	if (!$tagkey) { 		print "投稿内容には、<b>タグは一切使用できません。</b>\n"; 	}elsif ($tagkey == 1) { 		print "コメント欄には、<b>";		$oktag =~ tr/A-Z/a-z/;		@tags = split(/\|/, $oktag);		foreach $tag (@tags){			print "&lt;$tag&gt;，";		}		print "タグを使用することができます。</b>但し、閉じ忘れのタグは無効です。\n"; 		if ($oktag =~ "font" ){			print "なお、<b>&lt;font&gt;タグ</b>には、<b>size，face，color属性のみ有効</b>です。";		}	}elsif ($tagkey == 2) { 		print "コメント欄には、<b>タグ使用をすることができます。</b>\n"; 	}	print <<"HTML";<LI>記事を投稿する上での必須入力項目は<b>「おなまえ」</b>と<b>「メッセージ」</b>です。Ｅメール、ＵＲＬ、題名、削除キーは任意です。<P><LI>記事には、<b>半角カナは一切使用しないで下さい。</b>文字化けの原因となります。<P>HTML	if($icon_mode){ 		print"<LI>この掲示板は、親記事のみアイコンが使えます。";		print"<br>イメージ選択でランダムを選択すると自動的にアイコンを選びます。<P>\n";	}	print <<"HTML";<LI>記事の投稿時に<b>「削除キー」</b>にパスワード（英数字で8文字以内）を入れておくと、その記事は次回<b>削除キー</b>によって削除することができます。<P><LI>記事の保持件数は<b>最大 $max件</b>です。それを超えると古い順に自動削除されます。<P><LI>既存の記事に<b>「返信」</b>をすることができます。各記事の上部にある<b>「返信」</b>ボタンを押すと返信用フォームが現れます。<P><LI>過去の投稿記事から<b>「キーワード」によって簡易検索ができます。</b>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。<P><LI>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。</OL></td></tr></table><hr><a href="$script\?"><image src=\"./images/btn_back.gif\" alt=\"掲示板にもどる\" border=0></a></center>HTML	&dlog_3;	&footer;	exit;}#------------------##  ワード検索処理  ##------------------#sub find {	&header;	&dlog_1;	print "ワード検索\n";	&dlog_2;	print <<"EOM";<P><center><table border=0 cellpadding=5><tr><td nowrap><UL>  <LI>検索したい<b>キーワード</b>を入力し、「条件」「表\示」を選択して「検索」ボタンを押して下さい。  <LI>キーワードは「半角スペース」で区切って複数指定することができます。<P><form action="$script" method="$method"><input type=hidden name=mode value="find">キーワード：<input type=text name=word size=30 value="$in{'word'}" $form_dhtml>条件：EOM	if (!$in{'cond'}) { $in{'cond'} = "AND"; }	foreach ("AND", "OR") {		if ($in{'cond'} eq "$_") {			print "<INPUT TYPE=\"radio\" value=\"$_\" checked $radio_dhtml>$_\n";		} else {			print "<INPUT TYPE=\"radio\" value=\"$_\" $radio_dhtml>$_\n";		}	}	print "表\示：<select name=view $popup_dhtml>\n";	if ($in{'view'} eq "") { $in{'view'} = $p_log; }	foreach (5,10,15,20) {		if ($in{'view'} == $_) {			print "<option value=\"$_\" selected>$_件\n";		} else {			print "<option value=\"$_\">$_件\n";		}	}	print <<"EOM";</select><input type=image src="$aquaimg_dir/btn_find.gif" value="検索する" border=0></form></UL></td></tr></table></center>EOM	# ワード検索の実行と結果表示	if ($in{'word'} ne ""){		# 入力内容を整理		$in{'word'} =~ s/　/ /g;		@pairs = split(/\s+/, $in{'word'});		# ファイルを読み込み		@new=();		open(IN,"$logfile") || &error("Open Error : $logfile");		$top = <IN>;		while (<IN>) {			$flag=0;			foreach $pair (@pairs) {				if (index($_,$pair) >= 0) {					$flag=1;					if ($in{'cond'} eq 'OR') { last; }				} else {					if ($in{'cond'} eq 'AND') { $flag=0; last; }				}			}			if ($flag) { push(@new,$_); }		}		close(IN);		# 検索終了		$count = @new;		print "検索結果：<b>$count</b>件\n";		if ($page eq '') { $page = 0; }		$end_data = @new - 1;		$page_end = $page + $in{'view'} - 1;		if ($page_end >= $end_data) { $page_end = $end_data; }		$next_line = $page_end + 1;		$back_line = $page - $in{'view'};		if ($back_line >= 0) {			print "[<a href=\"$script?mode=find&page=$back_line&word=$word&view=$in{'view'}&cond=$in{'cond'}\">前の$in{'view'}件</a>]\n";		}		if ($page_end ne "$end_data") {			print "[<a href=\"$script?mode=find&page=$next_line&word=$word&view=$in{'view'}&cond=$in{'cond'}\">次の$in{'view'}件</a>]\n";		}		foreach ($page .. $page_end) {			($no,$reno,$date,$name,$email,$sub,$com,$url)							= split(/<>/, $new[$_]);			if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; }			if ($url) { $url = "&lt;<a href=\"http://$url\" target='_top'>HOME</a>&gt;"; }			if ($reno) { $no = "$renoへのレス"; }			# 結果を表示			print "<hr width=\"75%\">[<b>$no</b>] <font color=\"$sub_color\"><b>$sub</b></font>";			print " 投稿者：<b>$name</b> <small>投稿日：$date</small> $url<br>\n";			print "<blockquote>$com</blockquote>\n";		}	}	print "<hr><a href=\"$script\?\"><image src=\"$aquaimg_dir/btn_back.gif\" alt=\"掲示板にもどる\" border=0></a><br>\n";	&dlog_3;	&footer;}#------------------##  クッキーの発行  ##------------------#sub set_cookie {	# クッキーは60日間有効	local($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time+60*24*60*60);	@month=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');	$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",			$week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec);	$cook="name<>$in{'name'}\,email<>$in{'email'}\,url<>$in{'url'}\,pwd<>$in{'pwd'}\,icon<>$in{'icon'}\,color<>$in{'color'}";	print "Set-Cookie: A4P=$cook; expires=$gmt\n";}#------------------##  クッキーを取得  ##------------------#sub get_cookie {	local($key, $val);	@pairs = split(/;/, $ENV{'HTTP_COOKIE'});	foreach (@pairs) {		($key,$val) = split(/=/);		$key =~ s/\s//g;		$GET{$key} = $val;	}	@pairs = split(/,/, $GET{'A4P'});	foreach (@pairs) {		($key,$val) = split(/<>/);		$COOK{$key} = $val;	}	$c_name  = $COOK{'name'};	$c_email = $COOK{'email'};	$c_url   = $COOK{'url'};	$c_pwd   = $COOK{'pwd'};	$c_icon  = $COOK{'icon'};	$c_color = $COOK{'color'};	if ($in{'name'})  { $c_name  = $in{'name'}; }	if ($in{'email'}) { $c_email = $in{'email'}; }	if ($in{'url'})   { $c_url   = $in{'url'}; }	if ($in{'pwd'})   { $c_pwd   = $in{'pwd'}; }	if ($in{'icon'})  { $c_icon  = $in{'icon'}; }	if ($in{'color'}) { $c_color = $in{'color'}; }}#--------------##  管理モード  ##--------------#sub admin {	if ($in{'pass'} ne "" && $in{'pass'} ne "$pass") {		&error("パスワードが違います");	}	&header;	&dlog_1;	print "管理者入室画面\n";	&dlog_2;	if ($in{'pass'} eq "") {		print "<P><center><h4>パスワードを入力して下さい</h4>\n";		print "<form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=mode value=\"admin\">\n";		print "<input type=hidden name=action value=\"del\">\n";		print "<input type=password name=pass size=8 title=\"ここにパスワードを入れて下さい\">";		print "<input type=image src=\"./images/btn_ninsyou.gif\" value='認証' ALIGN=middle border=0></form></center>\n";	}	else {		# 削除処理		if ($DEL[0]) {			# ロック処理			if ($lockkey) { &lock; }			# 削除情報をマッチングし更新			@new=();			open(IN,"$logfile") || &error("Open Error : $logfile");			$top = <IN>;			while (<IN>) {				$flag=0;				($no,$reno,$date) = split(/<>/);				foreach $del (@DEL) {					if ($no eq "$del" || $reno eq "$del") {						$flag=1; last;					}				}				if ($flag == 0) { push(@new,$_); }			}			close(IN);			# 更新			unshift(@new,$top);			open(OUT,">$logfile") || &error("Write Error : $logfile");			print OUT @new;			close(OUT);			# ロック解除			if ($lockkey) { &unlock; }		}		# 管理を表示		if ($page eq "") { $page = 0; }		print "<P><center><table><tr><td>\n";		print "<UL><LI>削除する記事のチェックボックスにチェックを入れ、削除ボタンを押して下さい。\n";		print "<LI>親記事を削除するとレス記事も一括して削除されます。</UL>\n";		print "</td></tr></table>\n";		print "<form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=mode value=\"admin\">\n";		print "<input type=hidden name=page value=\"$page\">\n";		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";		print "<input type=hidden name=action value=\"$in{'action'}\">\n";		print "<input type=image src=\"$aquaimg_dir/btn_delate.gif\" value=\"削除する\">";		print "<P><table border=0 cellspacing=1>\n";		print "<tr><th>削除</th><th>記事NO</th><th>投稿日</th><th>タイトル</th>";		print "<th>投稿者</th><th>URL</th><th>コメント</th><th>ホスト名</th></tr>\n";		# ページ区切り処理		$start = $page + 1;		$end   = $page + $p_log;		open(IN,"$logfile") || &error("Open Error : $logfile");		$top = <IN>;		$i=0;		while (<IN>) {			($no,$reno,$date,$name,$mail,$sub,$com,$url,$host,$pw)								 = split(/<>/);			if ($reno eq "") { $i++; }			if ($i < $start) { next; }			if ($i > $end) { last; }			if ($mail) { $name="<a href=\"mailto:$mail\">$name</a>"; }			($date,$dmy) = split(/\(/, $date);			if ($url) { $url = "&lt;<a href=\"http://$url\" target='$linktarget'>Home</a>&gt;"; }			else { $url = '-'; }			$com =~ s/<br>//ig;			$com =~ s/</&lt;/g;			$com =~ s/>/&gt;/g;			if (length($com) > 40) {				$com = substr($com,0,38);				$com .= "...";			}			if ($reno eq "") { print "<tr><th colspan=8><hr></th></tr>\n"; }			# 削除チェックボックス			print "<tr><th><input type=checkbox name=del value=\"$no\" $radio_dhtml></th>";			print "<td align=center>$no</td>";			print "<td><small>$date</small></td><th>$sub</th><th>$name</th>";			print "<td align=center>$url</td><td><small>$com</small></td>";			print "<td><small>$host</small></td></tr>\n";		}		close(IN);		print "<tr><th colspan=8><hr></th></tr>\n";		print "</table></form>\n";	}	$next_page = $page + $p_log;	$back_page = $page - $p_log;	print "<P><table cellspacing=0 cellpadding=0><tr>\n";	if ($back_page >= 0) {		print "<td><form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=page value=\"$back_page\">\n";		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";		print "<input type=hidden name=mode value=\"admin\">\n";		print "<input type=hidden name=action value=\"$in{'action'}\">\n";		print "<input type=image src=\"$aquaimg_dir/btn_nprevlog.gif\" border=0 value=\"前の$p_log組\" ALIGN=middle border=0>\n";		print "</form></td>\n";	}	if ($next_page < $i) {		print "<td><form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=page value=\"$next_page\">\n";		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";		print "<input type=hidden name=mode value=\"admin\">\n";		print "<input type=hidden name=action value=\"$in{'action'}\">\n";		print "<input type=image src=\"$aquaimg_dir/btn_nextlog.gif\" border=0 value=\"次の$p_log組\" ALIGN=middle border=0>\n";		print "</form></td>\n";	}	print "</tr></table>\n";	print "<hr><a href=\"$script\?\"><image src=\"$aquaimg_dir/btn_back.gif\" alt=\"掲示板にもどる\" border=0></a><br>\n";	&dlog_3;	&footer;}#------------------##  ユーザ記事削除  ##------------------#sub usr_del {	# POST限定	if ($MethPost && !$post_flag) { &error("不正なアクセスです"); }	if ($in{'no'} eq '' || $in{'pwd'} eq '')		{ &error("記事Noまたは削除キーが入力モレです"); }	# ロック処理	if ($lockkey) { &lock; }	open(IN,"$logfile") || &error("Open Error : $logfile");	@lines = <IN>;	close(IN);	$top = shift(@lines);	$flag=0;	foreach (@lines) {		($no,$reno,$dt,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/);		if ($flag == 0 && $in{'no'} eq "$no") {			$PW = $pw;			if ($reno eq "") { $flag=2; }			else { $flag=1; }		}		elsif ($flag == 2 && $in{'no'} eq "$reno") { next; }		else { push(@new,$_); }	}	if ($flag == 0) { &error("該当記事が見当たりません"); }	if ($PW eq '') { &error("該当記事には削除キーが設定されていません"); }	# 削除キーを照合	$match = &decrypt("$in{'pwd'}","$PW");	if ($match ne 'yes') { &error("削除キーが違います"); }	# 更新	unshift(@new,$top);	open(OUT,">$logfile") || &error("Write Error : $logfile");	print OUT @new;	close(OUT);	# ロック解除	if ($lockkey) { &unlock; }}#--------------##  時間を取得  ##--------------#sub get_time {	$ENV{'TZ'} = "JST-9";	$times = time;	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times);	@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');	# 日時のフォーマット	$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",			$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);}#----------------##  カウンタ処理  ##----------------#sub counter {	# 閲覧時のみカウントアップ	if ($mode eq '') { $cntup=1; } else { $cntup=0; }	# カウントファイルを読みこみ	open(IN,"$cntfile") || &error("Open Error : $cntfile");	eval "flock(IN, 1);";	$data = <IN>;	close(IN);	# IPチェックとログ破損チェック	($cnt, $ip) = split(/:/, $data);	if ($addr eq "$ip" || $cnt eq "") { $cntup=0; }	# カウントアップ	if ($cntup) {		$cnt++;		open(OUT,"+< $cntfile") || &error("Write Error : $cntfile");		eval "flock(OUT, 2);";		truncate(OUT, 0);		seek(OUT, 0, 0);		print OUT "$cnt\:$addr";		close(OUT);	}	# 桁数調整	while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }	@cnts = split(//, $cnt);	# 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\">$cnt</font><br>\n";	}}#--------------##  メール送信  ##--------------#sub mail_to {	# メールタイトルを定義	$MailSub = "[$title : $no] $in{'sub'}";	# 記事の改行・タグを復元	$com  = $in{'comment'};	$com =~ s/<br>/\n/g;	$com =~ s/&lt;/</g;	$com =~ s/&gt;/>/g;	$com =~ s/&quot;/\"/g;	$com =~ s/&amp;/&/g;	# メール本文を定義	$MailBody = <<"EOM";投稿日時：$dateホスト名：$hostブラウザ：$ENV{'HTTP_USER_AGENT'}投稿者名：$in{'name'}Ｅメール：$in{'email'}ＵＲＬ  ：$in{'url'}タイトル：$in{'sub'}投稿記事：$comEOM	# JISコード変換    	&jcode'convert(*MailSub,'jis');    	&jcode'convert(*MailBody,'jis');	# メールアドレスがない場合はダミーメールに置き換え	if ($in{'email'} eq "") { $email = 'nomail@xxx.xxx'; }	else { $email = $in{'email'}; }	if (!open(MAIL,"| $sendmail -t")) { &error("メール送信に失敗しました"); }	print MAIL "To: $mailto\n";	print MAIL "From: $email\n";	print MAIL "Subject: $MailSub\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 "--------------------------------------------------------\n";	print MAIL "$MailBody\n";	print MAIL "--------------------------------------------------------\n";	close(MAIL);}#-----------------##  自動URLリンク  ##-----------------#sub auto_link {	local($str) = @_;	$str =~ s/([^=^\"]|^)((http|https|ftp)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target='$linktarget'>$2<\/a>/g;	$str =~ s/([\w\+-\.]+@[\w\+-]+\.[\w\+\.-]+)/<a href="mailto:$1">$1<\/a>/ig;	return $str;}#--------------------##  イメージ画像表示  ##--------------------#sub image {	$list_w = (100 / $ImgListColums . '%');	&header;	&dlog_1;	print "イメージ画像サンプル\n";	&dlog_2;	print "<br>- 現在登録されているイメージ画像は以下のとおりです -<br>\n";	print "<hr>\n";	print "<TABLE BORDER=0 width=\"100%\" CELLSPACING=0 CELLPADDING=2><tr>\n";	$i=0; $j=0;	$stop = @icon1;	foreach (0 .. $#icon1) {		$i++; $j++;		# 削除されたアイコンの処理		if (!(-e "$IconPath/$icon1[$_]") && $noicon){			$icon_msg="<font color=red>見つかりませんでした</font>";			$icon1[$_] = $DefImg;		}		print "<td width=\"$list_w\" ALIGN=\"CENTER\"><img src=\"$imgurl$icon1[$_]\" ALIGN=middle><br>$icon2[$_]</td>\n";		if ($i >= $ImgListColums) { print '</tr><tr>'; $i=0; }		if ($j eq "$stop") {			if ($i == 0) { last; }			while ($i < $ImgListColums) { print "<th><br></td>"; $i++; }		}	}	print "</tr></table><hr>\n";	print "<center><a href=\"javascript:top.close();\"><img src=\"$aquaimg_dir/btn_close.gif\" border=0 ALIGN=middle></a></center>\n";	&dlog_3;	&footer;}#----------------##  過去ログ生成  ##----------------#sub pastlog {	local($past_flag)=0;	# 過去NOを開く	open(NO,"$nofile") || &error("過去ログカウントファイルが見つかりません：$nofile");	$count = <NO>;	close(NO);	# 過去ログのファイル名を定義	$pastfile  = "$pastdir$count\.dat";	# 過去ログを開く	open(IN,"$pastfile") || &error("過去ログのデーターが見つかりません：$pastfile");	@past = <IN>;	close(IN);	# 規定の行数をオーバーすると次ファイルを自動生成	if ($#past > $log_line) {		$past_flag=1;		# カウントファイル更新		$count++;		open(NO,">$nofile") || &error("過去ログカウントファイルに書き込めません：$nofile");		print NO $count;		close(NO);		$pastfile = "$pastdir$count\.dat";		@past=();	}	@temp=();	foreach (@data) {		($pno,$preno,$pdate,$pname,$pmail,$psub,$pcom,$purl,$pho)								 = split(/<>/);		if ($pmail) { $pname = "<a href=\"mailto:$pmail\">$pname</a>"; }		if ($purl) { $purl = "&lt;<a href=\"http://$purl\" target='_top'>HOME</a>&gt;"; }		if ($preno) { $pno = "$prenoへのレス"; }		# 保存記事をフォーマット		push(@temp,"<hr>[$pno] <font color=\"$sub_color\"><b>$psub</b></font> 投稿者：<b>$pname</b> <small>投稿日：$pdate</small><!-- $pho --> $purl<br>\n<blockquote>$pcom</blockquote>\n");	}	# 過去ログを更新	unshift(@past,@temp);	open(OUT,">$pastfile") || &error("過去ログファイルを更新できませんでした：$pastfile");	print OUT @past;	close(OUT);	if ($past_flag) { chmod(0666,$pastfile); }}#------------##  過去ログ  ##------------#sub past {	open(IN,"$nofile") || &error("Open Error : $nofile");	$pastno = <IN>;	close(IN);	if (!$in{'pastlog'}) { $in{'pastlog'} = $pastno; }	&header;	&dlog_1;	print "過去ログ[$in{'pastlog'}]";	&dlog_2;print <<"EOM"; <table border="0"><tr><td>  <form action="$script" method="$method">  <input type=hidden name=mode value=past>  過去ログ：<select name=pastlog>EOM	$pastkey = $pastno;	while ($pastkey > 0) {		if ($in{'pastlog'} == $pastkey) {			print "<option value=\"$pastkey\" selected>$pastkey Page\n";		} else {			print "<option value=\"$pastkey\">$pastkey Page\n";		}		$pastkey--;	}	print "</select>\n<input type=image src=\"$aquaimg_dir/btn_move.gif\" value='移動' ALIGN=middle border=0></form></td>\n";	print "<td width=30></td><td>\n";	print "<form action=\"$script\" method=\"$method\">\n";	print "<input type=hidden name=mode value=past>\n";	print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";	print "ワード検索：<input type=text name=word size=30 value=\"$in{'word'}\" $form_dhtml><BR>\n";	print "条件：";	if (!$in{'cond'}) { $in{'cond'} = "AND"; }	foreach ("AND", "OR") {		if ($in{'cond'} eq "$_") {			print "<INPUT TYPE=\"radio\" value=\"$_\" checked $radio_dhtml>$_\n";		} else {			print "<INPUT TYPE=\"radio\" value=\"$_\" $radio_dhtml>$_\n";		}	}	print "</select>\n";	print "　表\示：<select name=view $popup_dhtml>\n";	if ($in{'view'} eq "") { $in{'view'} = $p_log; }	foreach (5,10,15,20,25,30) {		if ($in{'view'} eq "$_") {			print "<option value=\"$_\" selected>$_件\n";		} else {			print "<option value=\"$_\">$_件\n";		}	}	print "</select>\n<input type=image src=\"$aquaimg_dir/btn_find.gif\" alt=\"検索\" ALIGN=middle border=0></form>\n";	print "</td></tr></table>\n";	# 表示ログを定義	$in{'pastlog'} =~ s/\D//g;	$file = "$pastdir$in{'pastlog'}\.dat";	# ワード検索処理	if ($in{'word'} ne "") {		$in{'word'} =~ s/　/ /g;		@pairs = split(/\s+/, $in{'word'});		@new=();		open(IN,"$file") || &error("過去ログが開けません：$file");		while (<IN>) {			$flag=0;			foreach $pair (@pairs) {				if (index($_,$pair) >= 0) {					$flag=1;					if ($in{'cond'} eq 'OR') { last; }				} else {					if ($in{'cond'} eq 'AND') { $flag=0; last; }				}			}			if ($flag) { push(@new,$_); }		}		close(IN);		$count = @new;		print "検索結果：<b>$count</b>件\n";		if ($page eq '') { $page = 0; }		$end_data = @new - 1;		$page_end = $page + $in{'view'} - 1;		if ($page_end >= $end_data) { $page_end = $end_data; }		$next_line = $page_end + 1;		$back_line = $page - $in{'view'};		if ($back_line >= 0) {			print "[<a href=\"$script?mode=past&page=$back_line&word=$word&view=$in{'view'}&cond=$in{'cond'}&pastlog=$in{'pastlog'}\">前の$in{'view'}件</a>]\n";		}		if ($page_end ne "$end_data") {			print "[<a href=\"$script?mode=past&page=$next_line&word=$word&view=$in{'view'}&cond=$in{'cond'}&pastlog=$in{'pastlog'}\">次の$in{'view'}件</a>]\n";		}		print "[<a href=\"$script?mode=past&pastlog=$in{'pastlog'}\">検索やり直し</a>]\n";		# 表示開始		foreach ($page .. $page_end) {			print $new[$_];		}		print "</tr></td></table>\n";		print "<hr><a href=\"$script\?\"><image src=\"$aquaimg_dir/btn_back.gif\" alt=\"掲示板にもどる\" border=0></a><br>\n";		&dlog_3;		&footer;	}	# ページ区切り処理	$start = $page + 1;	$end   = $page + $p_log;	$i=0;	open(IN,"$file") || &error("Open Error : $file");	while (<IN>) {		$flag=0;		if ($_ =~ /^\<hr\>\[\d+\]/) { $flag=1; $i++; }		if ($i < $start) { next; }		if ($i > $end) { last; }		if ($flag) { print $_; }		else {			$_ =~ s/<hr>//ig;			print "<blockquote>$_</blockquote>\n";		}	}	close(IN);	print "<hr>\n";	$next_page = $page + $p_log;	$back_page = $page - $p_log;	print "<table>\n";	if ($back_page >= 0) {		print "<td><form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=mode value=past>\n";		print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";		print "<input type=hidden name=page value=\"$back_page\">\n";		print "<input type=image src=\"$aquaimg_dir/prevlog.gif\" value=\"前の$p_log件\" ALIGN=middle border=0>\n";		print "</td></form>\n";	}	if ($next_page < $i) {		print "<td><form action=\"$script\" method=\"$method\">\n";		print "<input type=hidden name=mode value=past>\n";		print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";		print "<input type=hidden name=page value=\"$next_page\">\n";		print "<input type=image src=\"$aquaimg_dir/nextlog.gif\" value=\"次の$p_log件\" ALIGN=middle border=0>\n";		print "</td></form>\n";	}	print "</table>\n";	print "<hr><a href=\"$script\?\"><image src=\"$aquaimg_dir/btn_back.gif\" alt=\"掲示板にもどる\" border=0></a><br>\n";	&dlog_3;	&footer;}##### Aqua風描画エンジン（By よーま）############################################################################## CSS設定sub css_set {	print <<"HTML";BODY			{margin-top:0;margin-left:0;margin-right:0;margin-bottom:0 ;			font-family:"ＭＳ Ｐゴシック","Osaka" ;font-size: 9pt }p,table,tr,td,th,input,textarea,select			{ font-family:"ＭＳ Ｐゴシック","Osaka" ;font-size: 9pt }a			{ color:#0000FF ; text-decoration:none; }a:visited		{ color:#800080 }a:active		{ color:#FF0000 }a:hover			{ color:#FF0000 ; text-decoration:none; }HTML}# メニューバーsub menubar {	print <<"HTML";<CENTER><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT=20 background="$aquaimg_dir/menubar_bg.gif" nowrap> <TR>  <TD ALIGN="CENTER"><IMG SRC="$aquaimg_dir/menubar_apple.gif" WIDTH=20 HEIGHT=20 BORDER=0 ALIGN=middle></TD> </TR></TABLE></CENTER><BR><BR>HTML}# ダイアログ描画# 1は、ダイアログのタイトルの書き始めまでsub dlog_1 {	print <<"HTML";<CENTER><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 nowrap> <TR>  <TD VALIGN=bottom HEIGHT=23>   <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT=23 background="$aquaimg_dir/dlog_c.gif">    <TR>     <TD VALIGN=bottom WIDTH=100><IMG SRC="$aquaimg_dir/dlog_l.gif" WIDTH=23 HEIGHT=23 ALIGN=bottom></TD>     <TD ALIGN="CENTER"><NOBR>HTML}# ２は、タイトルから内容までsub dlog_2 {	print <<"HTML";     </NOBR></TD>     <TD VALIGN=bottom WIDTH=100 ALIGN=RIGHT><IMG SRC="$aquaimg_dir/dlog_r.gif" WIDTH=23 HEIGHT=23 ALIGN=bottom></TD>    </TR>   </TABLE></TD>  <TD VALIGN=bottom WIDTH=14 HEIGHT=23><IMG SRC="$aquaimg_dir/shadow_ht.gif" WIDTH=14 HEIGHT=14 ALIGN=bottom></TD> </TR> <TR>  <TD background="$aquaimg_dir/bg.gif">   <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT="100%" nowrap>    <TR>     <TD bgcolor="#999999" WIDTH=1></TD>     <TD ALIGN="CENTER">HTML}# ３は、内容からウィンドウの影までsub dlog_3 {	print <<"HTML";     </TD>     <TD bgcolor="#999999" WIDTH=1></TD>    </TR>   </TABLE></TD>  <TD background="$aquaimg_dir/shadow_hc.gif" WIDTH=14></TD> </TR> <TR>  <TD VALIGN=bottom background="$aquaimg_dir/bg.gif" HEIGHT=16>   <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT=16 background="$aquaimg_dir/dlog_fc.gif">    <TR>     <TD><IMG SRC="images/dlog_fr.gif" WIDTH=6 HEIGHT=16 ALIGN=bottom></TD>     <TD ALIGN=RIGHT><IMG SRC="$aquaimg_dir/sizebox.gif" WIDTH=16 HEIGHT=16 ALIGN=middle></TD>    </TR>   </TABLE>  </TD>  <TD background="$aquaimg_dir/shadow_hc.gif" WIDTH=14 HEIGHT=16></TD> </TR> <TR>  <TD background="$aquaimg_dir/shadow_vc.gif" HEIGHT=14><IMG SRC="$aquaimg_dir/shadow_r.gif" WIDTH=14 HEIGHT=14 ALIGN=bottom></TD>  <TD WIDTH=14 HEIGHT=14><IMG SRC="$aquaimg_dir/shadow_vl.gif" WIDTH=14 HEIGHT=14 ALIGN=bottom></TD> </TR></TABLE></CENTER>HTML}# ウィンドウ描画# 1は、タイトルまでsub window_1 {	print <<"HTML";<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="90%"> <TR>  <TD align=CENTER>   <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT=23 background="$aquaimg_dir/titlebar_c.gif" nowrap>    <TR>     <TD VALIGN=bottom WIDTH=100 HEIGHT=23><IMG SRC="$aquaimg_dir/titlebar_r.gif" WIDTH=68 HEIGHT=23 ALIGN=bottom></TD>     <TD VALIGN=bottom background="$aquaimg_dir/titlebar_c.gif" HEIGHT=23 ALIGN=\"center\"><NOBR>HTML}# ２は、タイトルから日付までsub window_2 {	print <<"HTML";     </NOBR></TD>     <TD VALIGN=bottom WIDTH=100 HEIGHT=23 ALIGN=RIGHT><IMG SRC="$aquaimg_dir/titlebar_l.gif" WIDTH=25 HEIGHT=23 ALIGN=bottom></TD>    </TR>   </TABLE>  </TD>  <TD VALIGN=bottom WIDTH=14><IMG SRC="$aquaimg_dir/shadow_ht.gif" WIDTH=14 HEIGHT=14 ALIGN=bottom></TD> </TR> <TR>  <TD>   <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">    <TR>     <TD bgcolor="#999999" WIDTH=1 HEIGHT=20></TD>     <TD background="$aquaimg_dir/menubar_bg.gif" HEIGHT=20 ALIGN="CENTER">      <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT="100%">       <TR>        <TD ALIGN="CENTER">HTML}# ３は、日付から内容までsub window_3 {	print <<"HTML";        </TD>        <TD bgcolor="#999999" WIDTH=1></TD>       </TR>      </TABLE>     </TD>    </TR>    <TR>     <TD bgcolor="#999999" WIDTH=1></TD>     <TD bgcolor="#FFFFFF">      <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT="100%">       <TR>        <TD VALIGN=top>HTML}# ４は、内容からレス入力までsub window_4 {	print <<"HTML";　　　　 <HR>HTML}# ５は、レス入力からウィンドウの影までsub window_5 {	print <<"HTML";        </TD>        <TD align=RIGHT WIDTH=16>         <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=16 HEIGHT="100%" background="$aquaimg_dir/scroll_h_bg.gif">          <TR>           <TD VALIGN=top align=RIGHT WIDTH=18><IMG SRC="$aquaimg_dir/scroll_h.gif" WIDTH=16 HEIGHT=30 ALIGN=bottom></TD>          </TR>          <TR>           <TD WIDTH=18></TD>          </TR>          <TR>           <TD VALIGN=bottom align=RIGHT WIDTH=18><IMG SRC="$aquaimg_dir/scroll_h.gif" WIDTH=16 HEIGHT=30 ALIGN=bottom></TD>          </TR>         </TABLE>        </TD>       </TR>       <TR>        <TD HEIGHT="16">         <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" HEIGHT=16 background="$aquaimg_dir/scroll_vc.gif">          <TR>           <TD WIDTH=38 HEIGHT=16><IMG SRC="$aquaimg_dir/scroll_vr.gif" WIDTH=38 HEIGHT=16 ALIGN=bottom></TD>           <TD align=CENTER HEIGHT=16><IMG SRC="$aquaimg_dir/scroll_vc.gif" WIDTH="100%" HEIGHT=16 ALIGN=bottom></TD>           <TD WIDTH=102 HEIGHT=16 ALIGN=RIGHT><IMG SRC="$aquaimg_dir/scroll_vl.gif" WIDTH=102 HEIGHT=16 ALIGN=bottom></TD>          </TR>         </TABLE>        </TD>        <TD WIDTH=16 HEIGHT="16" ALIGN=RIGHT><IMG SRC="$aquaimg_dir/sizebox.gif" WIDTH=16 HEIGHT=16 ALIGN=bottom></TD>       </TR>      </TABLE>     </TD>    </TR>   </TABLE>  </TD>  <TD background="$aquaimg_dir/shadow_hc.gif" WIDTH=14></TD> </TR> <TR>  <TD background="$aquaimg_dir/shadow_vc.gif" HEIGHT=14><IMG SRC="$aquaimg_dir/shadow_r.gif" WIDTH=14 HEIGHT=14 ALIGN=bottom></TD>  <TD WIDTH=14 HEIGHT=14><IMG SRC="$aquaimg_dir/shadow_vl.gif" WIDTH=14 HEIGHT=14 ALIGN=bottom></TD> </TR></TABLE>HTML}