#!/usr/bin/perl

# ======== end ========================
$prgname = "cg_0330";
$manager = 'fuji21@fuji21.com';

# ---- ブラウザー表示設定（参考：デバッグ用）----
#print "Content-type: text/html\n\n";

#print "DEBUG-00<BR>\n";
$prgname = "cg_0330";

require 'cg_00io30.pl';
require 'cg_00st30.pl';
&st_dateform;
require 'cg_00fl30.pl';

$g_lockfile  = "../cntrl/cg_03lock30.txt";

$multi_item = 2;
$multi_max  = 20;
@multi_name = ("key","data","--");
@multi_nmbr = (0,0,0);

# ======== データ受信・デコード========
#print "DEBUG-01<BR>\n";

&io_decode;

#print "DEBUG-03<BR>$g_str<BR>\n";

$work     = $cgi{'work'};
$file1    = $cgi{'file1'};

$f1_keynmbr  = $multi_nmbr[0];
$f1_datanmbr = $multi_nmbr[1];

for($i=0;$i<$f1_keynmbr;$i++){
     $f1_keylist[$i] = $multi_table[$multi_max*0+$i];
}
for($i=0;$i<$f1_datanmbr;$i++){
     $f1_data[$i] = $multi_table[$multi_max*1+$i];
}

# ********* プログラム本体 ********

#print "DEBUG-04 - $work - $file1 - $f1_keynmbr<BR>@f1_keylist<BR>\n";

$dspmsg = "";
if($work eq "read"){
     $size=&io_fileread("",$file1,"err");
     $dspmsg="";
     for(my $i=0;$i<$size;$i++){
        $dspmsg=$dspmsg.$f2_LINES[$i];
     }
     $dspmsg=$dspmsg."\n";
}
elsif($work eq "format"){

#print "DEBUG-21 - $work - $file1<BR>\n";

     &fl_fileformat($file1);
     $dspmsg="ファイル・フォーマット（グローバル変数）\n\n";
     $dspmsg=$dspmsg."<table><tr><td>&#36;f1_file</td><td>ファイルアドレス</td><td>".$f1_file."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_colnmbr</td><td>ファイル名</td><td>".$f1_filename."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_colnmbr</td><td>項目数</td><td>".$f1_colnmbr."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_type</td><td>可変長・固定長</td><td>".$f1_type."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_colnmbr</td><td>項目数</td><td>".$f1_colnmbr."</td></tr>"; 
     $dspmsg=$dspmsg."<tr><td>&#36;f1_line0</td><td>第0行目レコード</td><td>".$f1_line0."</td></tr>"; 
     $dspmsg=$dspmsg."<tr><td>&#64;f1_title</td><td>項目名（第0行目）</td><td>@f1_title</td></tr>"; 
     $dspmsg=$dspmsg."<tr><td>&#36;f1_line1</td><td>第1行目レコード</td><td>".$f1_line1."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#64;f1_format</td><td>フォーマット（第1行目）</td><td>@f1_format</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_order</td><td>inc、dec、lst、fst </td><td>".$f1_order."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_ordermark</td><td> /（inc、lst）、|（dec、fst）</td><td>".$f1_ordermark."</td></tr>"; 
     $dspmsg=$dspmsg."<tr><td>&#36;f1_order2</td><td>trs、thd</td><td>".$f1_order2."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_keylen</td><td>キー字数（６字以上）</td><td>".$f1_keylen."</td></tr>";
     $dspmsg=$dspmsg."<tr><td>&#36;f1_linenmbr</td><td>レコード数</td><td>".$f1_linenmbr."</td></tr>";
}
elsif($work eq "check"){
     $dspmsg = &fl_filecheck($file1);
     $dspmsg = $dspmsg."\n\nファイル・チェック終了しました。\n\n";
}
elsif($work eq "insert"){
    &io_lockup($g_lockfile,"err");
#print "DEBUG 41 - @f1_data<br />\n";
    my $errmsg=&fl_rcrdinsert($file1,"err");
#print "DEBUG 42 - $errmsg<br />\n";
    &io_unlock($g_lockfile,"");
#print "DEBUG 43 - $errmsg<br />\n";
    if($errmsg ne ""){
         $errref3 = "入出力エラー：- cg_0330 - ".$prgname." - ".$work;
         &io_errexit($errmsg,$errref3,$manager); 
    }
    else{
         $dspmsg= "キー：".$f1_key."　挿入終了しました。\n";
    }

}
elsif($work eq "rewrite"){
    &io_lockup($g_lockfile,"err");
#print "DEBUG 51 - @f1_data<br />\n";
    my $errmsg = &fl_rcrdrewrite($file1,"err");
#print "DEBUG 52 - $errmsg<br />\n";
    &io_unlock($g_lockfile,"");
print "DEBUG 53 - $f1_key - $errmsg<br />\n";
    if($errmsg ne ""){
         $errref3 = "入出力エラー：- cg_0330 - ".$prgname." - ".$work;
         &io_errexit($errmsg,$errref3,$manager); 
    }
    else{
         $dspmsg="キー：".$f1_key."　書換終了しました。\n";
    }
}
elsif($work eq "search"){
    &fl_rcrdsearch($file1,"err");
    $dspmsg = "検索結果\n\nキー：";
    for($i=0;$i<$f1_keynmbr;$i++){
          $dspmsg=$dspmsg.$f1_keylist[$i]."、";
    }
    $dspmsg = $dspmsg."\n\n（検索レコード数：".$f2_rcrdnmbr."）\n";
    for(my $t=0;$t<$f2_rcrdnmbr;$t++){
         $dspmsg = $dspmsg.$f2_rcrdlist[$t];
    }
    $dspmsg = $dspmsg."\n（該当レコードなし　キー数：".$f8_keynmbr.")\n";
    for(my $k=0;$k<$f8_keynmbr;$k++){
         $dspmsg = $dspmsg.$f8_keylist[$k]."、";
    }	
    $dspmsg = $dspmsg."\n";
}
elsif($work eq "delete"){
    &io_lockup($g_lockfile,"err");
    &fl_rcrddelete($file1,"err");
    &io_unlock($g_lockfile,"");;
    $dspmsg = "データ削除完了しました。キー：";
    for($i=0;$i<$f1_keynmbr;$i++){
         $dspmsg=$dspmsg.$f1_keylist[$i]."、";
    }
    $dspmsg = $dspmsg."\n\n（削除レコード数：".$f2_rcrdnmbr."）\n";
    for(my $t=0;$t<$f2_rcrdnmbr;$t++){
         $dspmsg = $dspmsg.$f2_rcrdlist[$t];
    }
    $dspmsg = $dspmsg."\n（該当レコードなし　キー数：".$f8_keynmbr.")\n";
    for(my $k=0;$k<$f8_keynmbr;$k++){
         $dspmsg = $dspmsg.$f8_keylist[$k]."、";
    }	
    $dspmsg = $dspmsg."\n";

}

else{
    $errref="プログラムエラー - cg_0330 - $work";
    $errmsg="データの受信に問題がありました。\n申\訳ございませんが、再度ご試行ください。\n";
    &io_errexit($manager,$errref,$errmsg);
}
# ---- 結果表示----
&io_dspexit($dspmsg);