#!/usr/local/bin/perl

## ErialBBS 4.38.5 - 99/10/13  by ENT (ErialArts) http://www.coma.ais.ne.jp/~e-utopia/erial/
## ----------------------------------------------------------------------------
## Based  - Petit Board v4.02 by おいどん (99/01/03)
##          E-MAIL: webmaster@kent-web.com   WWW: http://www.kent-web.com/
## ----------------------------------------------------------------------------
$| = 1;
### --- 個別設定

require './jcode.pl';
require './erialbbs_cfg.pl';

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

### --- メイン処理 --- ###
	foreach(@deniedaddrs){
		if($ENV{'REMOTE_ADDR'} =~ /^$_/ && length($_) > 4 ){ die "Status: 204\n\n";}
	}

	$host = $ENV{'REMOTE_HOST'};
	$host = $ENV{'REMOTE_ADDR'}  unless($host);

	&form_decode;
	&get_cookie;
	&regist  if ($mode eq "msg");

### --- 記事表示部 --- ###
	# フォーム長を調整
	&get_bros;

	if($mode ne "regist"){
		# ログを読み込み
		open(IN,"$logfile") || &error("ログファイル「$logfile」が開けません");
		@lines = <IN>;
		close(IN);
	}

	# 最終更新を抽出
	if ($lines[0] =~ /<>/) {
		&error("ログが正しくありません。<P>\(Petit v2.5以前のログの場合は変換の必要があります\)");
	}
	$lastkakiko = $lines[0];
	$lastkakiko =~ s/(^[0-9]*,|\n)//g ;
	shift(@lines);

	# 親記事のみの配列データを作成
	@new = ();
	foreach $line (@lines) {
		push(@new,$line)  if($line =~ /^[0-9]*<><>/ );
	}

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

	# ヘッダを出力
	&header;
	print "<script Language=\"javascript\"><!";
	print "--\n function colsel() { window.open('$scriptsub?mode=colorprev','colsel','scrollbars=no,status=no,height=180,width=480'); }\n";
	if ($dhtml){ print <<"EOM";
 function view(name) {
  var txtObj = document.all(name);
  if (txtObj.style.display != 'none') { txtObj.style.display = 'none'; }
  else { txtObj.style.display = ''; }
 }
EOM
	}
	print "// --></script>\n\n";

	print "<table border=0 width=\"100%\"><tr>\n";
	print "\t<td>$title2</td>\n";
	print "\t<td align=\"right\" valign=\"top\" nowrap><small class=\"min\">lastpost : <font color=\"$cnt_color\">$lastkakiko</font> ";

	&counter  if($countfile);
	print ", [<font color=\"$cnt_color\">$host</font>]"  if($ipview);

	print "<br>[<a href=\"$homepage\">戻る</a>]";
	print "[<a href=\"$scriptsub?mode=howto\">掲示板の使い方</a>]";
	print "[<a href=\"$scriptsub?mode=find\">全文検索</a>]";
	print "[<a href=\"$scriptsub?mode=msg_del\">記事削除</a>]";
	print "[<a href=\"$scriptplus\">ログ解析</a>]"  if ($scriptplus);
	print "[<a href=\"$scriptsub?mode=admin\">管理用</a>]";
	print "</small></td></tr>\n</table>\n<hr size=1 noshade>\n\n\n";


	if ($FORM{'pick'} eq "") {
		print <<"EOM";
$headcom
<form method="POST" action="$script">
	<input type="hidden" name="mode" value="msg">
	<blockquote><table border=0>
	<tr><td nowrap><b><u>おなまえ</u></b></td>
	<td nowrap align="left" colspan="2"><input type="text" name="name" size="$nam_wid" value="$c_name">
	<b>メール</b><input type="text" name="email" size="$nam_wid" value="$c_email">　　　　<small>
	<a href="$script?$dhtml" target="_self">Refresh</a></small></td></tr>
	<tr><td nowrap><b>題　　名</b></td>
	<td colspan="2"><input type=text name="subj" size="$subj_wid">　　<b>削除キー</b>
	<input type=text name="pwd" size=8 maxlength=9 value="$c_pwd"><small>(英数字8以内)</small></td>
	<tr><td valign="top" nowrap><b><u>記　　事</u></b>
EOM
		print '	<small><p>';
		if($tagkey == 0) { print 'タグ不可です'; }
		else { print 'タグ可です</p>'; }
		print <<"EOM";
	</p></small></td>
	<td colspan="2"><textarea cols="$com_wid" rows="7" name="comment" wrap="soft"></textarea></td></tr>
	<tr><td nowrap><b>ＵＲＬ</b></td>
	<td colspan="2"><input type=text size="$url_wid" name="url" value="http://$c_url"></td></tr>
	<tr><td nowrap><b>文字色</b></td>
	<td colspan="2">
EOM
		print '	<input type="hidden" name="dhtml" value="1">'."\n"  if($dhtml);

		&irolist;

		print "\t</td></tr><tr><td nowrap>\n";

			if($#CHARA > 1){
				print "\t<b>アイコン</b></td>\n";
				print "\t<td nowrap><select name=icon>\n";
				for (0 .. $#CHARA) {print "\t\t<option value=\"$GFILE[$_]\">$CHARA[$_]\n";}
				print "\t</select><a href=\"$scriptsub?mode=chara\" target=\"ebbsprv\"><small>一覧</small></a>　　"."\n";
			}
			if($#FSNAME > 1){
				print "\t<b>フォント</b>";
				unless($#GFILE > 1){ print "\t</td><td>";}
				print ' <select name=font>';
				for (0 .. $#FSNAME) {print "\t\t<option value=\"$FSNAME[$_]\">$FSCALL[$_]\n";}
				print "\t</select><a href='$scriptsub?mode=font' target='ebbsprv'><small>一覧</small></a>\n";
			}

		print "\t</td><td align=\"right\" nowrap><input type=submit value=\"　　投稿　　\"><input type=reset value=\"消去\"></td></tr>\n";
		print "\t<tr><td>　</td><td colspan=2 align=\"center\">";
		&navibar;
		print '</td></tr></table></blockquote></form>'."\n";
	}

	print "<div align='center'>\n\n\n";


	&navibar  if($FORM{'pick'} ne "");

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

	if($FORM{'pick'} ne ""){
		$page = 0; $page_end = $end_data ;
	}elsif($page != 0){
		&pager;
	}

	print "<hr size=1 noshade>\n";

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

	for ($page .. $page_end) {
		if( $FORM{'pick'} ){
			next  unless( $new[$_] =~ /^$FORM{'pick'}<>/);
		}

		($number,$k,$date,$name,$email,$subj,$comment,$url,$host,$pwd,$color,$font,$icon)
							= split(/<>/,$new[$_]);
		if($email) { $name = "<a href=\"mailto:$email\">$name</a>"; }
		else  { $name = "<font color=\"$nam_color\">$name</font>"; }

		$subj = "(無題)"  unless($subj);
		if($url) {
			if($homeicon){ $url = "<a href=\"http://$url\" target=\"_top\">$homeicon</a>";	}
			else {$url = "<a href=\"http://$url\" target=\"_top\" class=\"min\">$url</a>";}
		}
		# 自動リンク
		if ($autolink) { $comment = &auto_link($comment); }

		print "<table border=0 width=\"92%\" cellpadding=3><tr><td bgcolor=\"$tbl_color2\">\n";
		print "\t[<b>$number</b>]<font color=\"$sbj_color\"><b>$subj</b></font>\n";
		print "\t<small>　\From: </small><b>$name</b>\n";
		print "\t<small>　\on $date 　 $url</small></td></tr>\n";
		print "\t<tr><td bgcolor=\"$tbl_color\">";
		print "<img src=\"$img_dir$icon\" align=\"right\" alt=\"$icon\">"  if ($icon);
		print "\n\t<blockquote>\n\t\t<font color=\"$color\"";
		print " id=\"$font\""  if ($font);
		print ">$comment</font><!-- $host -->\n\t</blockquote>";


		## レスメッセージを表示
		$flag = 0;
		foreach $line (@lines) {
			local($rnum,$rk,$rd,$rname,$rem,$rsub,$rcom,$rurl,$rho,$rp,$rc,$rfont)
				= split(/<>/,$line);
			if ($number eq "$rk") {
				if ($flag == 0) { print "\n\t<br><hr width=\"95%\" size=1 class=r noshade>\n"; $flag=1; }

				if ($autolink) { $rcom = &auto_link($rcom); }
#				if ($rem){ $rname = "<a href=\"mailto:$rem\">$rname</a>"}	#レスのemail

				print '	<table border=0 cellspacing=0 cellpadding=0';
					if($rfont)	{ print " id=\"$rfont\""; }
				print "><tr><td nowrap valign=\"top\">\n";
				print "\t<font color=\"$rc\"><b>$rname</b><!-- $rho --> &gt;</font></td>\n";
				print "\t\t<td><font color=\"$rc\">$rcom</font>\n";
				print "\t\t<font size=\"1\" color=\"$res_col\"><i>($rd)</i></font></td></tr></table>\n";
			}
		}

		print "\t</td></tr>\n";
		if ($dhtml){ print "\t<tr><td align=\"right\"><div id=\"LK$number\" class=\"lnk\" onClick=\"view('NO$number');\">レス欄生成▼</div></td></tr>\n"; }
		print "</table>\n\n";
		&reswindow;
		print "<hr>\n\n\n";
	}
	&pager;
	print <<"EOM";
</div>

$footcom

<div align="right" style="margin-top: 4pt;"><font size="-1" face="TicagoFix,Helvetica">
	<!--著作権表\示(編集不可)-->
	\- <a href="http://www.coma.ais.ne.jp/~e-utopia/erial/">ErialBBS</a> 4.38.5 \- ,
	based on <a href="http://www.kent-web.com/" target="_top">petit 4.02</a> </font>
</div>
</body></html>
EOM

exit;

## 返信欄
sub reswindow{
	# DHTMLモードのレス
	if ($dhtml || $FORM{'pick'} ne ""){
		print "<form action=\"$script\" method=\"POST\"";
		print " ID=\"NO$number\" STYLE=\"display:none;\""  if ($FORM{'pick'} eq "");
		print ">\n";

		print <<"EOM";
	<table border=1 bgcolor="$post_color" cellspacing=0 cellpadding=0 style="font-size: 10pt;"><tr><td width="90%">
	<input type=hidden name="mode" value="msg"><input type=hidden name="resno" value="$number"><input type=hidden name="dhtml" value="1">
	名前<input type=text name="name" size="$nam_wid2" value="$c_name">
EOM
		if($#FSNAME > 1){
			print "\t<small>フォント <select name=font>\n";
			for (0 .. $#FSNAME) {print "\t\t<option value=\"$FSNAME[$_]\">$FSCALL[$_]\n";}
			print "\t</select>　　\n";
		}
		print <<"EOM";
	\KEY<input type="text" name="pwd" size=9 maxlength=8 value=\"$c_pwd\"></small></td>
	<td align="right"><input type=submit value=\"返信\"></td></tr>
	<tr><td align="center" valign="top" colspan="2">
	<small>コメント</small><textarea cols="$com_wid" rows=6 name="comment" wrap="soft"></textarea><br>
	<hr width="95%" size=1 noshade>
EOM
		&irolist;
		print "\t</td></tr></table>\n</form>\n";
	} else {
		# DHTMLぢゃないよ
		print <<"EOM";
<form action="$script" method=\"POST\"><input type=hidden name="mode" value="msg"><input type=hidden name="resno" value="$number">
	<table border=0 cellspacing=0 cellpadding=0 class="resform" bgcolor="$post_color"><tr>
	<td nowrap align="right">お名前</td>
	<td nowrap><input type="text" name="name" size="$nam_wid2" value="$c_name"></td>
	<td rowspan=2 nowrap><textarea cols="$com_wid" rows="2" name="comment" wrap="soft"></textarea></td>
	<td nowrap>色<select name="color2" class="min">
EOM
		for (0 .. $#IROIRO) {
			print "\t<option value=\"$COLORS[$_]\">$IROIRO[$_]\n"  if( $COLORS[$_] );
		}
		print "\t<option value=\"$c_color\"selected>Ｃ</option>"  if ($c_color);
		print <<"EOM";
	<option value="">＃</option></select></td></tr>
	<tr><td nowrap align="right">\KEY</td>
	<td><input type="text" name="pwd" size=8 value="$c_pwd" class="min"></td>
	<td><input type="submit" value=\"返信\"></td></tr></table>
</form>
EOM
	}
}


## AltaVista風改頁処理ルーチン by ENT
sub pager{
	if ( ($page - $pagelog) >= 0 || $page_end ne $end_data) {
		print "<table border=0 cellspacing=0 cellpadding=0 style=\"border-bottom: 0.4mm solid $mbarcol \">\n";
		print "\t<tr><td nowrap bgcolor=\"$mbarcol\"><font size=2> Log Pager :</font></td><td>　"."\n\t";

		$nowtab = int( $page / $pagelog ) + 1 ;	#初めの記事を0として何枚目かを測定

		for( $i = 1 ; $i <= 20; $i++){
			if( $nowtab > 20 ){ $tab = $nowtab + $i - 10 ;}
			else{ $tab = $i; }

			if( $tab < 1 ){ &error("Pagerの致命的エラー"); }
			elsif($tab == $nowtab){
				print "<b>$nowtab</b>\n\t";
			}else{
				$gopage = $pagelog * ( $tab - 1 );			# 何枚目の記事かを生成
				if( $gopage > $end_data){ last; }			# 最大記事数より多いNoで終了
				else{ print "<a href=\"$script?$dhtml"."page=$gopage&pagelog=$pagelog\">$tab</a>\n\t"; }
			}
		}

		print "<a href=\"$scriptlog\">File</a>\n\t"  if ($nofile);
		print " - <small>\t[ $pagelog件/page ";

		# ページ記事数切り替え
		$pagewid = $pagelog + 10;
		print "<a href=\"$script?$dhtml"."page=$page&pagelog=$pagewid\">+10</a> ";

		$pagewid = $pagelog - 10;
		if($pagewid > 0){ print "<a href=\"$script?$dhtml"."\page=$page&pagelog=$pagewid\">-10</a>"; }
		print ", max: $max件 ]</small></td></tr>\n</table>\n\n";
	}
}

sub navibar{
	print "\n\t<table border=0 align=\"center\" cellspacing=0 cellpadding=0 style=\"border-bottom: 0.4mm solid $mbarcol;\"><tr>\n";
	print "\t<td nowrap bgcolor=\"$mbarcol\"><font size=2> View Mode : </font></td>\n";
	print "\t<td nowrap> <font size=2><a href=\"$script?page=$page&pagelog=$pagelog\">Normal mode</a> / ";
	if($readydhtml){ print "<a href=\"$script?dhtml=1&page=$page&pagelog=$pagelog\">DynamicHTML mode</a>";
	} else { print 'DynamicHTML mode'; }
	print "/ <a href=\"$scriptsub?mode=thread&page=$page&pagelog=$pagelog\">Thread view</a>";
	print ' / </font><font size=1 style="font-size:8pt;">レスの付いた記事は上に移動されます'  if ($res_sort);
	print "</font></td>\n</tr></table>\n";
}

## -- color2を訊く
sub colorsel{
	&header;
	&get_cookie;

	print <<"EOM";
<SCRIPT Langurge="javascript"><!--
	 function colsel() { window.open('$scriptsub?mode=colorprev','colsel','scrollbars=no,status=no,height=180,width=480');}
// --></SCRIPT>

[<a href="$script?" target="_self">▲やっぱやめた</a>]
<div align="center">$title2<hr>
<form action="$script" method="POST">
<table border=0 width="80%" cellpadding=3>
	<tr><td bgcolor="$tbl_color2"><b><font color="$sbj_color">カラーコード設定フォーム</b></font></td></tr>
	<tr><td bgcolor="$tbl_color">
		<blockquote>
			<table border=0><tr>
				<td nowrap>$FORM{'name'} > </td>
				<td>$FORM{'comment'}</td>
			</tr></table>
		</blockquote>
		<hr width="95%" size=1 class=r noshade>
	</td></tr>
	<tr><td align="center" bgcolor="$tbl_color">
		<table border=0  cellpadding=3  bgcolor="$post_color"><tr><td nowrap>
		<p>このレスの色を何色にするか教えて下さい。次回からはcookieされ入力が省けます。<br>
		※１６進コードでもカラー名でも（hotpink,whitesmokeなど）入力可能\です</p>
		</td></tr><tr><td nowrap align="center">
			<input type=hidden name="mode" value="msg">
			<input type=hidden name="resno" value="$FORM{'resno'}">
			<input type=hidden name="name" value="$FORM{'name'}">
			<input type=hidden name="comment" value="$FORM{'comment'}">
			　<a href="javascript:colsel()">色一覧をみる</a>
			<input type=text name="color2" size=11 value="#">
			<input type=hidden name="pwd" value="$FORM{'pwd'}">
			<input type=submit value="これでいい">
		</td></tr></table>
	</td></tr>
</table>
EOM
	print "\t\t<input type=\"hidden\" name=\"dhtml\" value=\"1\">\n;" if($dhtml);
	print "\t</form>\n\n<hr>\n</body>\n</html>";
	exit;
}

## radio list color
sub irolist{
	print "\t<input type=radio name=\"color\" value=\"$COLORS[0]\"";
	print ' checked' unless($c_color);
	print "><font color=\"$COLORS[0]\">■</font>\n";

	for (1 .. $#COLORS - 1){
		if( $COLORS[$_] eq ""){
			print "<br>";
		}else{
			print "\t<input type=radio name=\"color\" value=\"$COLORS[$_]\"><font color=\"$COLORS[$_]\">■</font>\n";
		}
	}

	print '	<input type=radio name="color" value=""';
	if ($c_color) {
		print " checked><font color=\"$c_color\">■</font>";
	} else {
		print '>';
	}

	print '<small><input type=text name="color2" value="';
	print "#"  unless($c_color);
	print "$c_color\" size=8><a href=\"javascript:colsel()\">色一覧</a></small>\n";
}

### --- ログ書き込み処理 --- ###
sub regist {
	# 他サイトからのアクセスを排除
	if ($base_url ne ".") {
		$ref_url = $ENV{'HTTP_REFERER'};
		$ref_url =~ s/\?(.|\n)*//ig;
		$ref_url =~ s/\%7E/\~/ig;
		if ($ref_url !~ $base_url) { &error("不正なアクセスです。"); }
	}

	# 名前とコメントは必須
	&error("名前が入力されていません。")  unless($FORM{'name'});
	&error("コメントが入力されていません。")  unless($FORM{'comment'});
	if ($FORM{'email'} && $FORM{'email'} !~ /(.*)\@(.*)\.(.*)/) {
		&error("Ｅメールの入力内容が正しくありません。");
	}
	$FORM{'subj'} = "(無題)"  unless($FORM{'subj'});

	# colorは絶対必要
	if ($color eq "" && $FORM{'color2'} ne "#" && $FORM{'color2'} ne "") {
		$color = $FORM{'color2'};		# col2の値
	}elsif($color eq ""){ &colorsel; }

	# ホスト名を取得
	$addr = $ENV{'REMOTE_ADDR'};
	if ($host eq "" || $host eq "$addr") {
		($p1,$p2,$p3,$p4) = split(/\./,$addr);
		$temp = pack("C4",$p1,$p2,$p3,$p4);
		$host = gethostbyaddr("$temp", 2);
		if ($host eq "") { $host = $addr; }
	}

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

	# ログを開く
	open(IN,"$logfile") || &error("Can't open $logfile");

	# 親記事番号を抽出
	$oya = <IN>;
	if ($oya =~ /<>/) {
		&error("ログが正しくありません。<P><small>\(Petit v2.5以前のログの場合は変換の必要があります\)<\/small>");
	}
	$oya =~ s/(,.*|\n)//g ;

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

	# 削除キーを暗号化
	if ($pwd) {
		$now = time;
		($p1, $p2) = unpack("C2", $now);
		$temp = $now / (60*60*24*7) + $p1 + $p2 - 8;
		@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
		$nsalt = $saltset[$temp % 64] . $saltset[$now % 64];
		$ango = crypt($pwd, $nsalt);
	}

	# ログをフォーマット
	local($new_msg) = $oya;
	$new_msg  = $FORM{'resno'}  if( $FORM{'resno'} );
	$new_msg .= "<>$FORM{'resno'}<>$date<>$name<>$email<>$subj<>$comment<>$url<>$host<>$ango<>$color<>$FORM{'font'}<>$FORM{'icon'}<>\n";

	@lines = ();
	local(@res_data) = (); local(@past_res) = (); local(@past_data) = ();

	## 自動ソート時は、レス記事投稿時は親記事はトップへ移動
	if ($res_sort && $FORM{'resno'} ne "") {
		while ($line = <IN>) {
			$flag = 0;
			local($num,$k,$d,$na,$em,$sub,$com,$u) = split(/<>/,$line);
			&error("二重投稿は禁止です")  if ($name eq "$na" && $comment eq "$com");

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

		unshift(@lines,@res_data);	# 関連レス記事をトップへ
		unshift(@lines,$new_msg);		# 新規メッセージをトップへ
		unshift(@lines,$new_line);	# 親記事をトップへ

	## 親記事の場合、最大記事数を超える記事をカット
	} elsif ($FORM{'resno'} eq "") {
		$i = 0;
		$stop = 0;
		while ($line = <IN>) {
			local($num,$k,$d,$na,$em,$sub,$com,$u) = split(/<>/,$line);
			&error("二重投稿は禁止です")  if ($name eq "$na" && $comment eq "$com");

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

	## レス記事は記事数の調整はしない
	} else {
		while ($line = <IN>) {
			$flag = 0;
			local($num,$k,$d,$na,$em,$sub,$com,$u) = split(/<>/,$line);
			&error("二重投稿は禁止です")  if ($name eq "$na" && $comment eq "$com");

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

	# 親記事NO＆最終書き込みを付加
	unshift (@lines,"$oya,$date $name\n");

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

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

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

	# メール処理
	&mailto  if ($mailto ne "" && $FORM{'email'} ne "$mailto");

	$comment = "";

	# cookieは２つ取れないという、IEバグ対策
	if ($FORM{'resno'} eq "") { #レス時の継承
		$c_url   = $url;
		$c_email = $FORM{'email'};
	}
	$c_name  = $FORM{'name'};
	$c_pwd   = $FORM{'pwd'};

	if ($FORM{'color'}) { $c_color = $FORM{'color'}; }
	else { $c_color = $FORM{'color2'}; }

}

### --- クッキーの発行 --- ###
sub set_cookie {
	# レス時は以前の値を継承
	if ($FORM{'resno'} ne "") {
		$email = $COOKIE{'email'};
		$url = $COOKIE{'url'};
	}

	($secg,$ming,$hourg,$mdayg,$mong,$yearg) = gmtime(time + 60*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\,color\:$color";
	print "Set-Cookie: ERIALBBS=$cook; expires=$date_gmt\n";
}

### --- クッキーを取得 --- ###
sub get_cookie{
	local(@pairs) = split(/;/,$ENV{'HTTP_COOKIE'});
	local(@pairs2) = ();
	foreach $pair (@pairs) {
		local($name, $value) = split(/=/, $pair);
		$name =~ s/ //g;
		if($name eq 'ERIALBBS'){
			@pairs2 = split(/,/,$value);
			last;
		}
	}
	foreach $pair (@pairs2) {
		local($name, $value) = split(/:/, $pair);
		$COOKIE{$name} = $value;
	}
	$c_name  = $COOKIE{'name'};
	$c_email = $COOKIE{'email'};
	$c_url   = $COOKIE{'url'};
	$c_pwd   = $COOKIE{'pwd'};
	$c_color = $COOKIE{'color'};
}

### --- フォームからのデータ処理 --- ###
sub form_decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		&error("投稿量が大きすぎます。")  if($ENV{'CONTENT_LENGTH'} > 51200);
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	local(@pairs) = split(/&/,$buffer);
	foreach $pair (@pairs) {
		local($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 == 1) {
			$value =~ s/<!--(.|\n)*-->//g;
			$value =~ s/<>/&lt\;&gt\;/g;
		}else{
			$value =~ s/</&lt\;/g;
			$value =~ s/>/&gt\;/g;
		}
		$FORM{$name} = $value;
	}
	$name = $FORM{'name'};
	$comment = $FORM{'comment'};
	$comment =~ s/\r\n/<br>/g;
	$comment =~ s/\r|\n/<br>/g;
	$email = $FORM{'email'};
	$url = $FORM{'url'};
	$url =~ s/^http\:\/\///;
	$mode = $FORM{'mode'};
	$pwd = $FORM{'pwd'};
	$color = $FORM{'color'};
	$pagelog = $FORM{'pagelog'}  if ( $FORM{'pagelog'} ne "");
	$subj = $FORM{'subj'};

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

	&error("アイコンリストが不正です")  if( $FORM{'icon'} =~ /(http:\/\/|\/|\.\.)/ );

	# 日時の取得
	$ENV{'TZ'} = "JST-9";
	local(@timez) = localtime(time);
	for(0 .. 5){ $timez[$_] = '0'.$timez[$_]  if( $timez[$_] < 10 ); }
	$timez[4]++;
	$date = "$timez[5]/$timez[4]/$timez[3] $timez[2]\:$timez[1]\:$timez[0]";
}


### --- ブラウザを判断しフォーム幅を調整 --- ###
sub get_bros {
	if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE 3/i) {
		$nam_wid  = 30;
		$subj_wid = 40;
		$com_wid  = 65;
		$url_wid  = 48;
		$nam_wid2 = 12;
		$rescom_wid = 40;
	} elsif ($ENV{'HTTP_USER_AGENT'} =~ /MSIE [4-9]/i) {
		$nam_wid  = 30;
		$subj_wid = 40;
		$com_wid  = 65;
		$url_wid  = 78;
		$nam_wid2 = 12;
		$rescom_wid = 70;
		$readydhtml = 1;
		$dhtml = 'dhtml=1&' if ( $FORM{'dhtml'} == 1 );
	} else {
		$nam_wid  = 20;
		$subj_wid = 25;
		$com_wid  = 56;
		$url_wid  = 50;
		$nam_wid2 = 10;
		$rescom_wid = 40;
	}
}

### --- カウンタ処理 --- ###
sub counter {
	local($cnt);

	open(NO,"$countfile") || &error("Can't open $countfile");
	$cnt = <NO>;
	close(NO);

	# 掲示板の更新系処理以外であれば、カウントアップ
	if ($mode eq "") {
		$cnt++;

		# ログを更新
		open(NO,">$countfile") || &error("Can't write $countfile");
		eval 'flock(NO,2);';
		print NO $cnt;
		eval 'flock(NO,8);';
		close(NO);
	}

	# 桁数を調整
	$cnt = "0$cnt"  while(length($cnt) < $mini_fig);

	## カウンタ表示
	print ", Visitor <font color=\"$cnt_color\">$cnt</font>";
}


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

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

### --- メール送信 --- ###
sub mailto {

	local($mail_subj) = "$title に投稿がありました。";
	&jcode'convert(*mail_subj,'jis');
	&jcode'convert(*name,'jis');
	&jcode'convert(*comment,'jis');
	&jcode'convert(*subj,'jis')  unless($FORM{'resno'});

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

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

	open(MAIL,"| $sendmail $mailto") || &error("Can't post sendmail");

	print MAIL "X-Mailer: ErialBBS MAILER\n";
	print MAIL "To: $mailto\n";
	print MAIL "From: $email\n";
	print MAIL "Subject: $mail_subj\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "Content-type: text/plain\n\n";
	print MAIL "$mail_subj\n";
	print MAIL "--------------------------------------------------------\n";
	print MAIL "TIME : $date\n";
	print MAIL "NAME : $name";
	print MAIL '　　mailto:' . $FORM{'email'}  if( $FORM{'email'} );
	print MAIL "\n";
	print MAIL "URL  : http://$url\n"  if ($url);

	if ($FORM{'resno'} ne "") { $subj = "(Res Message: $FORM{'resno'} )";}
	elsif ($FORM{'resno'} eq "" && $subj eq "") { $subj = "no title"; }
	print MAIL "TITLE: $subj\n\n";

	print MAIL "$comment\n";
	print MAIL "--------------------------------------------------------\n";
	close(MAIL);
}


### --- 自動リンク
sub auto_link {
	local($temp) = "$_[0]";
	&jcode'convert(*temp,'euc');
	$temp =~ s/([^=^\"]|^)((http|ftp)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href="$2" target=\"_top\">$2<\/a>/g;
	if( $temp !~ /\:[\w\.\-]+\@/ ){
		$temp =~ s/([\w\.\-]+)\@([\w\.\-]+)/<a href="mailto\:$1\@$2">$1\@$2<\/a>/g;
	}
	&jcode'convert(*temp,'sjis');
	return $temp;
}


### --- HTMLのヘッダー --- ###
sub header {
	print "Content-type: text/html\n\n";
	print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'."\n<html>\n<head>\n";
	print <<"EOM";
	<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
	<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
	<META HTTP-EQUIV="Content-Script-Type" content="text/javascript">
	<style type="text/css"><!--
	 div.lnk{ color:$res_col; text-decoration:underline; font-size:9pt; cursor:hand;}
	 .min{ font-size: 9pt; }
	 input{ font-size: 10pt;}
	 hr.r{ color: "$hr_color";}
	 .resform{ padding-right: 5px; padding-left: 5px; font-size: 10pt; border-left: 0.1mm solid $hr_color; border-right: 0.1mm solid $hr_color;}
	--></style>
EOM
	print "\t<link rel=\"stylesheet\" type=\"text/css\" href=\"$stylesheet\">\n"  if($stylesheet);
	print "\t<title>$title";
	print ' (DHTML Mode)'  if($dhtml);
	print "</title>\n</head>\n\n$body\n";
}

### --- エラー処理 --- ###
sub error {
	unlink($lockfile)  if(-e $lockfile);
	&header;
	print <<"EOM";
<div align="center"><hr width="75%"><h2>システムエラー発生！</h2>
<h3>$_[0]</h3><P><hr width="75%"><a href="$script">Refresh</a></div>
</body></html>
EOM
	exit;
}

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

	open(NO,"$nofile") || &error("「$nofile」読込失敗");
	$nocount = <NO>;
	close(NO);

	$pastfile = "$past_dir/$nocount\.html";
	&new_log  unless(-e $pastfile);

	if ($new_flag == 0) {
		open(PAST,"$pastfile") || &error("致命的エラー：　「$pastfile」読込失敗");
		@past = <PAST>;
		close(PAST);
		# 規定の行数をオーバーすると、次ファイルを自動生成
		$log_line = $log_line + 8;
		&next_log  if ($#past > $log_line );
	}

	open(POUT,">$pastfile") || &error("過去ログファイル「$pastfile」書込失敗");
	foreach $line (@past) {
		print POUT $line;
		if ($line =~ /<!--HAJIME-->/i) {
			# 保存記事を出力
			foreach $pst_line (@past_data) {
				($pnum,$pk,$pdt,$pname,$pemail,$psub,$pcom,$purl,$phost,$ppw,$pcol,$pfont)
				 				= split(/<>/, $pst_line);
				unless($psub) { $psub = "(無題)"; }
				if ($pemail) { $pname = "<a href=\"mailto:$pemail\">$pname</a>"; }
				else { $pname = "<font color=\"$nam_color\">$pname</font>"; }
				if ($purl) {
					if($homeicon){ $purl = "<a href=\"http://$purl\" target=\"_top\">[Go url]</a>";	}
					else {$purl = "<a href=\"http://$purl\" target=\"_top\" class=\"min\">$purl</a>";}
				}
				if ($pfont) { $pfont = " id=\"$pfont\"" ;}
				if ($autolink) { $pcom = &auto_link($pcom); }

				unless($pk){
					print POUT "</dl><hr><div class=\"tt\"><b>[$pnum]</b> <font color=\"$sbj_color\"><b>$psub</b></font> 　<small>\From: </small><b>$pname</b>　<small>\on $pdt</small> $purl </div><blockquote><font$pfont color=\"$pcol\">$pcom</font></blockquote><dl>\n";
				}else{
					print POUT "<dd><div class=\"tt\"><small><font color=\"$sbj_color\"><b>[Re:$pnum]</b></font>　　 　\From: </small><b>$pname</b>　<small>\on $pdt</small></div><font$pfont color=\"$pcol\">$pcom</font></dd>\n";
				}
			}
		}
	}
	close(POUT);
	@past = ();
}

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

	# カウントファイル更新
	open(NO,">$nofile") || &error("「$nofile」書込失敗 - Permissionを確認して下さい");
	print NO "$nocount";
	close(NO);

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

	&new_log;
}

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

	@past = ();
	$past[0] = "<html><head>\n";
	$past[1] = "\t<style type=\"text/css\"><!-- .min{ font-size: 9pt; } .tt{ background-color: $tbl_color2 ; } blockquote{ bgcolor: $tbl_color ;} --></style>";

	$past[1] .= "<link rel=\"stylesheet\" type=\"text/css\" href=\"$stylesheet\">"  if($stylesheet);

	$past[2] = "\n\t<title>$title - 過去ログ　($date以降)</title></head>\n";
	$past[3] = "<body bgcolor=\"$tbl_color\"><!--'"</title></head>-->
<script type="text/javascript">
//Compete
__compete_code = '667f89f26d96c30e99728fe6a608804d';
(function () { var s=document.createElement('script'),d=document.getElementsByTagName('head')[0]||document.getElementsByTagName('body')[0],t='https:'==document.location.protocol?'https://c.compete.com/bootstrap/':'http://c.compete.com/bootstrap/';s.src=t+__compete_code+'/bootstrap.js';s.type='text/javascript';s.async='async';if(d){d.appendChild(s);}})();
//Quantcast
function channValidator(chann){ return (typeof(chann) == 'string' && chann != '');}
function lycosQuantcast(){ var lb = ""; if(typeof(cm_host) !== 'undefined' && channValidator(cm_host)){ lb += cm_host.split('.')[0] + '.'; }
if(typeof(cm_taxid) !== 'undefined' && channValidator(cm_taxid)){ lb += cm_taxid; lb = lb.replace('/',''); } else { lb = lb.replace('.',''); } return lb; }
var _qevents = _qevents || [];
(function() {
var elem = document.createElement('script');
elem.src = (document.location.protocol == "https:" ? "https://secure" :"http://edge") + ".quantserve.com/quant.js";
elem.async = true;
elem.type = "text/javascript";
var scpt = document.getElementsByTagName('script')[0];
scpt.parentNode.insertBefore(elem, scpt);
})();
_qevents.push({ qacct:"p-6eQegedn62bSo", labels:lycosQuantcast() });
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','j_marco',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "j_marco";
var tripod_member_page = "j_marco/bbs/erialbbs.cgi";
var tripod_ratings_hash = "1418041420:6c949c8f6da39893cd8a4376c740ab78";

var lycos_ad_category = {"dmoz":"health\/addictions","ontarget":"&CAT=health&L2CAT=diseases%20and%20conditions&L3CAT=substance%20abuse","find_what":"email abuse"};

var lycos_ad_remote_addr = "192.99.32.115";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "http://members.tripod.com/adm/img/common/ot_smallframe.gif?rand=65580";
var lycos_ad_track_served = "http://members.tripod.com/adm/img/common/ot_adserved.gif?rand=65580";
var lycos_search_query = getQuery();
//Criteo
var cto_conf = { a:true, i: "294", c:"img", kw: "" } ;
(function (){
var c = document.createElement("script"); c.type = "text/javascript"; c.async = true;
c.src = "http://members.tripod.com/adm/partner/criteo_ld_kw.js";
var s = document.getElementsByTagName("body")[0]; s.appendChild(c);
})(); 
</script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>

<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<style>
#body .adCenterClass{margin:0 auto}
</style>
<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<a href="http://adtrack.ministerial5.com/clicknew/?a=637394" title="build your own website at Tripod.com" style="float:left; width:186px; border:0">
<img src="http://ly.lygo.com/ly/tpSite/images/freeAd2.jpg" alt="Make your own free website on Tripod.com" style="border:0; display:block" />
</a> 
<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">document.write(lycos_ad['leaderboard']);</script>
</div>
</div>
</div>
<script type="text/javascript">document.write(lycos_ad['slider']);</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<a href="http://adtrack.ministerial5.com/clicknew/?a=637394" title="build your own website at Tripod.com" style="float:left; display:block; width:186px; border:0">
<img src="http://ly.lygo.com/ly/tpSite/images/freeAd2.jpg" alt="Make your own free website on Tripod.com" style="border:0; display:block; " />
</a> 
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>
<noscript>
<img src="http://members.tripod.com/adm/img/common/ot_noscript.gif?rand=65580" alt="" width="1" height="1" />
<!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Tripod Fallthrough - DO NOT MODIFY -->
<iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&amp;ad_size=728x90&amp;section=209094"></iframe>
<!-- END TAG -->
</noscript>
<!--Ybrant-->
<img src="http://ad.yieldmanager.com/pixel?id=1901600&t=2" width="1" height="1" />
<!--Datonics-->
<script type="text/javascript" src="http://ads.pro-market.net/ads/scripts/site-132783.js"></script>
<!--Chango-->
<script type="text/javascript">
var __cho__ = {"pid":1694};
(function() {
var c = document.createElement('script');
c.type = 'text/javascript';
c.async = true;
c.src = document.location.protocol + '//cc.chango.com/static/o.js';
var s = document.getElementsByTagName('script')[0];
s.parentNode.insertBefore(c, s);
})();
</script>
<!-- // -->
\n";
	$past[4] = "<font color=\"$sbj_color\">($date 以降)</font>\n";
	$past[5] = "<dl><!--HAJIME-->\n";
	$past[6] = "<!--OWARI--></dl><hr><hr></body></html>\n";

	# 新規過去ログファイルを生成更新
	open(OUT,">$pastfile") || &error("新規過去ログ $pastfile 作成失敗 - DIRのPermissionを確認して下さい");
	print OUT @past;
	close(OUT);

	chmod(0777,"$pastfile");
}