#!/usr/local/bin/perl
# 日本語コードjcode.plのURL
require './jcode.pl';
&form_decode;
&jm_jump;
# ########フォームからのデータ処理######## #
sub form_decode
{
if($ENV{'REQUEST_METHOD'} eq 'POST')
{
if($ENV{'CONTENT_LENGTH'} > 204800){&error('COMMENT DATA IS OVER FLOWED');}
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
}
else {$QUERY_DATA = $ENV{'QUERY_STRING'};}
@pairs = split(/&/, $QUERY_DATA);
foreach $pair (@pairs)
{
if($pair eq 'test') {&error('TEST OK');}
($key, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'h2z_sjis(*value); # 半角カナ→全角(SJIS)変換
# 同じNAMEで送信されたら「、」で繋ぐ
if($$key ne '') {$$key .= "、";}
$$key .= $value;
}
return;
}
# SSL受講申込ページへジャンプ============================================================
sub jm_jump
{
# 講座受講（オリコ・クオーク（セディナ）・ジャックス）、商品購入分岐 ### （20090603：テープ・看護助手を自社割賦へ、20100204：フィギュアを自社割賦へ）
$c2 = substr($c,0,3);
$c2_2 = substr($c,0,5);
if($c2 eq 'B28')
{
$cgi = 'dispatch_h.cgi';
}
elsif($c2_2 eq 'A01_S')
{
$cgi = 'dispatch_h_ad.cgi';
}
elsif($c2 eq 'A31')
{
$cgi = 'dispatch_orico.cgi';
}
elsif($c2 eq 'C90' | $c2 eq 'C91')
{
$cgi = 'dispatch_jaccs.cgi';
}
elsif($c2 eq 'C23' | $c2 eq 'C23')
{
$cgi = 'dispatch_jaccs.cgi';
}
else
{
$cgi = 'dispatch.cgi';
}
### ペン9800円メルマガ用媒体強制
if($c2_2 eq 'A01_S')
{
$baitai = '753-061';
}
# ジャンプページ書き出し
print << "END";
Content-type: text/html
END
exit;
}