コメント<なし>を禁止するには？
[上に]
[前に]
[次に]
質問者
[E-Mail]
1999/12/24(金) 17:25:01
こんにちは。
このサイトでお世話になってます。
このたび、掲示板を作ってみました。
しかし、何分初心者で更新すると、それだけで、発言されてしまったりしています（＾＾；
それはさておき、いたずらや間違え防止のため、コメントなしで投稿したときに、
コメントが記入されていません。
等と、メッセージが表示されるようなものを作りたいのです。
もちろん一応作りましたが見事に失敗（＾＾；
(ちなみに以下に書いたものが、それです。)
どうぞよろしくお願い致します。
----------------ここから--------------------
open(OUT,">$log");
print OUT "<TABLE border=\"1\">\n <TBODY>\n <TR>\n";
print OUT "<TD>$FORM{'title'}</TD>\n<TD>$time</TD>\n";
if ($FORM{'mail'} ne '@') { # メールがない場合の対処
print OUT "\n<TD><a href=\"mailto:$FORM{'mail'}\">$FORM{'name'}</A></TD>\n";
} else {
print OUT "\n<TD>$FORM{'name'}</TD>\n";}
print OUT "<\!--$ENV{'REMOTE_ADDR'}-->\n<\!--$ENV{'REMOTE_HOST'}-->\n";
if ($FORM{'mail'} ne "") { # メッセージがない場合の対処
print "コメントが記入されていません。";
} else {
print OUT "<BLOCKQUOTE>$FORM{'mass'}</BLOCKQUOTE>\n";
if ($FORM{'URL'} ne "http://") { # ホームページがない場合の対処
print OUT "\n<TD><a href=\"mailto:$FORM{'URL'}\">$FORM{'URL'}</A></TD>\n";
} else {
print OUT "\n";
}
print OUT '<BR><P><hr size=3><BR></P>';
---------------------ここまで-----------------------
ではー
ラウォッチ
1999/12/24(金) 18:28:59
ん〜。
まず、ログファイル出力中の入力有り無しチェックは考え物です。
ログファイル出力処理前に、チェックした方がいいと思います。
あと、
print "コメントが記入されていません。";
print "<BR>ブブラウザのバックボタンで戻って再入力してください。";
とかを出力した後に、すぐ exit;するとか。
質問者
1999/12/24(金) 21:34:53
> まず、ログファイル出力中の入力有り無しチェックは考え物です。
チェック。考え物ですか。
> ログファイル出力処理前に、チェックした方がいいと思います。
チェックって何ですか?（＾＾；
すみません。
> あと、
> print "コメントが記入されていません。";
> print "<BR>ブブラウザのバックボタンで戻って再入力してください。";
> とかを出力した後に、すぐ exit;するとか。
う〜んなるほどやってみますね。
ありがとうございます。
ではー
../199912/99120357.htm
ラウォッチ
1999/12/25(土) 11:02:26
>チェックって何ですか?（＾＾；
フォームへメッセージ（入力データ）を入力した後、サブミットでＣＧＩを起動します。
そして、標準入力からデコードしながらハッシュ配列に入力データを入れます。
ここまでは、「質問者」さんと同じ、このあと、ハッシュ配列のまま処理せず、
私なら、ハッシュ配列のデータを逆にスカラー変数に各々代入して、
以後、スカラー変数で処理します。
この、スカラー変数に対して、まず初めに、入力があったかチェックします。
入力がＯＫなら、このデータを最上位にして、その下に、ログファイルのデータを...。
入力がＮＧなら、"コメントが記入されていません。"等を標準出力します。
ってな、感じです。
[上に]
[前に]
[次に]