PetitMsg
ちびっこメッセージボード
Perl4
PetitMsg とは
PetitMsg は一言メッセージをもらいたい時用のシンプルな掲示板です。 1行レスタイプの掲示板として使うもよし、ページ内の 300 x 100 程度の小さな IFrame 内に表示するもよし、 メッセージの送信用にして管理人しか内容を読めないようにするのもよし、と、使い方は色々です。
Sample
- 1行レスタイプ
- IFrame タイプ
ダウンロード
現在のバージョン 0.1
書庫の中身
- petitmsg.cgi
- log.dat
設定
- パスの変更
- まず axis.cgi を開いたら(テキストエディタで開くことが出来ます)一行目の
を環境に合わせて書き直してください。解らない場合はサーバ側の FAQ 等に書かれていますので参照してください。#!/usr/local/bin/perl - パーミッション
-
- petitmsg.cgi [755]
- log.dat [666]
サーバ側で推奨のパーミッションがあればそちらを優先。
FORM の記述
設置例
IFRAME を使う
POINT : パスを通し IFrame の name と Form の target を合わせる。
1行レス タイプとして使う
petitmsg.cgi ソース内のHTML出力箇所を適当にカスタマイズしてください。
内容を管理者しか読めないようにする
入力、投稿フォームのみ置きます。 petitmsg.cgi ソース内で設定できます。
JavaScript
フォーム未入力の際にアラートを出す JavaScript です。必要であればコピペして使ってください
例 : <form onsubmit="return checker(this)" name="msgFm" action="略" method="略">
と onsubmit="return checker(this)" を書く。
そしたら <HEAD> 間に以下のソースを貼る
<script content="text/javascript"><!--
function checker(_f)
{
var msg = "";
if (_f.uname && (_f.uname.value=="" || _f.uname.value==valz.uname))
msg = "名前を入力してください\n";
if (_f.ucomment.value=="" || _f.ucomment.value==valz.ucomment)
msg += "本文を入力してください";
if (valz.posted)
msg = "重複投稿です";
if (msg) {
alert(msg); return false; }
else valz.posted = true;
}
function checkVal()
{
valz = new Array();
valz.posted = false;
for (var o,j,i=0; i<document.forms.length; i++)
for (o=document.forms[i].elements, j=0; j<o.length; j++)
if (o[j].name == "uname") valz.uname = o[j].value;
else if (o[j].name == "ucomment") valz.ucomment = o[j].value;
}
onload = checkVal; // -->
</script>
FAQ
- 日本語がへん
- そんな時はjcode.plをもらってきて cgi のあるディレクトリに放り込んでみてください。ファイル名、パスは petitmsg.cgi ソース中を修正してください。
Copyright(C) 2002-2004 kerry.