#!/usr/bin/perl
####!c:/usr/local/perl/bin/perl
#############################################################################################
####　まりちゃんホームページ運用システム　　　　　　　　　　　　　　　　　　　　　　　　 ####
####　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　homepage.cgi Ver.1 ####
####　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2009/06/04 ####
####　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　森島　淳　 ####
#############################################################################################

require "./jcode.pl";

$to_indexhtml="";
################################
####　アクセスログファイル　####
################################
$access_log_file="page-log";
##############################################
####　データファイル更新日時記録ファイル　####
##############################################
$update_log_file="update.log";
##########################
####　データファイル　####
##########################
$data_list_file="data.list";
################################
####　メッセージ集ファイル　####
################################
$messages_file='./messages.dat';
##############################
####　index.htmlファイル　####
##############################
$index_html_file="../index.html";
$reload="";
#####################################################################
####　index.html作成フラグ 　　　　　　　　　　　　　　　　　　　####
####　$index_html_flg=0の場合、index.htmlファイルを作成しない。　####
####　$index_html_flg=1の場合、index.htmlファイルを作成する。　　####
#####################################################################
$index_html_flg=0;
########################################
####　雛形ＨＴＭＬ格納ディレクトリ　####
########################################
$HTML_DIR="html";
################################
####　画像格納ディレクトリ　####
################################
$IMG_DIR="img";
############################
####　ＣＧＩプログラム　####
############################
$CGI_PROGRAM="homepage.cgi";
######################################
####　アクセスログをとらない　０　####
####　アクセスログをとる　　　１　####
######################################
$access_log_flg=1;
#### $DEBUG=0 の場合は通常モード
#### $DEBUG=1 の場合はデバッグモード
#### $DEBUG=2 の場合はデバッグモード
#### $DEBUG=3 の場合はデバッグモード
$DEBUG=0;
#### $admin_flg=0の場合は一般者モード
#### $admin_flg=1の場合は管理者モード
$admin_flg=0;


$notxt_txt_file="data/notxt.txt";
$home_txt_file="data/home.txt";
$contact_txt_file="data/contact.txt";
$profile_txt_file="data/profile.txt";
$application_txt_file="data/application.txt";
$stadwageningen_txt_file="data/stadwageningen.txt";
$wageuni_txt_file="data/wage_uni.txt";
$abroad_txt_file="data/abroad.txt";
$hana_txt_file="data/hana.txt";
$link_txt_file="data/link.txt";
$momo_txt_file="data/momo.txt";
$jfw_txt_file="data/jfw.txt";


$titletop="LES";





#######################################################################
#######################################################################
#######################################################################

    &main;

