--- loncom/auth/lonacc.pm 2007/10/02 01:09:59 1.111 +++ loncom/auth/lonacc.pm 2007/11/06 02:26:07 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.111 2007/10/02 01:09:59 albertel Exp $ +# $Id: lonacc.pm,v 1.112 2007/11/06 02:26:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,7 +63,7 @@ sub get_posted_cgi { if ($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 $pair; foreach $pair (@pairs) { @@ -83,7 +83,7 @@ sub get_posted_cgi { my $fmime=''; my $i; for ($i=0;$i<=$#lines;$i++) { - if ($lines[$i]=~/^$contentsep/) { + if ($lines[$i]=~/^\Q$contentsep\E/) { if ($name) { chomp($value); if ($fname) {