自宅サーバー用カウンタとアクセス解析CGIの総合改造例

KENT WEBさんのDAY COUNTER-EX v3.41のテキストカウンタへの改造例

下記にKENT WEBさんのDAY COUNTER-EX（dayx．cgi）が実行パス下の/cgi/count/dayx．cgiに設置されている場合の改造例を示します。改造したファイルは、同じディレクトリ（フォルダ）にdayxSSI．cgiというファイル名で保存した場合を示しています。トップページのhtmlファイルにと書きますと、そこに項1の様なカウント表示が挿入されます。

#!/usr/local/bin/perl

#┌─────────────────────────────────
#│  DAY COUNTER-EX v3.4 (2002/06/19)
#│  Copyright(C) KENT WEB 2002
#│  webmaster@kent-web.com
#│  http://www.kent-web.com/
#└─────────────────────────────────
$ver = 'DayX v3.4';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した
#│    いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
#│    直接メールによる質問は一切お受けいたしておりません。
#└─────────────────────────────────
#
# [タグの書き方の例]
#   SSI方式では、<!--#exec cgi="/cgi/count/dayxSSI.cgi"-->とします。（Webサーバーの絶対パスを使用すること！）
#   SSI方式に改造後は、下記の方法は使用できなくなります。
#   総カウント数     <img src="count/dayx.cgi?gif">   <--- 使用できない。
#   本日のカウント数 <img src="count/dayx.cgi?today"> <--- 使用できない。
#   昨日　　〃       <img src="count/dayx.cgi?yes">   <--- 使用できない。
#
# [日計／月次一覧を見る]
#    http://www.host.xxx/~user/count/dayxmgr.cgi <--- そのまま使用します。
#
# [チェックのしかた (ブラウザから最後に ?check をつけて呼出す）]
#    http://www.host.xxx/~user/count/dayx.cgi?check <--- そのまま使用します。
# -------------------------------------------------------------------
# [ディレクトリ構成例 (括弧内はパーミッション) ]
#
#    public_html / index.html ... ここにカウンタを設置
#        |
#        +-- count / dayx.cgi    [755] <--- オリジナルのCGIをそのままにしておきます。未使用。
#               |    dayxSSI.cgi [755] <--- dayx.cgiを改造して使用します。
#               |    dayxmgr.cgi [755] <--- そのまま使用します。
#               |    gifcat.pl   [644] <--- 不要になります。
#               |    dayx.dat    [666] <--- そのまま使用します。
#               |    day.dat     [666] <--- そのまま使用します。
#               |    mon.dat     [666] <--- そのまま使用します。
#               |    blue.gif          <--- そのまま使用します。
#               |    red.gif           <--- そのまま使用します。
#               |    ipa.dat     [666] <--- 追加します。☆★☆あらかじめ空ファイルを作成しておいて下さい。☆★☆
#               |
#               +-- gif1 / 1.gif 2.gif ... 0.gif <--- 不要になります。
#               |
#               +-- gif2 / 1.gif 2.gif ... 0.gif <--- 不要になります。
#               |
#               +-- lock [777] /

#============#
#  設定項目  #
#============#

# アクセスレポートライブラリ
$report = '../report/reportSSI.cgi'; # <--- 改造したアクセスレポートCGIファイルを相対パスで設定。

# 画像連結ライブラリ取込み
#require './gifcat.pl'; # <--- テキストカウンタなので、使用しなくて済むようになります。

# 総カウント数の桁数
#$digit1 = 6; <------------- 無指定で可。前0を入れる場合は、カウンタのタグで$countの代わりにsprintf("%06d",$count)とします。 

# 本/昨日カウント数の桁数
#$digit2 = 3; <------------- 無指定で可。前0を入れる場合は、カウンタのタグで$todayの代わりにsprintf("%03d",$today)とします。
#                                                           カウンタのタグで$yes  の代わりにsprintf("%03d",$yes  )とします。 

# ログファイル
$logfile = "./dayx.dat";

# 日次記録ファイル
$dayfile = "./day.dat";

# 月次記録ファイル
$monfile = "./mon.dat";

# 総カウント数用GIF画像のディレクトリ
#$gifdir1 = "./gif1"; <----- 使用しなくて済むようになります。

