|
version 1.112, 2007/11/06 02:26:07
|
version 1.113, 2007/11/06 02:42:40
|
|
Line 63 sub get_posted_cgi {
|
Line 63 sub get_posted_cgi {
|
| 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 75 sub get_posted_cgi {
|
Line 76 sub get_posted_cgi {
|
| &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 84 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]=~/^\Q$contentsep\E/) { |
if ($lines[$i]=~/^--\Q$contentsep\E/) { |
| if ($name) { |
if ($name) { |
| chomp($value); |
chomp($value); |
| if ($fname) { |
if ($fname) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth