#!/usr/bin/perl

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#+++　　[ 目指せ全国制覇!! Ver0.71 ]　…　99.12.20　Update
#+++
#+++		･････>>> All Created by Tacky				     
#+++
#+++		･････>>> Copyright (c) 1999.6 Tacky's Room. All rights reserved....
#+++
#+++        Email    >>> tacky2@ops.dti.ne.jp
#+++        Homepage >>> http://www.eva.hi-ho.ne.jp/takeuchi/
#+++
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

require 'jcode.pl';								#日本語コード変換
$url	 		=  "http://www.all-5.com/Baby-Gdetective/index.shtml";		#<<<戻り先ＵＲＬ
$script			=  "./mezase.cgi";					#<<<このＣＧＩの名前を指定
$method			= 'POST';							#<<<METHODの指定(POST又はGET)
$logfile		= './mezase.txt';					#<<<ログファイルの名前を指定
$lockfile		= './mezase.lock';					#<<<ロックファイルの名前を指定
$title			= 'ゲストブック';		#<<<タイトルを指定
$titlelogo		= 'image/guestitle.gif';	#<<<タイトル画像を指定
$bgcolor		= '#ccffff';						#<<<背景色を指定
$backpicture	= '';				#<<<背景画像を指定（使用しない場合は、''で良い)
$tbgcolor		= '#ffffff';						#<<<入力フォームの背景色を指定

$textcolor	    = "#990000";						# 文字色
$linkcolor	    = "#cc6600";						# リンク色（未読リンク）
$vlinkcolor		= "#666666";						# リンク色（既読リンク）
$alinkcolor	 	= "#ff3300";						# リンク色（押した時）

$hpicon1		= "image/bg_02.gif";		#<<<ホームページアイコン（男性用）
$hpicon2		= "image/bg_01.gif";		#<<<ホームページアイコン（女性用）
$headbgcolor	= "#ffffff";						#<<<メッセージ表示部分の見出しセル背景色
$cellbgcolor1	= "#ffffff";						#<<<メッセージ表示部分のセル背景色１
$cellbgcolor2	= "#ffffcc";						#<<<メッセージ表示部分のセル背景色２（１と２で繰り返し表示される）

$ans			= '';								#<<<アンケート部分(不要の場合は、''として下さい）
$headans		= '';								#<<<アンケートがある場合、ログ表示部分のアンケート見出し（短い方がいいです））

$datamax		= 300 ;								#<<<最大データ保存件数
$pagemax		= 30 ;								#<<<１ページ内に表示する件数

#<<<地域テーブル
@areatbl = ('北海道','青　森','岩　手','秋　田','宮　城','山　形','福　島',
'栃　木','群　馬','茨　城','埼　玉','東　京','千　葉','神奈川','山　梨','長　野',
'新　潟','富　山','石　川','福　井','静　岡','愛　知','岐　阜','三　重','滋　賀',
'京　都','大　阪','兵　庫','奈　良','和歌山','鳥　取','島　根','岡　山','広　島',
'山　口','徳　島','香　川','愛　媛','高　知','福　岡','佐　賀','長　崎','熊　本',
'大　分','宮　崎','鹿児島','沖　縄','その他');

$master_password = 'g-babyg';					#<<<メンテナンス用パスワード（管理者用）

#<<<　ここから下はいじらない方がいいですよ。

###############################################################################
#### Main Process  START  #####################################################
###############################################################################
#<<<システム日時・時刻取得
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = sprintf("%02d",$year + 1900);
$month = sprintf("%02d",$mon + 1);
$mday = sprintf("%02d",$mday);
$hour = sprintf("%02d",$hour);
$min = sprintf("%02d",$min);
if ( substr($month,0,1) == 0 )	{	$month =~ s/0/ /;	}
if ( substr($day,0,1) == 0 )	{	$day =~ s/0/ /;	}
$today = "$month月$mday日<br>$hour:$min";

