CGI by Perl #001 : Memorial Number Message Displayer

　　普段は何もページ上に表示されていないけどキリ番になると・・・

　　メッセージを表示

訪問者数が1000とかきりのいい数、ゴロのいい数など、
見るとちょっぴり幸せな気分に浸れる数字（以下この数字をキリ番と表記）
のときページにメッセージを表示するCGIスクリプト。
キリ番以外の時は何もページ上に表示しません。

普通、htmlの一部分のテキスト文を動的に表示させるにはSSIを使用する必要があるのですが、
このスクリプトではCGIの呼び出し及びメッセージの表示に
JavaScriptを使用してCGIでもhtmlにテキストを表示できるようにしました。

• 上2桁以外0（例：1000、35000）
• ゾロ目（例：1111）
• 上2桁の数字の繰り返し（例：1212、35353）
• 1からの降順、昇順連番（例：123、123456789、4321、654321）
• 上記判定条件は上2桁の数字の繰り返しはカウンタの数字が4桁以上、その他は3桁以上

設置例

+--- index.html（メッセージを表示したいページ）
|
+--- /cgi-bin（CGIが動作するディレクトリ）[707 or 705]
         |
         +-- mnmdisp.cgi [755 or 705]
         |   （スクリプトファイル）
         +-- count.log [666 or 606]
             （カウントデータ保存ファイル）

※[]内の数字はパーミッション

各ファイルが上記のような位置関係にある場合、index.htmlのソースでメッセージを表示したい場所に

     <SCRIPT language="JavaScript" src="cgi-bin/mnmdisp.cgi"></SCRIPT>
     <NOSCRIPT><IMG src="cgi-bin/mnmdisp.cgi?joff" height="1" width="1" border="0"></NOSCRIPT>

を挿入。

mnmdisp.cgi初期設定

メッセージを表示したいページの設定

パーミッション設定

その他

• とある機能を拡張しようとしたが失敗。この話はなかったことに
• 説明を修正

• エラー処理（sub error）でJavaScriptが無効なときは1×1pxの透過gifを出力するようにした
• 上記変更に伴いサブルーチン名を変更：javaoff -> dummyimg
• sub cheki内の無駄な力技コードを修正、削除。

• キリ番のユーザー定義の数字は1からの降順昇順連番の配列に追加する方式だったのをやめ、
  それぞれ別の配列を使いスクリプトの設定部分を見やすくした。
• 無駄なコード、説明コメント削除。

• カウントデータ保存ファイルの拡張子を.txtから.logに変更。
• 説明コメント修正。

• ソースを見やすくしたら動かなくなっていたので間違っていた部分を直す。
  正規表現の"=~"を"= ~"ってやっちゃってた。。
• スクリプトファイル名をMNMDisp.cgi→mnmdisp.cgiに変更。
  理由はデバック時のURL入力がめんどくさいから（ぉ
• スクリプト説明コメントを追加。もちろん逝っちゃってる英語で（はぁと
• バージョン表記を変更。
• ようやく一般配布開始。

• とある機能追加。これで晒されても時間稼ぎが可能ｗ
• ソースが見やすくなるように少し修正。（=の両脇に半角スペース入れたりとか）
• Script Check Mode用のサブルーチンの名前を変更。（元名：check）
  チェキ（ぇ？

• JavaScriptが無効になっていてもカウントアップだけはするようにしてみる。
  （メッセージは表示されない）
• キリ番を判定する部分のコードを大幅に書き換える。
  これにより無駄なコードを6行ほど削ることに成功。
• 利便性を考えてメッセージの設定をスクリプトの最初のほうに持ってこれるように改良
• 胡散臭い英語でスクリプト説明コメントを入れる。間違っている自信あります（爆

• キリ番をユーザー側で定義できるように改良。
  ある意味手抜きとも〜（滅
• キリ番のときのメッセージをランダムに表示できるようにしてみた。
• Script Check Modeで現在のカウント、ランダムメッセージのチェックができるように。
• それなりに使えそうになったのでこのバージョンからベータ（b）をとってみる。

• count.txtの有無およびパーミッションのチェックをするScript Check Mode機能追加
• その他細かい修正

• とりあえず作ってみた。

閲覧者のブラウザの設定でJavaScriptが有効になっていないとメッセージが表示されない

仕様です。あきらめてください。
JavaScriptに対応していない、もしくは対応していても
外部jsファイルを読み込めないブラウザも同様にメッセージが表示されません。

ファイルロックにopen関数使ってるからカウンタ飛びやすいかも

いちおうopen関数を使ってロックするだけでなく、データを書き込んだ一時ファイルを
rename関数つかってcount.logにリネームするようにしてあるので
いくらかはましだと思いますが。。

• カウンタ数を画像で出力することは絶対にしません
• ファイルロックの方法を変えるかも

（編集途中）