#!/usr/bin/perl ## e-counter v0.51 (2000/11/07) : ベータ版 ## Copyright(C) Kent Web 2000 ## webmaster@kent-web.com ## http://www.kent-web.com/ #--- [注意事項] ------------------------------------------------# # 1. このスクリプトはフリーソフトです。このスクリプトを使用した # # いかなる損害に対して作者は一切の責任を負いません。 # # 2. 設置に関する質問はサポート掲示板にお願いいたします。 # # 直接メールによる質問は一切お受けいたしておりません。 # #---------------------------------------------------------------# # 【ディレクトリ／ファイル構成例】かぎかっこ内はパーミッション値 # # public_html / index.html (トップページ) # | # +-- cgi-bin [777] / ecount.cgi [755] # | ecount.dat [666] # | # +-- gif / 0.gif 1.gif .... 9.gif # # 【タグの書き方】 # (1) IMGタグを「桁数」分だけ記述する # (2) 右のタグから左のタグへ順に、引数を数字（桁数）で記述する # # 例1 ： 4桁で表示したいとき # # # # # # 例2 ： 6桁で表示したいとき # # # # # # # # ↑例は見やすいようにタグ毎に改行していますが、実際は改行せずに # 全てのタグを一行で記述します。 # # 【チェックモード】 # ・引数に「check」を付けて呼び出すと簡易的な設定チェックを行ないます # # 例：http://www.xxx.zzz/cgi-bin/ecount.cgi?check #============# # 設定項目 # #============# # ログファイル $logfile = "./ecount.dat"; # 画像ディレクトリ（最後は / で終わること） # → フルパスだと / から始まるパス（http://からではない） $imgdir = "./gif/"; # ロックファイル形式 # 0=no 1=symlink 2=open 3=mkdir $lockkey = 0; # ロックファイル名 $lockfile = "./ecount.lock"; # IPチェック機能（重複カウント対策） # 0=no 1=yes $ipcheck = 1; #============# # 設定完了 # #============# # 引数を取得し、念のためデコードして余計なコードを削除 $buf = $ENV{'QUERY_STRING'}; $buf =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $buf =~ s/\r//g; $buf =~ s/\n//g; $buf =~ s/\t//g; # 引数がない場合はエラー if ($buf eq "") { &error; } # チェックモードのときはチェック処理 if ($buf eq "check") { ✓ } # ロック開始 if ($lockkey && $buf == 1) { &lock; } # ログを読み込んで分解 open(IN,"$logfile") || &error; $count = ; close(IN); ($count, $ip) = split(/:/, $count); # IPチェック $flag=0; $addr = $ENV{'REMOTE_ADDR'}; if (($ipcheck && $addr ne $ip) || (!$ipcheck)) { $flag=1; $count++; } # ログ更新モード if ($buf == 1 && $flag == 1) { open(OUT,">$logfile") || &error; print OUT "$count\:$addr"; close(OUT); } # ロック解除 if ($lockkey) { &unlock; } # カウント数を１文字毎に分解して表示画像を定義 @file = split(//, $count); if ($#file + 1 >= $buf) { $view = $file[$#file + 1 - $buf]; } else { $view = '0'; } # 画像を読み込んで表示 open(IMG,"$imgdir$view\.gif") || &error; print "Content-type: image/gif\n\n"; binmode(IMG); binmode(STDOUT); print ; close(IMG); exit; #--------------# # ロック処理 # #--------------# sub lock { # symlink関数式ロック if ($lockkey == 1) { local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error; } sleep(1); } # open関数式ロック } elsif ($lockkey == 2) { local($flag)=0; foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile") || &error; close(LOCK); $flag = 1; last; } } if (!$flag) { &error; } # mkdir関数式ロック } elsif ($lockkey == 3) { if (-e $lockfile) { # 3分以上古いロックは削除する ($mtime) = (stat($lockfile))[9]; if ($mtime < time - 90) { rmdir($lockfile); } } local($retry) = 5; while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { &error; } sleep(1); } } } #--------------# # ロック解除 # #--------------# sub unlock { if ($lockkey == 1 || $lockkey ==2) { unlink($lockfile); } elsif ($lockkey == 3) { rmdir($lockfile); } } #--------------# # エラー処理 # #--------------# sub error { &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 "e-counter\n"; print "\n

e-counter Check Mode

\n\n"; # 著作権表示（削除・改変不可） print "Copyright(C) Kent Web 2000\n"; print "\n"; exit; }