#!/usr/bin/perl

#print "Content-type: text/html\n\n";

$g_manager = 'fuji21@fuji21.com';
$g_mgrhtml = "<a href='mailto:".$g_manager."'>".$g_manager."</a>";
$g_infomgr  = 'fuji21@fuji21.com';

#print "DEBUG 00<BR>\n";
require '../../basiccgi30/cgi-bin/cg_00io30.pl';
require '../../basiccgi30/cgi-bin/cg_00st30.pl';
&st_dateform;
require '../../basiccgi30/cgi-bin/cg_00fl30.pl';
require '../../basiccgi30/cgi-bin/cg_00ct30.pl';
#print "DEBUG 00a<BR>\n";
require '../../basiccgi30/cgi-bin/cg_10dd30.pl';
require '../../basiccgi30/cgi-bin/cg_10di30.pl';
$g_link30html = "../../basiccgi30/cntrl/cg_link30.html";
$cgiurl       = "../cgi-bin/cg_1230.cgi"; 
$g_lockfile   = "../cntrl/cg_1230lock.txt";
#$g_grpfile   = "../cg_40aadata/cg-40aadata.txt";
$dd_datafile  = "../cg_12aadata/cg-12aadata.txt";
$f1_keylen    = 17;
$imgnopath    = "../../f21imgno/";

# ======== end ========================
#print "DEBUG 01<BR>\n";
$prgname = "cg_1230";

#print "DEBUG 004<BR>\n";
# ******受信・デコード ******

&io_decode;

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

$work         = $cgi{'work'};
$ctr_code     = $cgi{'ctr_code'};
$ctr_type     = $cgi{'ctr_type'};
$ctr_pos      = $cgi{'ctr_pos'}; 
$ctr_file     = $cgi{'ctr_file'};
$ctr_url      = $cgi{'ctr_url'};      

$ctr_work     = $work;
$imgnopath    = $imgnopath.$ctr_type;

if($work eq "imgctr"){
     if($ctr_pos eq "6"){
           &io_lockup($g_lockfile,"err");
           &ctr_record; 
     } 
     else{
           &ctr_read;
           if($ctr_pos eq "1"){
               &io_unlock($g_lockfile,"");
           }
     }
     $ctr_full = $ctr_full+0;
     $len =length($ctr_full);
     $counter="000000";
     substr($counter,6-$len,$len)=$ctr_full;

     $ctr_pos = $ctr_pos+0;

     if($ctr_pos > $len){
          $imgfile  = $imgnopath."/000.gif";
     }
     else{
          $digit = substr($counter,6-$ctr_pos,1);
          $imgfile  = $imgnopath."/".$digit.".gif";
     }
     &imgdsp;
     exit;
}
elsif($work eq "imgtransp"){
     &io_lockup($g_lockfile,"err");
     &ctr_record;
     &io_unlock($g_lockfile,"");
     $imgfile  = $imgnopath."/transp.gif";
     &imgdsp;
     exit;
}
elsif($work eq "figdsp" || $work eq "imgdsp"){
#     print "Content-type: text/html\n\n";
#     print "DEBUG figdsp/imgdsp 01<br />";
     &io_lockup($g_lockfile,"err");
     &ctr_record;
     &io_unlock($g_lockfile,"");
#     print "DEBUG figdsp/imgdsp 02 $ctr_file<br />";
     $f2_SIZE = &io_fileread("",$ctr_file,"err");
     
     print "Content-type: text/html\n\n";
     for($i=0;$i<$f2_SIZE;$i++){
          $_=$f2_LINES[$i];
          if($_ =~ m/COUNTER/g){
               if($work eq "figdsp"){
                     print "$ctr_full\n";
               }
               else{
                     foreach (0..length("$ctr_full")-1){
                          $img = substr($ctr_full,$_,1);
                          print "<img src=\"$imgnopath/$img.gif\" alt=\"$img\" border=\"0\">";
                     }
               }
          }
          else{
                print $_
          }
     }
}	
elsif($work eq "link"){
        print "location:$ctr_url\n\n";
        &io_lockup($g_lockfile,"err");
        &ctr_record;
        &io_unlock($g_lockfile,"");
        exit;
}
else{
    $errmsg=$ctr_full."データの受信に問題がありました。\n申\訳ございませんが、再度ご試行ください。\n受信内容：".$g_str."\n";
    $errref = "プログラムエラー：".$prjcode." - ".$work." - ".$prgname;
    &io_errexit($errmsg,$errref,$g_manager);

}

# ---- 結果表示（なし）　および　管理メール発信----
exit;

sub imgdsp{
     $size = -s $imgfile;

     open(FILE, "$imgfile");
     binmode(FILE);
     $w=read(FILE,$buffer,$size);
     close(FILE);

     binmode(STDOUT);
     print "Content-type:img/gif\n\n";
     print "$buffer"; 
}