# 本/昨日カウント数用GIF画像のディレクトリ
#$gifdir2 = "./gif2"; <----- 使用しなくて済むようになります。

# ファイルロック機構
#   0 : しない
#   1 : する (symlink関数式) <--- UNIX用
#   2 : する (mkdir関数式) <----- Windows用
$lockkey = 2;

# ロックファイル名
$lockfile = "./lock/dayx.lock";

# カウンタの機能タイプ
#   0 : 総カウント数不要（昨日／本日のみ）
#   1 : 標準タイプ
#$type = 1; <--------------- 使用しなくて済むようになります。

# IPアドレスの二重カウントチェック
#   0 : チェックしない
#   1 : チェックする
$ip_check = 1;

# IPアドレス記録数で指定したIPアドレスは、記録されカウントされません。
# 従って、自サイトのURLから、カウンタを設置しているトップページに
# 戻ってくるカウントを防止出来ます。

# IPアドレス記録ファイル
$ipalogfile = "./ipa.dat";

# IPアドレス記録数（2以上にしないと機能しません。）
# １日の総カウント数の約10分の1を目安にしますと、
# 2時間程度のIPアドレスを溜め込むことが出来ます。
$ipa_num = 10;

# LAN 内のプライベートセグメントアドレス(192.168.1.0)を設定して、
# LAN 内からのアクセス(192.168.1.*)に対して、カウントされないようにします。
# 分からなければ、ルータやクライアント機のIPアドレスを入力して下さい。
$PrivateSegAddr = '192.168.1.0';

#============#
#  設定完了  #
#============#

# 引数を解釈
$mode = $ENV{'QUERY_STRING'};
$mode =~ s/\W//g;

# 更新系処理でないならば 1 秒待たせる
#if (($type == 1 && $mode eq "yes") || ($type == 1 && $mode eq "today") || ($type == 0 && $mode eq "yes")) { sleep(1); }

# チェックモード
#if (!$mode || $mode eq 'check') { &check; }
if ($mode eq 'check') { &check; }

# ヘッダ出力 <--------------------- SSI用のヘッダを追加します。
print "Content-type: text/plain\n\n";

# ロック開始
#if (($type && $mode eq "gif" && $lockkey) || (!$type && $mode eq "today" && $lockkey)) { &lock; }
if ($lockkey) { &lock; } # <--------- 1回の呼び出しで3個のカウンタ値を全て返すので、条件を簡単にします。

# 記録ファイルから読み込み
open(IN,"$logfile") || &error ("$logfileがopenできません。") ;
$data = <IN>;
close(IN);

# 記録ファイルを分解
($key,$yes,$today,$count,$youbi,$ip) = split(/<>/, $data);

# 日時を取得
$ENV{'TZ'} = "JST-9";
($mday,$mon,$year,$wday) = (localtime(time))[3..6];
@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$year += 1900;
$mon++;
$thisday = $week[$wday];
if ($mon < 10) { $mon = "0$mon"; }
$date = "$year\/$mon";

# IPチェック
$host = $ENV{'REMOTE_HOST'}; # <----- report.cgiスクリプトへ引数として与える。
$addr = $ENV{'REMOTE_ADDR'};
$flag=0;
if ($ip_check) {
#    $addr = $ENV{'REMOTE_ADDR'};
    if ($addr eq $ip) { $flag=1; }
    # LAN 内からのアクセスに対して、カウントされないようにします。
    if (pack("C3", split(/\./, $addr)) eq pack("C3", split(/\./, $PrivateSegAddr))) { $flag=1; }

    if (!$flag && $ipa_num > 1) {
        # IPアドレス記録データの読み込み
        open(IN,"$ipalogfile") || &error ("$ipalogfileがopenできません。") ;
        $ipadata = <IN>;
        close(IN);
        # IPアドレス記録ファイルを分解して、配列に格納
        @ipa[0..$ipa_num - 2] = split(/<>/, $ipadata);
        # IPアドレスチェック（アクセスしたIPアドレスが存在したら、カウントしない）
        foreach (@ipa) {
            if ($_ eq $addr) { $flag=1; last; }
        }
    }
    if (!$flag) {
        # アクセスしたIPアドレスが存在しなかったら、
        # IPアドレスを追加して、記録ファイル様式に変換
        $ipa = $addr . '<>';
        foreach (@ipa) { $ipa .= $_ . '<>'; }
        # IPアドレス記録ファイルを更新
        open(OUT,">$ipalogfile") || &error ("$logfileが出力用としてopenできません。") ;
        print OUT $ipa;
        close(OUT);
    }
}

