#!/usr/bin/perl

# ======== end ========================
$prgname = "cg_0530";

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

#print "DEBUG 01<BR>\n";
# ---- 共用プログラム ----
require 'cg_00io30.pl';
#print "DEBUG 02<BR>\n";
require 'cg_00st30.pl';
#print "DEBUG 03<BR>\n";
&st_dateform;

#******  データ受信・デコード ******
@multi_name = ('--','--','--');
@multi_nmbr = (0,0,0);

#print "DEBUG 03<BR>\n";

&io_decode;

#print "DEBUG 04 - $g_str<BR>\n";
# ======== 単数選択項目（各NAME）のハッシュ変数を通常の変数に変換 ========

$work        = $cgi{'work'};
$oldvalue    = $cgi{'oldvalue'};
$len         = $cgi{'len'};
$dcmllen     = $cgi{'dcmllen'};
$adjust      = $cgi{'adjust'};
$mark        = $cgi{'mark'};
$pos1        = $cgi{'pos1'};

#******  プログラム本体  ******
#print "DEBUG 05 - $work<BR>\n";

if($work eq "dateform"){
    &st_dateform;
    $dspmsg = "日時取得の結果：\n\n";
    $dspmsg = $dspmsg.'$date_day  = '.$date_day."\n".'$date_min  = '.$date_min."\n".'$date_sec = '.$date_sec."\n";
    $dspmsg = $dspmsg.'$cur_year = '.$cur_year."\n".'$cur_mon  = '.$cur_mon."\n".'$cur_day  = '.$cur_day."\n".'$cur_week = '.$cur_week."\n";
    $dspmsg = $dspmsg.'$cur_hour = '.$cur_hour."\n".'$cur_min  = '.$cur_min."\n".'$cur_sec  = '.$cur_sec."\n".'$cur_time = '.$cur_time."\n";
#print "DEBUG 21 - $work - $dspmsg<BR>\n";
#   &io_dspexit($dspmsg);
}
elsif($work eq "datejpn"){
    my $newvalue = &st_datejpn($oldvalue);
    $dspmsg  = "年月日表\示変更の結果：\n\n".$newvalue."\n";
}
elsif($work eq "dcmlform"){
    my $newvalue = &st_dcmlform($dcmllen,$adjust,$oldvalue);
    $dspmsg = "数値整形（切り上げ、四捨五入、切り捨て、下位桁数揃え）の結果：\n\n".$newvalue."\n";
}
elsif($work eq "commaform"){
    my $newvalue = &st_commaform($oldvalue);
    $dspmsg = "数値整形（コンマ）の結果：\n\n".$newvalue."\n";
}
elsif($work eq "nmbrform"){
    my $newvalue = &st_nmbrform($len,$mark,$oldvalue);
    $dspmsg = "数値整形（上位桁数揃え、コード用ほか）：\n\n".$newvalue."\n";
}
elsif($work eq "strform"){
    my $newvalue = &st_strform($len,$mark,$pos1,$oldvalue);
    $dspmsg = "文字列整形（桁数揃え、コード用ほか）：\n\n".$newvalue."\n";
}
elsif($work eq "rndmform"){
    my $newvalue = &st_rndmform($len);
    $dspmsg = "乱数コード取得の結果：\n\n".$newvalue."\n";
}
elsif($work eq "hankakuform"){
    $newvalue = &st_hankakuform($oldvalue);
    $dspmsg = "全角の半角変換の結果：\n\n".$newvalue."\n";
}

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