SSIがうまく動かない
公開日:
:
最終更新日:2014/01/09
プログラミング
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
アクセスログを記録するSSIなんですが
ログが記録されない。
コマンドラインで
perl 4-2.cgi
としたらちゃんとログが記録されるんですが。
どこが間違えているのだろう・・・。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>あくせすろぐ</title></head>
<body>
<p>アクセスログを取りました</p>
</body>
</html>
#!/usr/bin/perl
$LOGPATH = './logs/';
$EXPIRES = 3;
$tm = time;
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm);
$year += 1900;
++$mon;
$ln = "$hour\t$min\t$ENV{'REMOTE_HOST'}\t"
. "$ENV{'HTTP_REFFER'}\t$ENV{'HTTP_USER_AGENT'}\n";
$logfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
open(FILE, ">>$logfile")
or die("エラー:ログファイルが開けません");
eval{ flock(FILE, 2) };
seek(FILE, 0, 2);
print FILE $ln;
close(FILE);
$tm -= $EXPIRES * 60 * 60 * 24;
($sec, $min, $hour, $mday, $mon, $year) = localtime($tm);
$year += 1900;
++$mon;
$delfile = sprintf(
"$LOGPATH%04d%02d%02d.dat", $year, $mon, $mday);
if(-e $delfile){
unlink $delfile;
}
関連記事
- PREV
- 僕がリスペクトしている清水さんの自伝的スライド
- NEXT
- 第10回 コスプレとWeb2.0 後編