#!/usr/bin/perl #----------------------# #サイゾー読者アンケート# #----------------------# #-----初期設定 $ini_log = 'ini.log'; $log_dir = './date/dokusha/'; $header_tmpl = 'header.tmpl'; $footer_tmpl = 'footer.tmpl'; #-----ライブライ require './jcode.pl'; #-----パラメータ取得 if($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }else{ $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs){ local($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; #文字コードをEUCに変換 &jcode::convert(\$value,"euc","","z"); #タグをエスケープ $value =~ s/&/&/g; $value =~ s/"/"/g; $value =~ s//>/g; #タブを削除 $value =~ s/\t//g; #前後の空白を削除 $value =~ s/^\s+//; $value =~ s/\s+$//; #改行を削除 $value =~ s/\r\n|\r//g; $in{$name} = $value; push(@{$name},$value); } open(FILE,"$log_dir$ini_log") || error('設定ファイルが開けません。'); @lines = ; close(FILE); if($lines[$#lines] eq 'null'){ html_header(); print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "只今準備中です。\n"; print "
\n"; print "\n"; print "\n"; exit; } foreach(@lines){ ($volume,$keyword,$titles,$presents) = split(/\t/,); if($lines[$#lines] == $volume){ error('キーワードが違います。') if($in{keyword} ne $keyword); last; } } if($in{mode} eq 'save'){save();} else{input();} sub input{ @titles = split(/<>/,$titles); @presents = split(/<>/,$presents); html_header(); header(); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----Q1 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----Q2 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----Q3 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----Q4 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----Q5 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #------Q6 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #------Q7 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #------Q8 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #------Q9 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #------Q10 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
（*）は必須項目ですので必ずお答えください。
Q1 今月号で面白かった記事を選択してください。（３つまで）
\n"; foreach(@titles){ print "$_
\n"; } print "
カバー特集、ニュース・ソース、ニュースまんなか分けに関しては個別の記事名を下記にお書きください（複数可）
\n"; print "\n"; print "
Q2 今月号で面白くなかった記事を選択してください。（３つまで）
\n"; foreach(@titles){ print "$_
\n"; } print "
カバー特集、ニュース・ソース、ニュースまんなか分けに関しては個別の記事名を下記にお書きください（複数可）
\n"; print "\n"; print "
Q3 本誌へのご意見、ご感想、希望する企画、その他あなたの身の回りのおもしろエピソードがあればお書きください
Q4 Q3でお書き頂いたご意見の「読者的」への掲載は*
\n"; print "掲載を認める\n"; print "掲載不可\n"; print "

実名掲載をご希望でない方はペンネームをご記入ください

\n"; print "
Q5 今月号の【サイゾー】を購入した理由をお書きください。
\n"; print "\n"; print "
Q6 今月号の【サイゾー】をどこでお知りになりましたか？*
\n"; print "インターネットで関連記事を見て
\n"; print "日刊サイゾー（http://www.cyzo.com/)を見て
\n"; print "友人・知人に勧められて
\n"; print "読みたい記事があったから
\n"; print "店頭で見て
\n"; print "前号の次号予告を見て
\n"; print "定期購読
\n"; print "その他\n"; print "\n"; print "
Q7 よく読む雑誌は何ですか？4冊ご記入ください。
\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
Q8 あなたが現在所有しているものを選択してください。
\n"; print "ホームシアター
\n"; print "パソコン
\n"; print "パソコン周辺機器
\n"; print "デジタルカメラ
\n"; print "デジタルビデオ
\n"; print "PDA
\n"; print "DVD
\n"; print "AV
\n"; print "ポータブル・オーディオ
\n"; print "携帯電話
\n"; print "ゲーム
\n"; print "クルマ
\n"; print "バイク
\n"; print "自転車
\n"; print "アウトドア用品
\n"; print "
Q9 あなたが現在欲しいものを選択してください。
\n"; print "ホームシアター
\n"; print "パソコン
\n"; print "パソコン周辺機器
\n"; print "デジタルカメラ
\n"; print "デジタルビデオ
\n"; print "PDA
\n"; print "DVD
\n"; print "家電
\n"; print "AV
\n"; print "ポータブル・オーディオ
\n"; print "携帯電話
\n"; print "ゲーム
\n"; print "クルマ
\n"; print "バイク
\n"; print "自転車
\n"; print "時計
\n"; print "インテリア
\n"; print "アウトドア用品
\n"; print "ジュエリー
\n"; print "
Q10 【サイゾー】では、特集の内容や日刊サイゾーの更新のお知らせをメールでお送り致しています。購読をご希望になりますか？*
\n"; print "もうすでに購読している
\n"; print "購読を希望する
\n"; print "購読を希望しない
\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----名前 print "\n"; print "\n"; print "\n"; print "\n"; #-----性別 print "\n"; print "\n"; print "\n"; print "\n"; #-----年齢 print "\n"; print "\n"; print "\n"; print "\n"; #-----ご住所 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #-----電話番号 print "\n"; print "\n"; print "\n"; print "\n"; #-----メールアドレス print "\n"; print "\n"; print "\n"; print "\n"; #-----業種 print "\n"; print "\n"; print "\n"; print "\n"; #-----職種 print "\n"; print "\n"; print "\n"; print "\n"; #-----希望プレゼント print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
プレゼントの発送に必要となりますので、お間違えのないようにご記入下さい
お名前*
性別*\n"; print "男\n"; print "女\n"; print "
年齢*歳
ご住所*〒\n"; print "\n"; print "例：1234567\n"; print "
都道府県\n"; print "\n"; print "
 
