Return to loncacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.26, 2003/04/03 21:32:23 | version 1.27, 2003/05/06 21:45:25 |
---|---|
Line 114 sub handler { | Line 114 sub handler { |
my $buffer; | my $buffer; |
$r->read($buffer,$r->header_in('Content-length')); | $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); |