loncom/auth/loncacc.pm - diff

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);