#------------------------------ # 岸和田だんじりメール # 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; }