#!/usr/bin/perl
#Perlのパスを指定
#普通は、『#!/usr/bin/perl』or『#!/usr/local/bin/perl』を指定
#プロバイダによっては、『#!/usr/local/bin/perl5』の場合もあり。
###############################################
#このscriptの著作権は・・・
#HPサービス（hp@bird.to・mkc@intacc.ne.jp）に帰属しています。
#よって、改竄する事は許可しますが、著作権の表示は削除しないで下さい。
#また、このscriptによる如何なる損害も賠償しませんので・・・
#予め、ご了承下さい。
#尚、バグ情報などは、HPサービス（hp@bird.to）まで
#お知らせ頂けると有難いです。
#また、利用にあたっては、HPサービス（http://hp.bird.to/）に従って下さい。
####################使用方法######################
#一番上のPerlのパスを合わせて転送し、パーミッションを設定すれば・・・
#それで、使えるようになります。
#このCGIのカスタマイズは、ほとんどインターネット上で出来るように
#作ってありますので、ファイル内容を、特に変更する必要はありません。
####################変数設定######################
#（★☆）は、変更可能部分（よく分からない人は、変更しない事!!）
#（★）は、変更しない方がいい部分
#（☆）は、変更した方がいい部分

# 管理人専用コマンドの暗証番号（秘密の暗号に書き換えて下さい）（☆）
		my $secret='1120';

# カスタマイズ用ファイル（★☆）
		my $custom_file='./DATA/sisyo_custom.cgi';

# データファイル名（★☆）
		my $data_file = './DATA/sisyo.cgi';

#私書箱ディレクトリ名（私書箱データの格納ディレクトリ）（★☆）
		my $data_dir = './DATA/MYPOST';

# タイトルの名前（★☆）
		my $html_title = '私書箱♪';

#homeのURL（自分のHPのURLを記入する）（★☆）
		my $home_url = 'http://www.yuni-net.com/';

#記録ログ数（総記録データ数。あまり多くすると重たくなるので注意）（★☆）
		my $log_max = 100;

#タグの有効・無効（0=無効、1=有効）（★☆）
		my $tag =0;

#時間表示方法（0=表示なし、1=月日時分全部表示、2=月日のみ表示）（★☆）
		my $date_way =1;

#バックの色（★☆）
		my $bgcolor='black';

#バックのイラスト（★☆）
		my $background='./IMAGE/background/night.gif';

#文字の色（★☆）
		my $textcolor='white';

#リンクの色（★☆）
		my $linkcolor ='red';

#一度訪れたリンクの色（★☆）
		my $vlinkcolor='red';

#投稿の文字色（★☆）
		my $newscolor='dimgray';

#投稿の題名色（★☆）
		my $subcolor='blue';

#投稿のバックの色（★☆）
		my $tdcolor='floralwhite';

#題名の色（★☆）
		my $titlecolor='white';

#アイコンの背景色（★☆）
		my $face_bgcolor='white';

#CGIのURL（★☆）
		my $script_url = './mypost.cgi';

#フッターに挿入するタグ（★☆）
		my $hooter ="<A HREF=\"$script_url\">[TOP]</A> <A HREF=\"$home_url\" target=\"_top\">[HOME]</A>";

# 排他制御として使用するディレクトリ名（★☆）
		my $lockname='./DATA/mypostlock';

#perlのバージョンを指定（★）
		require 5.001;

#cgi-lib.plのパスを指定（★）
		require "./cgi-lib.pl";

#jcode.plのパスを指定（★）
		require "./jcode.pl";

#custom.plのパスを指定（★）
		require "./custom_mypost.pl";

#現在time（★）
		my $now_time=time();

# 排他制御使用関数（★）
		my $expire     = 3*60;	# 最大排他制御時間（ sec ）
		my $num_retry  = 5;	# 最大再試行回数
		my $retry_time = 1;	# 排他制御待ち時間（ sec ）

# Cookie の有効期間（★）
		my $expires_time= &expires(30);

# Cookie の有効期間を設定（★）
		my $expires="expires=$expires_time";

# Cookieの名前（★）
		my $C_NAME='MYPOST';

#HOMEアイコン表示（★☆）
		my $home_icon="<img src=\"./IMAGE/home.gif\" width=24 height=22 border=0>";

#メールアイコン表示（★☆）
		my $mail_icon="<img src=\"./IMAGE/mail.gif\" width=24 height=20 border=0>";

#顔アイコン表示（★☆）
		for($i=0;$i<52;$i++){
				$face_icon[$i]="<img src=\"./IMAGE/face/$i.gif\" width=85 height=85>";
		}

#性別のselect（★☆）
		my @sex_array=('','男','女','謎');

#年齢のselect（★☆）
		my @age_array=('','10才未満','10代','20代','30代','40代','50才以上','子供','大人','お年頃');

#住所のselect（★☆）
		my @address_array=('','北海道','青森','岩手','宮城','秋田','山形','福島','群馬','栃木','茨城','埼玉','千葉','東京','神奈川','新潟','富山','石川','福井','山梨','長野','岐阜','静岡','愛知','三重','滋賀','京都','大阪','兵庫','奈良','和歌山','鳥取','島根','岡山','広島','山口','徳島','香川','愛媛','高知','福岡','佐賀','長崎','熊本','大分','宮崎','鹿児島','沖縄','海外','地球外');
