#! /usr/local/bin/perl
#
# FREE QUESTIONNAIRE CGI
#
# Created by Koji Kai
# Last Modified：1999/07/20
#
$ver = 'Version 0.12a';
#
### 他人への匿名メール送信として、本ＣＧＩを利用する事は固くお断りします。###


##### ユーザー設定オプション #####

# タイトル
$qsttitle = '金属アレルギー外来へのご質問';

# sendmail のパス
$sendmail = '/usr/ucblib/sendmail';

# メール送信先
$mlto = 'akihiko@dent.niigata-u.ac.jp';

# メールのサブジェクト
# ここで指定したサブジェクトであなたにメールが届きます
$sub = 'FREE QUESTIONNAIRE CGI';

# タイトル文字色
$titlecolor = '#408080';

# 本文文字色
$bodycolor = '#000000';

# リンク文字色
$linkcolor   = '#2D952F';

# qst.cgi の位置（通常はこのまま変更しないで下さい。）
# 一部のプロバイダでは、フルパスで指定する必要があるようです。
$qstcgi = 'http://www.dent.niigata-u.ac.jp/hosp/allergy/guest/qst.cgi';

# 背景色または背景イメージ（イメージは .gif と .jpg が使用可能です）
$bg = '#F7FFEC';

# ウェルカムメッセージ（自由に HTML 形式で記述して下さい）
$wlcmmsg = '
よろしかったらご質問にお答えください．<p>
';

# アンケート内容（自由に HTML 形式で記述して下さい）
# name= は、Q1 から始めて、Q2, Q3, Q4... としていって下さい。
$qst = '
<p>
<b>当ホームページへの訪問は初めてですか？</b><br>
<input type="radio" name="Q2" value="初めて">初めて　
<input type="radio" name="Q2" value="何回か来ている">何回か来ている<p>
<b>あなたは男性ですか女性ですか？</b><br>
<input type="radio" name="Q3" value="男性">男性　
<input type="radio" name="Q3" value="女性">女性<p>
<b>あなたの年令はどのくらいですか？</b><br>
<select name="Q4" size="1">
   <option value="0〜9才">0〜9才
   <option value="10〜19才">10〜19才
   <option value="20〜29才">20〜29才
   <option value="30〜39才">30〜39才
   <option value="40〜49才">40〜49才
   <option value="50〜59才">50〜59才
   <option value="60〜69才">60〜69才
　<option value="70〜79才">70〜79才
   <option value="80才以上">80才以上
</select><p>
<b>あなたのお住まいは何県ですか？</b><br>
<select name="Q5" size="1">
   <option value="北海道">北海道
   <option value="青森">青森
   <option value="岩手">岩手
   <option value="秋田">秋田
   <option value="宮城">宮城
   <option value="山形">山形
   <option value="福島">福島
   <option value="栃木">栃木
   <option value="群馬">群馬
   <option value="茨城">茨城
   <option value="埼玉">埼玉
   <option value="千葉">千葉
   <option value="東京">東京
   <option value="神奈川">神奈川
   <option value="山梨">山梨
   <option value="長野">長野
   <option value="新潟">新潟
   <option value="静岡">静岡
   <option value="岐阜">岐阜
   <option value="愛知">愛知
   <option value="富山">富山
   <option value="石川">石川
   <option value="福井">福井
   <option value="三重">三重
   <option value="和歌山">和歌山
　<option value="滋賀">滋賀
   <option value="京都">京都
   <option value="大阪">大阪
   <option value="奈良">奈良
   <option value="兵庫">兵庫
   <option value="岡山">岡山
   <option value="広島">広島
   <option value="島根">島根
   <option value="鳥取">鳥取
   <option value="山口">山口
   <option value="徳島">徳島
   <option value="香川">香川
   <option value="愛媛">愛媛
   <option value="高知">高知
   <option value="福岡">福岡
   <option value="佐賀">佐賀
   <option value="長崎">長崎
   <option value="大分">大分
   <option value="熊本">熊本
   <option value="宮崎">宮崎
   <option value="鹿児島">鹿児島
   <option value="沖縄">沖縄
 </select><p>
<b>金属アレルギーに関する悩み，質問などございましたらご記入ください．</b><br>
<textarea name="Q6" cols="80" rows="5"></textarea><p>
<IMG SRC="http://www.dent.niigata-u.ac.jp/hosp/allergy/guest/lime.cgi?page=5&name=質問" WIDTH=2 HEIGHT=2> 
';


# 合計質問数
# 例えば、Q4 までだったら、4 と記述
$q = '6';


# 送信後メッセージ（自由に HTML 形式で記述して下さい）
$emes = '
<b><font size=+1>ありがとうございました。<br>
管理者宛てにメールを送信しました。<p>

<CENTER><A HREF="/hosp/allergy/index.html"><IMG SRC="return.gif" ALT="modoru" BORDER=0 HEIGHT=25 WIDTH=75></A><BR>

<HR></P></CENTER>
</font><p>
</b>
';

# JavaScript による、「名前」「メールアドレス」の入力チェックを行いますか？
# チェックする場合は 'on' 、しない場合は 'off' として下さい。
$jscript = 'on';

# メール送信時に文字コードをＪＩＳに変換しますか？(jcode.pl 必須)
# 変換する場合は 'on' 、しない場合は 'off' として下さい。
$jcode = 'off';

