#!/usr/local/bin/perl
########jcode.plまでのパス##########
require 'jcode.pl';
####################################
########デコード###########
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$c_max = $FORM{"c_max"};
$back_c = $FORM{"back_c"};
$text_c = $FORM{"text_c"};
$link_c = $FORM{"link_c"};
$vlink_c = $FORM{"vlink_c"};
$alink_c = $FORM{"alink_c"};
$title = $FORM{"title"};
$tanu = $FORM{"tanu"};
$tanu_c = $FORM{"tanu_c"};
&jcode'h2z_euc(*title);
&jcode'convert(*title,'euc');
################################
#########データを上書き用にオープンsし、書き込む#######
open(IN,">set.dat");
print IN "$c_max\n";
print IN "$back_c\n";
print IN "$text_c\n";
print IN "$link_c\n";
print IN "$vlink_c\n";
print IN "$alink_c\n";
print IN "$title\n";
print IN "$tanu\n";
print IN "$tanu_c\n";
close(IN);
####################################
############ＨＴＭＬへの出力#######
print "Content-type: text/html\n\n";
print "\n";
print <<"EOF";
デザイン完了
デザイン完了
戻る
EOF
exit(0);