$logdir = dirname($_SERVER["SCRIPT_FILENAME"]).'/cgi/access/log/'; ##### 集計に含めないリンク元ページのURL #----------------------------------------------------------------# # ここで指定した文字列を含むURLのページからリンクしてきた場合は、# # ログファイルに記録しません。例えば、下記のように指定した場合は # # 「http://www.domain.or.jp/~userID/xxx.html」や「http://www.din # # .or.jp/~hideyuki/abcd/xxx.html」などのページからのリンクが記録 # # されません。 # # 複数のページを指定するには、下のようにカンマで区切って下さい。 # # 指定する必要がない場合は、下の行を削除して下さい。 # #----------------------------------------------------------------# $mysite = array('http://www.orangebox.jp/miraclerecords/'); ########## ↑ 初期設定終了 ↑ ########## #----------------------------------------------------------# # ここから下をカスタマイズするには、Perlの知識が必要です。 # # Perlについて十分な知識のない方は、変更しないで下さい。 # #----------------------------------------------------------# $today = date("Y,m,d"); $now = date("H,i,s"); list($hour, $min, ) = explode(",", $now); ##### 古いログファイルを削除 $oldlog = sprintf("%s%s", $logdir, date("Y,m,d", time() - 3600 * 24 * 8)).".csv"; if (file_exists($oldlog)) unlink($oldlog); ##### 今日のログファイル $logfile = sprintf("%s%s", $logdir, $today.".csv"); ##### 環境変数を取得 //$host = $_SERVER['REMOTE_HOST']; $addr = $_SERVER['REMOTE_ADDR']; $agent = $_SERVER['HTTP_USER_AGENT']; $ref = $_SERVER['HTTP_REFERER']; //if ($host eq "" || $host eq $addr) { $host = gethostbyaddr($addr); //} $agent = preg_replace("/\,/", ".", $agent); #$agent =~ tr/[a-zA-Z0-9\/\.;() ]/*/c; #$agent =~ s/[\r\t\n\f]//g; $ref = preg_replace("/\%7e/i", "~", $ref); $ref = preg_replace("/:80/", "", $ref); if (preg_match("/file:/", $ref, $t)) { $ref = ""; } #### ログファイル書き込み foreach ($mysite as $var) { if (preg_match("#".$var."#", $ref, $t)) return -1; } $fp = fopen($logfile, "a"); flock($fp, LOCK_EX); fwrite($fp, "$hour,$host,$addr,$agent,$ref,$min,\n"); flock($fp, LOCK_UN); fclose($fp); return 0;
咲ゃ 阪2羝ゃ羈1演篁ュ咲障 篋膣ゃ阪2ュャ障с亥咲障鐚茫娯阪2ヤ札亥翫障絎壕畿鐚 鐚MIRACLE
RECORDS.<蕁障
|
||||||||
(c)OrangeBox Inc. |