KENT-WEB サポートコーナー 過去ログ [ 0183 ]


記事No: 2803
投稿日: 2008/02/06(Wed) 11:37:05
タイトルWEB FORUMのEメール表示
ID情報: 6083
投稿者: 6083
URLhttp://www.kent-web.com/bbs/wforum/wforum.cgi

http://www.kent-web.com/cgi/down.cgi?name=WebForum&file=zip
から入手させていただきました。

新規投稿、修正などにある表題の選択がプルダウンになっているのですが、
この項目だけは、選択内容から判断してぜひ掲示されているサンプル(表記URL)と同様のチャックボックスにしたいのです。

もし可能で許可してくださるのであれば、アドバイスをいただきたく書き込みしてみました。


記事No: 2835
投稿日: 2008/02/07(Thu) 17:57:58
タイトルRe: WEB FORUMのEメール表示
ID情報: fuyuki
投稿者: BAL
URLhttp://f43.aaa.livedoor.jp/~sumure/

> http://www.kent-web.com/cgi/down.cgi?name=WebForum&file=zip
> から入手させていただきました。
>
> 新規投稿、修正などにある表題の選択がプルダウンになっているのですが、
> この項目だけは、選択内容から判断してぜひ掲示されているサンプル(表記URL)と同様のチャックボックスにしたいのです。
>
> もし可能で許可してくださるのであれば、アドバイスをいただきたく書き込みしてみました。


以下の追加修正を

●init.cgi

#-------------------------------------------------
# 入力チェック
#-------------------------------------------------

-- 途中省略 --

if ($in{'name'} eq "" || $in{'name'} =~ /^(\x81\x40|\s)+$/)
{ $err .= "名前の入力モレです<br>"; }
if ($in{'message'} eq "" || $in{'message'} =~ /^(\x81\x40|\s|<br>)+$/)
{ $err .= "コメントの入力モレです<br>"; }
if ($in_email && $in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/)
{ $err .= "E-Mailの入力が不正です<br>"; }
if ($in{'sub'} eq "" || $in{'sub'} =~ /^(\x81\x40|\s)+$/)
{ $err .= "題名の入力モレです<br>"; }
if ($in{'url'} eq "http://") { $in{'url'} = ""; }
if ($in{'smail'} eq "") { $in{'smail'} = "0"; } ## ←★追加
if ($err) { &error($err); }



#-------------------------------------------------
# 投稿フォーム部
#-------------------------------------------------

-- 途中省略 --

print "<blockquote><table border=\"0\" cellspacing=\"0\" cellpadding=\"1\">\n";
print "<tr><td><b>おなまえ</b></td>";
print "<td><input type=\"text\" name=\"name\" size=\"28\" value=\"$cname\"></td></tr>\n";
print "<tr><td><b>Eメール</b></td>";
print "<td><input type=\"text\" name=\"email\" size=\"28\" value=\"$cmail\"> ";
print "<input type=checkbox name=\"smail\" value=\"1\" ><a href=\"$script?mode=note\"><small>非表\示</small></a>\n"; ## ←★追加
#▼ここから▼
#print "<select name=\"smail\">\n";

#@sm = ('表示', '非表示\');
#if ($csmail eq "") { $csmail=0; }
#foreach (0, 1) {
#if ($csmail == $_) {
#print "<option value=\"$_\" selected>$sm[$_]\n";
#} else {
#print "<option value=\"$_\">$sm[$_]\n";
#}
#}
#print "</select></td></tr>\n";
#▲ここまでコメントアウト▲
print "</td></tr>\n"; ## ←★追加
print "<tr><td><b>タイトル</b></td>";


記事No: 2842
投稿日: 2008/02/08(Fri) 14:32:12
タイトルRe^2: WEB FORUMのEメール表示
ID情報: 6083
投稿者: 6083

BALさまへ

貴重なご指導大変ありがとうございました。

お蔭様でスマートにできました。