##########ここより先は、Perlの知識が必要です!!##########
##########よく分からない人は、立ち入るべからず##########

#アイコン一覧のURL
        my $face_url = $script_url.'?'.'face';

		my %params;
        &ReadParse(\%params);
        $name = &jcode'sjis($params{'name'});#名前
        $pass = &jcode'sjis($params{'pass'});#パスワード
        $number = &jcode'sjis($params{'number'});#私書箱番号
        $mypost = &jcode'sjis($params{'mypost'});#自分の私書箱番号
        $subject= &jcode'sjis($params{'subject'});#題名
        $email = &jcode'sjis($params{'email'});#メールアドレス
		$sex = &jcode'sjis($params{'sex'});#性別
        $age = &jcode'sjis($params{'age'});#年齢
        $face = $params{'face'};#顔
        $address = &jcode'sjis($params{'address'});#アドレス
        $hp_url = $params{'hp_url'};#HPのURL
        $comment = &jcode'sjis($params{'comment'});#コメント
        $command = $params{'command'};#コマンド
        $secret_pass = &jcode'sjis($params{'secret_pass'});#管理人パスワード
        $repair_delete = $params{'repair_delete'};#削除orトップ
        $target = $params{'target'};#削除データ
		my (@target)=split(/\0/,$target);#削除データ

        $repair_[0] = &jcode'sjis($params{'repair_0'});
        $repair_[1] = &jcode'sjis($params{'repair_1'});
        $repair_[2] = $params{'repair_2'};
        $repair_[3] = $params{'repair_3'};
        $repair_[4] = $params{'repair_4'};
		$repair_[5] = $params{'repair_5'};
        $repair_[6] = $params{'repair_6'};
        $repair_[7] = $params{'repair_7'};
        $repair_[8] = $params{'repair_8'};
        $repair_[9] = $params{'repair_9'};
        $repair_[10] = $params{'repair_10'};
        $repair_[11] = $params{'repair_11'};
        $repair_[12] = $params{'repair_12'};
        $repair_[13] = $params{'repair_13'};
        $repair_[14] = &jcode'sjis($params{'repair_14'});
        $repair_[15] = $params{'repair_15'};
        $repair_[16] = $params{'repair_16'};
        $repair_[17] = &jcode'sjis($params{'repair_17'});
		shift @repair_;

		if($ENV{'QUERY_STRING'} eq 'face'){
				$command='face_list';
		}

		#全角数字を半角に変換
		$number=~s/０/0/g;
		$number=~s/１/1/g;
		$number=~s/２/2/g;
		$number=~s/３/3/g;
		$number=~s/４/4/g;
		$number=~s/５/5/g;
		$number=~s/６/6/g;
		$number=~s/７/7/g;
		$number=~s/８/8/g;
		$number=~s/９/9/g;
		$mypost=~s/０/0/g;
		$mypost=~s/１/1/g;
		$mypost=~s/２/2/g;
		$mypost=~s/３/3/g;
		$mypost=~s/４/4/g;
		$mypost=~s/５/5/g;
		$mypost=~s/６/6/g;
		$mypost=~s/７/7/g;
		$mypost=~s/８/8/g;
		$mypost=~s/９/9/g;