# 本日のカウント数をキーにカウントアップ
#if ((!$flag && $type && $mode eq 'gif') || (!$flag && !$type && $mode eq 'today')) {
if (!$flag) { # <-------------------- 1回の呼び出しで3個のカウンタ値を全て返すので、条件を簡単にします。

    $count++;

    ## 当日処理
    if ($key eq $mday) {
        $today++;

        # ログをフォーマット
        $data = "$key<>$yes<>$today<>$count<>$thisday<>$addr<>\n";
    }
    ## 翌日処理
    else {
        # ログをフォーマット
        $data = "$mday<>$today<>1<>$count<>$thisday<>$addr<>\n";

        &day_count;
        &mon_count;
    }

    # ログを更新
    open(OUT,">$logfile") || &error ("$logfileが出力用としてopenできません。") ;
    print OUT $data;
    close(OUT);
}

# ロック解除
if ($lockflag) { &unlock; }

# カウンタ画像出力
#if ($mode eq "gif") { &count_view($count, $digit1, $gifdir1); } <--- 1回の呼び出しなので、未使用。
#elsif ($mode eq "yes") { &count_view($yes, $digit2, $gifdir2); }
#else { &count_view($today, $digit2, $gifdir2); }
#exit;

# テキストカウンタ出力
# ここにトップページに表示するカウンタのタグを書きます。
# ただし、総合カウント数には$countを、本日カウント数には$todayを、昨日カウント数には$yesを
# カウント数の代わりに記入します。
print <<"_HTML_";
<span style="color:red">開始日：200X年XX月XX日</span>より貴方は、
<span style="color:white; background-color:black; font-size:1.2em; font-family:'Times New Roman',sans-serif">
&nbsp;$count&nbsp;</span>人目<small>（本日：<strong>$today</strong>人、昨日：<strong>$yes</strong>人）</small>
のご訪問者です。<br />
<small>このカウンタは、<strong><a href=\"http://www.kent-web.com/\">DAY COUNTER-EXとAccess Report</a></strong>を
SSI方式に改造して使用しています。<br />
ご訪問者数の計数は、クッキーを発行せずにトップページにアクセスされたIPアドレスを$ipa_num個保持して、
重複計数を排除しています。</small><br />
_HTML_

# アクセス解析システム出力
if (!$flag) {
    require $report || &error ("$reportがrequireできません。"); # <--- アクセスレポートを読み込み。
    &report ($lockkey,$ip_chk,$host,$addr); # <----------------------- アクセスレポートを実行。
}

exit;

#-------------------#
# カウンタ出力処理  #
#-------------------#
#sub count_view { <--- テキストカウンタに変更したので、この回路は未使用に。
#    local(@view);
#    local($data, $digit, $dir) = @_;
#
#    # 桁数調整
#    while (length($data) < $digit) { $data = '0' . $data; }
#
#    @view=();
#    foreach (split(//, $data)) {
#        push(@view,"$dir/$_\.gif");
#    }
#
#    # 画像連結
#    print "Content-type: image/gif\n\n";
#    binmode(STDOUT);
#    print &gifcat'gifcat(@view);
#}

#--------------#
#  ロック処理  #
#--------------#
sub lock {
    local($retry) = 5;
    if (-e $lockfile) {
        local($mtime) = (stat($lockfile))[9];
        if ($mtime < time - 60) { &unlock; }
    }
    # symlink関数式ロック
    if ($lockkey == 1) {
        while (!symlink(".", $lockfile)) {
            if (--$retry <= 0) { &error ("$lockfileが作成できません。") ; }
            sleep(1);
        }
    # mkdir関数式ロック
    } elsif ($lockkey == 2) {
        while (!mkdir($lockfile, 0755)) {
            if (--$retry <= 0) { &error ("$lockfileが作成できません。") ; }
            sleep(1);
        }
    }
    $lockflag=1;
}

#--------------#
#  ロック解除  #
#--------------#
sub unlock {
    if ($lockkey == 1) { unlink($lockfile); }
    elsif ($lockkey == 2) { rmdir($lockfile); }
    $lockflag=0;
}

