□ ひろたか [2006年11月25日12時40分]

NXerさん
早速、回答いただきましてありがとうございました。
無事、コメントつき出来るようになりました。
またまたですが、先日投稿させていただきました枠のレイアウトにてprint "<table>\n";を２９２行目に入力する件ですが、投票更新を別表になった事にはなったのですが、いかんせんまだ枠の配列がアンバランスです。
投票項目の文字数が長くなれば問題ないのですが、二文字とかだとやはり。。。
見栄えの問題ですのでもう少し対応できないでしょうか？
あと、メッセージ入力でのスパム投稿防止策についてもう少し詳しく説明していただけるとありがたいです。
宜しくお願いします。

□ NXer [2006年11月25日18時58分]

>コメントつき

投稿するとコメントが当方のカラー仕様では白抜きに表示されて、アン
ケートよりも、だれがどの項目にどのようなコメントを書くのか、という
ことに関心が強く惹かれてしまいます。面白いcgiに進化したと思います。
どこかに長いご意見はこちらの掲示板になどのガイドが必要かもしれません。
誹謗中傷は削除しますの断りも大切です。運用にはコメントが増える分、
画面を思い切り整理して、投票する説明は、別ページにまとめる改善など
が考えられ、まだまだ奥の深いソフトです。

>見栄え
貴あんＱＵＲＬが不明なために、確認の手段がありません。
多分最低１文字（例、　一文字の名前で好きな名前、梢、遙、恵、萌、彩）
でも[投票][更新]の固定長に近いかより大を望まれているものと愚考して
かきます。可変長というデータ処理で最も扱いにくい点はご理解ください。NXerです。

