Cannot get the korean value that was posted to CGI

[kumarpl]

CASE-1: From a CGI window, when I open another CGI window using window.open() and post a korean value [ encoded using Javascript encodeURI() ] through the URL, and then if I read the input using PERL from
STDIN, I dont receive the original Korean string. I see some junk content.

CASE-2: On the other side, if I post the Korean value [ encoded with EUC_KR ] using Java to the same CGI window, I could get my original Korean string from the PERL STDIN. In this case, I am before posting
it to the CGI.

For the both the above cases the web server used is Apache (2.0.54)
Is there any way to resolve CASE-1?

[kumarpl]

CASE-1: From a CGI window, when I open another CGI window using window.open() and post a korean value [ encoded using Javascript encodeURI() ] through the URL, and then if I read the input using PERL from
STDIN, I dont receive the original Korean string. I see some junk content.

CASE-2: On the other side, if I post the Korean value [ encoded with EUC_KR ] using Java to the same CGI window, I could get my original Korean string from the PERL STDIN. In this case, I am before posting
it to the CGI.

For the both the above cases the web server used is Apache (2.0.54)
Is there any way to resolve CASE-1?

[GunnarH]

Without code, that illustrates the problem, it's hard to understand what you mean. But the document, from which you submit the form with Korean characters, should better have the content-type text/html; charset=EUC_KR.

[kumarpl]

I am using PERL 5.6 for CGI (Server script).
When a query string containing Korean values is POSTed, the following code gives me the values in ANSI form.
As a result, the I get junk values.
My problem is to read these Korean values properly and not as junk.

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
    $buf=$ENV{'QUERY_STRING'};
}
 
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
    ($name,$val)=split (/=/,$fval[$i],2);
    $val=~tr/+/ /;
    $val=~ s/%(..)/pack("c",hex($1))/ge;
    $name=~tr/+/ /;
    $name=~ s/%(..)/pack("c",hex($1))/ge;
 
    if (!defined($field{$name})) {
        $field{$name}=$val;
    }
    else {
        $field{$name} .= ",$val";
    }
}

[GunnarH]

When a query string containing Korean values is POSTed, the following code gives me the values in ANSI form.
As a result, the I get junk values.

I don't know very much about working with Korean characters, but I have a strong feeling that you are not supposed to use them directly anywhere in a URL. What you can do is including the URI escaped equivalent of the octets that represent the Korean string.

Please consider the following script:

#!/usr/bin/perl
 
$ENV{QUERY_STRING} = 'kr_string=%B6%F3%C0%CC%C7%C1%C0%CE%C4%DA%B8%AE%BE%C6';
 
use CGI;                 # Note that these three
my $cgi = CGI->new;      # lines replace all the
my %field = $cgi->Vars;  # code you posted
 
print $cgi->header(-type=>'text/plain', -charset=>'EUC-KR');
print "kr_string: $field{kr_string}\n";