#!/usr/local/bin/perl
print "Content-type: text/html; charset=EUC-JP\n";
if ( $ENV{HTTP_COOKIE} ne '' ){
foreach ( split(/\s*;\s*/,$ENV{HTTP_COOKIE}) ){
foreach ( split(/\,/,$_) ){
($key,$value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$COOKIE{$key} = $value;
}
}
}
read(STDIN,$buf,$ENV{CONTENT_LENGTH});
if ( $buf ne '' ){
foreach ( split(/\s*;\s*/,$ENV{HTTP_COOKIE}) ){
foreach ( split(/\,/,$_) ){
($key,$value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$FORM{$key} = $value;
}
}
}
if ( $FORM{COOKIE_FLAG} eq 'on' ){
($name,$email,$url) = ($FORM{NAME},$FORM{EMAIL});
foreach ( $name,$email,$url ){ # URL エンコード
s/([^-_a-zA-Z0-9 ])/sprintf("%%%02lX",unpack("C",$1))/eg;
s/ /+/g;
}
$cookie_data =
"Set-Cookie: NAME=$name,EMAIL=$email,URL=$url; expires=Mon, 30 Dec 2020 23:59:59 GMT\n";
print $cookie_data;
}
print "\n\n";
if ( $ENV{HTTP_COOKIE} ){
print "受け取った cookie: $ENV{HTTP_COOKIE}\n";
}
if ( $cookie_data ){
print "セットした cookie: $cookie_data
\n";
}
print <
END