####################条件分岐####################
		if(defined ($dlock_id=&LockOn($lockname))){

				my @copy_custom=($html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter);

				my @custom=&custom_open($custom_file,@copy_custom);#カスタマイズ類を取得

				foreach(@custom){
						$_=~s/&#44;/,/g;
				}

				($html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter)=@custom;#カスタマイズ類を設定

				unlink($custom_file) if($repair_delete eq 'begin' && $secret_pass eq $secret);

				($html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter)=@copy_custom if($repair_delete eq 'begin' && $secret_pass eq $secret);

				foreach('name','pass','number','subject','name','email','hp_url','comment','mypost'){
						${$_}=~s/&/&amp;/g;
						${$_}=~s/</&lt;/g if($tag==0);
						${$_}=~s/>/&gt;/g if($tag==0);
						${$_}=~s/,/&#44;/g;
				}#タグの無効化

				for($i=0;$i<@repair_;$i++){
						$repair_[$i]=~s/,/&#44;/g;
				}#カンマの無害化

				print html_header($html_title,$name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face,$mypost) unless($command=~/repair_custom/ && $secret_pass eq $secret);

				if($secret_pass eq $secret && $command eq ''){
						&data_open;
						&target_list;
				}
				elsif($command eq 'repair_custom_beginner' && $secret_pass eq $secret){
						($html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter)=&repair_custom($custom_file,@repair_) if($repair_delete ne 'begin');
						print html_header($html_title);
						&looking_list;
				}
				elsif($command eq 'repair_custom_pro' && $secret_pass eq $secret){
						($html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter)=&repair_custom($custom_file,@repair_) if($repair_delete ne 'begin');
						print html_header($html_title);
						&looking_list;
				}
				elsif($command eq 'change' && $secret_pass eq $secret){
						if($repair_delete eq 'delete'){
								&data_open;
								&delete_data(@target);
								&target_list;
						}#削除の場合
						elsif($repair_delete eq 'custom_beginner'){
								&custom_beginner($script_url,$html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter,$secret_pass);
						}#カスタマイズする（初心者）場合
						elsif($repair_delete eq 'custom_pro'){
								&custom_pro($script_url,$html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$log_max,$secret,$tag,$date_way,$face_bgcolor,$hooter,$secret_pass);
						}#カスタマイズする（上級者）場合
						elsif($repair_delete eq 'color'){
								&color_list($script_url);
						}#色の見本を場合
						elsif($repair_delete eq 'background'){
								&background_list($script_url);
						}#背景イラストを見る場合
						elsif($repair_delete eq 'top'){
								&looking_list;
						}#トップに戻る場合
						else{
								&data_open;
								&target_list;
						}#指定なしの場合
				}
				elsif($command eq 'face_list'){
						&face_list;
				}
				elsif($command eq 'mypost_regist'){
						&regist_list;
				}
				elsif($command eq 'mypost_delete'){
						&delete_list;
				}
				elsif($command eq 'mypost_regist2'){

						if($name ne '' && $pass ne ''){
								&data_open;
								&new_save;
								&regist_success_list;
						}
						else{
								$error_code='名前を記入して下さい' if($name eq '');
								$error_code='パスワードを記入して下さい' if($pass eq '');
								&regist_list;
						}
				}
				elsif($command eq 'mypost_delete2'){
						&data_open;
						if($number eq $numbers{$number} && $name eq $names{$number} && $pass eq $passs{$number} && $number ne ''){
								&delete_data($number);
								&delete_success_list;
						}
						else{
								$error_code='指定データは登録されていません';
								&delete_list;
						}
				}
				elsif($command eq 'access'){
						&data_open;
						if($number eq $numbers{$number} && $name eq $names{$number} && $pass eq $passs{$number} && $number ne ''){
								&mypost_open($number);
								&access_list;
						}
						else{
								$error_code='指定データは登録されていません';
								&looking_list;
						}
				}
				elsif($command eq 'write'){
						&write_list($number);
				}
				elsif($command eq 'writing'){
						&data_open;
						&data_save;
						&mypost_open($number) if($check_number==1);
						&mypost_save($number) if($check_number==1 && @mypost_line<$log_max);

						if($check_number==1 && @mypost_line<$log_max){
								$error_code="私書箱『$number』に、上記のように書き込みました!!";
						}
						elsif($check_number!=1){
								$error_code="私書箱『$number』には、書き込む事が出来ませんでした。番号をお確かめ下さい。";
						}
						elsif(@mypost_line>=$log_max){
								$error_code="私書箱『$number』にはデータ満杯の為、書き込む事が出来ませんでした。";
						}
						&write_list($number);
				}
				elsif($command eq 'mydata_delete'){
						&mypost_open($number);
						&mydata_delete($number,@target);
						&access_list($number);
				}
				else{
						&looking_list;
				}

				&LockOff($dlock_id);
		}
		else {
				&custom_open;
				print html_header($html_title);		
				print &lock_error();
		}

		print html_footer();
		exit 0;
