#!/usr/local/bin/perl

#
#  プロトタイプSSIアクセスカウンタ
#
#      2000/ 4/27  宍戸　輝光
#
#　アクセスカウンタロック付。改変・配布自由
#

$lockdir="locks/pcnt"; # ロック用ディレクトリ
$cfile="pcount";  # カウントファイル

$try=5;

while (!mkdir($lockdir,0755)) { # ロック

  if (--$try<=0) {

    print "ロック失敗\n";

    exit;

  }

  sleep(1);

}

open(F,"+< $cfile");
$cnt=<F>+1; # アクセスカウンタ加算
truncate(F,0);
seek(F,0,0);
seek(F,0,0);
print F $cnt;
close(F);

rmdir $lockdir; # ロック解除

print $cnt; # アクセス数表示