記事No: 2948
投稿日: 2008/02/20(Wed) 11:26:23
タイトルRe^3: WEB FORUMのEメール表示
ID情報: 6083
投稿者: 6083

先日はお世話になりました。
たびたび恐縮です。

質問:
チェックボックスに変更すると、この項目のクッキーは有効にならない仕様になってしまうのでしょうか?

なぜそう思ったか:
修正画面で記事を開くと、投稿時のチェックの有無が反映されていないのでそのように思いました。

何度も申し訳ありません。よろしくお願い申し上げます。


記事No: 2949
投稿日: 2008/02/20(Wed) 14:17:57
タイトルRe^4: WEB FORUMのEメール表示
ID情報: teketen
投稿者: てけてん

> チェックボックスに変更すると、この項目のクッキーは有効にならない仕様になってしまうのでしょうか?

BALさんが提示された記述の

print "<input type=checkbox name=\"smail\" value=\"1\" ><a href=\"$script?mode=note\"><small>非表\示</small></a>\n"; ## ←★追加

この部分を

printf qq|<input type="checkbox" name="smail" value="1"%s><a href="$script?mode=note"><small>非表\示</small></a>\n|,$csmail == 1 ? ' checked' : '';

としてみて下さい。


記事No: 2950
投稿日: 2008/02/20(Wed) 14:47:03
タイトルRe^5: WEB FORUMのEメール表示
ID情報: fuyuki
投稿者: BAL
URLhttp://f43.aaa.livedoor.jp/~sumure/

> > チェックボックスに変更すると、この項目のクッキーは有効にならない仕様になってしまうのでしょうか?
>
> BALさんが提示された記述の
>
> print "<input type=checkbox name=\"smail\" value=\"1\" ><a href=\"$script?mode=note\"><small>非表\示</small></a>\n"; ## ←★追加
>
> この部分を
>
> printf qq|<input type="checkbox" name="smail" value="1"%s><a href="$script?mode=note"><small>非表\示</small></a>\n|,$csmail == 1 ? ' checked' : '';
>
> としてみて下さい。


てけてんさんフォローありがとうございます。
以下と同じ内容が1行でスマートな記述ができるものなのですね。勉強になります。

if ($csmail == 1) {
print "<input type=checkbox name=\"smail\" value=\"1\" checked>";
} else {
print "<input type=checkbox name=\"smail\" value=\"1\" >";
}
print "<a href=\"$script?mode=note\"><small>非表\示</small></a>\n";


記事No: 2951
投稿日: 2008/02/20(Wed) 18:16:56
タイトルRe^6: WEB FORUMのEメール表示
ID情報: 6083
投稿者: 6083

てけてん様、BAL様、お蔭様で反映されるようになりました。

ほんとに何度もありがとうございました。


記事No: 2970
投稿日: 2008/02/23(Sat) 14:13:39
タイトルRe^6: WEB FORUMのEメール表示
ID情報: teketen
投稿者: てけてん

BALさん

> 勉強になります。

レベルアップを目指すなら、
Perlクックブック
http://www.oreilly.co.jp/books/4873112028/
http://www.oreilly.co.jp/books/4873112036/
この本をオススメします。
これはPerl5.8対応の第二版ですが、私は、第一版(Perl5.6対応)を2003年に購入してから、自分のスクリプトの記述方法が変わりました。
第一版は1冊でしたが、現在2冊に分かれており、少し高めですが持っていて損のない本です。
初心者向けの本ではありませんが、一度、本屋で立ち読みされては如何でしょうか?

# と、質問に関係ない話で失礼しました。


記事No: 2974
投稿日: 2008/02/23(Sat) 18:45:46
タイトルRe^7: WEB FORUMのEメール表示
ID情報: fuyuki
投稿者: BAL
URLhttp://f43.aaa.livedoor.jp/~sumure/

参考文献ご紹介ありがとうございます。
私には少々敷居が高そうですが書店で立ち読みしてみます。


[検索ページ]