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

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

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

# 予想レースデータファイル名（★☆）
	my $data_file = './DATA/horse_race.cgi';

# 投票データファイル名（★☆）
	my $vote_file = './DATA/horse_vote.cgi';

# 前回レース結果ファイル名（★☆）
	my $result_file = './DATA/horse_result.cgi';

# 会員名簿データファイル名（★☆）
	my $member_file = './DATA/horse_data.cgi';

# スタイルシートファイル名（★☆）
	my $style_file='./DATA/horse_style.cgi';

# Time::Localが使えるサーバかどうか？（0は使える。1は使えない）（★☆）
# @niftyは使えないので、1に書き換える事。
# その他のサーバは、たいてい使えますので、そのままで可。
# また、同時に357行目付近にあります『use Time::Local;』を削除する事。
	my $timelocal_use=0;

# タイトルの名前（★☆）
	my $html_title = '競馬予想SP';

#HOMEのURL（☆）
	my $home_url= 'http://hp.bird.to/info/horse.html';

#トップ画面に表示する案内文（★☆）
	my $titlemessage="<h1>$html_title</h1>このCGIは会員制となっておりますので・・・<BR>まずは、会員登録して下さいませ。<BR>";

#ランキング画面に表示する案内文（★☆）
	my $rankingmessage='';

#今回の投票内容画面に表示する案内文（★☆）
	my $votemessage='<h1>今回の投票内容</h1>';

#今回の予想内容画面に表示する案内文（★☆）
	my $markmessage='<h1>今回の予想内容</h1>';

#前回の結果画面に表示する案内文（★☆）
	my $resultmessage='';

#会員の登録・削除をユーザーにも認める（0=認める、1=認めない）（★☆）
	my $userregist= 0;

#パスワード配布にメールを使用（0=使用しない、1=使用する）（★☆）
	my $mailuse= 0;

#登録があると、管理人にメールする（0=しない、1=する）（メールを使う場合に設定する）（★☆）
	my $keepermail= 0;

#このCGIのURLをフルパスで指定（メールを使う場合に設定する）（☆）
	my $horse_url= 'http://hp.bird.to/cgi-bin/horse.cgi';

#sendmailのパス（メールを使う場合に設定する）（☆）
	my $sendmail= '/usr/lib/sendmail';

#あなたのメールアドレス（メールを使う場合に設定する）（☆）
	my $my_address= '';

#CGIから送信されるメールの件名に記載される文字（メールを使う場合に設定する）（★☆）
	my $default_subject="$html_title";

#登録禁止メールアドレス（複数のメールアドレスを禁止する場合は、各メールアドレスを<BR>で連結する）（メールを使う場合に設定する）（☆）
	my $limitaddress= '';

#1ページに表示するログ数（★☆）
	my $top_max=10;

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

#リンク時のウィンドウ出現方法('new'=別、'_top'=同じ）（★☆）
	my $href_target='new';

#インラインリンク設定(0=使用しない、1=URL、2=文字、3=画像）（★☆）
	my $inlinelink=1;
	my $inline_word='ここをクリック!!';#文字の場合
	my $inline_image='<img src="./IMAGE/inline.gif" width="19" height="13" border="0">';#画像の場合

#名前の最大文字数（★☆）
	my $namelength =20;

#コメントの最大文字数（★☆）
	my $commentlength =3000;

#アドレスの最大文字数（★☆）
	my $addresslength =50;

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

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

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

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

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

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

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

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

#投稿のバックイラスト（★☆）
	my $tdground='./IMAGE/horse1.gif';

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

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

#通貨単位（★☆）
	my $yen='円';

#印の種類（種類は増減出来ます）（★☆）
	my @mark=('◎','◯','▲','△','×','穴');

#投票種類（★）
	my @vote_array=('３連複','馬連','馬単','枠連','ワイド','単勝','複勝');

#３連単を導入する(0=導入しない。1=導入する）（★☆）
	my $rentan=0;
	push(@vote_array,'３連単') if($rentan==1);

#投票フォーム数（★☆）
	my $limit_vote=5;

#最大馬数（デフォルトは18頭フルゲート）（★）
	my $max_horse=18;

#賭け金の下限（デフォルトは100円）（★☆）
	my $minimum_money=100;

#新規登録時に配布する軍資金額（デフォルトでは、10000円を登録時に配布）（★☆）
	my $regist_money=10000;

#レース毎に配布する軍資金額（$max_money=0;は、軍資金を配布しない）（★☆）
	my $week_money=0;

#１レースの賭け金総額の上限（$max_money=0;は、軍資金額が上限になります。軍資金額がなくなると賭ける事が出来ません）（★☆）
#（$max_money=10000;としますと、レース毎に1万円まで賭ける事が出来ます。軍資金額がなくても賭ける事が出来ます）
	my $max_money=10000;

#レース毎に配布される軍資金が余った場合の措置（次回レースに持ち越せない=0、持ち越せる=1）（★☆）
	my $pool=0;

#レース表のサブ項目（★☆）
	my $subcomment='印';

#出走取消し時に馬名に付ける印（★☆）
	my $torikesi_mark='除外';

#トップ画面の出走表と投票フォームの配置（0=上下。1=左右）（★☆）
	my $top_mode=0;

#枠の色（★）
	my @hat_color=('white','gray','red','blue','yellow','green','orange','pink');

#枠の番号（★）
	my @hat_num=('1','2','3','4','5','6','7','8');

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

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

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

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

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

#時差調整（海外サーバ等の場合は、ここで時差を調節して下さい）（★☆）
#例：9時間の時差の場合：my $time_adjustment=60*60*9;
	my $time_adjustment=0;

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

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

# Cookie の有効期間（現在60日に設定）（★）
	my $expires_time= &expires(60);

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

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

#sendmail に付加するオプション（★）
	my $mailoption= ' -t';

#エラーメール対策オプション（★）
	my $envelope= '-f ';

#パスワード構成文字（0=英数小文字。1=数字。2=英語小文字。3=英語大文字）（★☆）
#CGIの初期導入時にのみ、この設定が有効となりますので・・・
#一度でも、CGIを呼び出してしまいますと、この設定は無効となります。
	my $code_select=0;

#パスワード文字数関連数字（パスワード構成文字との関係で一概に何文字になるかは言えないが、この数値を大きくするとパスワード文字数が増える）（★☆）
	my $first_number=1000;

#パスワード文字数関連数字（この数値を大きくすると、似通ったパスワードにならない）（★☆）
	my $rand_number=36;

##########ここより先は、Perlの知識が必要です!!##########
##########よく分からない人は、立ち入るべからず##########

	my %params;
        &ReadParse(\%params);
        $name = &jcode'sjis($params{'name'});#名前
        $pass = &jcode'sjis($params{'pass'});#パスワード
        $email = &jcode'sjis($params{'email'});#メールアドレス
        $comment = &jcode'sjis($params{'comment'});#コメント
        $page = $params{'page'};#リクエストページ
        $command = $params{'command'};#コマンド
        $secret_pass = &jcode'sjis($params{'secret_pass'});#管理人パス
        $mymark = $params{'mymark'};#
        $vote_kind = $params{'vote_kind'};#
        $vote_num1 = $params{'vote_num1'};#
        $vote_num2 = $params{'vote_num2'};#
        $vote_num3 = $params{'vote_num3'};#
        $vote_money = $params{'vote_money'};#
	my (@mymark)=split(/\0/,$mymark);#
	my (@vote_kind)=split(/\0/,$vote_kind);#
	my (@vote_num1)=split(/\0/,$vote_num1);#
	my (@vote_num2)=split(/\0/,$vote_num2);#
	my (@vote_num3)=split(/\0/,$vote_num3);#
	my (@vote_money)=split(/\0/,$vote_money);#
        $p_year = $params{'p_year'};#
        $p_month = $params{'p_month'};#
        $p_day = $params{'p_day'};#
        $p_hour = $params{'p_hour'};#
        $p_minute = $params{'p_minute'};#
        $race_comment = &jcode'sjis($params{'race_comment'});#
        $horse_name = &jcode'sjis($params{'horse_name'});#
        $horse_comment = &jcode'sjis($params{'horse_comment'});#
	my (@horse_name)=split(/\0/,$horse_name);#
	my (@horse_comment)=split(/\0/,$horse_comment);#

        $my_money = $params{'my_money'};#軍資金額
        $repair_pass = &jcode'sjis($params{'repair_pass'});#修正パス
        $repair_delete = $params{'repair_delete'};#削除or修正
        $target = $params{'target'};#削除・修正データ
	my (@target)=split(/\0/,$target);#削除データ
        $doutyaku = $params{'doutyaku'};#同着時は「1」
        $style = $params{'style'};#スタイルシート

        $repair_[0] = &jcode'sjis($params{'repair_0'});
        $repair_[1] = &jcode'sjis($params{'repair_1'});
        $repair_[2] = &jcode'sjis($params{'repair_2'});
        $repair_[3] = &jcode'sjis($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] = &jcode'sjis($params{'repair_13'});
        $repair_[14] = $params{'repair_14'};
        $repair_[15] = $params{'repair_15'};
        $repair_[16] = $params{'repair_16'};
        $repair_[17] = $params{'repair_17'};
        $repair_[18] = &jcode'sjis($params{'repair_18'});
        $repair_[19] = $params{'repair_19'};
        $repair_[20] = $params{'repair_20'};
        $repair_[21] = $params{'repair_21'};
        $repair_[22] = $params{'repair_22'};
        $repair_[23] = $params{'repair_23'};
        $repair_[24] = $params{'repair_24'};
        $repair_[25] = $params{'repair_25'};
        $repair_[26] = $params{'repair_26'};
        $repair_[27] = &jcode'sjis($params{'repair_27'});
        $repair_[28] = $params{'repair_28'};
        $repair_[29] = $params{'repair_29'};
        $repair_[30] = $params{'repair_30'};
        $repair_[31] = &jcode'sjis($params{'repair_31'});
        $repair_[32] = &jcode'sjis($params{'repair_32'});
        $repair_[33] = &jcode'sjis($params{'repair_33'});
        $repair_[34] = &jcode'sjis($params{'repair_34'});
        $repair_[35] = $params{'repair_35'};
        $repair_[36] = $params{'repair_36'};
        $repair_[37] = $params{'repair_37'};
        $repair_[38] = $params{'repair_38'};
        $repair_[39] = $params{'repair_39'};
        $repair_[40] = $params{'repair_40'};
	shift @repair_;

	if($ENV{'QUERY_STRING'} ne ''){
		($call_num)=$ENV{'QUERY_STRING'};
		if($call_num=~/^[0-9]+$/){
			$command='call_list';
		}
	}#予想一覧から投票内容が呼び出された場合

	if($timelocal_use==0 && $p_year ne '' && $p_month ne '' && $p_day ne '' && $p_hour ne '' && $p_minute ne ''){
		my $year=$p_year-1900;
		my $month=$p_month-1;
		my $day=$p_day;
		my $hour=$p_hour;
		my $minute=$p_minute;
		use Time::Local;#@nifty等のTime::Local機能が使えないサーバでは、この行を削除して下さい。
		$permit_time=timelocal(0,$minute,$hour,$day,$month,$year);
	}#発走時刻の計算（@nifty以外の場合）