####################htmlを表示####################
sub looking_list{

		($cookie_name,$cookie_pass,$cookie_number) = get_cookie();
		($c_cook,$c_name)=split(/:/,$cookie_name);
		($c_cook,$c_pass)=split(/:/,$cookie_pass);
		($c_cook,$c_number)=split(/:/,$cookie_number);

print <<END_OF_TEXT;
　<p>
<font color="$titlecolor" size=6>$html_title</font><p>
$error_code<p>
<form method="POST" action="$script_url">
<input type="hidden" name='command' value='access'>
<table border=1>
<TR><TH colspan=2>自分の私書箱にアクセス!!</TH></TR>
<tr><td align=right>登録名</td><td><input type="text" size=20 name="name" value="$c_name"></td></tr>
<tr><td align=right>パスワード</td><td><input type="text" size=20 name="pass" value="$c_pass"></td></tr>
<tr><td align=right>私書箱番号</td><td><input type="text" size=20 name="number" value="$c_number"></td></tr>
<TR><TD align=center colspan=2><input type="submit" value="送信"></TD></TR>
</table>
</form><P>

<form method="POST" action="$script_url">
<table border=1>
<tr><th>ご用件をどうぞ!!</th></tr>

<tr><td>
<input type="radio" checked name='command' value='write'>私書箱に書き込む</td></tr>
<tr><td>
<input type="radio" name='command' value='mypost_regist'>私書箱の新規登録</td></tr>
<tr><td>
<input type="radio" name='command' value='mypost_delete'>私書箱の登録削除
</td></tr>

<tr><td align=center>
<input type="submit" value="送信">
</td></tr>
</table>
</form>

<form method="POST" action="$script_url">
<table width=90%>
<tr><td nowrap>
<input type="text" size=8 name="secret_pass">
<input type="submit" value="管理人専用">
</td>
<td nowrap align=right>
<font size=2><A HREF="http://hp.bird.to/index.html" target="_top">私書箱SP Ver.1.45(C)HPサービス</A></font>
</td>
</tr></table>
</form>
END_OF_TEXT
}
###############新規登録html###############
sub regist_list{

print <<END_OF_TEXT;
　<p>
名前とパスワードを記入して下さい<BR>
（半角カナや特殊文字等は、使用しないで下さい）<BR>
　<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='mypost_regist2'>

<table border=1>
<TR><TH colspan=2>新規登録フォーム</TH></TR>
<tr><td align=right>名前</td><td><input type="text" size=20 name="name"></td></tr>
<tr><td align=right>パスワード</td><td><input type="text" size=20 name="pass"></td></tr>
<TR><TD align=center colspan=2><input type="submit" value="送信"></TD></TR>
</table>
</form>
　<p>
$error_code<p>
END_OF_TEXT
}
###############私書箱削除html###############
sub delete_list{

		($cookie_name,$cookie_pass,$cookie_number) = get_cookie();
		($c_cook,$c_name)=split(/:/,$cookie_name);
		($c_cook,$c_pass)=split(/:/,$cookie_pass);
		($c_cook,$c_number)=split(/:/,$cookie_number);

print <<END_OF_TEXT;
　<p>
$error_code<p>
　<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='mypost_delete2'>

<table border=1>
<TR><TH colspan=2>登録削除フォーム</TH></TR>
<tr><td align=right>登録名</td><td><input type="text" size=20 name="name" value="$c_name"></td></tr>
<tr><td align=right>パスワード</td><td><input type="text" size=20 name="pass" value="$c_pass"></td></tr>
<tr><td align=right>私書箱番号</td><td><input type="text" size=20 name="number" value="$c_number"></td></tr>
<TR><TD align=center colspan=2><input type="submit" value="送信"></TD></TR>
</table>
</form>
END_OF_TEXT
}
###############新規登録成功html###############
sub regist_success_list{

print <<END_OF_TEXT;
　<p>
<table border=1>
<TR><TH colspan=2>登録成功</TH></TR>
<tr align=center><td>登録名</td><td>$name</td></tr>
<tr align=center><td>パスワード</td><td>$pass</td></tr>
<tr align=center><td>私書箱番号</td><td>$new_number</td></tr>
</table>
　<p>
上記事項は、重要ですので忘れないようにして下さい。<p>

END_OF_TEXT
}
###############登録削除成功html###############
sub delete_success_list{

print <<END_OF_TEXT;
　<p>
<table border=1>
<TR><TH colspan=2>削除成功</TH></TR>
<tr align=center><td>登録名</td><td>$name</td></tr>
<tr align=center><td>パスワード</td><td>$pass</td></tr>
<tr align=center><td>私書箱番号</td><td>$number</td></tr>
</table>
　<p>
END_OF_TEXT
}
################私書箱htmlを表示################
sub access_list{

		my @true_ranks=sort{ $b<=>$a }keys %nums;
		#総データ番号

		foreach(@true_ranks){
				my $subject=$subjects{$_};
				my $name=$names{$_};
				my $email=$emails{$_};
				my $hp_url=$hp_urls{$_};
				my $address=$addresss{$_};
				my $sex=$sexs{$_};
				my $age=$ages{$_};
				my $face=$faces{$_};
				my $date=$dates{$_};
				my $comment=$comments{$_};
				my $number=$numbers{$_};
				my $profile;

				if($email ne ''){
						$email="<a href=\"mailto:$email\">$mail_icon</a>";
				}
				if($hp_url ne 'http://' && $hp_url ne ''){
						$hp_url="<a href=\"$hp_url\" target=\"_top\">$home_icon</a>";
				}
				else{
						$hp_url="";
				}

				if($sex ne $sex_array[0]){
						$profile.=$sex.' ,';
				}
				if($age ne $age_array[0]){
						$profile.=$age.' ,';
				}
				if($address ne $address_array[0]){
						$profile.=$address.' ,';
				}
				if($profile ne ''){
						chop($profile);
						$profile='（'.$profile.'）';
						$profile=~s/ //g;
				}
				else{
						$profile=' ';
				}

				my $post_mark;
				if($number ne ''){
						$post_mark="<input type=\"submit\" value=\"私書箱\">";
				}

				print "<form method=\"POST\" action=\"$script_url\"><input type=\"hidden\" name=\"command\" value=\"write\"><input type=\"hidden\" name=\"number\" value=\"$number\">" if($number ne '');
				print(
						'<table border=2 width=90% cellpadding=0 cellspacing=0><tr><td bgcolor="',$face_bgcolor,'" rowspan=2 align=center>',
						$face_icon[$face],'</td><td bgcolor="',$tdcolor,'"><font color="',$newscolor,'"><B><font color=',$subcolor,'>　',$subject,'　</font></B><font size=-1>',$date,'</font></td></tr>',
						'<tr><td bgcolor="',$tdcolor,'"><font color="',$newscolor,'">　',$name,$profile,$email,$hp_url,$post_mark,'</td></tr>',
						'<tr><td colspan=2 bgcolor="',$tdcolor,'"><font color="',$newscolor,'"><dl><dt>　<dd>',
						$comment
						);
						print('</dd></dl></td></tr></table><P>');

				print('</form>') if($number ne '');
		}
		print('私書箱にデータが、ありません<P>') if(@true_ranks==0);

		if(@true_ranks>0){
print <<END_OF_TEXT;
削除する場合は、削除データを指定してから、送信ボタンを押して下さい<BR>
（一度に複数のデータを削除出来ます。尚、$log_maxデータまで保存出来ます。）<p>
<form method="POST" action="$script_url">
<input type=hidden name="command" value='mydata_delete'>
<input type=hidden name="number" value="$number">
<table border=1>
<tr align=center><td>指定</td><td>名前</td><td>日付</td></tr>

END_OF_TEXT

		foreach(@true_ranks){
				print(
						'<tr align=center >',
						'<td nowrap>',
						'<input type="checkbox" name="target" value="',$_,'">','</td>',
						'<td nowrap>',$names{$_},'</td><td nowrap>',$dates{$_},'</td></tr>',
				) ;
		}

print <<END_OF_TEXT;
</table>
<input type="submit" value="送信">
</form>
END_OF_TEXT
		}
}
################書き込みhtmlを表示################
sub write_list{
		my ($number)=@_;

		($cookie_name,$cookie_pass,$cookie_number,$cookie_email,$cookie_hp_url,$cookie_address,$cookie_sex,$cookie_age,$cookie_face) = get_cookie();
		($c_cook,$c_name)=split(/:/,$cookie_name);
		($c_cook,$c_number)=split(/:/,$cookie_number);
		($c_cook,$c_email)=split(/:/,$cookie_email);
		($c_cook,@c_hp_url)=split(/:/,$cookie_hp_url);
		$c_hp_url=join(':',@c_hp_url);#http://の:を連結
		($c_cook,$c_address)=split(/:/,$cookie_address);
		($c_cook,$c_sex)=split(/:/,$cookie_sex);
		($c_cook,$c_age)=split(/:/,$cookie_age);
		($c_cook,$c_face)=split(/:/,$cookie_face);

		if($command eq 'writing'){
				$c_name='' if($name eq '');
				$c_number='' if($mypost eq '');
				$c_email='' if($email eq '');
				$c_hp_url='' if($hp_url eq '');
				$c_address=''if($address eq '');
				$c_sex='' if($sex eq '');
				$c_age='' if($age eq '');
				$c_face='' if($face eq '');
		}

		$c_name=$name if($name ne '');
		$c_number=$mypost if($mypost ne '');
		$c_email=$email if($email ne '');
		$c_hp_url=$hp_url if($hp_url ne '');
		$c_address=$address if($address ne '');
		$c_sex=$sex if($sex ne '');
		$c_age=$age if($age ne '');
		$c_face=$face if($face ne '');
		$c_hp_url='http://' if($c_hp_url eq '');

print <<END_OF_TEXT;
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='writing'>
<table><tr><td nowrap>
<table border=1>
<tr><th colspan=4 nowrap><font size=3 color="$titlecolor">私書箱書き込みフォーム</font></th></tr>

<tr><td align=center colspan=2 nowrap>書き込み先・私書箱番号</td><td colspan=2 nowrap><input type="text" size=20 name="number"  value="$number">（半角数字）</td></tr>

<tr><td align=center colspan=2 nowrap>自分の私書箱番号</td><td colspan=2 nowrap><input type="text" size=20 name="mypost"  value="$c_number">（半角数字）</td></tr>

<tr><td align=center nowrap>名前</td><td nowrap><input type="text" size=20 name="name" maxlength="20" value="$c_name"></td>

<td align=center nowrap>メール</td><td nowrap><input type="text" size=23 name="email" value="$c_email"></td></tr>
END_OF_TEXT

		print '<tr><td align=center nowrap>性別</td><td nowrap><select name="sex">';
		for($i=0;$i<@sex_array;$i++){
				my $option='<option>';
				$option='<option selected>' if($c_sex eq $sex_array[$i]);
				print ($option,$sex_array[$i]);
		}
		print '</select></td>';

		print '<td align=center nowrap>年齢</td><td nowrap><select name="age">';
		for($i=0;$i<@age_array;$i++){
				my $option='<option>';
				$option='<option selected>' if($c_age eq $age_array[$i]);
				print ($option,$age_array[$i]);
		}
		print '</select></td></tr>';


		print '<tr><td align=center nowrap>住所</td><td nowrap><select name="address">';
		for($i=0;$i<@address_array;$i++){
				my $option='<option>';
				$option='<option selected>' if($c_address eq $address_array[$i]);
				print ($option,$address_array[$i]);
		}
		print '</select></td>';


		print '<td align=center nowrap>顔タイプ</td><td nowrap><select name="face">';
				print ('<option>');

				for($i=0;$i<@face_icon;$i++){
						my $option='<option>';
						$option='<option selected>' if($c_face eq $i);
						print ($option,$i);
				}
				print '</select></td></tr>';

print <<END_OF_TEXT;
<tr><td align=center nowrap>HP</td><td colspan=3 nowrap><input type="text" size=59 name="hp_url"  value="$c_hp_url"></td></tr>
<TR><TD align=center nowrap>題名</TD><TD nowrap><input type="text" size=25 name="subject"></TD><TD colspan=2 nowrap><input type="submit" value="送信"><input type="reset" value="取消"></TD></TR>
<TR><TD align=center nowrap>コメント</TD><TD align=left colspan=3 nowrap><textarea name="comment" rows="5" cols="55"></textarea></TD></TR>
</table>
</td></tr>
<tr><td align=right>
<A HREF="$face_url">[アイコン]</A>
</td></tr></table>
</form>
　<p>
END_OF_TEXT
		if($command eq 'writing'){
				if($email ne ''){
						$email="<a href=\"mailto:$email\">$mail_icon</a>";
				}
				if($hp_url ne 'http://' && $hp_url ne ''){
						$hp_url="<a href=\"$hp_url\" target=\"_top\">$home_icon</a>";
				}
				else{
						$hp_url="";
				}

				if($sex ne $sex_array[0]){
						$profile.=$sex.' ,';
				}
				if($age ne $age_array[0]){
						$profile.=$age.' ,';
				}
				if($address ne $address_array[0]){
						$profile.=$address.' ,';
				}
				if($profile ne ''){
						chop($profile);
						$profile='（'.$profile.'）';
						$profile=~s/ //g;
				}
				else{
						$profile=' ';
				}

				if($mypost ne ''){
						$post_mark="<input type=\"submit\" value=\"私書箱\">";
				}

				print "<form method=\"POST\" action=\"$script_url\"><input type=\"hidden\" name=\"command\" value=\"write\"><input type=\"hidden\" name=\"number\" value=\"$mypost\">" if($mypost ne '');
				print(
						'<table border=2 width=90% cellpadding=0 cellspacing=0><tr><td bgcolor="',$face_bgcolor,'" rowspan=2 align=center>',
						$face_icon[$face],'</td><td bgcolor="',$tdcolor,'"><font color="',$newscolor,'"><B><font color=',$subcolor,'>　',$subject,'　</font></B><font size=-1>',$date,'</font></td></tr>',
						'<tr><td bgcolor="',$tdcolor,'"><font color="',$newscolor,'">　',$name,$profile,$email,$hp_url,$post_mark,'</td></tr>',
						'<tr><td colspan=2 bgcolor="',$tdcolor,'"><font color="',$newscolor,'"><dl><dt>　<dd>',
						$comment
						);
						print('</dd></dl></td></tr></table><P>');

				print('</form>') if($mypost ne '');

				print "$error_code<P>";
		}
}
####################顔htmlを表示####################
sub face_list{

print <<END_OF_TEXT;
　<p>
<table border=1>
<tr align=center>
<th nowrap colspan=5>顔タイプ一覧</th>
</tr>
END_OF_TEXT

		for($i=0;$i<@face_icon;$i+=5){

				print('<tr align=center>') if(@face_icon>$i);
				print('<td nowrap>',$face_icon[$i],'</td>') if(@face_icon>$i);
				print('<td nowrap>',$face_icon[$i+1],'</td>') if(@face_icon>$i+1);
				print('<td nowrap>',$face_icon[$i+2],'</td>') if(@face_icon>$i+2);
				print('<td nowrap>',$face_icon[$i+3],'</td>') if(@face_icon>$i+3);
				print('<td nowrap>',$face_icon[$i+4],'</td>') if(@face_icon>$i+4);
				print('</tr>') if(@face_icon>$i);

				print('<tr align=center>') if(@face_icon>$i);

				print('<td nowrap>(',$i,')</td>') if(@face_icon>$i && $i==0);
				print('<td nowrap>(',$i,')</td>') if(@face_icon>$i && $i!=0);
				print('<td nowrap>(',$i+1,')</td>') if(@face_icon>$i+1);
				print('<td nowrap>(',$i+2,')</td>') if(@face_icon>$i+2);
				print('<td nowrap>(',$i+3,')</td>') if(@face_icon>$i+3);
				print('<td nowrap>(',$i+4,')</td>') if(@face_icon>$i+4);
				print('</tr>') if(@face_icon>$i);
		}

print <<END_OF_TEXT;
<tr align=center>
<td nowrap colspan=5>
<form><input type="button" value="戻る" name="b1" onClick="history.back()"></form></td></tr>
</table>
　<P>
END_OF_TEXT

}
####################私書箱データ収集####################
sub mypost_open{
		my($data_file)=@_;
		my $data_file_cgi=$data_file.'.cgi';
		if(-f $data_dir/$data_file_cgi==0){
				$data_file=$data_file_cgi;
		}
		if(open(DATA,"$data_dir/$data_file")){
		        @mypost_line = <DATA>;
		        close(DATA);

				for($i=0; $i<@mypost_line; $i++){
						chomp($mypost_line[$i]);

						my ($num,$number,$subject,$name,$email,$address,$sex,$age,$face,$hp_url,$date,$comment) = split(/,/,$mypost_line[$i]);

						$nums{$num}=$num;
						$numbers{$num}=$number;
						$subjects{$num}=$subject;
						$names{$num}=$name;
						$emails{$num}=$email;
						$addresss{$num}=$address;
						$sexs{$num}=$sex;
						$ages{$num}=$age;
						$faces{$num}=$face;
						$hp_urls{$num}=$hp_url;
						$dates{$num}=$date;
						$comments{$num}=$comment;
						$this_num=$num if($this_num<=$num);
				}
				$this_num++;#次ログの整理番号
		}
}
################私書箱データセーブ################
sub mypost_save{
		my($data_file)=@_;
		my $data_file_cgi=$data_file.'.cgi';
		if(-f $data_dir/$data_file_cgi==0){
				$data_file=$data_file_cgi;
		}

		my ($sec,$min,$hour,$day,$month) = localtime($now_time);
		$month = ($month + 1);
		if($month < 10) { $month = "0$month"; }
		if($day < 10) { $day = "0$day"; }
        if($hour < 10) { $hour = "0$hour"; }
        if($min < 10) { $min = "0$min"; }
		$date = "" if($date_way==0);
		$date = "投稿日：$month月$day日 $hour時$min分" if($date_way==1);
		$date = "投稿日：$month月$day日" if($date_way==2);

		$comment =~ s/\r\n/<BR>/g;
		$comment =~ s/\r/<BR>/g;
		$comment =~ s/\n/<BR>/g;
		$comment =~ s/\t/　/g;
		$comment=~ s/<BR><BR>/<BR>　<BR>/g;

		unless($mypost_line[0]=~/\Q,$subject,$name,$email,$address,$sex,$age,$face,$hp_url,\E/ && $mypost_line[0]=~/\Q,$comment\E$/){

				unshift(@mypost_line,"$this_num,$mypost,$subject,$name,$email,$address,$sex,$age,$face,$hp_url,$date,$comment");

				splice(@mypost_line,$log_max,@mypost_line-$log_max) if(@mypost_line > $log_max);

				if(open(DATA, ">$data_dir/$data_file")){
						for($i=0;$i<@mypost_line;$i++){
								print DATA "$mypost_line[$i]\n";
						}
						close(DATA);
				}
		}
else{
print "書き込み不可";
}
}
####################データ収集####################
sub data_open{

		unless(-f $data_file){open(DATA,">$data_file");close(DATA);}
		if(open(DATA,"$data_file")){
		        @line = <DATA>;
		        close(DATA);

				for($i=0;$i<@line;$i++){
						chomp($line[$i]);
						my ($number,$name,$pass,$last_time) = split(/,/,$line[$i]);

						$numbers{$number}=$number;
						$names{$number}=$name;
						$passs{$number}=$pass;
						$last_times{$number}=$last_time;
						$new_number=$number if($new_number<=$number);
				}
				$new_number++;
		}
}
####################新規データセーブ####################
sub new_save{
		my $new_datafile=$new_number.'.cgi';
		unless(-f $data_dir/$new_datafile){open(DATA,">$data_dir/$new_datafile");close(DATA);}

		if(open(DATA, ">>$data_file")){
				print DATA "$new_number,$name,$pass,$now_time\n";
				close(DATA);
		}
}
####################データセーブ####################
sub data_save{

		if(open(DATA, ">$data_file")){
				for($i=0; $i<@line; $i++){
						if($line[$i]=~/^$number,/){
								print DATA "$numbers{$number},$names{$number},$passs{$number},$now_time\n";
								$check_number=1;
						}
						else{
								print DATA "$line[$i]\n"; 
						}
				}
				close(DATA);
		}
}
####################データ消去####################
sub delete_data{
		my (@target)=@_;
		if(open(DATA, ">$data_file")){
				for($i=0; $i<@line; $i++){
						my $delete_check=0;
						foreach(@target){
								if($line[$i]=~/^$_,/){
										my $data_file_cgi=$_.'.cgi';
										my $delete_file=$_;
										if(-f $data_dir/$data_file_cgi==0){
												$delete_file=$data_file_cgi;
										}
										unlink "$data_dir/$delete_file";#file消去
										delete $numbers{$_};
										$delete_check=1;
										last;
								}
						}
						if($delete_check==0){
								print DATA "$line[$i]\n"; 
						}
				}
				close(DATA);
		}
}
################個人私書箱データ消去################
sub mydata_delete{
		my ($data_file,@target)=@_;
		my $data_file_cgi=$data_file.'.cgi';
		if(-f $data_dir/$data_file_cgi==0){
				$data_file=$data_file_cgi;
		}
		if(open(DATA, ">$data_dir/$data_file")){
				for($i=0; $i<@mypost_line; $i++){
						my $delete_check=0;
						foreach(@target){
								if($mypost_line[$i]=~/^$_,/){
										delete $nums{$_};
										$delete_check=1;
										last;
								}
						}
						if($delete_check==0){
								print DATA "$mypost_line[$i]\n"; 
						}
				}
				close(DATA);
		}
}
####################管理人専用html####################
sub target_list{

print <<END_OF_TEXT;
<h1>管理人専用コマンド</h1>
　<p>
削除する場合は、削除データを指定してから、送信ボタンを押して下さい<BR>
（一度に複数のデータを削除出来ます）<p>
<form method="POST" action="$script_url">
<input type=hidden name="command" value='change'>
<input type="hidden" name="secret_pass" value="$secret_pass">
<table border=1>
<TR><TH colspan=5>削除・カスタマイズフォーム</TH></TR>

<tr align=center><td>指定</td><td>私書箱番号</td><td>名前</td><td>パスワード</td><td>最終アクセス</td></tr>

END_OF_TEXT

		my @true_ranks=sort{ $b<=>$a }keys %numbers;

		foreach(@true_ranks){

				my ($sec,$min,$hour,$day,$month) = localtime($last_times{$_});
				$month = ($month + 1);
				if($month < 10) { $month = "0$month"; }
				if($day < 10) { $day = "0$day"; }
				my $date = "$month月$day日";


				print(
						'<tr align=center >',
						'<td nowrap>',
						'<input type="checkbox" name="target" value="',$_,'">','</td>',
						'<td nowrap>',$_,'</td><td nowrap>',$names{$_},'</td><td nowrap>',$passs{$_},'</td><td nowrap>',$date,'</td></tr>',
				) ;
		}

print <<END_OF_TEXT;
</table>
<table>
<tr><td>
<input type="radio" checked name='repair_delete' value='delete'>データ削除
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='custom_beginner'>カスタマイズする（初心者用）
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='custom_pro'>カスタマイズする（上級者用）
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='color'>色候補を見る
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='background'>背景イラスト候補を見る
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='top'>トップに戻る
</td></tr>
</table>
<input type="submit" value="送信">

</form>
　<p>
END_OF_TEXT
}
####################ヘッダー部分####################
sub html_header{
        my ($title,$name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face,$mypost) = @_;

		($cookie_name,$cookie_pass,$cookie_number,$cookie_email,$cookie_hp_url,$cookie_address,$cookie_sex,$cookie_age,$cookie_face) = get_cookie();
		$number=$mypost if($mypost ne '');
		($c_cook,$pass)=split(/:/,$cookie_pass) if($pass eq '');
		($c_cook,$number)=split(/:/,$cookie_number) if($number eq '');
		($c_cook,$email)=split(/:/,$cookie_email) if($email eq '');
		($c_cook,@c_hp_url)=split(/:/,$cookie_hp_url);
		$hp_url=join(':',@c_hp_url) if($hp_url eq '');
		($c_cook,$address)=split(/:/,$cookie_address) if($address eq '');
		($c_cook,$sex)=split(/:/,$cookie_sex) if($sex eq '');
		($c_cook,$age)=split(/:/,$cookie_age) if($age eq '');
		($c_cook,$face)=split(/:/,$cookie_face) if($face eq '');

        my $header='';

        $header.="HTTP/1.0 200 OK\n" if($ENV{'PERLXS'} eq 'PerlIS');
        $header.="Content-type: text/html; charset=Shift_JIS\n";
        $header.= &set_cookie($name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face) if($name ne '');
		$header.="\n";
		$header.='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">'."\n";
		$header.='<html>'."\n";
		$header.='<head>'."\n";
		$header.="<title>${title}</title>"."\n";
		$header.='</head>'."\n";;
		$header.='<body';
		$header.=" bgcolor=\"${bgcolor}\"" if($bgcolor ne '');
		$header.=" text=\"${textcolor}\"" if($textcolor ne '');
		$header.=" link=\"${linkcolor}\"" if($linkcolor ne '');
		$header.=" vlink=\"${vlinkcolor}\"" if($vlinkcolor ne '');
		$header.=" background=\"${background}\"" if($background ne '');
		$header.='>'."\n";
		$header.='<center>'."\n";
		return $header;
}
####################フッター部分####################
sub html_footer{
		if($hooter eq '0' || $hooter eq '1'){
				$hooter ="<A HREF=\"$script_url\">[TOP]</A> <A HREF=\"$home_url\" target=\"_top\">[HOME]</A>";
		}
        my $menustr = '';
		$menustr.=<<END_OF_TEXT;
　<p>
$hooter<P>
</center>
</body></html>
END_OF_TEXT
          return $menustr;
}
####################クッキー取得####################
sub get_cookie{
        my ($name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face);
        if(defined $ENV{'HTTP_COOKIE'}){
                my $cook=$ENV{'HTTP_COOKIE'};
                (@cook) = split(/;/,$cook);
				foreach(@cook){
						if($_=~/$C_NAME/){
								my ($cookie_name,$value) = split(/=/,$_);
								($name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face) = split(/,/,$value);
								return ($name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face);
						}
				}
        }
}
####################クッキーセット####################
sub set_cookie{
        my ($name,$pass,$number,$email,$hp_url,$address,$sex,$age,$face) = @_;
		return  "Set-Cookie: ${C_NAME}=name:${name},pass:${pass},number:${number},email:${email},hp_url:${hp_url},address:${address},sex:${sex},age:${age},face:${face}; ${expires}\n\n";
}
###############クッキーの有効期限を取得###############
sub expires {
		my($day) = @_;
		my(@date);
	    my(@week) = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
	    my(@month) = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

	    @date = gmtime($now_time+ $day * 60 * 60 * 24);

	    $date[5] = $date[5] + 1900;

	    foreach (0..3) {
				$date[$_] = sprintf("%.2d",$date[$_]);
	    }

	    return "$week[$date[6]], $date[3]-$month[$date[4]]-$date[5] $date[2]:$date[1]:$date[0] GMT";
}
####################排他制御開始####################
# $id = LockOn(filename);
sub LockOn{
		my ($filename)=@_;

		rmdir($filename) if(-d $filename && ($now_time-(stat($filename))[9])>$expire);

		my $retry;
		for($retry=$num_retry; $retry>0 && mkdir($filename,0755)!=1; $retry--){
				sleep($retry_time);
		}
		return $filename if($retry>0);	# 成功
		return undef;			# 失敗
}
####################排他制御終了####################
# LockOff($id);
sub LockOff{
		my ($filename)=@_;
		rmdir ($filename) if(defined $filename);
}
####################排他制御失敗####################
sub lock_error{
		my $body = <<END_OF_BODY;
<h1>しばらくお待ち下さい</h1>
　<p>
只今、込み合ってるようです。<BR>
しばらくしてから、リロード（再読み込み）してみて下さい<p>
リロードしても繋がらない場合は・・・<BR>
３分間ほど待ってから、もう一度トライしてみて下さい。<p>

注：新規設置の管理人様へ・・・<BR>
新規設置時に、このコメントばかり表\示される時は・・・<BR>
DATAのパーミッションが777（707の場合もあり）以外になっていないか・・・<BR>
DATAが、Dataやdataになっていないかを確認してみて下さいませ≦(._.)≧<BR>
（詳しくは、HPサービスのFAQを参照して下さい）<BR>
　<p>
END_OF_BODY
		return $body;
}