電話番号*\n"; print "\n"; print "例：1234667890\n"; print "
メールアドレス*
おつとめの業種は？*\n"; print "\n"; print "
あなたの職種は？*\n"; print "\n"; print "
希望のプレゼント*\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; footer(); exit; } #-----保存 sub save{ #-----入力確認 if(@q1_1 > 3){ error('Q1の面白かった記事の選択が多すぎます'); } if(@q2_1 > 3){ error('Q2の面白くなかった記事の選択が多すぎます'); } if($in{q4} ne 'y' && $in{q4} ne 'n'){ error('Q4が選択されていません'); } if(!$in{q5}){ error('Q5が入力されていません'); } if(!$in{q6_1_1}){ error('Q6が選択されていません'); } if($in{q6_1_1} eq 'その他' && !$in{q6_1_2}){ error('Q6のその他が入力されていません'); } if($in{q10} ne 'a' && $in{q10} ne 'y' && $in{q10} ne 'n'){ error('Q10が選択されていません'); } if(!$in{name}){ error('名前が入力されていません'); } if($in{sex} ne 'm' && $in{sex} ne 'f'){ error('性別が選択されていません'); } if(!$in{age}){ error('年齢が入力されていません'); } if($in{age} < 0 || $in{age} > 99 || $in{age} =~ /\D/){ error('年齢の入力が正しくありません'); } if(!$in{zip}){ error('ご住所（郵便番号）が入力されていません'); } if($in{zip} !~ /^\d{7,7}$/){ error('ご住所（郵便番号）の入力が正しくありません'); } if(!$in{prefecture}){ error('ご住所（都道府県）が選択されていません'); } if(!$in{address}){ error('ご住所が入力されていません'); } if(!$in{tel}){ error('電話番号が入力されていません'); } if($in{tel} !~ /^\d{10,11}$/){ error('電話番号が入力が正しくありません'); } if(!$in{email}){ error('メールアドレスが入力されていません'); } if($in{email} !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/){ error('メールアドレスの入力が正しくありません'); } if(!$in{gyoushu}){ error('おつとめの業種が入力されていません'); } if(!$in{shokushu}){ error('あなたの職種が選択されていません'); } if(!$in{present}){ error('希望のプレゼントが選択されていません'); } $q1_1 = join("<>",@q1_1); $q2_1 = join("<>",@q2_1); $q7 = join("<>",@q7); $q8 = join("<>",@q8); $q9 = join("<>",@q9); $in{q6_1_1} = "$in{q6_1_1}（$in{q6_1_2}）" if($in{q6_1_1} eq 'その他'); unless(-e "$log_dir$volume.log"){ open(FILE,">$log_dir$volume.log"); flock(FILE,2); print FILE 0; flock(FILE,8); close(FILE); chmod(0666,"$log_dir$volume.log"); } open(FILE,"+<$log_dir$volume.log") || error('ログファイルが開けません。'); flock(FILE,2); @lines = ; $number = pop(@lines); $number++; $new_line = "$number\t$in{name}\t$in{sex}\t$in{age}\t$in{zip}\t$in{prefecture}\t$in{address}\t$i{tel}\t$in{email}\t$in{gyoushu}\t$in{shokushu}\t$in{present}\t$q1_1\t$in{q1_2}\t$q2_1\t$in{q2_2}\t$in{q3}\t$in{q4}\t$in{q5}\t$in{q6_1_1}\t$q7\t$q8\t$q9\t$in{q10}\t$in{q4_1}\t\n"; unshift(@lines,$new_line); push(@lines,$number); seek(FILE,0,0); print FILE @lines; truncate(FILE,tell); flock(FILE,8); close(FILE); #-----サンキューメッセージ出力 html_header(); header(); print "\n"; print "\n"; print "
\n"; print "ありがとうございました。
\n"; print "
\n"; print "●日刊サイゾートップへ戻る●\n"; print "
\n"; footer(); exit; } #-----HTMLヘッダー sub html_header{ print "Content-Type: text/html; charset=EUC-JP\n"; print "Content-Language: ja\n\n"; #print "Pragma: no-cache\n"; #print "Cache-Control: no-cache\n\n"; } #-----エラー sub error{ html_header(); print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "ERROR $_[0]
\n"; print "
\n"; print "ブラウザーの戻るでもどり、エラーを修正して下さい。\n"; print "
\n"; print "\n"; print "\n"; exit; } sub header{ open(FILE,$header_tmpl) || error('ヘッダーファイルが開けません。'); @lines = ; close(FILE); print @lines; } sub footer{ open(FILE,$footer_tmpl) || error('フッターファイルが開けません。'); @lines = ; close(FILE); print @lines; } exit;