#!/usr/bin/perl # #チェック・診断テストプログラム Ver1.5 # #1999-2000 湯一路 #yuichiro@url-battle.com #http://www.url-battle.com/cgi/index.html #※改造・再配布ともに自由ですが著作権表示は削除しないでください。 #■以下の項目を変更してください。 #チェック・診断テストのタイトル $title = 'オンラインショップ信頼度診断テスト'; #トップページのリンク先URL $top_page = 'http://www.kokugai.com/onlineshop/'; #解説文 $top_info = '
あなたのオンラインショップの信頼度を診断するテスト'; #得点の初期値 $total = 0; #タイトルの色 $title_color="#191919"; #YESまたはNO はい、いいえなどに変えたいときに変更してください。 $yes_msg = "YES"; $no_msg = "NO"; #bodyタグ 背景などの設定をしてください。 $body = ""; #tableタグ テーブルの形状を変えたいときに変更してください $table = ""; #tableのヘッダー　表の見出しにあたる部分です $table_header = "\n"; #使い方 $for_user = << "END_MSG";
番号
質問
$yes_msg$no_msg
〜使い方〜
以下の質問に$yes_msg,$no_msgで答えてください。
すべてのチェックを埋めた後、一番下にあるチェックを押してください。

END_MSG #設定用ファイル　ファイル名を変えた場合のみ変更してください。 $file = './check.dat'; $result_file = './result.dat'; #■変更ここまで $prehost="temp"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); } else { $formdata = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$QUERY_DATA); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\n//g; $value =~ s//>/g; $FORM{$name} = $value; } if (!open(DB,$file)) { print "ファイルが開けません\n"; exit; } @DATA = ; close(DB); $question_max = @DATA; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "$title\n"; print "\n"; print "$body\n"; if ($FORM{'check'} eq 'regist') { ®ist; } else { &html; } exit; sub html { print "$title
\n"; print "$top_info

\n"; print "$for_user

"; print "

\n"; print "\n"; $number=1; print "$table"; print "$table_header"; foreach $line (@DATA) { chop($line); ($qestion,$type,$point) = split(/\,/,$line); print "
$number
$qestion\n"; #yes,noどちらに得点があるか振り分ける if ($type eq 'y' || $type eq 'Y'){ $yes = $point; $no = 0; } else { $yes = 0; $no = $point; } print "$yes_msg\n"; print "$no_msg\n"; $number++; } print ""; print "

\n"; print "

\n"; &footer; exit; } sub regist { #偏差値の計算（単純に合計しているだけです） for ($i = 1; $i <= $question_max; $i++) { $temp = "check" . $i; $total = $total + $FORM{$temp}; } if (!open(DB,$result_file)) { print "ファイルが開けません\n"; exit; } @DATA = ; close(DB); $result_num = @DATA; $flag = 0; print "あなたの得点は$totalです！\n"; print "
\n"; print "■解説
\n"; foreach $line (@DATA) { chop($line); ($num,$result) = split(/\,/,$line); if ($total >= $num){ print "$result\n"; $flag=1; last; } } if ($flag == 0) { print "$result\n"; } print "

\n"; &footer; exit; } sub footer{ print "戻る"; print "

\n"; #著作権表示->以下の1行は削除しないでください。 print "CGI:湯一路\n"; print "\n"; print "\n"; }