#!/usr/local/bin/perl $ver = 'e-Counter v1.3'; # # 【ディレクトリ／ファイル構成例】かぎかっこ内はパーミッション値 # # public_html / index.html (トップページ) # | # +-- cgi-bin / ecount.cgi [755] # | ecount.dat [666] # | # +-- gif / 0.gif 1.gif .... 9.gif # | # +-- lock [777] / # # 【タグの書き方】 # (1) IMGタグを「桁数」分だけ記述する # (2) 右のタグから左のタグへ順に、引数を数字（桁数）で記述する # # 例1 ： 4桁で表示したいとき # # # # # # 例2 ： 6桁で表示したいとき # # # # # # # # ↑例は見やすいようにタグ毎に改行していますが、実際は改行せずに # 全てのタグを一行で記述します。 # # 【チェックモード】 # ・引数に「check」を付けて呼び出すと簡易的な設定チェックを行ないます # # 例：http://www.xxx.zzz/cgi-bin/ecount.cgi?check #============# # 設定項目 # #============# # ログファイル $logfile = './ecount.dat'; # 画像形式 # G : GIF (画像拡張子は「.gif」とすること) # J : JPEG (画像拡張子は「.jpg」とすること) # P : PNG (画像拡張子は「.png」とすること) $imgtype = 'G'; # 画像ディレクトリ（最後は / で終わること） # → フルパスだと / から始まるパス（http://からではない） $imgdir = './gif/'; # ロックファイル形式 # 0=no 1=symlink 2=mkdir $lockkey = 2; # ロックファイル名 $lockfile = './lock/ecount.lock'; # IPチェック機能（重複カウント対策） # 0=no 1=yes $ipcheck = 1; #============# # 設定完了 # #============# # 引数を取得し、余計なコードを削除 $buf = $ENV{'QUERY_STRING'}; $buf =~ s/\W//g; # 引数がない場合はエラー if ($buf eq "") { &error; } # 画像の拡張子とMIMEヘッダを定義 if ($imgtype eq 'J') { $tail='.jpg'; $mime='jpeg'; } elsif ($imgtype eq 'P') { $tail='.png'; $mime='x-png'; } else { $tail='.gif'; $mime='gif'; } # チェックモードのときはチェック処理 if ($buf eq "check") { ✓ } # ロック開始 $lockflag=0; if ($lockkey && $buf == 1) { $lockflag=1; &lock; } # ログを読み込んで分解 open(IN,"$logfile") || &error; $count = ; close(IN); ($count, $ip) = split(/:/, $count); # カウント数を１文字毎に分解して表示画像を定義 @file = split(//, $count); if ($#file + 1 >= $buf) { $view = $file[$#file + 1 - $buf]; } else { $view = '0'; } # 画像を読み込んで表示 open(IMG,"$imgdir$view$tail") || &error; print "Content-type: image\/$mime\n\n"; binmode(IMG); binmode(STDOUT); print ; close(IMG); # IPチェック $flag=0; $addr = $ENV{'REMOTE_ADDR'}; if (($ipcheck && $addr ne $ip) || (!$ipcheck)) { $flag=1; $count++; } # ログ更新モード if ($buf == 1 && $flag == 1) { select(undef, undef, undef, 0.5); open(OUT,">$logfile") || &error; print OUT "$count\:$addr"; close(OUT); } # ロック解除 if ($lockflag) { &unlock; } exit; #--------------# # ロック処理 # #--------------# sub lock { 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; } sleep(1); } # mkdir関数式ロック } elsif ($lockkey == 2) { while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { &error; } sleep(1); } } } #--------------# # ロック解除 # #--------------# sub unlock { if ($lockkey == 1) { unlink($lockfile); } elsif ($lockkey == 2) { rmdir($lockfile); } } #--------------# # エラー処理 # #--------------# sub error { 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 "$ver\n"; print "\n

Check Mode

\n