Return to lonauth.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.48, 2003/04/07 18:24:05 | version 1.49, 2003/05/06 21:45:25 |
---|---|
Line 232 sub handler { | Line 232 sub handler { |
my $r = shift; | my $r = shift; |
my $buffer; | my $buffer; |
$r->read($buffer,$r->header_in('Content-length')); | $r->read($buffer,$r->header_in('Content-length'),0); |
my @pairs=split(/&/,$buffer); | my @pairs=split(/&/,$buffer); |
my $pair; my $name; my $value; | my $pair; my $name; my $value; |
undef %FORM; | undef %FORM; |