Здравствуйте! Вопрос у меня следующий: Обработка входящего буфера из url строки в ОС Win работает, а в ОС LInux работает только при первом клике, дальше не работает...
Код:
&GetFormInput;
$mesg = $field{'msg'};

if("$mesg" ne "0")
{
...
}else{
...
}

sub GetFormInput {

(*fval) = @_ if @_ ;

local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}
if ($buf eq "") {
return 0 ;
}
else {
@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";

#if you want multi-selects to goto into an array change to:
#$field{$name} .= "\0$val";
}
   }
}
return 1;
}

• обработка url, L0wFlea_sq, 13:09 , 19-Май-04, (1)