#------------------------------
# 岸和田だんじりメール
# Copyright(C) 2009 Pecoyon.a & Noah Corp. 岸和田聖書教会 監修
#------------------------------
print "\n";
print "
\n";
print "データをチェックしています。\n";
print "\n";
print <
function re_Load(){
var url ="$ENV{'SCRIPT_NAME'}?=$wys=1=$pcs=$flag=$tms=$ct=$cl=$ary=$ing";
document.URL = url;
}
END
shift @log_line;
#一括 または分割ファイルを配列に格納
open(IN, ">$file") or &Error("ファイル: $fileが開けません。");
print IN @log_line;
close(IN);
if($wys eq "2"){
#読者ファイルを更新
open(IN, ">$file_2") or &Error("ファイル: $file_2が開けません。");
print IN @m_line;
close(IN);
}
#正しくない行 読者データに追加しなかったメールアドレス行データファイル
$file_3 ="./temp/r_check.dat";
open(IN, ">$file_3") or &Error("ファイル: $file_3が開きません。");
print IN @check;
close(IN);
print "\n";
print "\n";
exit;
sub Error{
print "\n";
print "$_[0]\n";
print "$_[0]
\n";
print "\n";
exit;
}