loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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