####################条件分岐####################
	if(defined ($dlock_id=&LockOn($lockname))){
		if($repair_delete eq 'begin'){
			my @custom=&custom_open($custom_file,$html_title,$titlemessage,$rankingmessage,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$top_max,$secret,$tag,$date_way,$href_target,$inlinelink,$hooter,$limit_vote,$max_money,$userregist,$mailuse,$sendmail,$keepermail,$horse_url,$my_address,$default_subject,$limitaddress,$subcomment,$tdground,$yen,$votemessage,$markmessage,$resultmessage,$minimum_money,$regist_money,$week_money,$pool,$top_mode,$time_adjustment);
			my ($html_title,$titlemessage,$rankingmessage,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$top_max,$secret,$tag,$date_way,$href_target,$inlinelink,$hooter,$limit_vote,$max_money,$userregist,$mailuse,$sendmail,$keepermail,$horse_url,$my_address,$default_subject,$limitaddress,$subcomment,$tdground,$yen,$votemessage,$markmessage,$resultmessage,$minimum_money,$regist_money,$week_money,$pool,$top_mode,$time_adjustment)=@custom;
			unlink($custom_file) if($secret_pass eq $secret);
		}

		my @custom=&custom_open($custom_file,$html_title,$titlemessage,$rankingmessage,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$top_max,$secret,$tag,$date_way,$href_target,$inlinelink,$hooter,$limit_vote,$max_money,$userregist,$mailuse,$sendmail,$keepermail,$horse_url,$my_address,$default_subject,$limitaddress,$subcomment,$tdground,$yen,$votemessage,$markmessage,$resultmessage,$minimum_money,$regist_money,$week_money,$pool,$top_mode,$time_adjustment);#カスタマイズ類を取得

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

		($html_title,$titlemessage,$rankingmessage,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$top_max,$secret,$tag,$date_way,$href_target,$inlinelink,$hooter,$limit_vote,$max_money,$userregist,$mailuse,$sendmail,$keepermail,$horse_url,$my_address,$default_subject,$limitaddress,$subcomment,$tdground,$yen,$votemessage,$markmessage,$resultmessage,$minimum_money,$regist_money,$week_money,$pool,$top_mode,$time_adjustment)=@custom;#カスタマイズ類を設定

		$now_time+=$time_adjustment;#時差調節

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

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

		print html_header($html_title,$name,$pass) unless($command=~/repair_custom/ &&  $secret_pass eq $secret);

		if($secret_pass eq $secret && $command eq '' && $repair_delete ne 'begin'){
			&data_open;
			&target_list;
		}
		elsif($command eq 'repair_custom_beginner' && $secret_pass eq $secret){
			($html_title,$titlemessage,$rankingmessage,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$top_max,$secret,$tag,$date_way,$href_target,$inlinelink,$hooter,$limit_vote,$max_money,$userregist,$mailuse,$sendmail,$keepermail,$horse_url,$my_address,$default_subject,$limitaddress,$subcomment,$tdground,$yen,$votemessage,$markmessage,$resultmessage,$minimum_money,$regist_money,$week_money,$pool,$top_mode,$time_adjustment)=&repair_custom($custom_file,@repair_) if($repair_delete ne 'begin');
			print html_header($html_title);
			&data_open;
			&looking_list;
		}
		elsif($command eq 'repair_custom_style' && $secret_pass eq $secret){
			&style_save($style);
			print html_header($html_title);
			&data_open;
			&looking_list;
		}#スタイルシートをセーブ
		elsif($command eq 'change' && $secret_pass eq $secret){
			if($repair_delete eq 'make_race'){
				&data_save;
				&data_open;
				&looking_list;
			}#レース作成・修正の場合
			elsif($repair_delete eq 'make_result'){
				&data_open;
				&make_result;
			}#レース結果作成の場合
			elsif($repair_delete eq 'make_result_doutyaku'){
				$doutyaku=1;
				&data_open;
				&make_result;
			}#レース結果作成の場合（同着時専用）
			elsif($repair_delete eq 'backup'){
				foreach($data_file,$vote_file,$result_file,$member_file){
					&backup_load($_);
				}#バックアップをロードする
				&data_open;
				&target_list;
			}#レース結果作成の場合
			elsif($repair_delete eq 'make_result2'){
				if(open(DATA,"$data_file")){
					my @line = <DATA>;
	    			    close(DATA);

					if(@line>0){
						for($i=0;$i<@line;$i++){
							if($i>1){
								my ($horse_num,$horse_name) = split(/,/,$line[$i]);
								$horse_names{$horse_num}=$horse_name;
							}#結果ファイル用馬名データを取得
						}
						foreach($data_file,$vote_file,$result_file,$member_file){
							&backup_save($_);
						}#バックアップを取っておく

						&result_save;
						if(open(DATA,">$data_file")){
							print DATA "";
	    					    close(DATA);
						}
						if(open(DATA,">$vote_file")){
							print DATA "";
	    					    close(DATA);
						}
					}
				}
				&result_open;
				&result_list;
			}#レース結果作成の場合
			elsif($repair_delete eq 'member_list'){
				&member_open;
				&member_list;
			}#会員名簿一覧
			elsif($repair_delete eq 'member_regist'){
				&regist_list;
			}#会員登録
			elsif($repair_delete eq 'ranking_reset'){
				&ranking_reset;
				&member_open;
				&ranking_list;
			}#軍資金額リセット
			elsif($repair_delete eq 'member_repair'){
				if(@target>0){
					&member_open;
					&repair_list;
				}
				else{
					&member_open;
					&member_list;
				}
			}#会員修正（前）
			elsif($repair_delete eq 'member_repair2'){
				&member_repair;
				&member_open;
				&member_list;
			}#会員修正（後）
			elsif($repair_delete eq 'member_delete'){
				&member_open;
				&member_delete(@target);
				&member_list;
			}#会員削除
			elsif($repair_delete eq 'custom_beginner' || $repair_delete eq 'custom_pro'){
				&custom_beginner($repair_delete,$script_url,$html_title,$titlemessage,$rankingmessage,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$newscolor,$subcolor,$tdcolor,$top_max,$secret,$tag,$date_way,$href_target,$inlinelink,$hooter,$limit_vote,$max_money,$userregist,$mailuse,$sendmail,$keepermail,$horse_url,$my_address,$default_subject,$limitaddress,$subcomment,$tdground,$yen,$votemessage,$markmessage,$resultmessage,$minimum_money,$regist_money,$week_money,$pool,$top_mode,$time_adjustment,$secret_pass);
			}#カスタマイズする場合
			elsif($repair_delete eq 'style'){
				&style_list;
			}#スタイルシートを利用する
			elsif($repair_delete eq 'color'){
				&color_list($script_url);
			}#色の見本を場合
			elsif($repair_delete eq 'background'){
				&background_list($script_url);
			}#背景イラストを見る場合
			else{
				&data_open;
				&target_list;
			}#指定なしの場合
		}
		elsif($command eq 'member_regist' && $userregist==0){
			&regist_list;
		}
		elsif($command eq 'member_delete' && $userregist==0){
			&delete_list;
		}
		elsif($command eq 'ranking'){
			&member_open;
			&ranking_list;
		}
		elsif($command eq 'this_vote'){
			&data_open;
			&vote_open;
			&vote_list;
		}
		elsif($command eq 'this_mark'){
			&data_open;
			&vote_open;
			&mark_list;
		}
		elsif($command eq 'result_list'){
			&result_open;
			&result_list;
		}
		elsif($command eq 'call_list'){
			&data_open;
			&vote_open;
			&call_list;
		}
		elsif($command eq 'info'){
			&info_list;
		}
		elsif($command eq 'member_regist2'){
			if($name eq ''){
				$error_code='名前を記入して下さい';
			}
			elsif($email eq ''){
				$error_code='メールアドレスを記入して下さい';
			}
			elsif(!($email=~/^[0-9a-z_\.\-]+\@([0-9a-z_\-]+\.)+[0-9a-z_\-]+$/i)){
				$error_code='メールアドレスを正しく記入して下さい';
			}
			elsif($namelength<length($name)){
				$error_code='名前の文字数を減らして下さい';
			}
			elsif($addresslength<length($email)){
				$error_code='メールアドレスを正しく記入して下さい';
			}
			elsif($limitaddress ne ''){
				my (@limitaddress)=split(/<BR>/,$limitaddress);
				foreach(@limitaddress){
					if($email eq $_){
						$error_code='登録出来ませんでした。管理人さんに問い合わせてみて下さい。';
						last;
					}
				}
			}
			if($error_code eq ''){
				&member_open;
				foreach(keys %member_names){
					if($member_names{$_} eq $name){
						$error_code='名前が既に登録されていますので、別の名前にして下さい';
						last;
					}
					elsif($member_mails{$_} eq $email){
						$error_code='メールアドレスが既に登録されています';
						last;
					}
				}
			}

			if($error_code eq ''){
				if($error_code eq ''){
					&member_save;
					if($mailuse eq '1'){
						&mailsend;
						&mailsend_keeper if($keepermail==1);
						if($error_code ne ''){
							&member_delete($new_password);
							&regist_success_list3;
						}
						else{
							&regist_success_list2;
						}

					}#メールで配布
					else{
						&regist_success_list;
					}#HTMLで配布
				}
				else{
					&regist_list;
				}
			}
			else{
				&regist_list;
			}
		}
		elsif($command eq 'member_delete2'){
			&member_open;
			if($member_passs{$pass} eq $pass && $pass ne '' && $member_names{$pass} eq $name){
				&member_delete($pass);
				&delete_success_list;
			}
			else{
				$error_code='記入データは会員登録されていません';
				&delete_list;
			}
		}
		elsif($command eq 'vote'){
			&member_open;
			&data_open;
			if($member_passs{$pass} eq $pass && $pass ne '' && $member_names{$pass} eq $name){
				my @horse_num=sort{ $a<=>$b }keys %horse_names;
				my $allhorse_num=@horse_num;#全頭数
				my $allwaku_num;#総枠数
				$allwaku_num=8 if($allhorse_num>=8);
				$allwaku_num=$allhorse_num if($allhorse_num<8);

				for($i=0;$i<$limit_vote;$i++){
					my @temp_num;#馬番号修正用
	   				#全角数字を半角に変換
					$vote_money[$i]=~s/$yen//go;
					$vote_money[$i]=~s/０/0/go;
					$vote_money[$i]=~s/１/1/go;
					$vote_money[$i]=~s/２/2/go;
					$vote_money[$i]=~s/３/3/go;
					$vote_money[$i]=~s/４/4/go;
					$vote_money[$i]=~s/５/5/go;
					$vote_money[$i]=~s/６/6/go;
					$vote_money[$i]=~s/７/7/go;
					$vote_money[$i]=~s/８/8/go;
					$vote_money[$i]=~s/９/9/go;

					$minimum_money=100 if($minimum_money eq '');
					$minimum_money=1 if($minimum_money==0);
					$vote_money[$i]=int($vote_money[$i]/$minimum_money)*$minimum_money;#小数点は切り捨て
					next if($vote_money[$i]<$minimum_money);

					if($vote_array[$vote_kind[$i]] ne '馬単' && $vote_array[$vote_kind[$i]] ne '３連単'){
						@temp_num=($vote_num1[$i],$vote_num2[$i],$vote_num3[$i]);
						@temp_num=sort{ $a<=>$b } @temp_num;
						$vote_num1[$i]=$temp_num[0];
						$vote_num2[$i]=$temp_num[1];
						$vote_num3[$i]=$temp_num[2];
					}#馬単以外は、小さい順に

					my $zen;
					if($vote_num1[$i]>90){
						$zen++;
					}#全流しを含む場合
					if($vote_num2[$i]>90){
						$zen++;
					}#全流しを含む場合
					if($vote_num3[$i]>90){
						$zen++;
					}#全流しを含む場合

					if($vote_num1[$i]==0){
						if($vote_num2[$i]==0){
							$vote_num1[$i]=$vote_num3[$i];
							$vote_num3[$i]=0;
						}
						else{
							$vote_num1[$i]=$vote_num2[$i];
							$vote_num2[$i]=0;
						}
					}
					if($vote_num2[$i]==0){
						$vote_num2[$i]=$vote_num3[$i];
						$vote_num3[$i]=0;
					}#空白番号を除去し左詰めにする

					if($vote_array[$vote_kind[$i]] eq '単勝' && $vote_num1[$i] != 0){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::0::0::$vote_money[$i]");
						if($vote_num2[$i]>90){
							$zen--;
						}
						if($vote_num3[$i]>90){
							$zen--;
						}
						if($zen>0){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num;
						}
					}#単勝の場合
					elsif($vote_array[$vote_kind[$i]] eq '複勝' && $vote_num1[$i] != 0){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::0::0::$vote_money[$i]");
						if($vote_num2[$i]>90){
							$zen--;
						}
						if($vote_num3[$i]>90){
							$zen--;
						}
						if($zen>0){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num;
						}
					}#複勝の場合
					elsif($vote_array[$vote_kind[$i]] eq '枠連'){
						if($vote_num3[$i]>90){
							$zen--;
						}
						if($vote_num1[$i]<=$allwaku_num && $vote_num2[$i]<=$allwaku_num && $vote_num1[$i]<=$vote_num2[$i]){
							push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
						}
						elsif($zen>0){
							push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
							if($zen==1){
								my @true_num=&hat_color_num($allhorse_num);#枠番取得
								my $check;
								my $k;
								for($k=0;$k<@true_num;$k++){
									if($true_num[$k]==$vote_num1[$i]){
										$check++;
									}
								}
								if($check>=2){
									$vote_money[$i]=$vote_money[$i]*$allwaku_num;
								}
								else{
									$vote_money[$i]=$vote_money[$i]*($allwaku_num-1);
								}
							}
							elsif($zen>=2){
								my @waku_allvote_num=(0,1,3,6,10,15,21,28,29,30,31,32,33,34,35,36,36,36);#頭数による買い目総数
								$vote_money[$i]=$vote_money[$i]*$waku_allvote_num[$allhorse_num];
							}
						}
						else{
							$total_money-=$vote_money[$i];
						}
					}#枠連の場合
					elsif($vote_array[$vote_kind[$i]] eq '馬連' && $vote_num1[$i] != 0 && $vote_num2[$i] != 0 && $vote_num1[$i]<$vote_num2[$i]){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
						if($vote_num3[$i]>90){
							$zen--;
						}
						if($zen==1){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-1);
						}
						elsif($zen>=2){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num*($allhorse_num-1)/2;
						}
					}#馬連の場合
					elsif($vote_array[$vote_kind[$i]] eq 'ワイド' && $vote_num1[$i] != 0 && $vote_num2[$i] != 0 && $vote_num1[$i]<$vote_num2[$i]){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
						if($vote_num3[$i]>90){
							$zen--;
						}
						if($zen==1){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-1);
						}
						elsif($zen>=2){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num*($allhorse_num-1)/2;
						}
					}#ワイド番の場合
					elsif($vote_array[$vote_kind[$i]] eq '馬単' && $vote_num1[$i] != 0 && $vote_num2[$i] != 0 && $vote_num1[$i] ne $vote_num2[$i]){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
						if($vote_num3[$i]>90){
							$zen--;
						}
						if($zen==1){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-1);
						}
						elsif($zen>=2){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num*($allhorse_num-1);
						}
					}#馬単の場合
					elsif($vote_array[$vote_kind[$i]] eq '３連複' && $vote_num1[$i] != 0 && $vote_num2[$i] != 0 && $vote_num3[$i] != 0 && $vote_num1[$i] ne $vote_num2[$i] && $vote_num1[$i] ne $vote_num3[$i] && $vote_num2[$i] ne $vote_num3[$i]){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::$vote_num3[$i]::$vote_money[$i]");
						if($zen==1){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-2);
						}
						elsif($zen==2){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-1)*($allhorse_num-2)/2;
						}
						elsif($zen==3){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num*($allhorse_num-1)*($allhorse_num-2)/6;
						}
					}#３連複の場合
					elsif($vote_array[$vote_kind[$i]] eq '３連単' && $vote_num1[$i] != 0 && $vote_num2[$i] != 0 && $vote_num3[$i] != 0 && $vote_num1[$i] ne $vote_num2[$i] && $vote_num1[$i] ne $vote_num3[$i] && $vote_num2[$i] ne $vote_num3[$i]){
						push(@save,"$vote_kind[$i]::$vote_num1[$i]::$vote_num2[$i]::$vote_num3[$i]::$vote_money[$i]");
						if($zen==1){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-2);
						}
						elsif($zen==2){
							$vote_money[$i]=$vote_money[$i]*($allhorse_num-1)*($allhorse_num-2);
						}
						elsif($zen==3){
							$vote_money[$i]=$vote_money[$i]*$allhorse_num*($allhorse_num-1)*($allhorse_num-2);
						}
					}#３連単の場合
					else{
						$total_money-=$vote_money[$i];
					}
					$total_money+=$vote_money[$i];
				}

				if($max_money==0){
					$max_money=$member_moneys{$pass};
					if($week_money>0){
						$max_money+=$week_money;
					}#レース毎に小遣いがある場合は、上限に加算する
				}#上限が決まっていない場合は、軍資金額を上限にする


				if($total_money>$max_money){
					$error_code='賭け金オーバーです';
				}
				elsif(@save==0){
					$error_code='記入に不備があります';
				}
				elsif($commentlength<length($comment)){
					$error_code='コメントの文字数オーバーです';
				}

				if($now_time>$deadline_time){
					$error_code='投票を締め切っております';
				}
				if($error_code eq ''){
					&vote_save;
					&vote_open;
					&vote_list;
				}
				else{
					&looking_list;
				}
			}
			else{
				$error_code='記入データは会員登録されていません';
				&looking_list;
			}
		}
		else{
			&data_open;
			&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{

	my ($sec,$min,$hour,$day,$month,$year,$wday) = localtime($deadline_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"; }

	my $date;
	$date = "投票締切時刻：（$month月$day日 $hour時$min分）" if($deadline_time ne '');
	$date = '現在レース表作成中' if($deadline_time eq '');

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

	$c_name=$name if($name ne '');
	$c_pass=$pass if($pass ne '');

	my @horse_num=sort{ $a<=>$b }keys %horse_names;

print <<END_OF_TEXT;
$titlemessage<P>
$error_code<P>


END_OF_TEXT
	print('<table><tr><td>') if($top_mode==1);

	print('<table border="1">');
	print('<tr><th colspan="4">',$race_comment,'</th></tr>') if($race_comment ne '');

print <<END_OF_TEXT;
<tr align="center"><td>枠番</td><td>馬番</td><td>馬名</td><td>$subcomment</td></tr>
END_OF_TEXT
	my $allhorse_num=@horse_num;#出走頭数
	my @true_num=&hat_color_num($allhorse_num);#枠番と枠色を取得
	my %double_nums;
	foreach(@true_num){
		$double_nums{$_}++;
	}#枠に何頭いるかを抽出
	foreach(@horse_num){
		if($torikesi_mark ne '' && $horse_names{$_}=~/$torikesi_mark/){
			$double_nums{$true_num[$_-1]}--;
		}
	}

	foreach(@horse_num){
		$horse_comments{$_}='　' if($horse_comments{$_} eq '');
		my $temp_num=$_-1;
		my $hat_color=$hat_color[$true_num[$temp_num]-1];
		my $horse_name=$horse_names{$_};
		if($torikesi_mark ne '' && $horse_name=~/$torikesi_mark/){
			$horse_name=~s/$torikesi_mark//go;
			$horse_name='<s>'.$horse_name.'</s>';
		}#出走取り消し馬には横線を引く

		print('<tr><td align="center" bgcolor="',$hat_color,'"><font color="black">',$true_num[$temp_num],'</font></td><td align="center">',$_,'</td><td>',$horse_name,'</td><td>',$horse_comments{$_},'</td></tr>');
	}

	print('<tr align="center"><td colspan="4">',$date,'</td></tr></table>');
	print('</td><td>') if($top_mode==1);
print <<END_OF_TEXT;
　<P>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='vote'>
<table border=1>
<tr><th colspan=3>馬券投票フォーム</th></tr>
<tr><td>◆名前</td><td colspan=2><input type="text" size=30 name="name" value="$c_name"></td></tr>
<tr><td>◆パスワード</td><td colspan=2><input type="text" size="30" name="pass" value="$c_pass"></td></tr>
<tr align="center"><td>投票種類</td><td>馬券</td><td>金額</td></tr>

END_OF_TEXT
	for($i=0;$i<$limit_vote;$i++){
		print '<tr align="center"><td><select name="vote_kind">';
		print '<option value="100">';
		for($j=0;$j<@vote_array;$j++){
			if(@horse_num>=9){
				print ('<option value="',$j,'">',$vote_array[$j]);
			}
			elsif(@horse_num<=8 && @horse_num>=5){
				unless($j==1 || $j==4){
					print ('<option value="',$j,'">',$vote_array[$j]);
				}
			}
			elsif(@horse_num==4){
				unless($j==1 || $j==4 || $j==6){
					print ('<option value="',$j,'">',$vote_array[$j]);
				}
			}
			elsif(@horse_num==3){
				unless($j==0 || $j==1 || $j==4 || $j==6 || $j==7){
					print ('<option value="',$j,'">',$vote_array[$j]);
				}
			}
			elsif(@horse_num==2){
				if($j==5){
					print ('<option value="',$j,'">',$vote_array[$j]);
				}
			}
		}
		print '</select></td>';

		print '<td><select name="vote_num1">';
		print '<option>';
		for($j=0;$j<@horse_num;$j++){
			my $num=$j+1;
			print ('<option>',$num) unless($torikesi_mark ne '' && $horse_names{$num}=~/$torikesi_mark/ && $double_nums{$num}==0);
		}
		print '<option value="97">全';
		print '</select>';

		print '-<select name="vote_num2">';
		print '<option>';
		for($j=0;$j<@horse_num;$j++){
			my $num=$j+1;
			print ('<option>',$num) unless($torikesi_mark ne '' && $horse_names{$num}=~/$torikesi_mark/ && $double_nums{$num}==0);
		}
		print '<option value="98">全';
		print '</select>';

		print '-<select name="vote_num3">';
		print '<option>';
		for($j=0;$j<@horse_num;$j++){
			my $num=$j+1;
			print ('<option>',$num) unless($torikesi_mark ne '' && $horse_names{$num}=~/$torikesi_mark/ && $double_nums{$num}==0);
		}
		print '<option value="99">全';
		print '</select></td>';

		print '<td><input type="text" size="8" name="vote_money"></td></tr>';
	}

	print '<tr><th colspan=3>予想</th></tr>';

	my $mark_num=int(@mark/3);
	$mark_num+=1 if(@mark%3!=0);
	for($i=0;$i<$mark_num;$i++){
		print ('<tr align="center"><td colspan="3">');
		for($j=0;$j<3;$j++){
			my $mark=shift(@mark);
			last if($mark eq '');
			print ($mark,'：<select name="mymark">');
			print ('<option>');
			for($k=0;$k<@horse_num;$k++){
				my $num=$k+1;
			print ('<option>',$num) unless($torikesi_mark ne '' && $horse_names{$num}=~/$torikesi_mark/);
			}
			print ('</select>');
		}
		print ('</td></tr>');
	}

print <<END_OF_TEXT;

<tr><th colspan="3">コメント</th></tr>
<tr><th colspan="3"><textarea name="comment" rows="5" cols="37"></textarea></th></tr>

<tr><td colspan="3" align="center"><input type="submit" value="投票"><input type="reset" value="取消"></td></tr>
</table>
END_OF_TEXT

	print('</td></tr></table>') if($top_mode==1);

print <<END_OF_TEXT;
</form>
　<P>
<form method="POST" action="$script_url">
<table border=1>
<tr><th>メニュー</th></tr>
END_OF_TEXT

	print('<tr><td><input type="radio" checked name="command" value="ranking">ランキング</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_vote">今回の投票内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_mark">今回の予想内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="result_list">前回の結果</td></tr>');

	print('<tr><td><input type="radio" name="command" value="member_regist">会員登録</td></tr>') if($userregist==0);

	print('<tr><td><input type="radio" name="command" value="member_delete">会員退会</td></tr>') if($userregist==0);

	print('<tr><td><input type="radio" name="command" value="info">システム説明</td></tr>');

print <<END_OF_TEXT;
<tr><td align="center">
<input type="submit" value="送信">
</td></tr>
</table>
</form>
　<P>
<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="$href_target">競馬予\想SP Ver.1.30(C)HPサービス</A></font>
</td>
</tr></table>
</form>
END_OF_TEXT
}
#################ランキングhtmlを表示#################
sub ranking_list{

print <<END_OF_TEXT;
$rankingmessage<P>
<table border=1>
<tr><th colspan="3">ランキング</th></tr>

<tr align="center"><td>順位</td><td>名前</td><td>軍資金額</td></tr>
END_OF_TEXT
	my @true_ranks=sort{ $member_moneys{$b}<=>$member_moneys{$a} }keys %member_moneys;

	my $i=1;
	my $j;
	my $k;
	foreach(@true_ranks){
		if($turn==0){
			if($member_moneys{$true_ranks[$k]}<$member_moneys{$true_ranks[$k-1]}){
				$i=$i+1+$j;
				$j=0;
			}
			else{
				$j++ if($k!=0);
			}
		}
		else{
			if($member_moneys{$true_ranks[$k]}>$member_moneys{$true_ranks[$k-1]}){
				$i=$i+1+$j;
				$j=0;
			}
			else{
				$j++ if($k!=0);
			}
		}
		print('<tr align="center" bgcolor="',$tdcolor,'"><td nowrap><font color="',$newscolor,'">',$i, '位</font></td><td nowrap><font color="',$newscolor,'">', $member_names{$_}, '</font></td><td nowrap><font color="',$newscolor,'">', $member_moneys{$_}, '</font></td></tr>',"\n");
		$k++;
	}

	print('</table>　<P>');

print <<END_OF_TEXT;
<form method="POST" action="$script_url">
<table border=1>
<tr><th>メニュー</th></tr>
END_OF_TEXT

	print('<tr><td><input type="radio" checked name="command" value="">トップに戻る</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_vote">今回の投票内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_mark">今回の予想内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="result_list">前回の結果</td></tr>');



print <<END_OF_TEXT;
<tr><td align=center>
<input type="submit" value="送信">
</td></tr>
</table>
</form>
　<P>
END_OF_TEXT
}
#################前回の結果htmlを表示#################
sub result_list{
	print("$resultmessage<P>");
	print('<table border="1">');
	print('<tr><th colspan="4">',$race_comment,'</th></tr>') if($race_comment ne '');

	my @horse_num=sort{
				if($horse_results{$a}!=$horse_results{$b}){
					$horse_results{$a}<=>$horse_results{$b}
				}
				else{
					$a<=>$b
				}
			}keys %horse_results;

	my @true_num=&hat_color_num($allhorse_num);#枠番と枠色を取得

	print('<tr align="center"><td>着順</td><td>馬番</td><td>枠番</td><td>馬名</td></tr>') if(@horse_num>0);

	foreach(@horse_num){
		my $temp_num=$_-1;
		my $hat_color=$hat_color[$true_num[$temp_num]-1];
		if($horse_results{$_}==100){
			$horse_results{$_}=$torikesi_mark;
		}

		print('<tr><td align="center">',$horse_results{$_},'</td><td align="center">',$_,'</td><td align="center" bgcolor="',$hat_color,'"><font color="black">',$true_num[$temp_num],'</font></td><td>',$horse_names{$_},'</td></tr>');
	}

	print('</table>　<P>');
	print('<table border=1><tr><th colspan=3>払い戻し金</th></tr>');
	for($i=0;$i<@result_vote;$i++){
		my @vote=split(/::/,$result_vote[$i]);
		my $kind=$vote_array[$vote[0]];
		my $num1=$vote[1];
		my $num2=$vote[2];
		my $num3=$vote[3];
		my $money=$vote[4];
		if($num2 ne '0' && $num3 ne '0'){
			$num1="$num1-$num2-$num3";
		}#3連複
		elsif($num2 ne '0'){
			$num1="$num1-$num2";
		}#馬連・馬単・枠連

		print('<tr><td align="center">',$kind,'</td><td align="center">',$num1,'</td><td align="right">',$money,$yen,'</td></tr>');
	}
	print('</table>　<P>');

	my @true_ranks=sort{ $vote_addmoneys{$b}<=>$vote_addmoneys{$a} }keys %vote_addmoneys;
	my $top_ranks;
	$top_ranks=@true_ranks-$page*$top_max if($top_max>@true_ranks-$page*$top_max);
	$top_ranks=$top_max if($top_max<=@true_ranks-$page*$top_max);

	$tdground='background="'.$tdground.'"' if($tdground ne '');
	for($i=0;$i<$top_ranks;$i++){
		my $name=$vote_names{$true_ranks[$i+$page*$top_max]};
		my $addmoney=$vote_addmoneys{$true_ranks[$i+$page*$top_max]};
		my $soneki=$vote_sonekis{$true_ranks[$i+$page*$top_max]};
		my $comment=$vote_comments{$true_ranks[$i+$page*$top_max]};
		my @vote_save=split(/,/,$vote_saves{$true_ranks[$i+$page*$top_max]});
		my @mymark_save=split(/=/,$vote_marks{$true_ranks[$i+$page*$top_max]});


		$addmoney=0 if($addmoney eq '');
		$soneki=0 if($soneki eq '');
		$soneki='+'.$soneki if($soneki>0);
		print('<table border="2" cellpadding="0"><TR><TD width="250" bgcolor="',$tdcolor,'" ',$tdground,'><font color="',$subcolor,'"><B>',$name,'　</B></font><font color="',$newscolor,'">（払戻金：',$addmoney,$yen,'）</font><hr width="100%">');

		for($j=0;$j<@vote_save;$j++){
			my $one;
			my @one=split(/::/,$vote_save[$j]);
			$one[1]='全' if($one[1]>90);
			$one[2]='全' if($one[2]>90);
			$one[3]='全' if($one[3]>90);

			if($one[0]==0 || $one[0]==7){
				$one="$vote_array[$one[0]]：$one[1]-$one[2]-$one[3]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			elsif($one[0]>=1 && $one[0]<5){
				$one="$vote_array[$one[0]]：$one[1]-$one[2]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			else{
				$one="$vote_array[$one[0]]：$one[1]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			print('<font color="',$newscolor,'">',$one,'</font><BR>');
		}
		if($week_money==0){
			print('<hr width="100%"><font color="',$newscolor,'">収支：',$soneki,$yen,'</font></TD>');
		}
		elsif($week_money>0 && $pool==1){
			print('<hr width="100%"><font color="',$newscolor,'">収支：',$soneki,$yen,'</font></TD>');
		}

		print('<TD width="250" bgcolor="',$tdcolor,'" ',$tdground,'>');
		for($j=0;$j<@mymark_save;$j++){
			next if($mymark_save[$j] eq '');
			print('<font color="',$newscolor,'">',$mark[$j],'：',$befor_names{$mymark_save[$j]},'</font><BR>');
		}
		if(@mymark_save==0){
			print('　');
		}
		print('</TD></TR>');

		print('<TR><TD colspan="2" bgcolor="',$tdcolor,'"><font color="',$newscolor,'">',$comment,'</font></TD></TR>') if($comment ne '');
		print('</table>　<P>');
	}

	print('<form method="POST" action="',$script_url,'"><input type="hidden" name="command" value="result_list"><input type="hidden" name="page" value="',$page-1,'"><input type="submit" value="←前ページ"></form>') if($page>0);

	print('<form method="POST" action="',$script_url,'"><input type="hidden" name="command" value="result_list"><input type="hidden" name="page" value="',$page+1,'"><input type="submit" value="次ページ→"></form>') if(@true_ranks>$top_ranks+$top_max*$page);

print <<END_OF_TEXT;
<form method="POST" action="$script_url">
<table border=1>
<tr><th>メニュー</th></tr>
END_OF_TEXT

	print('<tr><td><input type="radio" checked name="command" value="">トップに戻る</td></tr>');

	print('<tr><td><input type="radio" name="command" value="ranking">ランキング</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_vote">今回の投票内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_mark">今回の予想内容</td></tr>');

print <<END_OF_TEXT;
<tr><td align=center>
<input type="submit" value="送信">
</td></tr>
</table>
</form>
　<P>
END_OF_TEXT
}
####################投票一覧html####################
sub vote_list{

	print("$votemessage<P>");
	my @true_ranks=sort{ $vote_times{$b}<=>$vote_times{$a} }keys %vote_times;
	my $top_ranks;
	$top_ranks=@true_ranks-$page*$top_max if($top_max>@true_ranks-$page*$top_max);
	$top_ranks=$top_max if($top_max<=@true_ranks-$page*$top_max);

	$tdground='background="'.$tdground.'"' if($tdground ne '');

	for($i=0;$i<$top_ranks;$i++){
		my $name=$vote_names{$true_ranks[$i+$page*$top_max]};
		my $date=$vote_dates{$true_ranks[$i+$page*$top_max]};
		my $comment=$vote_comments{$true_ranks[$i+$page*$top_max]};
		my $total_money=$vote_total_moneys{$true_ranks[$i+$page*$top_max]};
		my @vote_save=split(/,/,$vote_saves{$true_ranks[$i+$page*$top_max]});
		my @mymark_save=split(/=/,$vote_marks{$true_ranks[$i+$page*$top_max]});

		print('<table border=2 cellpadding=0><TR><TD width=250 bgcolor="',$tdcolor,'" ',$tdground,'><font color="',$subcolor,'"><B>',$name,'　</B></font><font color="',$newscolor,'">',$date,'</font><BR>');

		for($j=0;$j<@vote_save;$j++){
			my $one;
			my @one=split(/::/,$vote_save[$j]);
			$one[1]='全' if($one[1]>90);
			$one[2]='全' if($one[2]>90);
			$one[3]='全' if($one[3]>90);

			if($one[0]==0 || $one[0]==7){
				$one="$vote_array[$one[0]]：$one[1]-$one[2]-$one[3]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			elsif($one[0]>=1 && $one[0]<5){
				$one="$vote_array[$one[0]]：$one[1]-$one[2]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			else{
				$one="$vote_array[$one[0]]：$one[1]<font size=\"1\">☆☆</font>$one[4]$yen";
			}


			print('<font color="',$newscolor,'">',$one,'</font><BR>');
		}
		print('<hr width="100%"><font color="',$newscolor,'">合計：',$total_money,$yen,'</font>') if(@vote_save>0);
		print('</TD>');

		print('<TD width=250 bgcolor="',$tdcolor,'" ',$tdground,'>');
		for($j=0;$j<@mymark_save;$j++){
			next if($mymark_save[$j] eq '');
			print('<font color="',$newscolor,'">',$mark[$j],'：',$horse_names{$mymark_save[$j]},'</font><BR>');
		}
		if(@mymark_save==0){
			print('　');
		}
		print('</TD></TR>');

		print('<TR><TD colspan=2 bgcolor="',$tdcolor,'"><font color="',$newscolor,'">',$comment,'</font></TD></TR>') if($comment ne '');
		print('</table>　<P>');
	}

	print('<form method="POST" action="',$script_url,'"><input type="hidden" name="command" value="this_vote"><input type="hidden" name="page" value="',$page-1,'"><input type="submit" value="←前ページ"></form>') if($page>0);

	print('<form method="POST" action="',$script_url,'"><input type="hidden" name="command" value="this_vote"><input type="hidden" name="page" value="',$page+1,'"><input type="submit" value="次ページ→"></form>') if(@true_ranks>$top_ranks+$top_max*$page);

print <<END_OF_TEXT;
<form method="POST" action="$script_url">
<table border=1>
<tr><th>メニュー</th></tr>
END_OF_TEXT

	print('<tr><td><input type="radio" checked name="command" value="">トップに戻る</td></tr>');

	print('<tr><td><input type="radio" name="command" value="ranking">ランキング</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_mark">今回の予想内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="result_list">前回の結果</td></tr>');


print <<END_OF_TEXT;
<tr><td align=center>
<input type="submit" value="送信">
</td></tr>
</table>
</form>
END_OF_TEXT
}
####################予想一覧html####################
sub mark_list{

	print("$markmessage<P>");

	my @horse_num=sort{ $a<=>$b }keys %horse_names;
	my $allhorse_num=@horse_num;#出走頭数
	my @true_num=&hat_color_num($allhorse_num);#枠番と枠色を取得

	if(@horse_num>0){
		print('<table border=1><tr align="center"><td colspan=2>枠番</td>');
		foreach(@horse_num){
			my $temp_num=$_-1;
			my $hat_color=$hat_color[$true_num[$temp_num]-1];

			print('<td bgcolor="',$hat_color,'"><font color="black">',$true_num[$temp_num],'</font></td>');
		}
		print('</tr><tr align="center"><td colspan=2>馬番</td>');
		for($i=0;$i<@horse_num;$i++){
			print('<td>',$horse_num[$i],'</td>');
		}
		print('</tr><tr align="center"><td colspan=2>名前</td>');

		my $change1='ー';
		my $change2='｜';
		for($i=0;$i<@horse_num;$i++){
			$horse_names{$horse_num[$i]}=~s/\Q$change1\E/$change2/go;
			if($torikesi_mark ne '' && $horse_names{$horse_num[$i]}=~/$torikesi_mark/){
				$horse_names{$horse_num[$i]}=~s/$torikesi_mark//go;
				$horse_names{$horse_num[$i]}='<s>'.$horse_names{$horse_num[$i]}.'</s>';
			}#出走取り消し馬には横線を引く
			print('<td width=5>',$horse_names{$horse_num[$i]},'</td>');
		}
		print('</tr>');

		my @true_ranks=sort{ $vote_times{$b}<=>$vote_times{$a} }keys %vote_times;
		my $top_ranks;
		$top_ranks=@true_ranks-$page*$top_max if($top_max>@true_ranks-$page*$top_max);
		$top_ranks=$top_max if($top_max<=@true_ranks-$page*$top_max);

		my $window_size="width=517,height=167,resizable";
		$window_size="\'".$window_size."\'";
		for($i=0;$i<$top_ranks;$i++){
			my $name=$vote_names{$true_ranks[$i+$page*$top_max]};
			my $num=$vote_nums{$true_ranks[$i+$page*$top_max]};
			my @mymark_save=split(/=/,$vote_marks{$true_ranks[$i+$page*$top_max]});

			print('<tr align="center"><td nowrap>');
			print("<a href=\"$script_url?$num\" target=\"horse\" onClick=\"window.open('','horse',$window_size)\">◆</a><td nowrap>$name</td>");

			for($j=0;$j<@horse_num;$j++){
				my $check;
				my $mark_rank;
					for($k=0;$k<@mymark_save;$k++){
					if($horse_num[$j] eq $mymark_save[$k]){
						$check=1;
						$mark_rank=$k;
						last;
					}
				}
				if($check==1){
					print('<td>',$mark[$mark_rank],'</td>');
				}
				else{
					print('<td>　</td>');
				}
			}
			print('</tr>');
		}
		print('</table><font color="',$linkcolor,'">◆</font>をクリックしますと、投票内容が表示されます　<P>');
		print('<form method="POST" action="',$script_url,'"><input type="hidden" name="command" value="this_mark"><input type="hidden" name="page" value="',$page-1,'"><input type="submit" value="←前ページ"></form>') if($page>0);

		print('<form method="POST" action="',$script_url,'"><input type="hidden" name="command" value="this_mark"><input type="hidden" name="page" value="',$page+1,'"><input type="submit" value="次ページ→"></form>') if(@true_ranks>$top_ranks+$top_max*$page);
	}
print <<END_OF_TEXT;
<form method="POST" action="$script_url">
<table border=1>
<tr><th>メニュー</th></tr>
END_OF_TEXT

	print('<tr><td><input type="radio" checked name="command" value="">トップに戻る</td></tr>');

	print('<tr><td><input type="radio" name="command" value="ranking">ランキング</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_vote">今回の投票内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="result_list">前回の結果</td></tr>');


print <<END_OF_TEXT;
<tr><td align=center>
<input type="submit" value="送信">
</td></tr>
</table>
</form>
END_OF_TEXT
}
####################システム説明html####################
sub info_list{

	if($pool==0){
		$pool='軍資金に加算されない';
	}
	elsif($pool==1){
		$pool='軍資金に加算される';
	}

	if($max_money==0){
		if($week_money>0){
			$max_money='現軍資金+レース毎に配布される軍資金';
		}
		else{
			$max_money='現軍資金';
		}
	}
	elsif($max_money>0){
		$max_money="$max_money $yen";
	}
print <<END_OF_TEXT;
<table border="1">
<tr><th colspan="2">システム説明</th></tr>
<tr><td>◆新規登録時に配布される軍資金</td><td>$regist_money $yen</td></tr>
<tr><td>◆レース毎に配布される軍資金</td><td>$week_money $yen</td></tr>
<tr><td>◆レース毎に配布される軍資金の残りは？</td><td>$pool</td></tr>
<tr><td>◆レースに賭ける事の出来る軍資金上限</td><td>$max_money</td></tr>
<tr><td>◆レースに賭ける事の出来る軍資金下限</td><td>$minimum_money $yen ($minimum_money $yen単位)</td></tr>
<tr><td colspan="2">
レース毎に配布される軍資金が０$yenの場合は、現軍資金内で投票する事になります。<BR>
また、レースに賭ける事の出来る軍資金上限が、○○○○$yenと決まっている場合は・・・<BR>
たとえ、軍資金がマイナスであっても、○○○○$yenまでなら投票する事が可能\です。<BR>
しかし、○○○○$yenと決まっていない場合は、軍資金がなくなった時点で、投票不可能\となります。<BR>
（そう言う場合は、管理人さんに頼み込んで軍資金を融通してもらうしかありません）<P>

レース毎に配布される軍資金の残りが、次回のレースに加算されない場合は・・・<BR>
レース毎に配布される軍資金を使い切った方が、お得です！<BR>
また、次回レースに加算される場合は・・・<BR>
自信のあるレースやＧ１等の重賞レースの為に、少しずつ貯金するのも良いでしょう！<BR>
（但し、レースに投票しないと、軍資金の配布を受ける事は出来ませんので、ご注意下さい）<BR>
</td></tr>
<tr><th colspan="2">補足説明</th></tr>
<tr><td colspan="2">
◆まずは、会員登録し、パスワードを入手して下さい。<BR>
◆レース表\が作成されていて、投票締め切り時刻を過ぎていない場合は、投票する事が出来ます。<BR>
◆投票は、締め切り時刻内なら、何度でもやり直す事が出来ます。<BR>
◆投票内容は、「今回の投票内容」のコーナーで、見る事が出来ます。<BR>
◆予\想内容は、「今回の予\想内容」のコーナーで、見る事が出来ます。<BR>
◆投票馬券が的中すると、払戻金をもらう事が出来ます。<BR>
◆除外等で、投票馬券が無効の際も、払戻金をもらう事が出来ます。<BR>
◆払戻金は、「前回の結果」のコーナーに表\示されます。<BR>
◆前回の結果に表\示される「収支」は、レース毎に配布される軍資金等も含めたトータル収支です。<BR>
◆軍資金の多寡は、「ランキング」のコーナーで見る事が出来ます。<BR>
◆すべての権限は、管理人さんにありますので、管理人さんの指示に従って下さい。<BR>
</td></tr>
</table>
　<P>

<form method="POST" action="$script_url">
<table border=1>
<tr><th>メニュー</th></tr>
END_OF_TEXT

	print('<tr><td><input type="radio" checked name="command" value="">トップに戻る</td></tr>');

	print('<tr><td><input type="radio" name="command" value="ranking">ランキング</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_vote">今回の投票内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="this_mark">今回の予想内容</td></tr>');

	print('<tr><td><input type="radio" name="command" value="result_list">前回の結果</td></tr>');


print <<END_OF_TEXT;
<tr><td align=center>
<input type="submit" value="送信">
</td></tr>
</table>
</form>
END_OF_TEXT
}
##################個別投票内容html##################
sub call_list{

	foreach(keys %vote_nums){
		if($call_num eq $vote_nums{$_}){
			$call_pass=$_;
			last;
		}
	}

	if($call_pass ne ''){
		my $name=$vote_names{$call_pass};
		my $date=$vote_dates{$call_pass};
		my $comment=$vote_comments{$call_pass};
		my @vote_save=split(/,/,$vote_saves{$call_pass});
		my @mymark_save=split(/=/,$vote_marks{$call_pass});

		print('<table border=2 cellpadding=0><TR><TD width=250 bgcolor="',$tdcolor,'" ',$tdground,'><font color="',$subcolor,'"><B>',$name,'　</B></font><font color="',$newscolor,'">',$date,'</font><BR>');

		for($j=0;$j<@vote_save;$j++){
			my $one;
			my @one=split(/::/,$vote_save[$j]);
			$one[1]='全' if($one[1]>90);
			$one[2]='全' if($one[2]>90);
			$one[3]='全' if($one[3]>90);

			if($one[0]==0 || $one[0]==7){
				$one="$vote_array[$one[0]]：$one[1]-$one[2]-$one[3]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			elsif($one[0]>=1 && $one[0]<5){
				$one="$vote_array[$one[0]]：$one[1]-$one[2]<font size=\"1\">☆☆</font>$one[4]$yen";
			}
			else{
				$one="$vote_array[$one[0]]：$one[1]<font size=\"1\">☆☆</font>$one[4]$yen";
			}

			print('<font color="',$newscolor,'">',$one,'</font><BR>');
		}
		print('<hr width="100%"><font color="',$newscolor,'">合計：',$total_money,$yen,'</font>') if(@vote_save>0);
		print('</TD>');

		print('<TD width=250 bgcolor="',$tdcolor,'" ',$tdground,'>');
		for($j=0;$j<@mymark_save;$j++){
			next if($mymark_save[$j] eq '');
			print('<font color="',$newscolor,'">',$mark[$j],'：',$horse_names{$mymark_save[$j]},'</font><BR>');
		}
		if(@mymark_save==0){
			print('　');
		}
		print('</TD></TR>');

		print('<TR><TD colspan=2 bgcolor="',$tdcolor,'"><font color="',$newscolor,'">',$comment,'</font></TD></TR>') if($comment ne '');
		print('</table>　<P>');
	}
	else{
		print('該当する投票データがありません');
	}
}
##################レース結果作成html##################
sub make_result{

print <<END_OF_TEXT;
　<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='change'>
<input type="hidden" name="repair_delete" value='make_result2'>
<input type="hidden" name="secret_pass" value="$secret_pass">
<input type="hidden" name="doutyaku" value="$doutyaku">
<table border="1">
<tr><th colspan="3">レース結果作成フォーム</th></tr>

<tr><td colspan="3" align="center">レース名・レース総評等</td></tr>
<tr><td colspan="3"><textarea name="race_comment" rows="3" cols="43">$race_comment</textarea></td></tr>
</table>
<table border="1">
<tr align="center"><td nowrap>馬番</td><td nowrap>馬名</td><td nowrap>着順</td></tr>

END_OF_TEXT

	my @horse_num=sort{ $a<=>$b }keys %horse_names;
	foreach(@horse_num){
		my $horse_name=$horse_names{$_};
		if($torikesi_mark ne '' && $horse_name=~/$torikesi_mark/){
			$horse_name=~s/$torikesi_mark//go;
		}#出走取り消し馬から除外文字を除く
		print('<tr><td align="center">',$_,'</td><td><input type="hidden" name="horse_name" value="',$horse_name,'">',$horse_name,'</td>');
		if($torikesi_mark ne '' && $horse_names{$_}=~/$torikesi_mark/){
			print '<td align="center"><input type="hidden" name="vote_kind" value="100">';
			print($torikesi_mark);
			print '</td></tr>';
		}
		else{
			if($doutyaku==0){
				print '<td><select name="vote_kind">';
				print '<option>';
				for($i=0;$i<@horse_num;$i++){
					my $num=$i+1;
					print ('<option>',$num);
				}
				print '</select></td></tr>';
			}
			else{
				print '<td><input type="text" size="5" name="vote_kind"></td></tr>';
			}
		}
	}
	print '</table>';

	print '<table border="1"><tr align="center"><td nowrap>種類</td><td nowrap>勝ち馬投票券</td><td nowrap>払戻額</td></tr>';

	my @baken_kind1;
	my @baken_kind2;
	my @baken_kind3;
	if($doutyaku==0){
		@baken_kind1=('３連複');
		@baken_kind2=('馬連','馬単','枠連','ワイド','ワイド','ワイド');
		@baken_kind3=('単勝','複勝','複勝','複勝');
		push(@baken_kind1,'３連単') if($rentan==1);
	}#通常時
	else{
		@baken_kind1=('３連複','３連複','３連複');
		@baken_kind2=('馬連','馬連','馬連','馬単','馬単','馬単','枠連','枠連','枠連','ワイド','ワイド','ワイド','ワイド','ワイド','ワイド');
		@baken_kind3=('単勝','単勝','単勝','複勝','複勝','複勝','複勝','複勝','複勝');
		push(@baken_kind1,'３連単','３連単','３連単') if($rentan==1);
	}#同着時

	foreach(@baken_kind1){
		print ('<tr align="center"><td>',$_,'</td>');
		print '<td><select name="vote_num1">';
		print '<option>';
		for($i=0;$i<@horse_num;$i++){
			my $num=$i+1;
			print ('<option>',$num);
		}
		print '</select>';
		print '-<select name="vote_num2">';
		print '<option>';
		for($i=0;$i<@horse_num;$i++){
			my $num=$i+1;
			print ('<option>',$num);
		}
		print '</select>';
		print '-<select name="vote_num3">';
		print '<option>';
		for($i=0;$i<@horse_num;$i++){
			my $num=$i+1;
			print ('<option>',$num);
		}
		print '</select></td>';
		print '<td><input type="text" size="6" name="vote_money"></td></tr>';
	}
	foreach(@baken_kind2){
		print ('<tr align="center"><td>',$_,'</td>');
		print '<td><select name="vote_num1">';
		print '<option>';
		for($i=0;$i<@horse_num;$i++){
			my $num=$i+1;
			print ('<option>',$num);
		}
		print '</select>';
		print '-<select name="vote_num2">';
		print '<option>';
		for($i=0;$i<@horse_num;$i++){
			my $num=$i+1;
			print ('<option>',$num);
		}
		print '</select></td>';
		print '<td><input type="text" size="6" name="vote_money"></td></tr>';
	}
	foreach(@baken_kind3){
		print ('<tr><td align="center">',$_,'</td>');
		print '<td><select name="vote_num1">';
		print '<option>';
		for($i=0;$i<@horse_num;$i++){
			my $num=$i+1;
			print ('<option>',$num);
		}
		print '</select></td>';
		print '<td><input type="text" size="6" name="vote_money"></td></tr>';
	}

print <<END_OF_TEXT;
<tr align="center"><td colspan="3"><input type="submit" value="送信"></td></tr>
</table>
</form>
注：間違った結果を送信してしまった場合は・・・<BR>
管理人コマンドの『バックアップデータロード』を使って<BR>
すぐに元のデータに戻し、やり直して下さい。<BR>
　<p>
END_OF_TEXT
}
####################管理人専用html####################
sub target_list{

	my @horse_num=sort{ $a<=>$b }keys %horse_names;
	my $torikesi_comment="出走取消しの場合は、馬名の横に「$torikesi_mark」と記入して下さい。" if($torikesi_mark ne '');
print <<END_OF_TEXT;
<h1>管理人専用コマンド</h1>
$torikesi_comment
　<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=3>予\想レース作成フォーム</th></tr>

<tr><td colspan=3 align="center">レース名・レース総評等</td></tr>
<tr><td colspan=3><textarea name="race_comment" rows="3" cols="43">$race_comment</textarea></td></tr>

<tr><td colspan=3 align="center">発走日時（締切時刻）</td></tr>
<tr><td colspan=3 align="center">
END_OF_TEXT

	if($timelocal_use==0){
		$deadline_time=$now_time if($deadline_time eq '');
		my ($sec,$minute,$hour,$day,$month,$year) = localtime($deadline_time);
		my ($sec2,$minute2,$hour2,$day2,$month2,$year2) = localtime($now_time);
		$year2+=1900;
		$month+=1;

		print ('<select name="p_year"><option>');
		if($year ne ''){
			if($year==$year2-1900){
				print ('<option selected>',$year2);
			}
			else{
				print ('<option>',$year2);
			}
			if($year==$year2+1-1900){
				print ('<option selected>',$year2+1);
			}
			else{
				print ('<option>',$year2+1);
			}
		}
		else{
			print ('<option>',$year2);
			print ('<option>',$year2+1);
		}

		print ('</select>年');

		print ('<select name="p_month"><option>');
		for($i=0;$i<12;$i++){
			print ('<option selected>',$i+1) if($month==$i+1);
			print ('<option>',$i+1) if($month!=$i+1);
		}
		print ('</select>月');

		print ('<select name="p_day"><option>');
		for($i=0;$i<31;$i++){
			print ('<option selected>',$i+1) if($day==$i+1);
			print ('<option>',$i+1) if($day!=$i+1);
		}
		print ('</select>日<BR>');

		print ('<select name="p_hour"><option>');
		for($i=0;$i<24;$i++){
			print ('<option selected>',$i) if($hour==$i);
			print ('<option>',$i) if($hour!=$i);
		}
		print ('</select>時');

		print ('<select name="p_minute"><option>');
		for($i=0;$i<60;$i++){
			print ('<option selected>',$i) if($minute==$i);
			print ('<option>',$i) if($minute!=$i);
		}
		print ('</select>分');
	}
	else{
		$deadline_time=$now_time if($deadline_time eq '');
		my ($sec,$minute,$hour,$day,$month,$year) = localtime($deadline_time);
		$month+=1;
		$minute=int($minute/5)*5;

		print ('現在時刻（',$month,'月',$day,'日',$hour,'時',$minute,'分）に<BR>');
		print ('プラスマイナスして発走日時を決めて下さい<BR>');

		print ('<select name="p_day"><option>現在のまま');
		print ('<option value="1">１日後');
		print ('<option value="2">２日後');
		print ('<option value="3">３日後');
		print ('<option value="4">４日後');
		print ('<option value="5">５日後');
		print ('<option value="6">６日後');
		print ('<option value="7">１週間後');
		print ('<option value="-1">１日前');
		print ('<option value="-2">２日前');
		print ('</select><BR>');

		print ('<select name="p_hour"><option>現在のまま');
		print ('<option value="1">１時間後');
		print ('<option value="2">２時間後');
		print ('<option value="3">３時間後');
		print ('<option value="4">４時間後');
		print ('<option value="5">５時間後');
		print ('<option value="6">６時間後');
		print ('<option value="7">７時間後');
		print ('<option value="8">８時間後');
		print ('<option value="9">９時間後');
		print ('<option value="10">10時間後');
		print ('<option value="11">11時間後');
		print ('<option value="12">12時間後');
		print ('<option value="-1">１時間前');
		print ('<option value="-2">２時間前');
		print ('<option value="-3">３時間前');
		print ('<option value="-4">４時間前');
		print ('<option value="-5">５時間前');
		print ('<option value="-6">６時間前');
		print ('<option value="-7">７時間前');
		print ('<option value="-8">８時間前');
		print ('<option value="-9">９時間前');
		print ('<option value="-10">10時間前');
		print ('<option value="-11">11時間前');
		print ('<option value="-12">12時間前');
		print ('</select>');

		print ('<select name="p_minute"><option>現在のまま');
		print ('<option value="1">１分後');
		print ('<option value="5">５分後');
		print ('<option value="10">10分後');
		print ('<option value="15">15分後');
		print ('<option value="20">20分後');
		print ('<option value="25">25分後');
		print ('<option value="30">30分後');
		print ('<option value="35">35分後');
		print ('<option value="40">40分後');
		print ('<option value="45">45分後');
		print ('<option value="50">50分後');
		print ('<option value="55">55分後');
		print ('<option value="-1">１分前');
		print ('<option value="-5">５分前');
		print ('<option value="-10">10分前');
		print ('<option value="-15">15分前');
		print ('<option value="-20">20分前');
		print ('<option value="-25">25分前');
		print ('<option value="-30">30分前');
		print ('<option value="-35">35分前');
		print ('<option value="-40">40分前');
		print ('<option value="-45">45分前');
		print ('<option value="-50">50分前');
		print ('<option value="-55">55分前');
		print ('</select>');
	}
print <<END_OF_TEXT;
</td></tr>

<tr align="center"><td nowrap>馬番</td><td nowrap>馬名</td><td nowrap>$subcomment</td></tr>

END_OF_TEXT

	for($i=1;$i<$max_horse+1;$i++){
		print('<tr align="center"><td nowrap>',$i,'</td><td nowrap><input type="text" size=20 name="horse_name" value="',$horse_names{$i},'"></td><td nowrap><input type="text" size="20" name="horse_comment" value="',$horse_comments{$i},'"></td></tr>') ;
	}

print <<END_OF_TEXT;
</table>
<table>
<tr><td>
<input type="radio" checked name='repair_delete' value='make_race'>予\想レース作成
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='make_result'>レース結果記入
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='make_result_doutyaku'>レース結果記入（同着時専用）
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='backup'>バックアップデータロード
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='member_list'>会員名簿一覧（修正・退会）
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='member_regist'>会員登録
</td></tr>
<tr><td>
<input type="radio" name='repair_delete' value='ranking_reset'>軍資金額リセット
</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='style'>スタイルシートを利用する
</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>
</table>
<input type="submit" value="送信">

</form>
　<p>
END_OF_TEXT
}
###################会員名簿一覧html###################
sub member_list{

print <<END_OF_TEXT;
　<p>
修正or退会させるデータを指定し、修正or退会ボタンを選択してから・・・<BR>
送信ボタンを押して下さい<BR>
（退会の場合は、一度に複数のデータを指定可能\です）<BR>

<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 nowrap>指定</td><td nowrap>名前</td><td nowrap>メールアドレス</td><td nowrap>パスワード</td><td nowrap>登録日</td></tr>

END_OF_TEXT

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

	for($i=0;$i<@true_ranks;$i++){
		my $name=$member_names{$true_ranks[$i]};
		my $email=$member_mails{$true_ranks[$i]};
		my $pass=$member_passs{$true_ranks[$i]};
		my $date=$member_times{$true_ranks[$i]};

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

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

print <<END_OF_TEXT;
<tr><td align="center" colspan=5><input type="radio" checked name="repair_delete" value="member_repair">修正<input type="radio" name="repair_delete" value="member_delete">退会</td></tr>
<tr><td align="center" colspan=5><input type="submit" value="送信"></td></tr>
</table>
</form>
　<p>
END_OF_TEXT
}
###################会員データ修正html###################
sub repair_list{

print <<END_OF_TEXT;
　<p>
データを書き換えて、送信ボタンを押して下さい<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='change'>
<input type="hidden" name="repair_delete" value="member_repair2">
<input type="hidden" name="pass" value="$member_passs{$target[0]}">
<input type="hidden" name="secret_pass" value="$secret_pass">

<table border=1>
<tr><th colspan=2>データ修正フォーム</th></tr>
<tr><td>◆名前</td><td><input type="text" size="20" name="name" value="$member_names{$target[0]}"></td></tr>
<tr><td>◆メールアドレス</td><td><input type="text" size="20" name="email" value="$member_mails{$target[0]}"></td></tr>
<tr><td>◆パスワード</td><td><input type="text" size="20" name="repair_pass" value="$member_passs{$target[0]}"></td></tr>
<tr><td>◆軍資金額</td><td><input type="text" size="20" name="my_money" value="$member_moneys{$target[0]}"></td></tr>
<tr><td align="center" colspan="2"><input type="submit" value="送信"></td></tr>
</table>
</form>
　<p>
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='member_regist2'>

<table border=1>
<tr><th colspan=2>会員登録フォーム</th></tr>
<tr><td>◆名前</td><td><input type="text" size=20 name="name" value="$name"></td></tr>
<tr><td>◆メールアドレス</td><td><input type="text" size=20 name="email" value="$email"></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) = get_cookie();
	($c_cook,$c_name)=split(/:/,$cookie_name);
	($c_cook,$c_pass)=split(/:/,$cookie_pass);
print <<END_OF_TEXT;
　<p>
$error_code<p>
　<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='member_delete2'>

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

	if($userregist==0){
print <<END_OF_TEXT;
　<p>
<table border=1>
<tr><th colspan=2>会員登録ありがとうございます</th></tr>
<tr><td>◆名前</td><td>$name</td></tr>
<tr><td>◆メールアドレス</td><td>$email</td></tr>
<tr><td>◆パスワード</td><td>$new_password</td></tr>
</table>
　<p>
上記事項は、重要ですので忘れないようにして下さい。<p>
<form method="POST" action="$script_url">
<input type="hidden" name="name" value="$name">
<input type="hidden" name="pass" value="$new_password">
<input type="submit" value="クッキーに記憶する">
</form>
END_OF_TEXT
	}
	elsif($userregist==1){
print <<END_OF_TEXT;
　<p>
<table border=1>
<tr><th colspan=2>会員登録しました!!</th></tr>
<tr><td>◆名前</td><td>$name</td></tr>
<tr><td>◆メールアドレス</td><td>$email</td></tr>
<tr><td>◆パスワード</td><td>$new_password</td></tr>
</table>
　<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='member_regist2'>

<table border=1>
<tr><th colspan=2>会員登録フォーム</th></tr>
<tr><td>◆名前</td><td><input type="text" size=20 name="name"></td></tr>
<tr><td>◆メールアドレス</td><td><input type="text" size=20 name="email"></td></tr>
<tr><td align="center" colspan=2><input type="submit" value="送信"></td></tr>
</table>
</form>
　<p>
END_OF_TEXT
	}
}
###############新規登録成功html（メール版）###############
sub regist_success_list2{
	if($userregist==0){
print <<END_OF_TEXT;
　<p>
<table border=1>
<tr><th colspan=2>会員登録ありがとうございます</th></tr>
<tr><td>◆名前</td><td>$name</td></tr>
<tr><td>◆メールアドレス</td><td>$email</td></tr>
</table>
　<p>
パスワードは、上記メールアドレス宛に送付させてもらいましたので・・・<BR>
メールボックスを確認してみて下さいませ。<BR>
（サーバの調子によっては、数時間要する事もありますので、ご注意下さい）<BR>
（また、メールの件名は『$default_subject』となっています）<P>

END_OF_TEXT
	}
	elsif($userregist==1){
print <<END_OF_TEXT;
　<p>
<table border=1>
<tr><th colspan=2>会員登録しました!!</th></tr>
<tr><td>◆名前</td><td>$name</td></tr>
<tr><td>◆メールアドレス</td><td>$email</td></tr>
</table>
　<p>
パスワードは、上記メールアドレス宛に送付しました!!<P>
　<p>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value='member_regist2'>

<table border=1>
<tr><th colspan=2>会員登録フォーム</th></tr>
<tr><td>◆名前</td><td><input type="text" size=20 name="name"></td></tr>
<tr><td>◆メールアドレス</td><td><input type="text" size=20 name="email"></td></tr>
<tr><td align="center" colspan=2><input type="submit" value="送信"></td></tr>
</table>
</form>
　<p>
END_OF_TEXT
	}
}
###############新規登録失敗html###############
sub regist_success_list3{
print <<END_OF_TEXT;
　<p>
$error_code<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><td>◆登録名</td><td>$name</td></tr>
<tr><td>◆パスワード</td><td>$pass</td></tr>
</table>
　<p>
END_OF_TEXT
}
####################投票OPEN####################
sub vote_open{
	unless(-f $vote_file){ open(DATA,">$vote_file");close(DATA); }
	if(open(DATA,"$vote_file")){
	        my @line = <DATA>;
	        close(DATA);
		for($i=0;$i<@line;$i++){
			chomp($line[$i]);
			my ($pass,$name,$comment,$last_time,$date_total_money,$mymark,@vote_save) = split(/,/,$line[$i]);
			my ($date,$total_money) = split(/==/,$date_total_money);

			my $vote_save=join(',',@vote_save);
			$vote_names{$pass}=$name;
			$vote_comments{$pass}=$comment;
			$vote_times{$pass}=$last_time;
			$vote_dates{$pass}=$date;
			$vote_saves{$pass}=$vote_save;
			$vote_marks{$pass}=$mymark;
			$vote_total_moneys{$pass}=$total_money;
			$vote_nums{$pass}=$i;
		}
	}
	else{
		$error_code='データファイルへのアクセスに失敗しました!!';
	}
}
####################投票SAVE####################
sub vote_save{
	my $vote_save=join(',',@save);#投票内容
	my $mymark_save=join('=',@mymark);#予想内容

	my ($sec,$min,$hour,$day,$month,$year,$wday) = 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"; }

	my $date;
	if($date_way==0){
		$date = "";
	}
	elsif($date_way==1){
		$date = "（$month月$day日 $hour時$min分）";
	}
	elsif($date_way==2){
		$date = "（$month月$day日）";
	}
	elsif($date_way==3){
		$date = "$month月$day日$wday[$wday]$hour時$min分";
	}
	elsif($date_way==4){
		$date = "$month月$day日$wday[$wday]";
	}
	elsif($date_way==5){
		$date = "$month/$day$wday2[$wday]$hour:$min";
	}
	elsif($date_way==6){
		$date = "$month/$day$wday2[$wday]";
	}

	my $date_total_money=$date.'=='.$total_money;

	$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;

	if($tag==0 && $inlinelink==1){
		$comment=~s/(http:\/\/[!#-9A-~]+)/<a href=\"$1\" target=\"$href_target\">$1<\/a>/g;
		$comment=~s/([0-9a-z_\.\-]+\@([0-9a-z_\-]+\.)+[0-9a-z_\-]+)/<a href=\"mailto:$1\" target=\"$href_target\">$1<\/a>/ig;
	}
	elsif($tag==0 && $inlinelink==2){
		$comment=~s/(http:\/\/[!#-9A-~]+)/<a href=\"$1\" target=\"$href_target\">$inline_word<\/a>/g;
		$comment=~s/([0-9a-z_\.\-]+\@([0-9a-z_\-]+\.)+[0-9a-z_\-]+)/<a href=\"mailto:$1\" target=\"$href_target\">$inline_word<\/a>/ig;
	}
	elsif($tag==0 && $inlinelink==3){
		$comment=~s/(http:\/\/[!#-9A-~]+)/<a href=\"$1\" target=\"$href_target\">$inline_image<\/a>/g;
		$comment=~s/([0-9a-z_\.\-]+\@([0-9a-z_\-]+\.)+[0-9a-z_\-]+)/<a href=\"mailto:$1\" target=\"$href_target\">$inline_image<\/a>/ig;
	}

	unless(-f $vote_file){ open(DATA,">$vote_file");close(DATA); }
	if(open(DATA,"$vote_file")){
	        my @line = <DATA>;
	        close(DATA);
		my $check;
		for($i=0;$i<@line;$i++){
			if($line[$i]=~/^$pass,/){
				$line[$i]="$pass,$name,$comment,$now_time,$date_total_money,$mymark_save,$vote_save\n";
				$check=1;
				last;
			}
		}
		if($check==0){
			push(@line,"$pass,$name,$comment,$now_time,$date_total_money,$mymark_save,$vote_save\n");
		}
		if(open(DATA, ">$vote_file")){
			for($i=0;$i<@line;$i++){
				print DATA "$line[$i]"; 
			}
			close(DATA);
		}
	}
}
####################データ収集####################
sub data_open{

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

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

			if($i==0){
				$deadline_time=$line[$i];
			}
			elsif($i==1){
				$race_comment=$line[$i];
			}
			else{
				my ($horse_num,$horse_name,$horse_comment) = split(/,/,$line[$i]);
				$horse_names{$horse_num}=$horse_name;
				$horse_comments{$horse_num}=$horse_comment;
			}
		}
	}
	else{
		$error_code='データファイルへのアクセスに失敗しました!!';
	}
}

####################データセーブ####################
sub data_save{

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

	if($timelocal_use==1){
		if(open(DATA,"$data_file")){
			my @line = <DATA>;
			close(DATA);

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

				if($i==0){
					$deadline_time=$line[$i];
					last;
				}
			}
		}
		$deadline_time=$now_time if($deadline_time eq '');
		$deadline_time=int($deadline_time/(60*5))*(60*5);
		$permit_time=$deadline_time+60*60*24*$p_day+60*60*$p_hour+60*$p_minute;
	}#発走時刻の計算（@niftyの場合）


	if(open(DATA,">$data_file")){
		print DATA "$permit_time\n";
		print DATA "$race_comment\n";
		for($i=0;$i<$max_horse;$i++){
			next if($horse_name[$i] eq '');
			my $num=$i+1;
			print DATA "$num,$horse_name[$i],$horse_comment[$i]\n";
		}
		close(DATA);
	}
	else{
		$error_code='データファイルへのアクセスに失敗しました!!';
	}
}
####################結果データ収集####################
sub result_open{

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

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

			if($i==0){
				$race_comment=$line[$i];
			}
			elsif($i==1){
				$allhorse_num=$line[$i];
			}
			elsif($i==2){
				my @before_race=split(/,/,$line[$i]);
				foreach(@before_race){
					my ($horse_num,$horse_name)=split(/=/,$_);
					$befor_names{$horse_num}=$horse_name;
				}
			}
			elsif($i==3){
				@result_vote=split(/,/,$line[$i]);
			}
			elsif($i==4){
				my @result_rank=split(/,/,$line[$i]);
				foreach(@result_rank){
					my ($horse_num,$horse_result,$horse_name)=split(/=/,$_);
					$horse_names{$horse_num}=$horse_name;
					$horse_results{$horse_num}=$horse_result;
				}
			}
			else{
				my ($pass,$name,$comment,$addmoney_soneki,$mymark,@vote_save) = split(/,/,$line[$i]);
				my ($addmoney,$soneki) = split(/==/,$addmoney_soneki);

				my $vote_save=join(',',@vote_save);
				$vote_names{$pass}=$name;
				$vote_comments{$pass}=$comment;
				$vote_addmoneys{$pass}=$addmoney;
				$vote_saves{$pass}=$vote_save;
				$vote_marks{$pass}=$mymark;
				$vote_sonekis{$pass}=$soneki;
			}
		}
	}
	else{
		$error_code='データファイルへのアクセスに失敗しました!!';
	}
}
####################結果データセーブ####################
sub result_save{

	$race_comment =~ s/\r\n/<BR>/g;
	$race_comment =~ s/\r/<BR>/g;
	$race_comment =~ s/\n/<BR>/g;
	$race_comment =~ s/\t/　/g;
	$race_comment =~ s/<BR><BR>/<BR>　<BR>/g;
	my $allhorse_num=@horse_name;#参加頭数

	my $rentan_plus;#勝ち馬投票券に３連単を加える場合の変数
	for($i=0;$i<@vote_num1;$i++){
		next if($vote_num1[$i] eq '');
		$vote_money[$i]=~s/$yen//go;
		$vote_money[$i]=~s/０/0/go;
		$vote_money[$i]=~s/１/1/go;
		$vote_money[$i]=~s/２/2/go;
		$vote_money[$i]=~s/３/3/go;
		$vote_money[$i]=~s/４/4/go;
		$vote_money[$i]=~s/５/5/go;
		$vote_money[$i]=~s/６/6/go;
		$vote_money[$i]=~s/７/7/go;
		$vote_money[$i]=~s/８/8/go;
		$vote_money[$i]=~s/９/9/go;
		if($doutyaku==0){
			$rentan_plus=1 if($rentan==1);
			if($i==0){
				push(@win,"0::$vote_num1[$i]::$vote_num2[$i]::$vote_num3[$i]::$vote_money[$i]");
			}#3連複
			elsif($i==1 && $rentan==1){
				push(@win,"7::$vote_num1[$i]::$vote_num2[$i]::$vote_num3[$i]::$vote_money[$i]");
			}#3連単
			elsif($i==1+$rentan_plus){
				push(@win,"1::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#馬連
			elsif($i==2+$rentan_plus){
				push(@win,"2::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#馬単
			elsif($i==3+$rentan_plus){
				push(@win,"3::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#枠連
			elsif($i>=4+$rentan_plus && $i<=6+$rentan_plus){
				push(@win,"4::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#ワイド
			elsif($i==7+$rentan_plus){
				push(@win,"5::$vote_num1[$i]::0::0::$vote_money[$i]");
			}#単勝
			elsif($i>=8+$rentan_plus && $i<=10+$rentan_plus){
				push(@win,"6::$vote_num1[$i]::0::0::$vote_money[$i]");
			}#複勝
		}#通常時
		else{
			$rentan_plus=3 if($rentan==1);
			if($i>=0 && $i<3){
				push(@win,"0::$vote_num1[$i]::$vote_num2[$i]::$vote_num3[$i]::$vote_money[$i]");
			}#3連複
			elsif($i>=3 && $i<6 && $rentan==1){
				push(@win,"7::$vote_num1[$i]::$vote_num2[$i]::$vote_num3[$i]::$vote_money[$i]");
			}#3連単
			elsif($i>=3+$rentan_plus && $i<6+$rentan_plus){
				push(@win,"1::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#馬連
			elsif($i>=6+$rentan_plus && $i<9+$rentan_plus){
				push(@win,"2::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#馬単
			elsif($i>=9+$rentan_plus && $i<12+$rentan_plus){
				push(@win,"3::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#枠連
			elsif($i>=12+$rentan_plus && $i<18+$rentan_plus){
				push(@win,"4::$vote_num1[$i]::$vote_num2[$i]::0::$vote_money[$i]");
			}#ワイド
			elsif($i>=18+$rentan_plus && $i<21+$rentan_plus){
				push(@win,"5::$vote_num1[$i]::0::0::$vote_money[$i]");
			}#単勝
			elsif($i>=21+$rentan_plus && $i<27+$rentan_plus){
				push(@win,"6::$vote_num1[$i]::0::0::$vote_money[$i]");
			}#複勝
		}#同着時
	}

	for($i=0;$i<@vote_kind;$i++){
		if($doutyaku==1){
			$vote_kind[$i]=~s/０/0/go;
			$vote_kind[$i]=~s/１/1/go;
			$vote_kind[$i]=~s/２/2/go;
			$vote_kind[$i]=~s/３/3/go;
			$vote_kind[$i]=~s/４/4/go;
			$vote_kind[$i]=~s/５/5/go;
			$vote_kind[$i]=~s/６/6/go;
			$vote_kind[$i]=~s/７/7/go;
			$vote_kind[$i]=~s/８/8/go;
			$vote_kind[$i]=~s/９/9/go;
		}
		if($vote_kind[$i]==100){
			my $num=$i+1;
			push(@modosi_num,$num);
		}
	}#除外馬の番号
	if(@modosi_num>0){
		my @true_num=&hat_color_num($allhorse_num);
		foreach(@true_num){
			$double_nums{$_}++;
		}

		foreach(@modosi_num){
			$double_nums{$_}--;
		}

		foreach(@modosi_num){

			if($double_nums{$_}==0){
				push(@modosi_baken,"3::${_}::0::0::100");
			}
			elsif($double_nums{$_}==1){
				push(@modosi_baken,"3::${_}::${_}::0::100");
			}

			push(@modosi_baken,"0::${_}::0::0::100");
			push(@modosi_baken,"1::${_}::0::0::100");
			push(@modosi_baken,"2::${_}::0::0::100");
			push(@modosi_baken,"4::${_}::0::0::100");
			push(@modosi_baken,"5::${_}::0::0::100");
			push(@modosi_baken,"6::${_}::0::0::100");
			push(@modosi_baken,"7::${_}::0::0::100");
		}
	}#除外馬のある場合の処理

	&vote_open;
	my @keys=keys %vote_saves;
	foreach(@keys){
		my @check_vote=split(/,/,$vote_saves{$_});
		for($i=0;$i<@check_vote;$i++){
			my @vote=split(/::/,$check_vote[$i]);
			for($j=0;$j<@win;$j++){
				my @win_vote=split(/::/,$win[$j]);
				if($vote[0] eq $win_vote[0]){
					if($vote[0] eq '0'){
						if($vote[1] > 90 && $vote[2] > 90 && $vote[3] > 90){
							$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
							last;
						}
						elsif($vote[2] > 90 && $vote[3] > 90){
							if($vote[1] eq $win_vote[1] || $vote[1] eq $win_vote[2] || $vote[1] eq $win_vote[3]){
								$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
								last;
							}
						}
						elsif($vote[3] > 90){
							if($vote[1] eq $win_vote[1] && $vote[2] eq $win_vote[2]){
								$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
								last;
							}
							elsif($vote[1] eq $win_vote[1] && $vote[2] eq $win_vote[3]){
								$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
								last;
							}
							elsif($vote[1] eq $win_vote[2] && $vote[2] eq $win_vote[3]){
								$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
								last;
							}
						}
					}#３連複で全流しがある場合専用
					elsif($vote[0] eq '1' || $vote[0] eq '3' || $vote[0] eq '4'){
						if($vote[1] > 90 && $vote[2] > 90){
							$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
							last;
						}
						elsif($vote[2] > 90){
							if($vote[1] eq $win_vote[1] || $vote[1] eq $win_vote[2]){
								$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
								last;
							}
						}
					}#馬番・枠連・ワイドで全流しがある場合専用
					if($vote[1] eq $win_vote[1] && $vote[2] eq $win_vote[2] && $vote[3] eq $win_vote[3]){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}#通常
					elsif($vote[1] > 90 && $vote[2] eq $win_vote[2] && $vote[3] eq $win_vote[3]){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}#全流しがある場合↓
					elsif($vote[1] eq $win_vote[1] && $vote[2] > 90 && $vote[3] eq $win_vote[3]){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}
					elsif($vote[1] eq $win_vote[1] && $vote[2] eq $win_vote[2] && $vote[3] > 90){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}
					elsif($vote[1] > 90 && $vote[2] > 90 && $vote[3] eq $win_vote[3]){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}
					elsif($vote[1] > 90 && $vote[2] eq $win_vote[2] && $vote[3] > 90){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}
					elsif($vote[1] eq $win_vote[1] && $vote[2] > 90 && $vote[3] > 90){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}
					elsif($vote[1] > 90 && $vote[2] > 90 && $vote[3] > 90){
						$add_moneys{$_}+=$vote[4]*$win_vote[4]/100;
						last;
					}
				}
			}
		}
	}

	#３連複、返還計算：(($allhorse_num-2)+1)*(($allhorse_num-2)/2)
	#３連単、返還計算：(($allhorse_num-2)+1)*(($allhorse_num-2)/2)*2

	my $allwaku_num;#総枠数
	if(@modosi_baken>0){
		foreach(@keys){
			my @check_vote=split(/,/,$vote_saves{$_});
			for($i=0;$i<@check_vote;$i++){
				my @vote=split(/::/,$check_vote[$i]);
				for($j=0;$j<@modosi_baken;$j++){
					my @modosi_vote=split(/::/,$modosi_baken[$j]);

					if($vote[0] eq '3' && $modosi_vote[0] eq '3'){
						if($modosi_vote[2] ne ''){
							if($vote[1] eq $modosi_vote[1] && $vote[2] eq $modosi_vote[2]){
								$add_moneys{$_}+=$vote[4];
								last;
							}
							elsif($vote[1]>90 && $vote[2]>90){
								$add_moneys{$_}+=$vote[4];
								last;
							}
							elsif($vote[1]>90 && $vote[2] eq $modosi_vote[2]){
								$add_moneys{$_}+=$vote[4];
								last;
							}
							elsif($vote[1] eq $modosi_vote[1] && $vote[2]>90){
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#3-3等のゾロ目のみ払い戻し
						else{
							if($vote[1]>90 && $vote[2]>90){
								$allwaku_num=$allhorse_num if($allhorse_num<=8);
								$allwaku_num=8 if($allhorse_num>8);
								if($double_nums{$modosi_vote[1]}==0){
									$allwaku_num--;
								}
								$add_moneys{$_}+=$vote[4]*$allwaku_num;
								last;
							}
							elsif($vote[1] eq $modosi_vote[1] && $vote[2]>90){
								$allwaku_num=$allhorse_num if($allhorse_num<=8);
								$allwaku_num=8 if($allhorse_num>8);
								if($double_nums{$modosi_vote[1]}==0){
									$allwaku_num--;
								}
								$add_moneys{$_}+=$vote[4]*$allwaku_num;
								last;
							}
							elsif($vote[1]>90 || $vote[2]>90){
								$add_moneys{$_}+=$vote[4];
								last;
							}
							elsif($vote[1] eq $modosi_vote[1] || $vote[2] eq $modosi_vote[1]){
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}
					}
					elsif($vote[0] eq '0' || $vote[0] eq '7'){
						if($vote[0] eq '0' && $modosi_vote[0] eq '0'){

						}
						elsif($vote[0] eq '7' && $modosi_vote[0] eq '7'){

						}
						else{
							next;
						}

						if($vote[1]<90 && $vote[2]<90 && $vote[3]<90){
							if($vote[1] eq $modosi_vote[1] || $vote[2] eq $modosi_vote[1] || $vote[3] eq $modosi_vote[1]){

								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しがない場合↓
						elsif($vote[1]>90 && $vote[2]<90 && $vote[3]<90){
							if($vote[2] eq $modosi_vote[1] || $vote[3] eq $modosi_vote[1]){
								$add_moneys{$_}+=$vote[4]*($allhorse_num-2);
								last;
							}
							else{
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しが１つの場合↓
						elsif($vote[1]<90 && $vote[2]>90 && $vote[3]<90){
							if($vote[1] eq $modosi_vote[1] || $vote[3] eq $modosi_vote[1]){
								$add_moneys{$_}+=$vote[4]*($allhorse_num-2);
								last;
							}
							else{
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しが１つの場合↓
						elsif($vote[1]<90 && $vote[2]<90 && $vote[3]>90){
							if($vote[1] eq $modosi_vote[1] || $vote[2] eq $modosi_vote[1]){
								$add_moneys{$_}+=$vote[4]*($allhorse_num-2);
								last;
							}
							else{
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しが１つの場合↓
						elsif($vote[1]>90 && $vote[2]>90 && $vote[3]<90){
							if($vote[3] eq $modosi_vote[1]){
								if($vote[0] eq '0'){
									$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2);
								}
								elsif($vote[0] eq '7'){
									$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2)*2;
								}
								last;
							}
							else{
								if($vote[0] eq '0'){
									$add_moneys{$_}+=$vote[4]*($allhorse_num-2);
								}
								elsif($vote[0] eq '7'){
									$add_moneys{$_}+=$vote[4]*($allhorse_num-2)*2;
								}
								last;
							}
						}#全流しが２つの場合
						elsif($vote[1]>90 && $vote[2]<90 && $vote[3]>90){
							if($vote[2] eq $modosi_vote[1]){
								if($vote[0] eq '0'){
									$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2);
								}
								elsif($vote[0] eq '7'){
									$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2)*2;
								}
								last;
							}
							else{
								if($vote[0] eq '0'){
									$add_moneys{$_}+=$vote[4]*($allhorse_num-2);
								}
								elsif($vote[0] eq '7'){
									$add_moneys{$_}+=$vote[4]*($allhorse_num-2)*2;
								}
								last;
							}
						}#全流しが２つの場合
						elsif($vote[1]<90 && $vote[2]>90 && $vote[3]>90){
							if($vote[1] eq $modosi_vote[1]){
								if($vote[0] eq '0'){
									$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2);
								}
								elsif($vote[0] eq '7'){
									$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2)*2;
								}
								last;
							}
							else{
								if($vote[0] eq '0'){
									$add_moneys{$_}+=$vote[4]*($allhorse_num-2);
								}
								elsif($vote[0] eq '7'){
									$add_moneys{$_}+=$vote[4]*($allhorse_num-2)*2;
								}
								last;
							}
						}#全流しが２つの場合
						elsif($vote[1]>90 && $vote[2]>90 && $vote[3]>90){
							if($vote[0] eq '0'){
								$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2);
							}
							elsif($vote[0] eq '7'){
								$add_moneys{$_}+=$vote[4]*(($allhorse_num-2)+1)*(($allhorse_num-2)/2)*2;
							}
							last;
						}#全流しが３つの場合
					}#３連複＆３連単
					elsif($vote[0] eq $modosi_vote[0]){
						if($vote[1]<90 && $vote[2]<90){
							if($vote[1] eq $modosi_vote[1] || $vote[2] eq $modosi_vote[1]){

								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しがない場合↓
						elsif($vote[1]>90 && $vote[2]<90){
							if($vote[2] eq $modosi_vote[1]){
								$add_moneys{$_}+=$vote[4]*($allhorse_num-1);
								last;
							}
							else{
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しが１つの場合↓
						elsif($vote[1]<90 && $vote[2]>90){
							if($vote[1] eq $modosi_vote[1]){
								$add_moneys{$_}+=$vote[4]*($allhorse_num-1);
								last;
							}
							else{
								$add_moneys{$_}+=$vote[4];
								last;
							}
						}#全流しが１つの場合↓
						elsif($vote[1]>90 && $vote[2]>90){
							if($vote[0] eq '2'){
								$add_moneys{$_}+=$vote[4]*($allhorse_num-1)*2;
								last;
							}#馬単
							else{
								$add_moneys{$_}+=$vote[4]*($allhorse_num-1);
								last;
							}
						}#全流しが２つの場合↓
					}#単・複・馬番・馬単
				}
			}
		}
	}#除外馬のある場合の処理

	foreach(@keys){
		my $pool_money;
		my $week_pool_money;
		if($week_money>0){
			$pool_money=$week_money-$vote_total_moneys{$_};
			if($pool==1){
				if($pool_money<=0){
					$week_pool_money=$week_money;
				}#残りがない場合
				else{
					$week_pool_money=$pool_money+$vote_total_moneys{$_};
				}#残りがある場合
			}#小遣いの残りを加算する
			else{
				if($pool_money<=0){
					$week_pool_money=$week_money;
				}#残りがない場合
				else{
					$week_pool_money=$vote_total_moneys{$_};
print"1";
				}#残りがある場合
			}#小遣いの残りを加算しない
		}#レース毎に小遣いが配布される場合

		$soneki_moneys{$_}=$week_pool_money+$add_moneys{$_}-$vote_total_moneys{$_};
	}
	&money_save;

	my @win_rank;
	for($i=0;$i<@vote_kind;$i++){
		next if($vote_kind[$i] eq '');
		my $num=$i+1;
		push(@win_rank,"$num=$vote_kind[$i]=$horse_name[$i]");

	}

	my @before_horse;
	foreach(sort{ $a<=>$b }keys %horse_names){
		push(@before_horse,"$_=$horse_names{$_}");
	}
	my $before_horse=join(',',@before_horse);
	my $win_rank=join(',',@win_rank);
	my $win_save=join(',',@win);
	unless(-f $result_file){ open(DATA,">$result_file");close(DATA); }
	if(open(DATA,">$result_file")){
		print DATA "$race_comment\n";
		print DATA "$allhorse_num\n";
		print DATA "$before_horse\n";
		print DATA "$win_save\n";
		print DATA "$win_rank\n";
		my @bingo_rank=sort{ $add_moneys{$b}<=>$add_moneys{$a} } @keys;
		foreach(@bingo_rank){
			my $add_money_soneki_money=$add_moneys{$_}.'=='.$soneki_moneys{$_};
			print DATA "$_,$vote_names{$_},$vote_comments{$_},$add_money_soneki_money,$vote_marks{$_},$vote_saves{$_}\n";
		}
		close(DATA);
	}
	else{
		$error_code='データファイルへのアクセスに失敗しました!!';
	}
}
####################データ収集####################
sub member_open{

	unless(-f $member_file){
		srand;
		if($code_select==1){
			foreach(0..9){
				push(@member_codeword,$_);
			}
		}
		elsif($code_select==2){
			foreach(a..z){
				push(@member_codeword,$_);
			}
		}
		elsif($code_select==3){
			foreach(A..Z){
				push(@member_codeword,$_);
			}
		}
		else{
			foreach(a..z,0..9){
				push(@member_codeword,$_);
			}
		}

    	    for($i=0;$i<@member_codeword;$i++){
			my $n=int(rand @member_codeword);
			($member_codeword[$i],$member_codeword[$n])=($member_codeword[$n],$member_codeword[$i]);
		}
		my $member_codeword=join('',@member_codeword);

		open(DATA,">$member_file");
		print DATA "$member_codeword\n"; 
		close(DATA);
		$new_number=$first_number;
	}
	elsif(open(DATA,"$member_file")){
	        my @line = <DATA>;
	        close(DATA);

		$new_number=$first_number;
		for($i=0;$i<@line;$i++){
			chomp($line[$i]);

			if($i==0 && $command eq 'member_regist2'){
				(@member_codeword) = split(//,$line[$i]);
			}
			elsif($i>0){
				my ($number,$pass,$name,$email,$last_time,$money) = split(/,/,$line[$i]);

				$member_names{$pass}=$name;
				$member_passs{$pass}=$pass;
				$member_mails{$pass}=$email;
				$member_times{$pass}=$last_time;
				$member_moneys{$pass}=$money;
				$new_number=$number if($new_number<=$number);
			}
			$new_number+=int(rand $rand_number)+1;
		}
	}
	else{
		$error_code='アクセスエラーです。お手数ですが、リロードをして下さいませ。';
	}
}
##################新規会員データセーブ##################
sub member_save{

	my $temp_number=$new_number;
	if(@member_codeword>1){
		while(1){
			$new_password.=$member_codeword[$temp_number%@member_codeword];
			$temp_number =int($temp_number/@member_codeword);
			last unless($temp_number>0);
		}
	}
	if(open(DATA, ">>$member_file")){
		print DATA "$new_number,$new_password,$name,$email,$now_time,$regist_money\n";
		close(DATA);
	}
	else{
		$error_code='アクセスエラーです。お手数ですが、リロードをして下さいませ。';
	}
}
##################軍資金額リセット##################
sub ranking_reset{

	if(open(DATA,"$member_file")){
	        my @line = <DATA>;
	        close(DATA);

		if(open(DATA,">$member_file")){
			for($i=0;$i<@line;$i++){
				chomp($line[$i]);

				if($i>0){
					my ($number,$pass,$name,$email,$last_time,$money) = split(/,/,$line[$i]);
					$money=0;
					$line[$i]="$number,$pass,$name,$email,$last_time,$money";

				}
				print DATA"$line[$i]\n";
			}
			close(DATA);
		}
	}
}
####################払戻金追加####################
sub money_save{

	if(open(DATA,"$member_file")){
	        my @line = <DATA>;
	        close(DATA);

		if(open(DATA,">$member_file")){
			for($i=0;$i<@line;$i++){
				chomp($line[$i]);
				if($i>0){
					my ($number,$pass,$name,$email,$last_time,$money) = split(/,/,$line[$i]);
					$money+=$soneki_moneys{$pass};
					$line[$i]="$number,$pass,$name,$email,$last_time,$money";
				}
				print DATA"$line[$i]\n";
			}
		}
	}
	else{
		$error_code='アクセスエラーです。お手数ですが、リロードをして下さいませ。';
	}
}
####################会員データ修正####################
sub member_repair{

	if(open(DATA,"$member_file")){
	        my @line = <DATA>;
	        close(DATA);
		if(open(DATA, ">$member_file")){
			for($i=0;$i<@line;$i++){
				my ($number,$temp_pass,$temp_name,$temp_email,$last_time,$temp_money) = split(/,/,$line[$i]);
				if($temp_pass eq $pass){
					$line[$i]="$number,$repair_pass,$name,$email,$last_time,$my_money\n";
				}
				print DATA "$line[$i]"; 
			}
			close(DATA);
		}
	}
}
####################会員データ消去####################
sub member_delete{
	my (@target)=@_;
	if(open(DATA,"$member_file")){
	        my @line = <DATA>;
	        close(DATA);
		if(open(DATA, ">$member_file")){
			for($i=0;$i<@line;$i++){
				my $delete_check=0;
				foreach(@target){
					if($line[$i]=~/\Q,$_,$member_names{$_},\E/){
						delete $member_times{$_};
						$delete_check=1;
						last;
					}
				}
				if($delete_check==0){
					print DATA "$line[$i]"; 
				}
			}
			close(DATA);
		}
	}
}
###################バックアップSAVE###################
sub backup_save{
	my($file)=@_;
	if(open(DATA,"$file")){
	        my @line = <DATA>;
	        close(DATA);
		my $backupfile=$file;
		$backupfile=~s/.cgi/back.cgi/;
		if(@line>0 && open(DATA,">$backupfile")){
			for($i=0;$i<@line;$i++){
				print DATA"$line[$i]";
			}
		}
	}
	else{
		$error_code='アクセスエラーです。';
	}
}
###################バックアップLOAD###################
sub backup_load{
	my($file)=@_;
	my $backupfile=$file;
	$backupfile=~s/.cgi/back.cgi/;
	if(open(DATA,"$backupfile")){
	        my @line = <DATA>;
	        close(DATA);

		if(@line>0 && open(DATA,">$file")){
			for($i=0;$i<@line;$i++){
				print DATA"$line[$i]";
			}
		}
	}
	else{
		$error_code='アクセスエラーです。';
	}
}
####################ヘッダー部分####################
sub html_header{
        my ($title,$name,$pass) = @_;
        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) if($name ne '' && $pass ne '');
	$header.="\n";
	$header.='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">'."\n";
	$header.='<html>'."\n";
	$header.='<head>'."\n";
	$header.= &html_style();
	$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.='>
<!-- St-HP-H -->

 <link rel="stylesheet" type="text/css" href="http://fc2.com/ad/menu.css">
<table cellSpacing=0 cellPadding=0 width="100%" border=0  id=textad_table>
<tr><td width="450" valign="middle"> <SCRIPT language="JavaScript" src="http://www.textad.net:10001/cgi-bin/manager.cgi?category_id=0&i=1"></SCRIPT><noscript><div align="left" style="font-size:9pt"> <a href="http://textad.net/" target="_blank"><b><font color="#0000FF">TextAD</font></b></a></noscript></td>
<td id=ad_vc align=right valign="middle" noWrap></td>
</tr></table>
<script language="Javascript" src="http://fc2.com/ad/menu-ie.js" type="text/javascript"></script>
<noscript>
<div align="right"><a href="http://fc2.com/" target="_blank">無料</a>-<a href="http://deaikun.com/" target="_blank">出会い</a>-<a href="http://flowerfan.com/" target="_blank">花</a>-<a href="http://cash.fc2web.com/" target="_blank">キャッシング</a>-<a href="http://analyzer.fc2.com/" target="_blank">アクセス解析</a>
</div>
</noscript>

<!-- En-HP-H -->













































'."\n";
	$header.='<center>'."\n";
	return $header;
}
####################フッター部分####################
sub html_footer{
        my $menustr = '';
	$menustr.=<<END_OF_TEXT;
　<p>
$hooter<P>
</center>
<!-- St-HP-F -->

 <center>
[PR]<a href="http://video.fc2.com/" target="_blank">動画</a><br>
</center>

<!-- En-HP-F --></body>













































</html>
END_OF_TEXT
          return $menustr;
}
####################クッキー取得####################
sub get_cookie{
        my ($name,$pass);
        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) = split(/,/,$value);
				return ($name,$pass);
			}
		}
        }
}
####################クッキーセット####################
sub set_cookie{
        my ($name,$pass) = @_;
	return  "Set-Cookie: ${C_NAME}=name:${name},pass:${pass}; ${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;
}
####################登録メール送信####################
sub mailsend{

my $mail_comment=<<END_OF_MESSAGE;

ご登録ありがとうございます≦(._.)≧

登録名：$name
登録パスワード：$new_password

投票する際は、上記を記入して下さいませ≦(._.)≧
======================================================
$html_title
$horse_url
$my_address
END_OF_MESSAGE

	if(mailto($email, $cc,$from,$default_subject,$mail_comment)==0){
		$error_code='サーバの調子が悪いようです。サーバが安定してから、もう一度アクセスして下さい。';
	}
}
###############登録メール送信（管理人さん用）###############
sub mailsend_keeper{

my $mail_comment=<<END_OF_MESSAGE;

登録者名：$name
登録者メールアドレス：$email
登録者パスワード：$new_password

END_OF_MESSAGE

	if(mailto($my_address, $cc,$from,$default_subject,$mail_comment)==0){
		$error_code='サーバの調子が悪いようです。サーバが安定してから、もう一度アクセスして下さい。';
	}
}

####################メール送信関数####################
#	mailto($to, $cc, $from, $subject, $body);
sub mailto{
	my ($to, $cc, $from, $subject, $body) = @_;
	my $ccline='';

	$to= $my_address if(!defined $to || $to eq '');
	$from= $my_address if(!defined $from || $from eq '');
	$ccline= "Cc: $cc\n" if( defined $cc && $cc ne '');
	$subject= $default_subject if(!defined $subject || $subject eq '');

	# とほほのWWW - wwwmail.cgi 方式の body変換
	$body =~ s/(^|\n)\.(\n|$)/$1. $2/g;
	$body =~ s/(^|\n)\.(\n|$)/$1. $2/g;
	$body=::jcode::jis($body);

	my $mailhead = <<END_OF_HEAD;
To: $to
From: $from
Subject: $subject
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
${ccline}

END_OF_HEAD
	$mailhead = ::jcode::jis($mailhead);
	my $success=0;
	if(open(MAIL,"|$sendmail$mailoption $envelope$my_address")){
		if(print(MAIL $mailhead) && print(MAIL $body)){
			close(MAIL);
			$success=1;
		}
	}
	return $success;
}

####################枠カラーと枠番号を抽出####################
#	&hat_color_num($horse_num);#出走頭数
sub hat_color_num{
	my ($horse_num) = @_;
	my $hat=int($horse_num/8);
	my $hat2=$horse_num%8;
	my @true_num;
	my $i;

	if($hat==0){
		@true_num=@hat_num;
	}
	elsif($hat==1){
		@true_num=@hat_num;
		for($i=0;$i<$hat2;$i++){
			push(@true_num,$hat_num[-1-$i]);
		}
		@true_num=sort{ $a<=>$b } @true_num;
	}
	elsif($hat==2){
		@true_num=@hat_num;
		for($i=0;$i<8;$i++){
			push(@true_num,$hat_num[-1-$i]);
		}
		for($i=0;$i<$hat2;$i++){
			push(@true_num,$hat_num[-1-$i]);
		}
		@true_num=sort{ $a<=>$b } @true_num;
	}
	return(@true_num);
}
####################スタイルシートhtml####################
sub style_list{
	my $style;
	if(open(DATA,"$style_file")){
	        my @line = <DATA>;
	        close(DATA);

		for($i=0;$i<@line;$i++){
			$style.=$line[$i];
		}
	}
print <<END_OF_TEXT;
<h1>スタイルシートを利用する</h1>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value="repair_custom_style">
<input type="hidden" name="secret_pass" value="$secret_pass">
<table border="1">
<tr align="center"><td>
<textarea name="style" cols="50" rows="20">$style</textarea>
</td></tr>
<tr align="center"><td>
<input type="submit" value="送信">
</td></tr>
</table>

</form>
　<p>
END_OF_TEXT
}
####################スタイルシート部分####################
sub html_style{
	my $style;
	unless(-f $style_file){
		open(DATA,">$style_file");

		$style.="<style type=\"text/css\">\n";
		$style.="<!--\n";
		$style.="\n";
		$style.="\n";
		$style.="\n";
		$style.="// -->\n";
		$style.="</style>\n";

		print DATA "$style";
		close(DATA);
	}
	elsif(open(DATA,"$style_file")){
	        my @line = <DATA>;
	        close(DATA);

		for($i=0;$i<@line;$i++){
			$style.=$line[$i];
		}
	}
	return($style);
}
####################スタイルシートをセーブする####################
sub style_save{
	my ($style)=@_;

	$style=~ s/\r\n/<BR>/g;
	$style=~ s/\r/<BR>/g;
	$style=~ s/\n/<BR>/g;
	$style=~ s/\t/　/g;
	$style=~s/<BR>/\n/g;#改行コードを変換
	if(open(DATA,">$style_file")){
		print DATA "$style";
		close(DATA);
	}
}