# jcode.pl のパス(jcode.pl は自分で入手してサーバーにアップします。)
# $jcode = 'off' としている場合は無視されます。
$jcodepl = '../cgi-bin/jcode.pl';



##### プログラム本体 #####

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
&dec;
if ($md eq "送信") {
   &sendmail; &html0; &html2; &html3; &html6; &html99;
} else {
   &html0;
   if ($jscript eq "on") {
      &html1;
   }
   &html2; &html3; &html4; &html5; &html7; &html99;
}

sub dec {
   @iall = split(/&/,$buffer);
   foreach $n_v (@iall) {
      ($name, $value) = split(/=/, $n_v);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $FORM{$name} = "$FORM{$name}\n$value";
   }
   $md = $FORM{'mode'};
   $nm = $FORM{'name'};
   $em = $FORM{'email'};
   $hp = $FORM{'homepage'};
   $md =~ s/\n//;
   $nm =~ s/\n//;
   $em =~ s/\n//;
   $hp =~ s/\n//;

   $other = "";
   for ($i = 1; $i <= $q; $i++) {
      $qwk = $FORM{"Q$i"};
      $other = "$other*** Q$i ***$qwk\n";
   }
   $rh = $ENV{'REMOTE_HOST'};

   $mess = "Subject: $sub\nReply-To: $em\n\n[Name]\n$nm\n\n[E-mail]\n$em\n\n[Home Page]\n$hp\n\n[OtherQuestions]\n$other\n\n($rh)";
}

sub sendmail {
   if ($jcode eq "on") {
      require "$jcodepl";
      &jcode'convert(*mess, "jis");
   }
   open(MAIL, "|$sendmail $mlto");
   print MAIL $mess;
   close(MAIL);
}

sub html0 {
   print "Content-Type: text/html\n\n";
   print "<html><head><title>$qsttitle</title>\n";
}

sub html1 {
   print "<Script Languege=\"JavaScript\">\n";
   print "<!-- Hide script from old browser\n";
   print "function nameChk(fld) {\n";
   print "   if (fld.value == \"\") {\n";
   print "      return \"[名前] が入力されていません。\";\n";
   print "   } else {\n";
   print "      return \"\";\n";
   print "   }\n";
   print "}\n";
   print "function mailChk(fld) {\n";
   print "   if (fld.value == \"\") {\n";
   print "      return \"[メールアドレス] が入力されていません。\";\n";
   print "   } else {\n";
   print "      return \"\";\n";
   print "   }\n";
   print "}\n";
   print "function mainChk() {\n";
   print "   var nameValue = nameChk(document.qstform.name);\n";
   print "   var mailValue = mailChk(document.qstform.email);\n";
   print "   var errmsg = \"[名前] と [メールアドレス] は必須項目です。\";\n";
   print "   var conmsg = \"送信します。\\nよろしいですか？\";\n";
   print "   if ((nameValue + mailValue) != \"\") {\n";
   print "      alert (nameValue + \"\\n\" + mailValue + \"\\n\" + errmsg);\n";
   print "      return false;\n";
   print "   } else {\n";
   print "      return confirm(conmsg);\n";
   print "   }\n";
   print "}\n";
   print "// end Hiding -->\n";
   print "</Script>";
}

sub html2 {
   print "</head>\n";
}

sub html3 {
   if ($bg =~ /.jpg/i || $bg =~ /.gif/i) {
      print "<body background=\"$bg\" text=\"$bodycolor\" link=\"$linkcolor\" vlink=\"$linkcolor\">\n";
   } else {
      print "<body bgcolor=\"$bg\" text=\"$bodycolor\" link=\"$linkcolor\" vlink=\"$linkcolor\">\n";
   }
}

sub html4 {
   print "<form method=\"post\" action=\"$qstcgi\" name=\"qstform\">\n";
}

sub html5 {
   print "<font size=\"+2\" color=\"$titlecolor\"><b>$qsttitle</b></font><p>";
   print "$wlcmmsg";
   if ($jscript eq "on") {
      print "<table><tr><td><b>お名前(必須)：</b></td>";
   } else {
      print "<table><tr><td><b>お名前：</b></td>";
   }
   print "<td><input type=\"text\" size=\"40\" name=\"name\"></td></tr>\n";
   if ($jscript eq "on") {
      print "<tr><td><b>メールアドレス(必須)：</b></td>";
   } else {
      print "<tr><td><b>メールアドレス：</b></td>";
   }
   print "<td><input type=\"text\" size=\"40\" name=\"email\"></td></tr>\n";
   print "<tr><td><b>ホームページ：</b></td>";
   print "<td><input type=\"text\" size=\"60\" value=\"http://\" name=\"homepage\">";
   print "</td></tr></table><p>\n";
   print "$qst";
}

sub html6 {
   print $emes;
}

sub html7 {
   print "<p>\n";
   print "　<input type=\"submit\" name=\"mode\" value=\"送信\"";
   if ($jscript eq "on") {
      print " onClick=\"return mainChk();\">";
   } else {
      print ">";
   }
   print "　　<input type=\"reset\" value=\"消去\"><p></form>\n";
}

sub html99 {
   print "<hr noshade size=\"2\">\n";
   print "<div align=\"right\"><i><font size=\"2\">Created by <a href=\"http://freesoft.cup.com/\">K A I</a> ( $ver ) </font></i></div>\n";
   print "</body></html>";
}