CGIスクリプトのページ

• 雑記帳
• チャット
• カウンタ

雑記帳のスクリプト

ファイル

2009. 1.26　ファイル入れ替え中です。すみません。

• pad.cgi
• padedit.cgi
• padname.cgi
• padrep.cgi
• padsys.cgi
• padres.pl
• padlib.pl
• pad.html
• padname.html

ファイル内のディレクトリ指定などは、ここのサーバで動かす時のものです。お使いのサーバに合わせて変更してください。
表示メッセージなどもお好みに合わせて変更してください。

著作権は私(miyamori@kde.biglobe.ne.jp)にあります。修正してご自由に使っていただいてかまいませんが、再配布はご遠慮ください。

主な特徴

上のファイルを動かした時のサンプルです。書きこみはできません。

背景や文字色を変えるとイメージはずいぶん変わります。

• 1ページに100件または50件記録して改ページします。
• 実際に書きこむ前にHTMLタグの効果などを確認できます。
• すでにある発言を引用する機能があります。
• メールアドレスなどを登録できます。
• 管理者のみコメントなどを書ける欄が各発言にあります。
• 管理者のみWebブラウザから発言の編集などをすることができます。

解説

管理者機能で必要になるパスワードの初期値は password です。運用前に変更してください。

cp、mvなどUNIX系のコマンドを使っているので、WindowsNTなどでは修正が必要です。

perl (4 以上?)が必要です。
日本語フィルタとして nkf と jcode.pl を使っています。
お使いのサーバで nkf が使えない場合、padkf.pl というファイルを使えば nkf の真似(?)ができます。

上のファイルの場合、ディレクトリ構成は次のようになっています。

/usr/bin/nkf
/usr/bin/perl

/~user/cgi-bin/pad/jcode.pl
/~user/cgi-bin/pad/padlib.pl
/~user/cgi-bin/pad/padkf.pl (必要な場合のみ)
/~user/cgi-bin/pad/padres.pl
/~user/cgi-bin/pad/pad.cgi
/~user/cgi-bin/pad/padedit.cgi
/~user/cgi-bin/pad/padname.cgi
/~user/cgi-bin/pad/padrep.cgi
/~user/cgi-bin/pad/padsys.cgi

/~user/pad/pad.html
/~user/pad/padname.html
(以下スクリプトが作る)
/~user/pad/pad.bsy
/~user/pad/pad.cnt
/~user/pad/pad.env
/~user/pad/pad.err
/~user/pad/pad.err.tmp
/~user/pad/pad.pwd
/~user/pad/pad.qry
/~user/pad/pad.tmp
/~user/pad/log0.html
/~user/pad/log1.html
/~user/pad/log2.html
(同様に log19.html まで)

ファイルとディレクトリのパーミッションは、/~user/cgi-bin/pad とその中のファイルが 755、/~user/pad が 777、その中のファイルは 666 に設定しています。

padres.pl の『$myOut = $SJIS;』という部分を変えることで、出力が EUC($EUC)、JIS($JIS)、シフトJIS($SJIS) に変わります。

『$myIn = $SJIS;』という部分がスクリプト自体の文字コードに対応しています。EUC($EUC) か シフトJIS($SJIS) にしてください。 JISでは正常に動作しません。

変更が必要になる部分はできるだけ padres.pl にまとめてありますが、HTMLの出力部分などはその限りではありません。
padlib.pl は通常はそのまま使えばいいと思います。

履歴

2009. 1.26

• 某所で使っている書き込み制限版をほぼそのまま公開します。

2008. 8.18

• 迷惑な書き込みを制限しやすくしました。

2001.11. 6

• pad.org を使わないようにしました。あと、細かな仕様変更、バグ修正がいくつかあります。

2000.12. 4

• padlib.pl の chkHtml を修正しました。

1999. 2.13

• JIS出力対応、バグ修正その他☆

1999. 2.13 より前

• 特に記録を残していませんが２年ほど実績があります。

チャットのスクリプト

2001.11. 9, v2.32　入退室部分を少し変更しました。

ファイル

• chat.cgi
• chat.html
• chatform.html

ファイル内のディレクトリ指定などは、ここのサーバで動かす時のものです。 お使いのサーバに合わせて変更してください。
表示メッセージなどもお好みに合わせて変更してください。

著作権は私(miyamori@kde.biglobe.ne.jp)にあります。修正してご自由に使っていただいてかまいませんが、再配布はご遠慮ください。

主な特徴

動作の『軽さ』を重視しているため、あまり凝った機能はありません(^-^;)

v2.3から入退室の表示をするようになりましたが、画面のみでログには出力しません。