sub main { 
    if( $DEBUG >= 1 ){
        print "Content-type: text/html\n\n";
        print stdout "<title> success!! </title>\n";
    }
    ########################
    ####　現在時刻取得　####
    ########################
#    $now_date_time=`date '+%Y/%m/%d %H:%M:%S'`;
#    chop( $now_date_time );
    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
    $yyyymmdd = sprintf("%04d/%02d/%02d", $year + 1900, $mon +1, $mday);
    $hhmmss = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
    $now_date_time="$yyyymmdd $hhmmss";

    ####################
    ####　引数取得　####
    ####################
    $len = length( $ENV{'QUERY_STRING'} );
    if ( $len != 0 ) {
        $all_query = $ENV{'QUERY_STRING'};
        @args = split(/&/, $ENV{'QUERY_STRING'});
    }else{
        $all_query = <>;
        @args = split(/&/, $all_query);
    }

    ####################################
    ####　取得した引数を配列に格納　####
    ####################################
    foreach $arg (@args){
        ($name, $val) = split(/=/, $arg);
        $val =~ s/\+/ /g;
        $val =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('C',hex($1))/egi;
        $field{$name} = $val;
        if( $DEBUG >= 1 ){
            print "name=$name<BR>\n";
            print "val=$val<BR>\n";
        }
    }
    ##################################
    ####　管理者モード切替フラグ　####
    ##################################
    if( $field{'admin'} > 0 ){
        $admin_flg=1;
        $index_html_flg=1;
        $to_indexhtml="marikohomepage/";
        $reload="<meta http-equiv=\"Refresh\" content=\"1;URL="."$to_indexhtml"."$CGI_PROGRAM\">\n";
        ######################################
        ####　データファイル更新日時記録　####
        ######################################
        unless (open(ofp, ">$update_log_file")) {
            print ("Can't open $update_log_file\n");
        }
        print ofp "$now_date_time\n";
        close( ofp );
    }
    ######################################
    ####　データファイル更新日時取得　####
    ######################################
    open (LIST, "$update_log_file") || die "Can't open update_log_file\n";
    while(<LIST>){
        chop($_);
        $update_time=$_;
    }
    close(LIST);

        ##################################
        ####　ＦＩＬＥよりデータ取得　####
        ##################################
        $count_data=0;
        open (LIST, "$data_list_file") || die "Can't open file\n";
        while(<LIST>){
            chop($_);
        	($n, $figa, $figb, $id, $fsize, $fcolor, $txt, $tlurl, $gurl, $alt, $gwidth, $gheight, $gborder, $glurl, $target ) = split(/,/, $_);
            $data_index[$count_data] = $n;
            $data_fig_a[$count_data] = $figa;
            $data_fig_b[$count_data] = $figb;
            $data_id[$count_data] = $id;
            $data_fsize[$count_data] = $fsize;
            $data_fcolor[$count_data] = $fcolor;
            $data_txt[$count_data] = $txt;
            $data_tlurl[$count_data] = $tlurl;
            $data_gurl[$count_data] = $gurl;
            $data_alt[$count_data] = $alt;
            $data_gwidth[$count_data] = $gwidth;
            $data_gheight[$count_data] = $gheight;
            $data_gborder[$count_data] = $gborder;
            $data_glurl[$count_data] = $glurl;
            $data_target[$count_data] = $target;
            $count_data=$count_data+1;
        }
        close(LIST);

    if( $DEBUG >= 1 ){
        for( $count_data_tmp=0;
             $count_data_tmp<$count_data;
             $count_data_tmp++ ){
            print "$count_data_tmp="
                 ."$data_index[$count_data_tmp]="
                 ."$data_fig_a[$count_data_tmp]="
                 ."$data_fig_b[$count_data_tmp]="
                 ."$data_id[$count_data_tmp]="
                 ."$data_fsize[$count_data_tmp]="
                 ."$data_fcolor[$count_data_tmp]="
                 ."$data_txt[$count_data_tmp]="
                 ."$data_tlurl[$count_data_tmp]="
                 ."$data_gurl[$count_data_tmp]="
                 ."$data_alt[$count_data_tmp]="
                 ."$data_gwidth[$count_data_tmp]="
                 ."$data_gheight[$count_data_tmp]="
                 ."$data_gborder[$count_data_tmp]="
                 ."$data_glurl[$count_data_tmp]="
                 ."$data_target[$count_data_tmp]"
                 ."<BR>\n";
        }
    }

    ##########################
    ####　ページ振り分け　####
    ##########################
    if( $field{'goto'} eq "contact" ){
        &ACCESS_LOG( "contact" );
    }elsif( $field{'goto'} eq "home" ){
        &ACCESS_LOG( "home" );
    }elsif( $field{'goto'} eq "profile" ){
        &ACCESS_LOG( "profile" );
    }elsif( $field{'goto'} eq "application" ){
        &ACCESS_LOG( "application" );
    }elsif( $field{'goto'} eq "stadwageningen" ){
        &ACCESS_LOG( "Stad_Wageningen" );
    }elsif( $field{'goto'} eq "wage_uni" ){
        &ACCESS_LOG( "Wageningen_University" );
    }elsif( $field{'goto'} eq "momo" ){
        &ACCESS_LOG( "Arts_van_Momo" );
    }elsif( $field{'goto'} eq "jfw" ){
        &ACCESS_LOG( "Japans_Festival_Wageningen" );
    }elsif( $field{'goto'} eq "abroad" ){
        &ACCESS_LOG( "Student_Abroad" );
    }elsif( $field{'goto'} eq "hana" ){
        &ACCESS_LOG( "Koor_Hana" );
    }elsif( $field{'goto'} eq "link" ){
        &ACCESS_LOG( "link" );
    }elsif( $field{'goto'} eq "notxt" ){
        &ACCESS_LOG( "notxt" );
    }else{
        &ACCESS_LOG( "main_page" );
    }
    &PAGE_11;

    ########################
    ####　ＨＴＭＬ表示　####
    ########################
    print "Pragma: no-cache\n";
    print "Cache-Control: no-cache\n";
    print "Expires: Thu, 01 Mar 2007 13:00:00 GMT\n";
    print "Content-type: text/html\n\n";
    &PrintPage( $HTML_FILE );
    exit( 0 );
}