&decode ;
&dataread ;
if ( $FORM{'action'} eq "maintenance" ) {  &Maintenance; }    	#<<<"処理"がメンテナンスの場合
elsif	( $FORM{'action'} eq "update" )		{ &update ; }		#<<<ログファイル更新（編集時）
elsif	( $FORM{'action'} eq "disp" )		{ &seiha ; }		#<<<全国制覇状況を見る
else	{
	if	( $FORM{'action'} eq 'regist' )	{	&regist ;	}
	&forminput ;
}
&view ;
&footer ;

exit;
###############################################################################
#### Main Process  END  #######################################################
###############################################################################

###<--------------------------------------------------------------
###<---   デコード＆変数代入
###<--------------------------------------------------------------
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/\r\n/\<br\>/g;
		$value  =~ s/\r|\n/\<br\>/g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		#タグ無効
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/\,/，/g;
		&jcode'convert(*value,'sjis');
		$FORM{$name} = $value;
	}
	$page      = $FORM{'page'};			#NEXT,BACKを保持
	$disppage  = $FORM{'disppage'};		#表示されているページ数

}
###<--------------------------------------------------------------
###<---   入力フォーム
###<--------------------------------------------------------------
sub forminput { 
	&header ;
	print "<a href=$url>HOME</a>&nbsp;&nbsp;\n";
	print "<font size=1><a href=$script?action=disp>全国の人が訪問してくれますように。。</a></font>\n";
	print "<center>\n";
	print "<form action=\"$script\" method=\"$method\">\n";
	print "<input type=hidden name=\"action\" value=\"regist\">\n";
	print "<img src=\"$titlelogo\">\n";
	print "<br><br><TABLE border=1 cellpadding=3 cellspacing=0 >\n";
    print "<TR>\n";
	print "<TD bgcolor=\"$tbgcolor\">Name</TD>\n";
    print "<TD bgcolor=\"$tbgcolor\">\n";
	print "<INPUT size=25 type=text name=name></TD>\n";
    print "<TD bgcolor=\"$tbgcolor\">性別</TD>\n";
    print "<TD bgcolor=\"$tbgcolor\">\n";
    print "<select name=sex\n>";
	print "<option value=1>　♂　";
	print "<option value=2>　♀　";
	print "<option value=3>　？　";
	print "</select>\n";
    print "</TD>\n";
    print "</TR>\n";
    print "<TR>\n";
    print "<TD bgcolor=\"$tbgcolor\">Email</TD>\n";
    print "<TD bgcolor=\"$tbgcolor\"><INPUT size=25 type=text name=email></TD>\n";
    print "<TD bgcolor=\"$tbgcolor\">Address</TD>\n";
	print "<TD bgcolor=\"$tbgcolor\">\n";
	&areaset ;
    print "</TD>\n";
	print "</TR>\n";
    print "<TR><TD bgcolor=\"$tbgcolor\" colspan=4 align=center>\n";
	print "<TEXTAREA rows=3 cols=50 name=comment></TEXTAREA>\n";
    print "</TD></TR>\n";
    print "<TR><TD bgcolor=\"$tbgcolor\" colspan=2>URL\n";
    print "<INPUT size=30 type=text name=hp></TD>\n";
    print "<TD bgcolor=\"$tbgcolor\" colspan=2>Password\n";
    print "<INPUT size=8 type=password name=pass></TD></TR>\n";
    print "<TR>\n";
	#アンケート部分の表示
	if ( $ans ne '' )	{
	    print "<TD bgcolor=\"$tbgcolor\" colspan=2 align=center>\n";
		print "<INPUT type=checkbox name=ans value=1><FONT  color=\"$textcolor\">$ans</font>\n";
		print "</TD>\n";
	    print "<TD bgcolor=\"$tbgcolor\" colspan=2 align=center>\n";
	}	else	{
	    print "<TD bgcolor=\"$tbgcolor\" colspan=4 align=center>\n";
	}
	print "　<INPUT type=submit value=登録>　　<INPUT type=reset value=クリア>\n";
	print "</TD></TR></TABLE>\n";
	print "</form>\n";
	print "<form action=\"$script\" method=\"$method\">\n";
	print "<input type=hidden name=\"action\" value=\"reference\">\n";
	&areaset2 ;
	print "<INPUT type=submit value=検索>";
	print "</form>\n";
	print "</CENTER>\n";

###<--------------------------------------------------------------
###<---   地域情報設定
###<--------------------------------------------------------------
sub areaset	{	
	print " <SELECT name=area>\n";
	for ( $i = 0 ; $i <= 47 ; $i++ )	{
		$j = sprintf("%02d",$i);
		print "  <OPTION value=$j>$areatbl[$i]\n";
	}	
	print "</SELECT>\n";
}
###<--------------------------------------------------------------
###<---   地域情報設定2
###<--------------------------------------------------------------
sub areaset2	{	
	print " <SELECT name=area2>\n";
	for ( $i = 0 ; $i <= 47 ; $i++ )	{
		$j = sprintf("%02d",$i);
		print "  <OPTION value=$j>$areatbl[$i]\n";
	}	
	print "  <OPTION value=48>都道府県順に\表\示\n";
	if ( $ans ne '' )	{
		print "  <OPTION value=49>ピロファン検索\n";
	}
	print "  <OPTION value=50 selected>全件検索\n";
	print "</SELECT>\n";
}
###<--------------------------------------------------------------
###<---   地域情報設定3
###<--------------------------------------------------------------
sub areaset3	{	
	print " <SELECT name=area>\n";
	for ( $i = 0 ; $i <= 47 ; $i++ )	{
		$j = sprintf("%02d",$i);
		if ( $address == $j )	{
			print "  <OPTION value=$j selected>$areatbl[$i]\n";
		}	else	{
			print "  <OPTION value=$j>$areatbl[$i]\n";
		}
	}	
	print "</SELECT>\n";
}
###<--------------------------------------------------------------
###<---   HTMLヘッダー書き出し
###<--------------------------------------------------------------
sub header { 
	print "Content-type: text/html\n\n";
	print "<html>\n<head>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
	print "<title>$title</title></head>\n";
	if ($backpicture) { $set = "background=\"$backpicture\""; }
	elsif ($bgcolor )	{ $set = "bgcolor=\"$bgcolor\""; }
	print "<body $set text=$textcolor link=$linkcolor vlink=$vlinkcolor alink=$alinkcolor>\n";
}
###<--------------------------------------------------------------
###<---   HTMLフッダー書き出し
###<--------------------------------------------------------------
sub footer { 
	#<<<　↓消さないでネ♪
	print "<p align=right><font size=2><a href=http://www.eva.hi-ho.ne.jp/takeuchi>mezase! Ver0.71 Created by Tacky</a></font></p>\n";
	print "</body></html>\n";
}
###<--------------------------------------------------------------
###<---   ログファイル読み込み
###<--------------------------------------------------------------
sub	dataread	{
	if ( !(open(IN,"$logfile")))	{	&error("ログファイル($logfile)のオープンに失敗しました");	}
	@LOG = <IN>;
	close(IN);
}
###<--------------------------------------------------------------
###<---   ログ表示
###<--------------------------------------------------------------
sub	view	{
	print "<center>\n";

	print "<table width=500 border=1 cellspacing=0 cellpadding=2>\n";
	print "<tr><td bgcolor=\"$headbgcolor\" align=center><font color=\"$textcolor\">地域</font></td>\n";
	print "<td bgcolor=\"$headbgcolor\" align=center><font color=\"$textcolor\">お名前</font></td>\n";
	print "<td bgcolor=\"$headbgcolor\" align=center><font color=\"$textcolor\">性別</font></td>\n";
	print "<td bgcolor=\"$headbgcolor\" align=center><font color=\"$textcolor\">HP</font></td>\n";
	if ( $ans ne '' )	{
		print "<td bgcolor=\"$headbgcolor\" align=center nowrap><font color\"$textcolor\">$headans</font></td>\n";
	}
	print "<td bgcolor=\"$headbgcolor\" align=center><font color\"$textcolor\">コメント</font></td>\n";
	print "<td bgcolor=\"$headbgcolor\" align=center nowrap><font color\"$textcolor\">登録日</font></td></tr>\n";

	if  ($FORM{'action'} eq 'reference' && $FORM{'area2'} == 48) {
		@sortlog = sort @LOG;
	}	else	{
		@sortlog = @LOG;
	}

	@new = ();
	foreach $buf ( @sortlog )	{
		($no,$address,$name,$email,$sex,$hp,$pillo,$dummy) = split(/,/,$buf);
		if ((($FORM{'action'} eq 'reference') &&
			 ($FORM{'area2'} == $address || $FORM{'area2'} == 48 || $FORM{'area2'} == 50 || $FORM{'area2'} == 49 && $pillo == 1)) ||
			 ($FORM{'action'} ne 'reference'))	{
			push(@new,$buf);
		}
	}

	#表示対象ページの先頭データ件数を算出
	$dm = @new;
	if ( $dm % $pagemax == 0) {
		$p = $dm / $pagemax ;
	}	else	{
		$p = $dm / $pagemax + 1;
	}			
	$p = sprintf("%3d",$p);
	if ( $page eq "NEXT" )	{
		if ( $disppage == 0 ) { $disppage = 1 }	;
		$d = ($disppage + 1) * $pagemax - $pagemax ; 	
		$disppage = $disppage + 1 ;
	}	elsif	( $page eq "BACK" ) 	{
		$d = ($disppage - 1) * $pagemax - $pagemax ; 	
		$disppage = $disppage - 1 ;
	}	else	{
		$d = 0	;
		$disppage = 1 ;
	}
	$z = 1;
	for ( $i = $d ; ( $z <= $pagemax ) && ( $i < $dm ); $i++ )	{ 
		($no,$address,$name,$email,$sex,$hp,$pillo,$comment,$regdate,$p) = split(/,/,@new[$i]);
		$comment =~ s/\r/<br>/g;
		if ( $bg eq $cellbgcolor1 ) {
			$bg = $cellbgcolor2;
		}	else	{
			$bg = $cellbgcolor1;
		}
		print "<tr>\n";
		print "<td bgcolor=\"$bg\" align=center nowrap><font  color=\"$textcolor\">$areatbl[$address]</font></td>\n";
		if ( $email ne '' )	{
			print "<td bgcolor=$bg align=center nowrap><font  color=\"$textcolor\">\n";
			print "<a href=mailto:$email>$name</a></font></td>\n";
		}	else	{
			print "<td bgcolor=\"$bg\" align=center nowrap><font  color=\"$textcolor\">$name</font></td>\n";
		}
		if ( $sex == 1 )	{
			print "<td bgcolor=\"$bg\" align=center><font  color=\"$textcolor\">♂</font></td>\n";
			if ( $hp ne '' )	{
				print "<td bgcolor=$bg align=center><a href=$hp target=_blank><img src=\"$hpicon1\" border=0></a></td>\n";
			}	else	{
				print "<td bgcolor=$bg >　</td>\n";
			}
		}	elsif	( $sex == 2 )	{
			print "<td bgcolor=\"$bg\" align=center><font  color=\"$textcolor\">♀</font></td>\n";
			if ( $hp ne '' )	{
				print "<td bgcolor=$bg align=center><a href=$hp target=_blank><img src=\"$hpicon2\" border=0></a></td>\n";
			}	else	{
				print "<td bgcolor=$bg >　</td>\n";
			}
		}	else	{
			print "<td bgcolor=\"$bg\" align=center><font  color=\"$textcolor\">？</font></td>\n";
			if ( $hp ne '' )	{
				print "<td bgcolor=$bg align=center><a href=$hp target=_blank><img src=\"$hpicon1\" border=0></a></td>\n";
			}	else	{
				print "<td bgcolor=$bg >　</td>\n";
			}
		}
		if ( $ans ne '' )	{
			if ( $pillo == 1 )	{
				print "<td bgcolor=\"$bg\" align=center><font  color=\"$textcolor\">＊</font></td>\n";	
			}	else	{
				print "<td bgcolor=\"$bg\">　</td>\n";	
			}
		}
		$comment =~ s/\r/<br>/g;
		if ( $comment ne '' )	{
			print "<td bgcolor=\"$bg\"><font  color=\"$textcolor\">$comment</font></td>\n";
		}	else	{
			print "<td bgcolor=\"$bg\">　</font></td>\n";
		}
		print "<td bgcolor=\"$bg\" align=center nowrap><font  color=\"$textcolor\">$regdate($no)</font></td></tr>\n";
		$z++;
	}
	print "</table><br>\n";
	if ( $dm % $pagemax == 0) {
		$p = $dm / $pagemax ;
	}	else	{
		$p = $dm / $pagemax + 1;
	}			
	$p = sprintf("%3d",$p);
	print "<form action=$script method=$method>\n";
	print "<input type=hidden name=\"area2\" value=\"$FORM{'area2'}\">\n";
	print "<input type=hidden name=\"disppage\" value=$disppage>\n";
	if ( $disppage != 0 && $disppage !=1)	{
		print "<input type=submit name=\"page\" value=BACK>\n";
	}	
	if ( $disppage + 1 <= $p )	{
		print "<input type=submit name=\"page\" value=NEXT>\n";
	}
	print "</form><br><hr width=80% size=1>\n";
	print "</center><div align=right>\n";
	print "<font color=\"$textcolor\">\n";
	print "<form action=\"$script\" method=\"$method\">\n";
	print "No<input type=text name=\"no\" size=5>\n";
	print "Pass<input type=password name=\"pass\" size=10>\n";
	print "<select name=proc>\n";
	print "<option value=\"edit\">edit";
	print "<option value=\"delete\">delete";
	print "</select>\n";
	print "<input type=hidden name=\"action\" value=\"maintenance\">\n";
	print "<input type=submit value=\"update\">\n";
	print "</form></div>\n";	
}

}
###<--------------------------------------------------------------
###<---   ログ出力
###<--------------------------------------------------------------
sub	regist	{
	if ( $FORM{'name'} eq "")	{	&error("お名前を入力して下さい。") ;	}
	$FORM{'comment'} =~ s/\n//g;
	$dcnt = @LOG;
	if ($dcnt >= $datamax) {	pop(@LOG);	}

	if ( $dcnt < 1 )	{
		$no = 1;											#１件目
	}	else	{
		($no,$dummy) = split(/,/,$LOG[0]);					#最新記事No取得
		$no++;
	}

	unshift(@LOG,"$no,$FORM{'area'},$FORM{'name'},$FORM{'email'},$FORM{'sex'},$FORM{'hp'},$FORM{'ans'},$FORM{'comment'},$today,$FORM{'pass'}\n");

	&filelock ;		#ファイルロック
	if ( !(open(OUT,">$logfile")))	{	&error("ログファイル($logfile)のオープンに失敗しました");	}
	print OUT @LOG;
	close(OUT);
	&fileunlock ;	#ファイルロック解除

}
###<--------------------------------------------------------------
###<---   メンテナンスモード
###<--------------------------------------------------------------
sub Maintenance {
	if ( $FORM{'no'} eq "")	{
		&error("メンテナンスする記事�ｂ�入力して下さい。") ;
	}
	if ( $FORM{'pass'} eq "")	{
		&error("パスワードを入力して下さい") ;
	}

	$found = 0 ;
	foreach ( @LOG )	{ 
		chop $_;
		($n,$address,$name,$email,$sex,$hp,$pillo,$comment,$regdate,$p) = split(/,/,$_);
		if ( $FORM{'no'} eq $n )	{		
			$found = 1 ;
			if ( $FORM{'pass'} ne $p && $FORM{'pass'} ne $master_password)	{
				&header ;
				print "パスワードが違います。<br><br>\n";
				print "<a href=\"$script\">戻る</a>\n";
				&footer;
				exit;
			}
			if ( $FORM{'proc'} eq "delete" )	{
				&update ;
				exit;
			}
			&header ;
			print "<center><br>\n";

			print "<form action=\"$script\" method=\"$method\">\n";
			print "<input type=\"hidden\" name=\"action\" value=\"update\"></td>\n";			print "<table border=0 width=60% cellspacing=3 cellpadding=5>\n";
			print "<TABLE border=1 cellpadding=3 cellspacing=1 >\n";
		    print "<TR>\n";
			print "<TD bgcolor=\"$tbgcolor\"><font  color=\"$textcolor\">Name</font></TD>\n";
		    print "<TD bgcolor=\"$tbgcolor\">$name</td>\n";
		    print "<TD bgcolor=\"$tbgcolor\"><font  color=\"$textcolor\">性別</font></TD>\n";
		    print "<TD bgcolor=\"$tbgcolor\">\n";
		    print "<select name=sex\n>";
			if ( $sex == 1 )	{
				print "<option value=1 selected>　♂　";
			}	else	{
				print "<option value=1>　♂　";
			}
			if ( $sex == 2 )	{
				print "<option value=2 selected>　♀　";
			}	else	{
				print "<option value=2>　♀　";
			}
			if ( $sex == 3 )	{
				print "<option value=3 selected>　？　";
			}	else	{
				print "<option value=3>　？　";
			}
			print "</select>\n";
		    print "</TD>\n";
		    print "</TR>\n";
		    print "<TR>\n";
		    print "<TD bgcolor=\"$tbgcolor\"><font  color=\"$textcolor\">Email</font></TD>\n";
		    print "<TD bgcolor=\"$tbgcolor\"><INPUT size=25 type=text name=email value=\"$email\"></TD>\n";
		    print "<TD bgcolor=\"$tbgcolor\"><font  color=\"$textcolor\">Address</font></TD>\n";
			print "<TD bgcolor=\"$tbgcolor\">\n";
			&areaset3 ;
		    print "</TD>\n";
			print "</TR>\n";
		    print "<TR><TD bgcolor=\"$tbgcolor\" colspan=6 align=center>\n";
			print "<TEXTAREA rows=3 cols=60 name=comment>$comment</TEXTAREA>\n";
		    print "</TD></TR>\n";
		    print "<TR><TD bgcolor=\"$tbgcolor\" colspan=4><font  color=\"$textcolor\">Homepage</font>\n";
		    print "<INPUT size=40 type=text name=hp value=$hp></TD></TR>\n";
		    print "<TR>\n";
			#アンケート部分の表示
			if ( $ans ne '' )	{
			    print "<TD bgcolor=\"$tbgcolor\" colspan=2 align=center>\n";
				if ( $pillo == 1 )	{
					print "<INPUT type=checkbox name=ans value=1 checked>\n";
				}	else	{
					print "<INPUT type=checkbox name=ans value=1>\n";
				}
				print "<FONT  color=\"$textcolor\">$ans</font>\n";
				print "</TD>\n";
			    print "<TD bgcolor=\"$tbgcolor\" colspan=2 align=center>\n";
			}	else	{
			    print "<TD bgcolor=\"$tbgcolor\" colspan=4 align=center>\n";
			}
			print "<input type=hidden name=\"no\" value=\"$FORM{'no'}\">\n";
			print "<input type=hidden name=\"name\" value=\"$name\">\n";
			print "<input type=hidden name=\"pass\" value=\"$p\">\n";
			print "<input type=hidden name=\"proc\" value=\"edit\">\n";
			print "<input type=submit value=更新>\n";
			print "<input type=reset value=クリア></td></tr>\n";
			print "</table></form>\n";
			print "</center>\n";
			last;
		}
	}
	if ( $found == 0 )	{
		&header ;
		print "該当する記事�ｂﾌデータは存在していません。<br><br>\n";
		print "<a href=\"$script\">戻る</a>\n";
		&footer;
		exit;
	}
	print "<br><br><a href=$script>戻る</a><br><br>\n";
	print "<a href=$url>HOMEに戻る</a>\n";
	&footer ;
	exit;
}