フレームを使うモードと使わないモードがあって、フレーム版は JavaScriptで同じ内容の二重送信のチェックをします。

上のファイルを動かした時のサンプルです。書きこみはできません。

背景や文字色を変えるとイメージはずいぶん変わります。

解説

perl (4 以上?)が必要です。
日本語フィルタとして jcode.pl を使っています。

上のファイルの場合、ディレクトリ構成は次のようになっています。

/usr/bin/perl
/cgi-bin/jcode.pl
/cgi-bin/sample/chat/chat.cgi
/sample/chat/chat.html
/sample/chat/chatform.html
(以下スクリプトが作る)
/sample/chat/chat.err
/sample/chat/chat.log
/sample/chat/chat.lck
/sample/chat/chat.rom
/sample/chat/chat.tmp

ファイルとディレクトリのパーミッションは /cgi-bin とその中のファイルは 755、 /cgi-bin/sample/chat とその中のファイルも同じく 755、/sample/chat が 777、その中のファイルは 666 に設定しています。 （可能なら setuid して、700, 600 などのほうが安全でしょう。）

履歴

2001.11. 9, v2.32

• 入退室部分を少し変更しました。

2001. 8.21, v2.31

• 文字コード指定部分を少し変更しました。

2001. 5.25, v2.3

• 入退室の表示をするようになりました。

1999. 7.25, v2.2

• iモード用の画面で accesskey を使うようにしました。
• ふだんEUC出力のページでも、iモード用の画面はシフトJISで出力するようにしました。
• (今後のため?(^^;)、)ログの形式を変更しました。v2.1以前から移行する方は、dispLogSub 内のコメント指定(#)をはずしてください。

1999. 7.21, v2.1

• mod_perlでうまく動かない場合があり、package 宣言をやめました。

1999. 7.20, v2.0

• ｉモード用の画面を用意しました。
• 文字数が少ないときの日本語コードの誤認識がなくなりました。
• Apache の mod_perl に対応しました。
• nkf を使わず jcode.pl だけを使うようにしました。

v2.0より前

• 特に記録を残していませんが２年ほど実績があります。

カウンタのスクリプト

1999. 8. 3, v2.1

めずらしくもないカウンタですが、mod_perlで動作確認しているのがポイントかと(^^;)

ファイル

• count.cgi
• 0.gif
• 1.gif
• 2.gif
• 3.gif
• 4.gif
• 5.gif
• 6.gif
• 7.gif
• 8.gif
• 9.gif

ファイル内のディレクトリ指定などは、ここのサーバで動かす時のものです。 お使いのサーバに合わせて変更してください。

著作権は私(miyamori@kde.biglobe.ne.jp)にあります。修正してご自由に使っていただいてかまいませんが、再配布はご遠慮ください。

主な特徴

• 1つのスクリプトで10個所までカウントします。
• ログを残すので、いつ誰が来たのか、ある程度判断できます。
• Apache の mod_perl に対応しています。

↓上のファイルを使ったカウンタです。(99. 7.22〜)

解説

perl (4 以上?)が必要です。

<img src="/cgi-bin/sample/counter/count.cgi?05"> などとHTMLページに書いて使います。 count.cgi?05 の「5」は ５桁の意味で、これを変えると、桁数が増えたり減ったりします。 「0」は　０〜９までで、それぞれ別のアクセスカウンタを意味して、10個所までカウンタを置くことができます。

fly が必要です。fly は Martin Gleeson およびメルボルン大学の著作物です。

数字の画像は自由に替えることができます。

上のファイルの場合、ディレクトリ構成は次のようになっています。

/fly/fly
/cgi-bin/sample/counter/count.cgi
/sample/counter/0.gif
/sample/counter/1.gif
/sample/counter/2.gif
(同様に 9.gif まで)
(以下スクリプトが作る)
/sample/counter/fly.gif
/sample/counter/count0.lck
/sample/counter/count1.lck
/sample/counter/count.env
/sample/counter/count.tmp
/sample/counter/count0.dat
/sample/counter/count1.dat
/sample/counter/count2.dat
(同様に count9.dat まで)

ファイルとディレクトリのパーミッションは /fly/fly と /cgi-bin/sample/counter/count.cgi は 755、 /sample/counter が 777、その中のファイルは 666 に設定しています。 （可能なら setuid して、700, 600 などのほうが安全でしょう。）

履歴

1999. 8. 3, v2.1

• HEADメソッドで Last-Modified を返すようにしました。

1999. 7.22, v2.0

• Apache の mod_perl に対応しました。

v2.0より前

• 特に記録を残していませんが２年ほど実績があります。

Online since: 1998.12.21
Last updated: 2001.11. 9