version 1.111, 2007/10/02 01:09:59
|
version 1.114, 2008/03/08 02:45:14
|
Line 57 sub goodbye {
|
Line 57 sub goodbye {
|
############################################### |
############################################### |
|
|
sub get_posted_cgi { |
sub get_posted_cgi { |
my ($r) = @_; |
my ($r,$fields) = @_; |
|
|
my $buffer; |
my $buffer; |
if ($r->header_in('Content-length')) { |
if ($r->header_in('Content-length')) { |
$r->read($buffer,$r->header_in('Content-length'),0); |
$r->read($buffer,$r->header_in('Content-length'),0); |
} |
} |
unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) { |
my $content_type = $r->header_in('Content-type'); |
|
if ($content_type !~ m{^multipart/form-data}) { |
my @pairs=split(/&/,$buffer); |
my @pairs=split(/&/,$buffer); |
my $pair; |
my $pair; |
foreach $pair (@pairs) { |
foreach $pair (@pairs) { |
Line 72 sub get_posted_cgi {
|
Line 73 sub get_posted_cgi {
|
$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; |
|
if (ref($fields) eq 'ARRAY') { |
|
next if (!grep(/^\Q$name\E$/,@{$fields})); |
|
} |
&Apache::loncommon::add_to_env("form.$name",$value); |
&Apache::loncommon::add_to_env("form.$name",$value); |
} |
} |
} else { |
} else { |
my $contentsep=$1; |
my ($contentsep) = ($content_type =~ /boundary=\"?([^\";,]+)\"?/); |
my @lines = split (/\n/,$buffer); |
my @lines = split (/\n/,$buffer); |
my $name=''; |
my $name=''; |
my $value=''; |
my $value=''; |
Line 83 sub get_posted_cgi {
|
Line 87 sub get_posted_cgi {
|
my $fmime=''; |
my $fmime=''; |
my $i; |
my $i; |
for ($i=0;$i<=$#lines;$i++) { |
for ($i=0;$i<=$#lines;$i++) { |
if ($lines[$i]=~/^$contentsep/) { |
if ($lines[$i]=~/^--\Q$contentsep\E/) { |
if ($name) { |
if ($name) { |
chomp($value); |
chomp($value); |
if ($fname) { |
if ($fname) { |
Line 92 sub get_posted_cgi {
|
Line 96 sub get_posted_cgi {
|
} else { |
} else { |
$value=~s/\s+$//s; |
$value=~s/\s+$//s; |
} |
} |
|
if (ref($fields) eq 'ARRAY') { |
|
next if (!grep(/^\Q$name\E$/,@{$fields})); |
|
} |
&Apache::loncommon::add_to_env("form.$name",$value); |
&Apache::loncommon::add_to_env("form.$name",$value); |
} |
} |
if ($i<$#lines) { |
if ($i<$#lines) { |