ラジオボタン、チェックボックスを多用したアンケートフォーム

Question

はじめまして。下記内容にてよろしくお願いいたします。
まずわたしのCGIのスキル的に説明すれば設置ができる程度で書いたことなどはございません。このサイトでもわたしが意図しているものが何かないか探しましたが、適したものがありませんでした。
ほしい内容は名前、年齢、性別、メールアドレス、質問内容が40問程度です。
ほしい機能はエラーチェック、確認画面、メール返信機能、csv保存です。
以上の内容に簡単にカスタマイズできるCGIや近いものなどありましたら教えてください。よろしくお願いいたします。

souta_n · Accepted Answer

日時を取得して、変数$d[5]に代入、その後joinで繋いでCSV保存を追加しました。

動作確認してませんけど、多分動くと思います。

#! /usr/local/bin/perl

require "./mimew.pl";
require "./cgi-lib.pl";
&ReadParse();

#　　　　*********　変　数　の　定　義　状　況　*********
#　$d[0] 名前　　$d[1] メールアドレス　　$d[2] 性別　$d[3] 年齢　　$d[4] 問題

#　form.htmlより受取ったデータを変数に代入
$d[0]=$in{'name'};
if($in{'mail_1'} eq "" and $in{'mail_2'} eq ""){$d[1]="";}else{$d[1]=$in{'mail_1'}."@".$in{'mail_2'};}
$d[2]=$in{'sex'};
$d[3]=$in{'tosi'};
$d[4]=$in{'q1'};

# 送信時間の取得と変数代入
$time=time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat)=localtime $time;
$year += 1900;
$mon +=1;
$accessday=$year."/".$mon."/".$mday;
$accesstime=$hour.":".$min.":".$sec;
$d[5]="送信日： ".$accessday."　"."送信時間： ".$accesstime;

# 未入力チェック　性別と問題はHTMLで初期値が設定されているので空白はありえないのではぶく
if($d[0] eq ""){$error[0]="お名前を入力して下さい";}
if($d[1] eq ""){$error[1]="メールアドレスを入力して下さい";}
if($d[3] eq ""){$error[3]="年齢を入力して下さい";}

#エラーメッセージを全部つないで
$error=$error[0].$error[1].$error[3];

# エラーが無いときの処理
if($error eq ""){

# データをカンマ区切りにしてdata.csvに保存
$data=join(",",$d[0],$d[1],$d[2],$d[3],$d[4],$d[5])."\n";
open(FH,">>./data.csv");
print FH $data;
close FH;

#　保存が完了した旨をユーザーに知らせるHTMLを作成
print <<END;
content-type: text/html

<HTML>
<HERD><TITLE>送信完了</TITLE></HERD>
<BODY>
<H2>送信内容を受取りました</H2>
</BODY>
</HTML>
END

}
else
{
print <<END;
content-type: text/html

<HTML>
<HERD><TITLE>登録内容エラー</TITLE></HERD>
<BODY>
<H2>登録内容に不備があります。戻るボタンで戻り再登録して下さい</H2>
</BODY>
</HTML>
END

}

送信内容を受取りました

END } else { print < 登録内容エラー

登録内容に不備があります。戻るボタンで戻り再登録して下さい

END }

souta_n · Answer

もう随分とキャッチボールしてますね。
とりあえず、data.csvのファイル名をdata.cgiに変更してください。Ｐｅｒｌコード上は、
open(FH,">>./data.csv");を
open(FH,">>./data.cgi");にするだけでＯＫです。
拡張子cgiは実行ファイルとＷｅｂサーバーが判断するから、第三者からは見れなくなります。

パーミッションの件はお使いのサーバー会社に問合せてください。
600のパーミッションと拡張子だけで、情報漏洩防止は完璧か、といわれると私も心もとないものです。
今日も人材派遣会社のア●コがＷｅｂ上のオンライン登録者データを不正アクセスされて情報漏洩したようです。
やる奴は、どんな方法つかっても、ファイルこじ開けて覗き見するみたいです。

souta_n · Answer

