#!/usr/bin/perl ################################################################## # Program : counter.cgi(Perl) # Date_written : 1999,09,11 # Author : 良寛 ################################################################## require './gifcat.pl'; # ------------------------------------------------------------ # requireは'ファイル名'で指定した、サブルーチンライブラリ # を、このプログラムの中に取り込む命令です。この場合、本プ # ログラムと同じディレクトリにある、gifcat.pl（とほほさん # 作）という画像連結プログラムを取り込んで（結合して）普 # 通のサブルーチンのように使います。 # ------------------------------------------------------------ #===　初期設定　================================================== $fig = 5; # カウンタ表示桁数 $cntfile = "count.dat"; # カウンタファィル $lockfile = "lock.dat"; # ロックファイル　 # 存在すればカウント不可 # ------------------------------------------------------------ # 変数の初期値を設定します。トップに書いておくとメンテナンス # が容易です。 # １行目の「#!/usr/bin/perl」はサーバーのＰｅｒｌのある場所 # です。プロバイダにより少し異なりますので、プロバイダに聞い # て確かめてください。これは、ミンク（鹿児島のプロバイダ）の # 場合です。 # 必用なファイル # counter.cgi [755] # count.dat [666] メモ帳などで、半角数字0だけ書いて、 # アスキーモードで転送 # gifcat.pl [644] # 0〜9.gif とほほのＷＷＷ入門よりダウンロード # したものをバイナリモードで転送 # count [777] 以上のファイルを入れるフォルダ # index.html カウンタを表示させるＨＴＭＬ # 表示させたい部分に # <img src="http://×.×.×/~○○/counter.cgi"> # のように記述 # ------------------------------------------------------------ #===　訪問日の取得　============================================== ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); $date = "$day"; # ------------------------------------------------------------ # 訪問日を取得します。（perl4.htmlで解説済み） # ------------------------------------------------------------ #===　カウント処理（ここからメイン）============================== $lockflag = &lock; if ($lockflag == 0){ &error;} # ------------------------------------------------------------ # ファイルロック # 訪問者が同時にファイルに書き込むと、ファイルが破壊されるの # で、ロックをかけます。サブルーチン&lockで処理されます。 # ------------------------------------------------------------ open (IN,"$cntfile") || &error; @lines = <IN>; close(IN); # ------------------------------------------------------------ # カウントデータを読み込み # 「|| &error」は、何かの原因でファイルを開くことができな # かった場合にエラールーチンにとびます。 # ------------------------------------------------------------ ($logday,$count) = split (/\|\|\|/,$lines[0]); # ------------------------------------------------------------ # $lines[0]を区切り文字|||で分割 # 分割後それぞれ$logdayと$countに代入します。 # ------------------------------------------------------------ $count =~s/\n//g; # ------------------------------------------------------------ # $countの中の\nを削除 # ------------------------------------------------------------ if ($logday != $date) { @lines = (); } # ------------------------------------------------------------ # 日付が変わった時、カウンタログを初期化 # ------------------------------------------------------------ $address = $ENV{'REMOTE_ADDR'}; # ------------------------------------------------------------ # 訪問者のアドレスを取得 # ------------------------------------------------------------ @data = @lines; # ------------------------------------------------------------ # カウントログ@linesを@dataに代入 # ------------------------------------------------------------ $addressflag = 0; # ------------------------------------------------------------ # 訪問者が２回以上訪問した場合、$addressflag = 1 # ------------------------------------------------------------ foreach $line (@data){ $line =~s/\n//g; if ($line eq $address){ $addressflag = 1; last; } } # ------------------------------------------------------------ # 訪問者が２回以上訪問したかチェック # ------------------------------------------------------------ unless ($addressflag == 1){ $count=$count +1; $lines[0] = "$date|||$count\n"; push(@lines,"$address\n"); open(OUT,">$cntfile") || &error; print OUT @lines; close(OUT); } # ------------------------------------------------------------ # 本日初訪問の場合の処理 # カウンタを１増やし、訪問者のアドレスと共に書き込みます。 # ------------------------------------------------------------ if (-e $lockfile){unlink($lockfile);} # ------------------------------------------------------------ # ロックファイルの削除 # ------------------------------------------------------------ #===　カウンタ表示（とほほさん作）================================ # カウンタをGIF画像で表示させる場合は、各桁をくっつけて、 # １個の画像として表示しなければなりません。 # とほほさんが素晴らしい画像連結サブルーチン『gifcat』を作 # 成しておられますので、使用させていただきます。 # 使い方： # １．とほほさんのＨＰ http://www2e.biglobe.ne.jp/~s-hasei/ # より、むふふのカウンタ画像0〜9.gifをダウンロード # ２．counter.cgiと同じディレクトリにバイナリモードで転送 # ３．下の$cntstr = sprintf(sprintf("%%0%dld",$fig),$count); # の中の$figには表示桁数、$countにはカウント数が入りま # す。 #***** この部分の著作権はとほほさんにありますので、*************** #***** 解説はとほほさんのＨＰをご覧ください。 *************** $cntstr = sprintf(sprintf("%%0%dld",$fig),$count); printf("Content-type: image/gif\n"); printf("\n"); @files = (); for ($i=0;$i<length($cntstr);$i++){ $n = substr($cntstr,$i,1); push(@files,"$n.gif"); } binmode(STDOUT); print &gifcat'gifcat(@files); #***************************************************************** #***************************************************************** exit; # ------------------------------------------------------------ # 終了 # ------------------------------------------------------------ #********************　SUBROUTINE　******************************* #===　ロックファイル　============================================ sub lock { local($flag) = 0; # ------------------------------------------------------------ # ローカル変数$flag=1のとき、ロック完了 # ------------------------------------------------------------ foreach(1..10){ unless(-e $lockfile){ # ------------------------------------------------------------ # $lockfileが存在しない場合（同時の訪問者がない場合） # ------------------------------------------------------------ open(LOCK,">$lockfile"); close(LOCK); $flag = 1; last; # ------------------------------------------------------------ # $lockfileの空ファイルを作成し、ループから出ます。 # ------------------------------------------------------------ } sleep(1); # ------------------------------------------------------------ # $lockfileがすでに存在すれば、１秒待ちます。 # ------------------------------------------------------------ } $flag; # ------------------------------------------------------------ # $flagの値を返します。（$flag=1はロック成功、0は失敗） # ------------------------------------------------------------ } #===　エラー処理　================================================ sub error { if (-e $lockfile){unlink($lockfile);} exit; }