| 記事No | ： 12277 |
| 投稿日 | ： 2013/09/05(Thu) 12:54:40 |
| タイトル | ： joyful note 個人情報欄の削除は可能？ |
| ID情報 | ： yoichit |
| 投稿者 | ： 辻 陽一 |
| URL | ： http://yoichit.moo.jp/lap2/q3/test-q3-bbc/joyful.cgi |
無記名の投票でよいことと、以下の個人情報は、e-mail addressなど持っていない子供たちが回答に戸惑うので、
URLやメールアドレス、名前、この３項目を削除したいのですが、tmplのbbs.htmlだけの修正だとエラーが出ます。
よろしくお願いします。
上記URLのＩＤとＰＷは、どちらも、kent です。
| 記事No | ： 12278 |
| 投稿日 | ： 2013/09/05(Thu) 14:02:49 |
| タイトル | ： Re: joyful note 個人情報欄の削除は可能？ |
| ID情報 | ： hamel |
| 投稿者 | ： Hamel |
| URL | ： http://drc3.news-site.net/script1/product.html |
> 無記名の投票でよいことと、以下の個人情報は、e-mail addressなど持っていない子供たちが回答に戸惑うので、
>
> URLやメールアドレス、名前、この３項目を削除したいのですが、tmplのbbs.htmlだけの修正だとエラーが出ます。
>
> よろしくお願いします。
>
> 上記URLのＩＤとＰＷは、どちらも、kent です。
>
>
regist.cgiの４８２行目あたりからのサブルーチン
「sub form_check」内
５０７行目あたり
# 入力項目チェック
my $err;
if (length($in{sub}) > $cf{sub_len}*2) {
$err .= "タイトル名は全角$cf{sub_len}文字以内です<br>";
}
if ($in{name} eq "") { $err .= "名前が入力されていません<br>"; }
if ($in{comment} eq "") { $err .= "コメントが入力されていません<br>"; }
if ($in{email} ne '' && $in{email} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
$err .= "Ｅメールの入力内容が不正です<br>";
}
if ($in{url} ne '' && $in{url} !~ /^https?:\/\/[\w-.!~*'();\/?:\@&=+\$,%#]+$/) {
$err .= "URL情報が不正です<br>";
}
↑を↓のようにコメントアウトしてみてはいかがでしょうか？
# 入力項目チェック
my $err;
if (length($in{sub}) > $cf{sub_len}*2) {
$err .= "タイトル名は全角$cf{sub_len}文字以内です<br>";
}
#if ($in{name} eq "") { $err .= "名前が入力されていません<br>"; }
if ($in{comment} eq "") { $err .= "コメントが入力されていません<br>"; }
#if ($in{email} ne '' && $in{email} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
#$err .= "Ｅメールの入力内容が不正です<br>";
#}
#if ($in{url} ne '' && $in{url} !~ /^https?:\/\/[\w-.!~*'();\/?:\@&=+\$,%#]+$/) {
#$err .= "URL情報が不正です<br>";
#}
とりあえず、「URL、メールアドレス、名前、この３項目を削除」という目的は達成できるかと・・・
| 記事No | ： 12281 |
| 投稿日 | ： 2013/09/07(Sat) 00:03:45 |
| タイトル | ： 多謝、できました！ |
| ID情報 | ： yoichit |
| 投稿者 | ： 辻 陽一 |
| URL | ： http://yoichit.moo.jp/lap2/q3/test-q3-bbc/joyful.cgi |
Hamel さん、
本当に助かりました。
毎回、何かやりたいと思ったとき、ここで質問すると
解決法を教えていただけるので、このcgiを使わせていただいて
本当に良かったです。 辻 陽一