罪罰/石碑

$stonefile = './logdata/stone_log.cgi';

sub hist_write{
   # ここで国ログ書き込み

   ... 省略 ...

  
   #----------------------------ここから
   # 統一時は石碑に刻む
   if($touitu_flag==1){
     &stone_write;
   }
   #----------------------------ここまで

}

#----------------------------ここから
sub stone_write{
  open (DB2,">>$stonefile") || &error("open error:$stonefile",1);
  print DB2 $cdat;
  close(DB2)               or die "Can't close   : $!";
}
#----------------------------ここまで

1. $script         = "./stone.cgi";                # このスクリプトのパス
   $logfile        = "./logdata/stone_log.cgi";    # ログファイルのパス