その1　枠の幅は ex(例）　 width=40 　この値を調整してください。
------------------------------------------------------------------------
if ($vote_stop) { print "<tr><td width=40 align=center>$c</td>\n"; }
else { print "<tr><td width=40 align=center>$c</td><td width=40 align=center><input type=radio name=select value=$num ></td>\n"; }
if ($last_cont eq $num) { print "<td width=40 align=center bgcolor='$sel_bg' background='$pos'>"; }
else { print "<td width=40 align=center>"; }
-------------------------------------------------------------------
ファイナルアンサーを文字だけ、ことばだけで伝える/確認することは極めて困難
です。ことばでは数量や次の色彩は、ほとんど数値化できない感性に有効に機能
しません。

見栄え　その2
ネットデビューには多少の彩りも必要です。貴サイト（当方未見）に次の
指定を参考に最終調整をされてはいかがですか。
----------------------------
# 背景色
$bgcol = "beige";
-----------------------------
print "</table><br><table cellpadding='15'><tr><td bgcolor='gray' colspan=40 class=plain><font color='white'>*** この質問・項目へのメッセージ　***　<br><br>$mes<br></font></td></tr></table><br>\n";
--------------------------------------
コメント表示欄背景を gray にしたため文字は　font color　で　 white 白抜
きです。
効果を見る程度ですが、色指定方法の例です。１６進数値でも指定可能です。
なお入力フォームにもスタイルで色をしてできますが、棒グラフの
色がまけてしまうので彩色していません。
table cellpadding='15'　これで枠から突然コメントにならず、少し余白を付けて
います。

>スパム投稿防止策
実用cgiとしてはセキュリティ対策が必要になります。
対策案はこのような公開掲示板では概要程度になります。
予測できませんが、意図的な悪戯対策は、具体個別を対象
とすることがおおく、一般的な侮蔑語でもなくその都度対
処する方が効率的と思います。
日本語以外では、薬屋さんふうな英語の書き込みがよくあります。
設置者としては、テーマや書き込みは、削除やファイルレベルの
修正ができますので、重要なアンケートは毎日ファイルをバック
アップすれば、最少の被害におさえることができます。統計的に
は誤差の範囲と思われます。

セキュリティ対策があるという安心感程度の愚案です。
運用までに、名前、ＵＲＬ、テーマ、質問事項、コメント
をそれぞれテストしてください。
これらの愚案にもかかわらず、運用での被害の責任は
当方にはありません。

以下ほとんど新規挿入です。
例---------------------------------------------
628 $mesnew =$in{'mes'};　#新規メッセージの取得
629 &antispam;
------------------------------------------
以下$mesnewを他の入力にも作業変数として使用します。

--------------------------------------
811　sub new_file {
------------------------------ルーチンのはじめに処理
$mesnew=$in{'name'};&antispam;
$mesnew=$in{'subject'};&antispam;
$mesnew=$in{'url'};&antispam;
-----------------------------------------
名前、テーマ、urlそれぞれスパム処理。

831　foreach (@cont) {
#----------------------------------------
$mesnew=$_;&antispam;
#-----------------------------------------
これは分かりにくいですが、質問事項が $_ に分離して
代入されています。

既存のスクリプトの最後に追加。
971　sub antispam {
$i=index($mesnew,"馬鹿");#名前、項目名、コメントなど
if ($i>=0){ &error("ご利用どうも。");}
$i=index($mesnew,"薬物1");#名前項目名、コメントなど
if ($i>=0){ &error("ご利用どうも。");}
$i=index($mesnew,"zzz.com");#名前、url、項目名、コメントなど
if ($i>=0){ &error("ご利用どうも。");}
}
-------------------------

-----------------------エラー以外もあるため変更
954 print "設置者から<p>\n$_[0]<p>\n";
----------------------------------------------
敵対的というよりも、多くはcgiの腕試しの方を尊敬して
エラーでは、失礼ということで変更して見ました。

コメントテスト文は、上の語句を文頭、文末、文中などに使って
試してください。文頭は、文の位置０から判定します。
なお当方はセキュリティを高くしすぎて、自分の投稿はスパム
対策用地雷を手探りで避けて変な文を書いています。馬や鹿
のみなさなん、と書くと童話になりますね。鹿さん馬さん
ごめんなさい。

□ ひろたか [2006年11月25日23時17分]

NXerさん
いつもありがとうございます。
無事、思い通りのものが出来上がりました。
NXerさんのご協力なくして完成する事はありませんでした。
これもひとえにNXerさんのお陰です。
貴重なお時間をさいて頂きいつも即座にご回答頂きましてありがとうございました。
最後に初歩的な事ですが、背景の色は変更できるのですが任意の画像にする場合はどうすれば？いいのでしょうか？
初期的初期設定の箇所に下記の文面を挿入すればいいのかとおもいましたが駄目みたいですね
$background ="1.jpg"
一つ一つ勉強していくつもりですので教えて頂ければありがたいです。

□ NXer [2006年11月26日12時00分]

>出来上がり
おめでとうございます！NXerです。

>無事　
いろいろ当方のこうなるだろう投稿で、そうはならなかった
ことをご指摘いただき、貴重なお時間を浪費させた点、重重
（かさねがさね）お詫びいたします。
プログラミングは、アルゴリズム（考え方）と実際のコーディング
（言語化）の二つの過程がありますが、前者は後者のテストで検証
されます。幸いにも、たかひろさんが対話型の高級言語の代わり
（つまり人間の自然言語）をしていただき一つのプログラム開発が可
能になりました。当方の数々のエラーを笑い忘れてこれから、ノー
ミスのデジタルバイク・ライダーを目指してください。

>任意の画像
cgiの設置はサーバの仕様に依存します。貴サーバが不明なために
画像ファイルのサーバの制約は考えていません。画像が表示されな
い時、多くの原因はスクリプトが正しければ、ディレクトリ制限の
あるサーバ仕様にあります。仕様に従って変更してください。

ディレクトリ構成図
-----------------------------
/anq/
..|-anq.cgi　　　　　#あんＱcgiファイル
..|-anq_how_to.htm #あんＱ説明ページ
..|-/tempmes/ あるいは　/temp/#データディレクトリ
..|-/img/　　　　　　#背景画像ディレクトリ
......|-1.jpg あるいは .gif
......|-brown.gif あるいは　.jpg
---------------------------------

初期値設定
-------------------

19# 作業用フォルダ
$tmp = "./tempmes/";
-----------------------------新規挿入　
# 画像フォルダ　背景画像
$img = "./img/1.gif";

# 文字色
$text = "#004080";

# 背景色　.....残しておきます。
# 背景画像の色に色抜き文字の「文字」色が隠れないように要調整
$bgcol = "beige";
-----------------------
64　# BODY　　　上旧背景色指定　　下新　背景画像変数$imgによる指定
#$body = "<body text='$text' bgcolor=$bgcol>";
$body = "<body text='$text' background=$img>";

78 .btn { border-style:solid; background-color:$text; color:$bgcol; }
------------------------------------
７８行でボタンのがその色抜きで投票更新の文字がでます。

当方はbrown系の淡い画像で試し、色抜き文字はbeigeです。暖色系で
まとめてみました。

現在googleなどのサーチ・エンジンではトップページからの
リンクによって個別のウェブページが検索可能です。このあんＱ
ページでリンクを貼るには次のようにします。
---------------------------------------
242　print "<form action='$script' method=POST>\n";
----------挿入
print "<A HREF=\"http://www.ne.jp/~user/index.htm\">|トップ|</A>\n";
print "<A HREF=\"http://http://suepon.com/\">すえぽん|</A>\n";
print "<A HREF=\"http://www.ne.jp/~user/anq/anq_how_to.htm\">使い方|</A>\n";
print "<br><br>\n";
-------------------
243　print "<div style=\"font-size:$midashi\pt;font-weight:bold;\">■$subject</div><p>\n";
----------------------

貴あんＱの設置目的などは不明ですが、コメント付きで４０項目
程度のアンケートを、書店の分類別ベスト40、ＣＤ店のトップフォーティ
などなどのテーマ別に大型画面テレビで常時モニターできるように
して販売促進に使えそうです。
顧客にコメントを聞いて入力あるいは顧客に自由に投票書き込みをし
ていただくなどすれば、これからのユビキタス（ubiquitous)なコン
ピュータに一歩近づきます。
iPODの利用者なども数万曲からの選択には、あんＱをケイタイでチェック
して使うなどすると、潜在的な利用者はどれくらいになるのでしょうか。
ケーシ・ケーサムのアメリカントップ40で日曜日の午後０時からわく
わくするようなヒット曲を聴いて過ごした日々を、ひろたかさんのあ
んＱで再現できるなどとは、ほんの10日前には夢にも想（おも）いま
せんでした。

あらためて、原作者すえぽんさんには感謝いたします。

>勉強していく

perl
if ($error_line/day){楽しみ;}
和訳
もし(１行更新でもエラー続出の日々の苦しみを共有していただける)なら、
{let's enjoy web life through web programing(us spelling).}を
実行します。