sub ACCESS_LOG {
    ##########################################
    ####　どのページにアクセスしたかログ　####
    ##########################################
    local( $access_page ) = @_;

    if( $access_log_flg >=1 ){
        unless (open(ofp, ">>$access_log_file")) {
            print ("Can't open $access_log_file\n");
        }
        print ofp "$now_date_time $ENV{'REMOTE_ADDR'} $access_page\n";
        close( ofp );
    }
}

sub PAGE_11 { 
        for( $count_data_tmp=0;
             $count_data_tmp<$count_data;
             $count_data_tmp++ ){
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $top_1_1=$top_1_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $top_1_2=$top_1_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $top_1_3=$top_1_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $top_1_4=$top_1_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $top_1_5=$top_1_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $top_1_6=$top_1_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $top_1_7=$top_1_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $top_1_8=$top_1_8.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "1" ) && ( $data_fig_b[$count_data_tmp] eq "9" ) ){
                $top_1_9=$top_1_9.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $sahen_2_1=$sahen_2_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $sahen_2_2=$sahen_2_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $sahen_2_3=$sahen_2_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $sahen_2_4=$sahen_2_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $sahen_2_5=$sahen_2_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $sahen_2_6=$sahen_2_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $sahen_2_7=$sahen_2_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $sahen_2_8=$sahen_2_8.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "9" ) ){
                $sahen_2_9=$sahen_2_9.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "A" ) ){
                $sahen_2_A=$sahen_2_A.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "B" ) ){
                $sahen_2_B=$sahen_2_B.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "C" ) ){
                $sahen_2_C=$sahen_2_C.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "D" ) ){
                $sahen_2_D=$sahen_2_D.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "E" ) ){
                $sahen_2_E=$sahen_2_E.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "F" ) ){
                $sahen_2_F=$sahen_2_F.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "G" ) ){
                $sahen_2_G=$sahen_2_G.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "2" ) && ( $data_fig_b[$count_data_tmp] eq "H" ) ){
                $sahen_2_H=$sahen_2_H.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "0" ) ){
                $mid_3_0=$mid_3_0.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $mid_3_1=$mid_3_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $mid_3_2=$mid_3_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $mid_3_3=$mid_3_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $mid_3_4=$mid_3_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $mid_3_5=$mid_3_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $mid_3_6=$mid_3_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $mid_3_7=$mid_3_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "3" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $mid_3_8=$mid_3_8.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $mid_4_1=$mid_4_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $mid_4_2=$mid_4_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $mid_4_3=$mid_4_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $mid_4_4=$mid_4_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $mid_4_5=$mid_4_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $mid_4_6=$mid_4_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $mid_4_7=$mid_4_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "4" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $mid_4_8=$mid_4_8.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $mid_5_1=$mid_5_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $mid_5_2=$mid_5_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $mid_5_3=$mid_5_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $mid_5_4=$mid_5_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $mid_5_5=$mid_5_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $mid_5_6=$mid_5_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $mid_5_7=$mid_5_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "5" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $mid_5_8=$mid_5_8.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $mid_6_1=$mid_6_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $mid_6_2=$mid_6_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $mid_6_3=$mid_6_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $mid_6_4=$mid_6_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $mid_6_5=$mid_6_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $mid_6_6=$mid_6_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $mid_6_7=$mid_6_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "6" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $mid_6_8=$mid_6_8.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $mid_7_1=$mid_7_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $mid_7_2=$mid_7_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $mid_7_3=$mid_7_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $mid_7_4=$mid_7_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $mid_7_5=$mid_7_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $mid_7_6=$mid_7_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $mid_7_7=$mid_7_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "7" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $mid_7_8=$mid_7_8.&Seisei( $count_data_tmp );
            }
####
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "1" ) ){
                $bottom_8_1=$bottom_8_1.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "2" ) ){
                $bottom_8_2=$bottom_8_2.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "3" ) ){
                $bottom_8_3=$bottom_8_3.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "4" ) ){
                $bottom_8_4=$bottom_8_4.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "5" ) ){
                $bottom_8_5=$bottom_8_5.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "6" ) ){
                $bottom_8_6=$bottom_8_6.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "7" ) ){
                $bottom_8_7=$bottom_8_7.&Seisei( $count_data_tmp );
            }
            if( ( $data_fig_a[$count_data_tmp] eq "8" ) && ( $data_fig_b[$count_data_tmp] eq "8" ) ){
                $bottom_8_8=$bottom_8_8.&Seisei( $count_data_tmp );
            }
        }
    ########################
    ####　ＨＴＭＬ決定　####
    ########################
    $HTML_FILE="$HTML_DIR/11.html";
}

