version 1.26, 2002/01/04 14:57:14
|
version 1.27, 2002/02/25 21:22:51
|
Line 34
|
Line 34
|
# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer |
# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer |
# 12/15 Scott Harrison |
# 12/15 Scott Harrison |
# YEAR=2002 |
# YEAR=2002 |
# 1/4 Gerd Kortemeyer |
# 1/4,2/25 Gerd Kortemeyer |
# |
# |
### |
### |
|
|
Line 100 sub handler {
|
Line 100 sub handler {
|
$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; |
$name =~ tr/+/ /; |
$name =~ tr/+/ /; |
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$ENV{"form.$name"}=$value; |
if ($ENV{"form.$name"}) { |
|
$ENV{"form.$name"}.=','.$value; |
|
} else { |
|
$ENV{"form.$name"}=$value; |
|
} |
} |
} |
} else { |
} else { |
my $contentsep=$1; |
my $contentsep=$1; |