#------------------------#
#  日次カウント数の処理  #
#------------------------#
sub day_count {
    # ログの日次キーより本日の日が小さければ月が変わったと判断する
    if ($mday < $key) {
        open(DB,">$dayfile") || &error ("$dayfileがopenできません。") ;
        close(DB);
    }
    # 月内での処理
    else {
        if ($key < 10) { $key = "0$key"; }
        open(DB,">>$dayfile") || &error ("$dayfileに追記openできません。") ;
        print DB "$mon\/$key \($youbi\)<>$today<>\n";
        close(DB);
    }
}

#------------------------#
#  月間カウント数の処理  #
#------------------------#
sub mon_count {
    # 初めてのアクセスの場合
    if (-z $monfile) { $mons[0] = "$date<>$today<>\n"; }
    else {
        open(IN,"$monfile") || &error ("$monfileがopenできません。") ;
        @mons = <IN>;
        close(IN);

        # ログ配列の最終行を分解
        $mons[$#mons] =~ s/\n//;
        ($y_m,$cnt) = split(/<>/,$mons[$#mons]);

        # 当月処理
        if ($y_m eq $date) {
            $cnt = $cnt + $today;
            $mons[$#mons] = "$y_m<>$cnt<>\n";
        }
        # 翌月処理
        #（ログ配列の最終行が $dateと異なれば、月が変ったと判断する）
        else {
            $cnt = $cnt + $today;
            $mons[$#mons] = "$y_m<>$cnt<>\n";
            push(@mons,"$date<>0<>\n");
        }
    }

    # ログファイルを更新
    open(OUT,">$monfile") || &error ("$monfileが書き込み用としてopenできません。") ;
    print OUT @mons;
    close(OUT);
}

#--------------#
#  エラー処理  #
#--------------#
sub error {
    print "エラーが発生しました。$_[0] : $!\n";
    if ($lockflag) { &unlock; }

#    @err = ('47','49','46','38','39','61','2d','00','0f','00','80','00','00','00','00','00','ff','ff','ff','2c', '00','00','00','00','2d','00','0f','00','00','02','49','8c','8f','a9','cb','ed','0f','a3','9c','34', '81','7b','03','ce','7a','23','7c','6c','00','c4','19','5c','76','8e','dd','ca','96','8c','9b','b6', '63','89','aa','ee','22','ca','3a','3d','db','6a','03','f3','74','40','ac','55','ee','11','dc','f9', '42','bd','22','f0','a7','34','2d','63','4e','9c','87','c7','93','fe','b2','95','ae','f7','0b','0e', '8b','c7','de','02','00','3b');
#
#    print "Content-type: image/gif\n\n";
#    foreach (@err) {
#        $data = pack('C*',hex($_));
#        print $data;
#    }
    exit;
}

#------------------#
#  チェックモード  #
#------------------#
sub check {
    print "Content-type: text/html\n\n";
    print "<html><head><title>DAY COUNTER-EX</title></head>\n";
    print "<body>\n", "<h2>Check Mode</h2>\n", "<UL>\n";

#    # ログファイル確認
#    foreach ($logfile, $dayfile, $monfile) {
#        # パス
#        if (-e $_) {
#            print "<LI>$_ → パス OK!\n";
#
#            # パーミッション
#            if (-r $_ && -w $_) { print "<LI>$_ → パーミッション OK!\n"; }
#            else { print "<LI>$_ → パーミッション NG!\n"; }
#        } else { print "<LI>$_ → パス NG!\n"; }
#    }
#
#    # 画像ディレクトリ
#    foreach ($gifdir1, $gifdir2) {
#        if (-d $_) {
#            print "<LI>$_ → 画像ディレクトリ OK!\n";
#
#            # 画像
#            foreach $n (0 .. 9) {
#                if (-e "$_\/$n\.gif") { print "<LI>$_\/$n\.gif → OK!\n"; }
#                else { print "<LI>$_\/$n\.gif → NG!\n"; }
#            }
#        } else { print "<LI>$_\/$n\.gif → 画像ディレクトリ NG!\n"; }
#    }
#
#    # ロックディレクトリ
#    print "<LI>ロック形式：";
#    if ($lockkey == 0) { print "ロック設定なし\n"; }
#    else {
#        if ($lockkey == 1) { print "symlink\n"; }
#        else { print "mkdir\n"; }
#        ($lockdir) = $lockfile =~ /(.*)[\\\/].*$/;
#        print "<LI>ロックディレクトリ：$lockdir\n";
#
#        if (-d $lockdir) {
#            print "<LI>ロックディレクトリ : パス OK\n";
#            if (-r $lockdir && -w $lockdir && -x $lockdir) {
#                print "<LI>ロックディレクトリ : パーミッション OK\n";
#            } else {
#                print "<LI>ロックディレクトリ : パーミッション NG → $lockdir\n";
#            }
#        } else { print "<LI>ロックディレクトリ : パス NG → $lockdir\n"; }
#    }
#
    # 著作権表示：削除禁止 <--- ここは、削除してはいけない。
    print "<P><!-- $ver -->\n";
    print "- <a href=\"http://www.kent-web.com/\">$ver</a> 改造：○○○-\n"; # <--- ○○○は、貴方のお名前を記入。
    require $report || &error ("$reportがrequireできません。"); # <--------- アクセスレポートを読み込み。
    &check_report; # <------------------------------------------------------ アクセスレポートを実行。
    print "</UL>\n</body></html>\n";
    exit;
}

#!/usr/local/bin/perl

#┌─────────────────────────────────
#│ Access Report v3.0 (2002/10/24)
#│ アクセス解析システム
#│ Copyright(C) Kent Web 2002
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#└─────────────────────────────────
$ver = 'Access Report v3.0';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した
#│    いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
#│    直接メールによる質問は一切お受けいたしておりません。
#└─────────────────────────────────
#
# [ (1) CGIモード : タグの貼り付け方例 ]
#  ＊以下のタグを、必ず <body>～</body> 間に記述して下さい
# <SCRIPT Language="JavaScript"> <--- 使用しない。
# <!--
# document.write("<img src='http://～～/cgi-bin/report.cgi?");
# document.write(document.referrer+"' width=1 height=1>");
# // -->
# </SCRIPT>
#
# [ (2) SSIモード : タグの貼り付け方例 ]
#
# <!--#exec cgi="./cgi-bin/report.cgi"--> <--- 使用できない。このスクリプトは、dayxSSI.cgiより呼び出される形にします。
#
#
# [ ファイル構成例 ] かっこ内はパーミッション値
#
#  public_html / index.html
#       |
#       +-- report / report.cgi    [755] <--- オリジナルのCGIをそのままにしておきます。未使用。 
#              |     reportSSI.cgi [755] <--- report.cgiを改造して使用します。
#              |     report.log    [666] <--- そのまま使用します。
#              |     replist.cgi   [755] <--- そのまま使用します。
#              |     jcode.pl      [644] <--- そのまま使用します。
#              |     graph1.gif          <--- そのまま使用します。
#              |     graph2.gif          <--- そのまま使用します。
#              |
#              +-- lock [777] /

sub report { # <--------------------------- reportサブルーチンとして実行可能とする。
($lockkey,$ip_chk,$host,$addr) = @_; # <--- このスクリプトを呼び出すdayx.cgiよりデータを受けます。
                                     #      これを書かなくても動きますが、コメントとして入れています。

#============#
#  基本設定  #
#============#

# 文字コードライブラリ　./は、カレントディレクトリですが、このスクリプトを呼び出すdayx.cgiのディレクトですから、ご注意！
#$jcode = 'D:/www/cgi/report/jcode.pl'; # <--- 絶対パスで設定しておく方法でも可。
$jcode = '../report/jcode.pl'; # <------- このスクリプトを呼び出すdayx.cgiのディレクトからの相対パスで設定します。<------- ※１

# SSIモード (0=no 1=yes)
# → SSIの利用可能なサーバ限定（呼び出しタグに注意）
$ssi = 1;

# ログファイル
#$logfile = 'D:/www/cgi/report/report.log'; # <--- 絶対パスで設定しておく方法でも可。
$logfile = '../report/report.log'; # <--- このスクリプトを呼び出すdayx.cgiのディレクトからの相対パスで設定します。

# 最大ログ保持数（これ以上大きくしない方が無難）
$max = 1000;

# アトランダム機能
# → 0以外で有効。その数値の確率でしかログ保存を行わない。
# → 1日当りの訪問回数が上記$max回を超えるサイトの場合、時間帯の平準化を行う機能。
# → 例：$rand=100; であれば、確率的に100回に1度しか集計を行わない。
$rand = 0;

# リンク元除外ページ（半角スペースで区切る）
# → ここで指定したURLは「リンク元」集計から除外されます
# → 例：$myurl = 'http://www.xxx.yyy/~foo/ http://www.zzz.xx.jp/';
$myurl = '';

# ファイルロック機構
#   0 : しない
#   1 : する (symlink関数式) <--- UNIX用
#   2 : する (mkdir関数式) <----- Windows用
#$lockkey = 0; <----------------- このスクリプトを呼び出すdayx.cgiより引数として与えられるので不要。

# ロックファイル名　./は、カレントディレクトリですが、このスクリプトを呼び出すdayx.cgiのディレクトですから、ご注意！
$lockfile = './lock/report.lock';

# IPアドレスチェックによる二重記録排除 (0=no 1=yes)
#$ip_chk = 0; <------------------ このスクリプトを呼び出すdayx.cgiより引数として与えられるので不要。

#============#
#  設定完了  #
#============#

# チェックモード
if ($ENV{'QUERY_STRING'} eq "check") { &check_report; }

# ランダム開始
if ($rand > 0) {
    srand;
    local($rand2) = int(rand($rand));
    if ($rand2 != 0) { &view; exit; }
}

# リンク元を取得
if ($ssi) { $ref = $ENV{'HTTP_REFERER'}; }
else { $ref = $ENV{'QUERY_STRING'}; }
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref =~ /^https?\:\/\//) {
    $ref =~ s/&/&amp;/g;
    $ref =~ s/"/&quot;/g;
    $ref =~ s/</&lt;/g;
    $ref =~ s/>/&gt;/g;
    $ref =~ s/\r|\n|\0//g;

    # シフトJIS変換（検索エンジンからのキーワード処理）
    require $jcode; # <-------------------------------------------------------------------------------- ※１
    &jcode'convert(*ref,'sjis'); # <------------------------------------------------------------------- ※１
} else {
    $ref='';
}

# リンク元集計での除外指定処理
if ($myurl) {
    $flag=0;
    foreach (split(/\s+/, $myurl)) {
        if ($ref =~ /$_/i) { $flag=1; last; }
    }
    if ($flag) { $ref=''; }
}

# ブラウザ情報を取得 <--- ※このスクリプトのバージョンアップは、このブラウザ情報の追加がほとんどです。
$agent2 = $agent = $ENV{'HTTP_USER_AGENT'};

if ($agent =~ /AOL/) { $agent = 'AOL'; }
elsif ($agent =~ /Opera/i) { $agent = 'Opera'; }
elsif ($agent =~ /MSIE 3/i) { $agent = 'MSIE 3'; }
elsif ($agent =~ /MSIE 4/i) { $agent = 'MSIE 4'; }
elsif ($agent =~ /MSIE 5/i) { $agent = 'MSIE 5'; }
elsif ($agent =~ /MSIE 6/i) { $agent = 'MSIE 6'; }
elsif ($agent =~ /Mozilla\/2/i) { $agent = 'Netscape 2'; }
elsif ($agent =~ /Mozilla\/3/i) { $agent = 'Netscape 3'; }
elsif ($agent =~ /Mozilla\/4/i) { $agent = 'Netscape 4'; }
elsif ($agent =~ /Netscape ?6/i) { $agent = 'Netscape 6'; }
elsif ($agent =~ /Netscape\/7/i) { $agent = 'Netscape 7'; }
elsif ($agent =~ /Mozilla\/5/i) { $agent = 'Mozilla'; }
elsif ($agent =~ /Netscape/i && $agent =~ /Gecko/i) { $agent = 'Mozilla'; }
elsif ($agent =~ /Lynx/i) { $agent = 'Lynx'; }
elsif ($agent =~ /Cuam/i) { $agent = 'Cuam'; $os = 'Windows'; }
elsif ($agent =~ /Ninja/i) { $agent = 'Ninja'; $os = 'Windows'; }
elsif ($agent =~ /WWWC/i) { $agent = 'WWWC'; $os = 'Windows'; }
elsif ($agent =~ /DoCoMo/i) { $agent = $os = 'DoCoMo'; }
elsif ($agent =~ /J-PHONE/i) { $agent = $os = 'J-PHONE'; }
elsif ($agent =~ /UP\.Browser/i) { $agent = $os = 'EZweb'; }
elsif ($agent =~ /L\-mode/i) { $agent = $os = 'L-mode'; }
elsif ($agent =~ /ASTEL/i) { $agent = $os = 'ASTEL'; }
elsif ($agent =~ /PDXGW/i) { $agent = $os = 'H&quot;'; }

if ($agent2 =~ /win[dows ]*95/i) { $os = 'Win95'; }
elsif ($agent2 =~ /win[dows ]*9x/i) { $os = 'WinMe'; }
elsif ($agent2 =~ /win[dows ]*98/i) { $os = 'Win98'; }
elsif ($agent2 =~ /win[dows ]*XP/i) { $os = 'WinXP'; }
elsif ($agent2 =~ /win[dows ]*NT ?5\.1/i) { $os = 'WinXP'; }
elsif ($agent2 =~ /Win[dows ]*NT ?5/i) { $os = 'Win2000'; }
elsif ($agent2 =~ /win[dows ]*2000/i) { $os = 'Win2000'; }
elsif ($agent2 =~ /Win[dows ]*NT/i) { $os = 'WinNT'; }
elsif ($agent2 =~ /Win[dows ]*CE/i) { $os = 'WinCE'; }
elsif ($agent2 =~ /shap pda browser/i) { $os = 'ZAURUS'; }
elsif ($agent2 =~ /Mac/i) { $os = 'Mac'; }
elsif ($agent2 =~ /X11/ || $agent2 =~ /SunOS/i || $agent2 =~ /Linux/i || $agent2 =~ /HP-UX/i || $agent2 =~ /FreeBSD/i || $agent2 =~ /NetBSD/i || $agent2 =~ /OSF1/i || $agent2 =~ /IRIX/i) { $os = 'UNIX'; }

# ホスト名を取得
#$host = $ENV{'REMOTE_HOST'}; <----- このスクリプトを呼び出すdayx.cgiより引数として与えられるので不要。
#$addr = $ENV{'REMOTE_ADDR'}; <----- このスクリプトを呼び出すdayx.cgiより引数として与えられるので不要。
#if ($host eq "" || $host eq $addr) {
#    $host = gethostbyaddr(pack("C4",split(/\./,$addr)),2) || $addr;
#}

if ($host =~ /(.*)\.(\d+)$/) { ; }
elsif ($host =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3\.$4"; }
elsif ($host =~ /(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3"; }

# 時間を取得
$ENV{'TZ'} = "JST-9";
$hour = (localtime(time))[2];

# ロック開始
&lock if ($lockkey);

# ログ読み込み
open(IN,"$logfile") || &error("Open Error : $logfile");
@lines = <IN>;
close(IN);
$top = shift(@lines);

# IPチェック
if ($ip_chk) {
    chop($top);
    if ($addr eq $top) {
        &unlock;
#        &view;
        exit;
    }
}

# 記事数を調整し、新規ログをフォーマット
while ($max-1 < @lines) { pop(@lines); }
unshift(@lines,"$agent<>$os<>$host<>$ref<>$hour<>\n");
unshift(@lines,"$addr\n");

# 更新
open(OUT,">$logfile") || &error("Write Error : $logfile");
print OUT @lines;
close(OUT);

# ロック解除
&unlock if ($lockkey);

# 表示
#&view;
exit;

} # reportサブルーチンの終わり <--- ここまでをreportサブルーチンとします。

#------------#
#  結果表示  #
#------------#
#sub view {
#    if ($ssi) {
#        print "Content-type: text/plain\n\n";
#    } else {
#        # 透過GIF定義
#        local(@dmy) = (
#            '47','49','46','38','39','61','02','00','02','00','80',
#            '00','00','00','00','00','ff','ff','ff','21','f9','04',
#            '01','00','00','01','00','2c','00','00','00','00','02',
#            '00','02','00','00','02','02','8c','53','00','3b',
#            );
#
#        print "Content-type: image/gif\n\n";
#        binmode STDOUT;
#        foreach (@dmy) {
#            print pack('C*',hex($_));
#        }
#    }
#}

#--------------#
#  ロック処理  #
#--------------#
#sub lock { # <----- このスクリプトを呼び出すdayx.cgiと重複するので不要。
#    local($retry) = 5;
#
#    # 1分以上古いロックは削除する
#    if (-e $lockfile) {
#        local($mtime) = (stat($lockfile))[9];
#        if ($mtime < time - 60) { &unlock; }
#    }
#    # symlink関数式ロック
#    if ($lockkey == 1) {
#        while (!symlink(".", $lockfile)) {
#            if (--$retry <= 0) { &error('LOCK is BUSY'); }
#            sleep(1);
#        }
#    # mkdir関数式ロック
#    } elsif ($lockkey == 2) {
#        while (!mkdir($lockfile, 0755)) {
#            if (--$retry <= 0) { &error('LOCK is BUSY'); }
#            sleep(1);
#        }
#    }
#    $lockflag=1;
#}

#--------------#
#  ロック解除  #
#--------------#
#sub unlock { # <----- このスクリプトを呼び出すdayx.cgiと重複するので不要。
#    if ($lockkey == 1) { unlink($lockfile); }
#    elsif ($lockkey == 2) { rmdir($lockfile); }
#    $lockflag=0;
#}

#--------------#
#  エラー処理  #
#--------------#
#sub error { # <----- このスクリプトを呼び出すdayx.cgiと重複するので不要。
#    &unlock if ($lockflag);
#    die "$_[0] : $!";
#}

#------------------#
#  チェックモード  #
#------------------#
sub check_report { # <--- このスクリプトを呼び出すdayx.cgiと重複するので変更（このスクリプトをpackage化していない為）。
#    print "Content-type: text/html\n\n";
#    print "<html><head><title>$ver</title></head>\n";
#    print "<body>\n<UL>\n";
#
#    # jcode.plの位置チェック
#    if (-e $jcode) { print "<LI>jcode.pl の位置 : OK!\n"; }
#    else { print "<LI>jcode.pl の位置が不正です : $jcode\n"; }
#
#    # ログファイルのパス確認
#    if (-e $logfile) {
#        print "<LI>ログファイルのパス : OK!\n";
#
#        # パーミッション
#        if (-r $logfile && -w $logfile) {
#            print "<LI>ログファイルのパーミッション : OK!\n";
#        } else {
#            print "<LI>ログファイルのパーミッション : NG → $logfile\n";
#        }
#    } else { print "<LI>ログファイルがありません : $logfile\n"; }
#
#    # ロックディレクトリ
#    print "<LI>ロック形式：";
#    if ($lockkey == 0) { print "ロック設定なし\n"; }
#    else {
#        if ($lockkey == 1) { print "symlink\n"; }
#        else { print "mkdir\n"; }
#
#        ($lockdir) = $lockfile =~ /(.*)[\\\/].*$/;
#        print "<LI>ロックディレクトリ：$lockdir\n";
#
#        if (-d $lockdir) {
#            print "<LI>ロックディレクトリのパス：OK\n";
#
#            if (-r $lockdir && -w $lockdir && -x $lockdir) {
#                print "<LI>ロックディレクトリのパーミッション：OK\n";
#            } else {
#                print "<LI>ロックディレクトリのパーミッション：NG → $lockdir\n";
#            }
#        } else { print "<LI>ロックディレクトリのパス：NG → $lockdir\n"; }
#    }

    # 著作権表示：削除禁止 <--- ここは、削除してはいけない。
    print "<P><span style='font-size:9pt;font-family:Verdana'><!-- $ver -->\n";
    print "- <a href='http://www.kent-web.com/'>Access Report</a> 改造：○○○-\n"; # <--- ○○○は、貴方のお名前を記入。
    print "</span>\n</UL>\n</body>\n</html>\n";
    exit;
}

1; # <--- requireで呼び出されるスクリプトの最後には、これが必要。

__END__

自宅サーバー用カウンタとアクセス解析CGIの総合改造例

1. 改造する目的（なぜSSI方式のカウンタに変更するのか？）

2. SSIカウンタの基本

3. インストールと動作確認

4. 日計カウンタ２とアクセスレポートの改造例の実際

5. アクセス元のrefererの文字化け対策

6. 改造後の処置