sub Seisei { 
    local( $w )=@_;

        $bun="";
                if( $data_id[$w] eq "1" ){
                    $bun="<FONT SIZE=\"$data_fsize[$w]\""
                        ." COLOR=\"$data_fcolor[$w]\">";
                    if( $data_tlurl[$w] ne "" ){
                        $bun=$bun."<A HREF=\"$data_tlurl[$w]\"";
                    }
                    if( $data_target[$w] eq "1" ){
                        $bun=$bun." target=\"_blank\"";
                    }
                    if( $data_tlurl[$w] ne "" ){
                        $bun=$bun.">";
                    }
                    $bun=$bun."$data_txt[$w]";
                    if( $data_tlurl[$w] ne "" ){
                        $bun=$bun."</A>";
                    }
                    $bun=$bun."</FONT>";
                }elsif( $data_id[$w] eq "2" ){
                    if( $data_glurl[$w] ne "" ){
                        $bun=$bun."<A HREF=\"$data_glurl[$w]\"";
                    }
                    if( $data_target[$w] eq "1" ){
                        $bun=$bun." target=\"_blank\"";
                    }
                    if( $data_glurl[$w] ne "" ){
                        $bun=$bun.">";
                    }
                    $bun=$bun."<IMG SRC=\"";
                    if( $admin_flg > 0 ){
                        $bun=$bun."$to_indexhtml";
                    }
                    $bun=$bun."$IMG_DIR/"
                             ."$data_gurl[$w]\""
                             ." ALT=\"$data_alt[$w]\""
                             ." WIDTH=\"$data_gwidth[$w]\""
                             ." HEIGHT=\"$data_gheight[$w]\""
                             ." BORDER=\"$data_gborder[$w]\">";
                    if( $data_glurl[$w] ne "" ){
                        $bun=$bun."</A>";
                    }
                }
    return( $bun );
}

sub Fighter { 
$hoge=0;
}

sub MarikoPage { 
    if( $field{'goto'} eq "contact" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$contact_txt_file") || die "Can't open contact_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "home" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$home_txt_file") || die "Can't open home_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "profile" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$profile_txt_file") || die "Can't open profile_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "application" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$application_txt_file") || die "Can't open application_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "stadwageningen" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$stadwageningen_txt_file") || die "Can't open stadwageningen_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "wage_uni" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$wageuni_txt_file") || die "Can't open wageuni_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "momo" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$momo_txt_file") || die "Can't open momo_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "jfw" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        if( $field{'p'} eq "1" ){
            $jfw_txt_file="data/jfw.txt";
        }
        if( $field{'p'} eq "2" ){
            $jfw_txt_file="data/jfw2.txt";
        }
        if( $field{'p'} eq "3" ){
            $jfw_txt_file="data/jfw3.txt";
        }
        if( $field{'p'} eq "4" ){
            $jfw_txt_file="data/jfw4.txt";
        }
        if( $field{'p'} eq "5" ){
            $jfw_txt_file="data/jfw5.txt";
        }
        if( $field{'p'} eq "6" ){
            $jfw_txt_file="data/jfw6.txt";
        }
        if( $field{'p'} eq "7" ){
            $jfw_txt_file="data/jfw7.txt";
        }
        if( $field{'p'} eq "8" ){
            $jfw_txt_file="data/jfw8.txt";
        }
        if( $field{'p'} eq "9" ){
            $jfw_txt_file="data/jfw9.txt";
        }
        if( $field{'p'} eq "10" ){
            $jfw_txt_file="data/jfw10.txt";
        }
        if( $field{'p'} eq "11" ){
            $jfw_txt_file="data/jfw11.txt";
        }
        if( $field{'p'} eq "12" ){
            $jfw_txt_file="data/jfw12.txt";
        }
        if( $field{'p'} eq "13" ){
            $jfw_txt_file="data/jfw13.txt";
        }
        if( $field{'p'} eq "14" ){
            $jfw_txt_file="data/jfw14.txt";
        }
        if( $field{'p'} eq "15" ){
            $jfw_txt_file="data/jfw15.txt";
        }
        if( $field{'p'} eq "16" ){
            $jfw_txt_file="data/jfw16.txt";
        }
        if( $field{'p'} eq "17" ){
            $jfw_txt_file="data/jfw17.txt";
        }
        open (LIST, "$jfw_txt_file") || die "Can't open jfw_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "abroad" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$abroad_txt_file") || die "Can't open abroad_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "hana" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$hana_txt_file") || die "Can't open hana_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "link" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$link_txt_file") || die "Can't open link_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }elsif( $field{'goto'} eq "notxt" ){
        ##############################
        ####　データファイル表示　####
        ##############################
        open (LIST, "$notxt_txt_file") || die "Can't open notxt_txt_file\n";
        while(<LIST>){
            chop($_);
            print $_;
        }
        close(LIST);
    }