そうそう、コーディングの話だけじゃなくて、実際これを使うときに気をつけないといけないのは、CSVファイルのパーミッションは600にしないと、644だと個人情報ジャジャもれになりますよ。
実際にファイルをWebサーバーにアップロードして、
http://あなたのドメイン/フォルダ/data.csv
とするとブラウザでうれしくなるほど丸見えになります。
私は、600にするとともに、データファイルでも、わざとcsvとかtxtという拡張子を使用せず。cgiにしています。
個人情報保護がさけばれる今日この頃をかんがみ老婆心でした。

souta_n · Answer

>インターナルサーバエラーになります。パーミッションの設定が悪いのでしょうか？パーミッションは755か700に設定 >またcsvは何も設定しないでよいのですか？同一フォルダにdata.csvという名前で空のファイルをひとつ作ってください。メモ帳か何かを開いてそのまま名前をつけて保存すればＯＫです。そうそう、cgi-lib.plとmimew.plも同一フォルダにおいとかないとだめです。どちらもフリーですから適当にネットからダウンロードしてください。 >また、質問数を増やすにはどう設定したらよろしいのでしょうか？ HTML側に質問：はい　いいえ
をそれぞれname="q2"とかにして増やしてください。そのq1、q2、q3・・・の分だけ、受けるcgi側に $d[5]=$in{'q2'}; $d[6]=$in{'q3'}; というようにすればそれだけCGI側も受けられます。あとの制御構造はq1の例を流れに従ってまねてください。ちなみにrequire "./mimew.pl";はメール送信に必要なモジュールで今のところ関係ないですからその1行は消しても問題ありません。

souta_n · Answer

とりあえず、シンプルに作ってみました。メール送信は、省きました。 ●送信用フォームHTML ●受取るCGI　ファイル名syori.cgi #! /usr/local/bin/perl require "./mimew.pl"; #これはSendmailにいるけど今のところ関係無し require "./cgi-lib.pl"; &ReadParse(); #　　　　*********　変　数　の　定　義　状　況　********* #　$d[0] 名前　　$d[1] メールアドレス　　$d[2] 性別　$d[3] 年齢　　$d[4] 質問 #　form.htmlより受取ったデータを変数に代入 $d[0]=$in{'name'}; if($in{'mail_1'} eq "" and $in{'mail_2'} eq ""){$d[1]="";}else{$d[1]=$in{'mail_1'}."@".$in{'mail_2'};} $d[2]=$in{'sex'}; $d[3]=$in{'tosi'}; $d[4]=$in{'q1'}; # 未入力チェック　性別と問題はHTMLで初期値が設定されているので空白はありえないのではぶく if($d[0] eq ""){$error[0]="お名前を入力して下さい";} if($d[1] eq ""){$error[1]="メールアドレスを入力して下さい";} if($d[3] eq ""){$error[3]="年齢を入力して下さい";} #エラーメッセージを全部つないで $error=$error[0].$error[1].$error[3]; # エラーが無いときの処理 if($error eq ""){ # データをカンマ区切りにしてdata.csvに保存 $data=join(",",$d[0],$d[1],$d[2],$d[3],$d[4])." "; open(FH,">>./data.csv"); print FH $data; close FH; #　保存が完了した旨をユーザーに知らせるHTMLを作成 print < 送信完了

送信内容を受取りました

END } else { # 送信内容に不備がある場合のHTML表示 print < 登録内容エラー

登録内容に不備があります。戻るボタンで戻り再登録して下さい

END }

souta_n · Answer

ははぁ～、この一連は私も苦労して一通りPerlでコーディングしました。
そこで、以前に作ったコードを貼り付けて回答しようとしたら文字数が多すぎて駄目みたいです。
ココとココがわからない、というようにスポットでならお答えできそうですが・・・

ラジオボタン、チェックボックスを多用したアンケートフォーム

日時を取得して、変数$d[5]に代入、その後joinで繋いでCSV保存を追加しました。

もう随分とキャッチボールしてますね。

そうそう、コーディングの話だけじゃなくて、実際これを使うときに気をつけないといけないのは、CSVファイルのパーミッションは600にしないと、644だと個人情報ジャジャもれになりますよ。

この回答への補足

>インターナルサーバエラーになります。

この回答への補足

とりあえず、シンプルに作ってみました。

この回答への補足

ははぁ～、この一連は私も苦労して一通りPerlでコーディングしました。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング