（キリ番カウンタ）

Ver: 2.11 kiricnt.zip

kiricnt.cgi --------- カウンタプログラム
init.cgi ------------ 設定ファイル
list.cgi ------------ 書込リスト/管理プログラム
check.cgi ----------- 動作チェックプログラム
index.html ---------- カウンタ表示HTML（サンプル用）
tmpl/*.txt ---------- テンプレートファイル
tmpl/*.html --------- テンプレートファイル
data/count.dat ------ カウンタ記録ファイル
data/log.cgi -------- 書込記録ファイル
lib/gifcat.pl ------- GIF連結ライブラリ [入手元]
lib/jcode.pl -------- コード変換ライブラリ [入手元]
lib/magick.pl ------- Image::Magick連結表示プログラム
img/*.gif ----------- カウンタ画像 [入手元]

$cf{pass} = '0123';

一覧リスト管理画面の入室パスワードです。なるべく複雑な英数字で指定します。

$cf{image_pm} = 0;

画像連結の形式を指定します。gifcat.plを利用する場合は「0」を、Image::Magickを利用する場合は「1」とします。Image::Magickが利用できるサーバであれば、こちらを利用することをお薦めします。同梱のcheck.cgiを起動することで利用の可否を確認できます。

$cf{cnt_type} = 1;

カウンタをテキスト式にするときは「0」を、画像式にするときは「1」とします。

$cf{kiriban} = 100;

キリ番の基準（その倍数）を指定します。例えば100とすると、100,200,300... をキリ番とします。

$cf{kiri_op} = '777,888,7777,8888';

上記設定とは別に、任意のキリ番を設定することができます。任意の数値をコンマで区切って複数指定します。

$cf{kiri_input} = 1;

キリ番を踏んだ訪問者に、記念メッセージを入力させるときは「1」を、その必要がないときは「0」とします。「0」を指定すると、キリ番を踏んだ訪問者には記念メッセージを表示するのみとなります。

#!/usr/local/bin/perl

プロバイダで定められたPerlへのパスを指定します。

<script language="javascript" src="http://〜〜/kiricnt.cgi"></script>

サンプル

Tips:ファイル転送の仕方は以下のページを参考にしてください。

FTP : Windows編

FTP : Macintosh編

!list_cgi!など、「!」で囲まれる文字列はCGIが表示出力するときに、認識する部分ですので、削除はしないようにしてください。