version 1.24, 2002/03/02 03:50:27
|
version 1.25, 2002/03/26 16:15:34
|
Line 367 sub handler {
|
Line 367 sub handler {
|
my ($name, $value) = split(/=/,$_); |
my ($name, $value) = split(/=/,$_); |
$value =~ tr/+/ /; |
$value =~ tr/+/ /; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
if (($name eq 'hide') || ($name eq 'unhide')) { |
if (($name eq 'hide') || ($name eq 'unhide') || ($name eq 'postdata')) { |
unless ($ENV{'form.'.$name}) { |
unless ($ENV{'form.'.$name}) { |
$ENV{'form.'.$name}=$value; |
$ENV{'form.'.$name}=$value; |
} |
} |