sub access_check{
# アクセスログファイル入力
@access=();
&fileinput($access_log_file,'access');
$dmy=$access[@access-1];
@dmy=split("\,",$dmy);
$dmy=$dmy[3].','.$dmy[4];
local $count=substr($dmy[0],0,5);
# ↓前の行とのみ比較している
if($dmy ne "\"$agent\",\"$host\""){
# カウントUP(5桁まで)
$count++;
# アクセスログ更新
local $newaccess=sprintf("%05d",$count).",$today,($access_page),\"$agent\",\"$host\"";
push(@access,$newaccess);
if(@access>$access_max){$dmy=shift(@access);}
if ( !open (FILEOUT, ">$access_log_file") ){
$message="<HR>ファイル書き込みに失敗しました<HR>";
}else{
print FILEOUT join("\n",@access);
close(FILEOUT);
}
}
return $count;
}
を
sub access_check{
# アクセスログファイル入力
@access=();
&fileinput($access_log_file,'access');
$dmy=$access[@access-1];
@dmy=split("\,",$dmy);
$dmy=$dmy[3].','.$dmy[4];
local $count=substr($dmy[0],0,5);
return $count;
}
に直す。