#!/usr/bin/perl
#
#チェック・診断テストプログラム Ver1.3
#
#1999-2000 湯一路
#yuichiro@url-battle.com
#http://homepage2.nifty.com/hitoritabi/
#※改造・再配布ともに自由ですが著作権表示は削除しないでください。
#■以下の項目を変更してください。
#チェック・診断テストのタイトル
$title = '魔女認定試験';
#トップページのリンク先URL
$top_page = '';
#解説文
$top_info = 'あなたの心の奥に潜む魔女性を探る!さあ、怖がらないでチェックしてね。
';
#得点の初期値
$total = 0;
#タイトルの色
$title_color="#000000";
#YESまたはNO はい、いいえなどに変えたいときに変更してください。
$yes_msg = "YES";
$no_msg = "NO";
#bodyタグ 背景などの設定をしてください。
$body = "
YES | NO | \n"; #使い方 $for_user = << "END_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;
$value =~ s/>/>/g;
$FORM{$name} = $value;
}
if (!open(DB,$file)) { print "ファイルが開けません\n"; exit; }
@DATA = \n";
print "$for_user ";
print "
\n";
print "$top_info
\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 = \n";
&footer;
exit;
}
sub footer{
print "";
print "\n";
print "
\n";
print "■解説
【Aタイプ】100点★合格★【Bタイプ】99点〜85点★合格★【Cタイプ】84点〜75点★合格★
【Dタイプ】74点〜55点【Eタイプ】54点〜40点【Fタイプ】39点〜25点【Gタイプ】24点以下
\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";
#著作権表示->以下の1行は削除しないでください。
print "CGI:湯一路\n";
print "\n";
print "\n";
}