#!/usr/local/bin/perl
#############################################
# Script written by Web新撰組 #
# Created on: 95年4月15日 #
# E-MAIL master@web-shinsengumi.com #
#saport http://www.web-shinsengumi.com/ #
#############################################
########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;
}
$max = $FORM{"max"};
$logmax = $FORM{"logmax"};
$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"};
$tsaize = $FORM{"tsaize"};
$tsaize2 = $FORM{"tsaize2"};
$tsaize3 = $FORM{"tsaize3"};
$end = $FORM{"end"};
$title = $FORM{"title"};
&jcode'h2z_euc(*title);
&jcode'convert(*title,'euc');
################################
#########データを上書き用にオープンsし、書き込む#######
open(IN,">set.dat");
print IN "$max\n";
print IN "$logmax\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 "$tsaize\n";
print IN "$tsaize2\n";
print IN "$tsaize3\n";
print IN "$end\n";
print IN "$title\n";
close(IN);
####################################
############ＨＴＭＬへの出力#######
print "Content-type: text/html\n\n";
print <<"EOF";
デザイン生成
デザインの確認に「戻る」
EOF
exit(0);