|
version 1.111, 2007/10/02 01:09:59
|
version 1.112, 2007/11/06 02:26:07
|
|
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) { |
unless ($buffer=~/^(\-+[\+\w]+)\s+Content\-Disposition\:\s*form\-data/si) { |
| my @pairs=split(/&/,$buffer); |
my @pairs=split(/&/,$buffer); |
| my $pair; |
my $pair; |
| foreach $pair (@pairs) { |
foreach $pair (@pairs) { |
|
Line 83 sub get_posted_cgi {
|
Line 83 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) { |
![[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