###<--------------------------------------------------------------
###<---   ログファイル更新
###<--------------------------------------------------------------
sub update {

	@new = ();
    foreach (@LOG) {
		chop $_;
		($no,$dummy,$n,$dummy) = split(/,/,$_);
		if ( $FORM{'no'} eq $no)	{								#<<<メンテ対象者の場合
			if ( $FORM{'proc'} eq "edit" )	{
				$FORM{'comment'} =~ s/\n//g;
				push(@new,"$no,$FORM{'area'},$FORM{'name'},$FORM{'email'},$FORM{'sex'},$FORM{'hp'},$FORM{'ans'},$FORM{'comment'},$today,$FORM{'pass'}\n");
			}
		}	else	{
			push(@new,"$_\n"); 								#<<<そのまま出力
		}
	}
	&filelock ;		#ファイルロック
	if ( !(open(OUT,">$logfile")))	{	&error("ログファイル($logfile)のオープンに失敗しました");	}
	print OUT @new;
	close(OUT);
	&fileunlock ;	#ファイルロック解除
	print "Location: $script?\n\n";							#メインCGIに戻る
}
###<--------------------------------------------------------------
###<---   全国制覇状況表示
###<--------------------------------------------------------------
sub seiha {
	&header ;

	for ( @LOG )	{ 
		($no,$address,$name,$email,$sex,$hp,$pillo,$comment,$regdate,$p) = split(/,/,$_);
		$seiha[$address] = 1 ;
	}
	print "<br><br><center>*--全国の人が訪問してくれますように--*\n";
	print "<br><br>登録した内容が反映されていない場合は、ブラウザの「更新」ボタンを押して下さい\n";
	print "<br><br><table width=15% cellpadding=3 cellspacing=0 border=1>\n";
	for ( $i = 0 ; $i <= 47 ; $i++ )	{
		print "<tr><td bgcolor=\"$tbgcolor\" align=center>$areatbl[$i]</td>\n";
		if ( $seiha[$i] == 1 ) {
			print "<td bgcolor=\"$tbgcolor\" align=center>制覇!!</td>\n";
		}	else	{
			print "<td bgcolor=\"$tbgcolor\">&nbsp;</td>\n";
		}
		print "</tr>\n";
	}
	print "</table>\n";
	&footer;
	exit;
}
###<--------------------------------------------------------------
###<---   エラー処理
###<--------------------------------------------------------------
sub error {
	&header ;
	print "<font  color=\"$textcolor\">$_[0]</font>\n";
	&footer;
	exit;
}
###<--------------------------------------------------------------
###<---   ファイルロック設定
###<--------------------------------------------------------------
sub filelock {
	$sw = 0;
	foreach (1 .. 5) {
		if (-e $lockfile) { sleep(1); }
		else {
			open(LOCK,">$lockfile");
			close(LOCK);
			$sw = 1;
			return;
		}
	}
	&error("只今他の方が書き込み中です。ブラウザの「戻る」で戻って再度登録を行って下さい。"); 
}
###<--------------------------------------------------------------
###<---   ファイルロック解除
###<--------------------------------------------------------------
sub fileunlock {
	if (-e $lockfile) { unlink($lockfile); }
}