wwwcount.cgiの改造（ログファイル一定件数でメール送信）

tky [E-Mail] 1999/12/12(日) 16:30:43
いつもお世話になっております。
wwwcount.cgiを使わせて頂いております。（ありがとうございます）
アクセスログをメールでレポートする機能で、
日ごとではなく一定件数のログがたまった時に
レポートする様に改造してみました。

正常に動作しているみたいですが、Perlはちゃんと勉強していないので、
正しい記述をしているかチェックをして頂けたらと思いまして・・
すみません。よろしくお願いいたします。

=====================================
# ログ保持件数
$max_logs = 30;

# ログファイルを開いて記録件数を取得
# （私の場合、一件のアクセスログは８行で記録されています）
open (IN, $file_access);
@mailent = <IN>;
close (IN);
$log_rows = 8;
$log_count = @mailent/$log_rows;

# 一定件数のログがたまれば、
if ($log_count >= $max_logs) {

　# アクセスログをメールで送信する
　　　　　：
　# アクセスログを初期化する
　　　　　：
}
================================

# 次は、日付記録ファイル（$file_date）を
# 使わなくて良い様に改造してみます。
# 慣れないので、慎重になってすごく時間がかかります。。

[上に] [前に] [次に]