$hoge=0;
}

sub READ_FILE {
    local( $ident_file_tmp ) = @_;
        $count_member=0;
        open (LIST, "$ident_file_tmp") || die "Can't open file\n";
        while(<LIST>){
            chop($_);
        	($a1, $a2, $a3, $a4, $a5, $a6, $a7, $a8, $a9, $a10, $a11 ) = split(/　/, $_);
            $member_1[$count_member] = $a1;
            $member_2[$count_member] = $a2;
            $member_3[$count_member] = $a3;
            $member_4[$count_member] = $a4;
            $member_5[$count_member] = $a5;
            $member_6[$count_member] = $a6;
            $member_7[$count_member] = $a7;
            $member_8[$count_member] = $a8;
            $member_9[$count_member] = $a9;
            $member_10[$count_member] = $a10;
            $member_11[$count_member] = $a11;
            $count_member=$count_member+1;
        }
        close(LIST);

    if( $DEBUG >= 1 ){
        for( $count_member_tmp=0;
             $count_member_tmp<$count_member;
             $count_member_tmp++ ){
            print "$count_member_tmp="
                 ."$member_1[$count_member_tmp]="
                 ."$member_2[$count_member_tmp]="
                 ."$member_3[$count_member_tmp]="
                 ."$member_4[$count_member_tmp]="
                 ."$member_5[$count_member_tmp]="
                 ."$member_6[$count_member_tmp]="
                 ."$member_7[$count_member_tmp]="
                 ."$member_8[$count_member_tmp]="
                 ."$member_9[$count_member_tmp]="
                 ."$member_10[$count_member_tmp]="
                 ."$member_11[$count_member_tmp]"
                 ."<BR>\n";
        }
    }
}

sub no_data {
    ################################
    ####　メッセージ表示用関数　####
    ################################
    local($err_code)=@_;
    $error_messages='';

    ##########################################
    ####　メッセージファイル存在チェック　####
    ##########################################
    $ret=&CheckFileExist( $messages_file );
    if( $ret < 0 ){
        &PrintError( 101 );
    }

    ######################################
    ####　メッセージファイルの読込み　####
    ######################################
    open( messages_file, $messages_file) || die "no messages file";
    while(<messages_file>){
        ($left,$right)=split(/,/);
        if( $err_code == $left ){
            $error_messages="$right";
        }
    }
    close( messages_file );

    if( $err_code==3 ){
        $error_messages="エラーが発生しました。<BR>\n";
        $DBIERROR="$DBI::errstr";
#        $DBIERROR=~s/ORA-/ERROR-NO:/gi;
        $error_messages=$error_messages."DBエラー<BR>\n$DBIERROR<BR>\n";
#        $error_messages=$error_messages."<BR>cmd=$cmd<BR>\n";
    }

    ########################
    ####　ＨＴＭＬ表示　####
    ########################
    print "Content-type: text/html\n\n";
    $titletop="エラー表示ページ";
    $title_3="エラー表示ページ";
    $HTML_FILE="$HTML_DIR/error.html";
    &PrintPage( $HTML_FILE );
exit(-1);
}

sub CheckFileExist {
    ################################
    ####　ファイル存在チェック　####
    ################################
    local( $input_file )=@_;
    if( ! open( input_file, $input_file ) ){
        return( -1 );
    }
    close( input_file );
    return( 0 );
}

sub PrintError {
    ############################
    ####　エラー表示ページ　####
    ############################
    local( $err_code )=@_;

    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<META HTTP-EQUIV=\"CONTENT-TYPE\" CONTENT=\"text/html;"
         ." CHARSET=x-euc-jp\">\n";
    print "<HEAD><TITLE>Exchange Password</TITLE></HEAD>\n";
    print "<BODY BGCOLOR=\"#FFFFFF\">\n";

    print "<BR>\n";
    print "<div align=\"left\">\n";
    print "<table border=\"0\""
         ." cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">\n";
    print "  <tr>\n";
    print "  <td bgcolor=\"#3638a8\">\n";
    print "    <table border=\"0\""
         ." cellpadding=\"1\" cellspacing=\"1\" width=\"100%\">\n";
    print "      <tr bgcolor=\"white\">\n";
    print "      <th bgcolor=\"white\">\n";
    print "      <B>";


    if( $err_code == 101 ) {
        print "「$messages_file」がみつかりません。\n";
    }
    if( $err_code == 102 ) {
        print "「$HTML_FILE」がみつかりません。\n";
    }


    print "      </B>";
    print "      </th>\n";
    print "      </tr>\n";
    print "    </table>\n";
    print "  </td>\n";
    print "  </tr>\n";
    print "</table>\n";
    print "</div>\n";
    print "<BR>\n";
    print "<FORM>\n";
    print "<INPUT TYPE=BUTTON onClick=\"history.back()\" VALUE=\"戻る\">\n";
    print "</FORM>\n";
    print "</BODY>\n";
    print "</HTML>\n";
exit( -1 );
}

