#!/usr/bin/perl -w

use CGI qw(:standard);
require 'jcode.pl';
require 'mimew.pl';

$sendmailCmnd = '/usr/lib/sendmail -t ';

$Tomailadd = 'code202@po12.oninet.ne.jp';

$Subject = '資料請求・アンケート';


$queryString = $ENV{'QUERY_STRING'};
if ($ENV{'REQUEST_METHOD'} eq "Get"){

$buffer = $ENV{'QUERY_STRING'};

} else {

read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );

}

my @pair = split(/&/, $buffer);
foreach $pair (@pairs) {

my($name,$value)= split(/=/, $pair); $value =~ tr/+/ /; $value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/ge; print "$name : $value<br>";

}

if ($queryString ne "") { $queryString .="&";

}
for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {

$queryString .= getc;

}

foreach (split(/&/, $queryString)) {

s/A+/ /g; s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c",hex($1))/ge; ($name, $value) = split(/=/,$_, 2); $in{$name} = $value;

}
$mailmess = <<EOM;
Subject: 資料請求・アンケート
Reply-To: $Tomailadd


御請求の資料: $in{'material'}
郵便番号: $in{'post1'}-${'post2'}
都道府県: $in{'pref1'}
市区郡以降: $in{'addr'}
氏名： $in{'name11'}$in{'name12'}
フリガナ: $in{'name21'}$in{'name22'}
性別: $in{'sex'}
電話番号: $in{'tel'}
PC用Eメール: $in{'mail'}
携帯メール: $in{'p_mail'}
高等学校所在地: $in{'pref2'}
学校区分: $in{'q31'}
高等学校名: $in{'school'}
学年: $in{'q32'}
予\備\校県所在地: $in{'pref3'}
予\備\校: $in{'cram1'}
校名: $in{'cram2'}
興味のある学部・学科: $in{'q4'}
知りたい情報: $in{'q5'}
本学以外に興味のある大学・学部<br>
1.大学: $in{'q611'}学部:$in{'q612'}学科:$in{'q613'}<br>
2.大学: $in{'q621'}学部:$in{'q622'}学科:$in{'q623'}<br>
3.大学: $in{'q631'}学部:$in{'q632'}学科:$in{'q633'}<br>
7進路に関する情報源: $in{'q7'}
8その他: $in{'other'}
9役立つ情報(資料等): $in{'q9'}

EOM

$Subject = &mimeencode($Subject);
&jcode'convert(*mailmess,'jis');


open (SMTP,"| $sendmailCmnd $Tomailadd");
print SMTP $mailmess;
close (SMTP);

print "Location:http://shigeoka.regulus.ne.jp/end1.html\n\n";