sub PrintReplace {
    ####################
    ####　置換関数　####
    ####################
    local( $target_word, $replace_word )=@_;

    ( $left_side, $right_side ) = split( /$target_word/ );
    print "$left_side";
    print "$replace_word";
    print "$right_side";
        if( $index_html_flg > 0 ){
            print index_html_file "$left_side";
            print index_html_file "$replace_word";
            print index_html_file "$right_side";
        }
}

sub PrintPage {
    ##############################
    ####　ＨＴＭＬ表示ページ　####
    ##############################
    local( $html_file ) = @_;

    if( $DEBUG >= 1 ){
        print "html_file=$html_file";
        print "<BR>\n";
    }

    ################################
    ####　ファイル存在チェック　####
    ################################
    $ret=&CheckFileExist( $html_file );
    if( $ret < 0 ){
        &PrintError( 102 );
    }
    ######################################
    ####　index.htmlファイルオープン　####
    ######################################
    if( $index_html_flg > 0 ){
        unless (open(index_html_file, ">$index_html_file")) {
            print ("Can't open $index_html_file\n");
        }
    }
    ######################################
    ####　雛形ＨＴＭＬファイル読込み　####
    ######################################
    open( html_file, $html_file ) || die "no html_file";
    while(<html_file>){
        chop;
        if( /\$ERROR_MESSAGES/ ){
            &PrintReplace( '\$ERROR_MESSAGES', "$error_messages" );
        }elsif( /\$CGI_PROG/ ){
            &PrintReplace( '\$CGI_PROG', "$CGI_PROGRAM" );
        }elsif( /\$TITLETOP/ ){
            &PrintReplace( '\$TITLETOP', "$titletop" );
        }elsif( /\$NOW_DATE_TIME/ ){
            &PrintReplace( '\$NOW_DATE_TIME', "$update_time" );
        }elsif( /\$RELOAD/ ){
            &PrintReplace( '\$RELOAD', "$reload" );
        }elsif( /\$TO_IX/ ){
            &PrintReplace( '\$TO_IX', "$to_indexhtml" );
        }elsif( /\$RANKING/ ){
            ( $left_side, $right_side ) = split( /\$RANKING/ );
            print "$left_side";
            &Ranking;
            print "$right_side";
        }elsif( /\$FIGHTER/ ){
            ( $left_side, $right_side ) = split( /\$FIGHTER/ );
            print "$left_side";
            &Fighter;
            print "$right_side";
        }elsif( /\$MARIKOPAGE/ ){
            ( $left_side, $right_side ) = split( /\$MARIKOPAGE/ );
            print "$left_side";
            &MarikoPage;
            print "$right_side";
        }elsif( /\$TOP_1_1/ ){
            &PrintReplace( '\$TOP_1_1', "$top_1_1" );
        }elsif( /\$TOP_1_2/ ){
            &PrintReplace( '\$TOP_1_2', "$top_1_2" );
        }elsif( /\$TOP_1_3/ ){
            &PrintReplace( '\$TOP_1_3', "$top_1_3" );
        }elsif( /\$TOP_1_4/ ){
            &PrintReplace( '\$TOP_1_4', "$top_1_4" );
        }elsif( /\$TOP_1_5/ ){
            &PrintReplace( '\$TOP_1_5', "$top_1_5" );
        }elsif( /\$TOP_1_6/ ){
            &PrintReplace( '\$TOP_1_6', "$top_1_6" );
        }elsif( /\$TOP_1_7/ ){
            &PrintReplace( '\$TOP_1_7', "$top_1_7" );
        }elsif( /\$TOP_1_8/ ){
            &PrintReplace( '\$TOP_1_8', "$top_1_8" );
        }elsif( /\$TOP_1_9/ ){
            &PrintReplace( '\$TOP_1_9', "$top_1_9" );
        }elsif( /\$SAHEN_2_1/ ){
            &PrintReplace( '\$SAHEN_2_1', "$sahen_2_1" );
        }elsif( /\$SAHEN_2_2/ ){
            &PrintReplace( '\$SAHEN_2_2', "$sahen_2_2" );
        }elsif( /\$SAHEN_2_3/ ){
            &PrintReplace( '\$SAHEN_2_3', "$sahen_2_3" );
        }elsif( /\$SAHEN_2_4/ ){
            &PrintReplace( '\$SAHEN_2_4', "$sahen_2_4" );
        }elsif( /\$SAHEN_2_5/ ){
            &PrintReplace( '\$SAHEN_2_5', "$sahen_2_5" );
        }elsif( /\$SAHEN_2_6/ ){
            &PrintReplace( '\$SAHEN_2_6', "$sahen_2_6" );
        }elsif( /\$SAHEN_2_7/ ){
            &PrintReplace( '\$SAHEN_2_7', "$sahen_2_7" );
        }elsif( /\$SAHEN_2_8/ ){
            &PrintReplace( '\$SAHEN_2_8', "$sahen_2_8" );
        }elsif( /\$SAHEN_2_9/ ){
            &PrintReplace( '\$SAHEN_2_9', "$sahen_2_9" );
        }elsif( /\$SAHEN_2_A/ ){
            &PrintReplace( '\$SAHEN_2_A', "$sahen_2_A" );
        }elsif( /\$SAHEN_2_B/ ){
            &PrintReplace( '\$SAHEN_2_B', "$sahen_2_B" );
        }elsif( /\$SAHEN_2_C/ ){
            &PrintReplace( '\$SAHEN_2_C', "$sahen_2_C" );
        }elsif( /\$SAHEN_2_D/ ){
            &PrintReplace( '\$SAHEN_2_D', "$sahen_2_D" );
        }elsif( /\$SAHEN_2_E/ ){
            &PrintReplace( '\$SAHEN_2_E', "$sahen_2_E" );
        }elsif( /\$SAHEN_2_F/ ){
            &PrintReplace( '\$SAHEN_2_F', "$sahen_2_F" );
        }elsif( /\$SAHEN_2_G/ ){
            &PrintReplace( '\$SAHEN_2_G', "$sahen_2_G" );
        }elsif( /\$SAHEN_2_H/ ){
            &PrintReplace( '\$SAHEN_2_H', "$sahen_2_H" );
        }elsif( /\$MID_3_0/ ){
            &PrintReplace( '\$MID_3_0', "$mid_3_0" );
        }elsif( /\$MID_3_1/ ){
            &PrintReplace( '\$MID_3_1', "$mid_3_1" );
        }elsif( /\$MID_3_2/ ){
            &PrintReplace( '\$MID_3_2', "$mid_3_2" );
        }elsif( /\$MID_3_3/ ){
            &PrintReplace( '\$MID_3_3', "$mid_3_3" );
        }elsif( /\$MID_3_4/ ){
            &PrintReplace( '\$MID_3_4', "$mid_3_4" );
        }elsif( /\$MID_3_5/ ){
            &PrintReplace( '\$MID_3_5', "$mid_3_5" );
        }elsif( /\$MID_3_6/ ){
            &PrintReplace( '\$MID_3_6', "$mid_3_6" );
        }elsif( /\$MID_3_7/ ){
            &PrintReplace( '\$MID_3_7', "$mid_3_7" );
        }elsif( /\$MID_3_8/ ){
            &PrintReplace( '\$MID_3_8', "$mid_3_8" );
        }elsif( /\$MID_4_1/ ){
            &PrintReplace( '\$MID_4_1', "$mid_4_1" );
        }elsif( /\$MID_4_2/ ){
            &PrintReplace( '\$MID_4_2', "$mid_4_2" );
        }elsif( /\$MID_4_3/ ){
            &PrintReplace( '\$MID_4_3', "$mid_4_3" );
        }elsif( /\$MID_4_4/ ){
            &PrintReplace( '\$MID_4_4', "$mid_4_4" );
        }elsif( /\$MID_4_5/ ){
            &PrintReplace( '\$MID_4_5', "$mid_4_5" );
        }elsif( /\$MID_4_6/ ){
            &PrintReplace( '\$MID_4_6', "$mid_4_6" );
        }elsif( /\$MID_4_7/ ){
            &PrintReplace( '\$MID_4_7', "$mid_4_7" );
        }elsif( /\$MID_4_8/ ){
            &PrintReplace( '\$MID_4_8', "$mid_4_8" );
        }elsif( /\$MID_5_1/ ){
            &PrintReplace( '\$MID_5_1', "$mid_5_1" );
        }elsif( /\$MID_5_2/ ){
            &PrintReplace( '\$MID_5_2', "$mid_5_2" );
        }elsif( /\$MID_5_3/ ){
            &PrintReplace( '\$MID_5_3', "$mid_5_3" );
        }elsif( /\$MID_5_4/ ){
            &PrintReplace( '\$MID_5_4', "$mid_5_4" );
        }elsif( /\$MID_5_5/ ){
            &PrintReplace( '\$MID_5_5', "$mid_5_5" );
        }elsif( /\$MID_5_6/ ){
            &PrintReplace( '\$MID_5_6', "$mid_5_6" );
        }elsif( /\$MID_5_7/ ){
            &PrintReplace( '\$MID_5_7', "$mid_5_7" );
        }elsif( /\$MID_5_8/ ){
            &PrintReplace( '\$MID_5_8', "$mid_5_8" );
        }elsif( /\$MID_6_1/ ){
            &PrintReplace( '\$MID_6_1', "$mid_6_1" );
        }elsif( /\$MID_6_2/ ){
            &PrintReplace( '\$MID_6_2', "$mid_6_2" );
        }elsif( /\$MID_6_3/ ){
            &PrintReplace( '\$MID_6_3', "$mid_6_3" );
        }elsif( /\$MID_6_4/ ){
            &PrintReplace( '\$MID_6_4', "$mid_6_4" );
        }elsif( /\$MID_6_5/ ){
            &PrintReplace( '\$MID_6_5', "$mid_6_5" );
        }elsif( /\$MID_6_6/ ){
            &PrintReplace( '\$MID_6_6', "$mid_6_6" );
        }elsif( /\$MID_6_7/ ){
            &PrintReplace( '\$MID_6_7', "$mid_6_7" );
        }elsif( /\$MID_6_8/ ){
            &PrintReplace( '\$MID_6_8', "$mid_6_8" );
        }elsif( /\$MID_7_1/ ){
            &PrintReplace( '\$MID_7_1', "$mid_7_1" );
        }elsif( /\$MID_7_2/ ){
            &PrintReplace( '\$MID_7_2', "$mid_7_2" );
        }elsif( /\$MID_7_3/ ){
            &PrintReplace( '\$MID_7_3', "$mid_7_3" );
        }elsif( /\$MID_7_4/ ){
            &PrintReplace( '\$MID_7_4', "$mid_7_4" );
        }elsif( /\$MID_7_5/ ){
            &PrintReplace( '\$MID_7_5', "$mid_7_5" );
        }elsif( /\$MID_7_6/ ){
            &PrintReplace( '\$MID_7_6', "$mid_7_6" );
        }elsif( /\$MID_7_7/ ){
            &PrintReplace( '\$MID_7_7', "$mid_7_7" );
        }elsif( /\$MID_7_8/ ){
            &PrintReplace( '\$MID_7_8', "$mid_7_8" );
        }elsif( /\$BOTTOM_8_1/ ){
            &PrintReplace( '\$BOTTOM_8_1', "$bottom_8_1" );
        }elsif( /\$BOTTOM_8_2/ ){
            &PrintReplace( '\$BOTTOM_8_2', "$bottom_8_2" );
        }elsif( /\$BOTTOM_8_3/ ){
            &PrintReplace( '\$BOTTOM_8_3', "$bottom_8_3" );
        }elsif( /\$BOTTOM_8_4/ ){
            &PrintReplace( '\$BOTTOM_8_4', "$bottom_8_4" );
        }elsif( /\$BOTTOM_8_5/ ){
            &PrintReplace( '\$BOTTOM_8_5', "$bottom_8_5" );
        }elsif( /\$BOTTOM_8_6/ ){
            &PrintReplace( '\$BOTTOM_8_6', "$bottom_8_6" );
        }elsif( /\$BOTTOM_8_7/ ){
            &PrintReplace( '\$BOTTOM_8_7', "$bottom_8_7" );
        }elsif( /\$BOTTOM_8_8/ ){
            &PrintReplace( '\$BOTTOM_8_8', "$bottom_8_8" );
        }else{
            print $_;
            print "\n";
            if( $index_html_flg > 0 ){
                print index_html_file $_;
                print index_html_file "\n";
            }
        }
    }
    close( html_file );
    ######################################
    ####　index.htmlファイルクローズ　####
    ######################################
    if( $index_html_flg > 0 ){
        close( index_html_file );
    }
}