[LON-CAPA-cvs] cvs: loncom /auth lonacc.pm

[albertel]

albertel		Mon Nov  5 21:26:12 2007 EDT

  Modified files:              
    /loncom/auth	lonacc.pm 
  Log:
  - safari 3 uses + in the content separator lines
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.111 loncom/auth/lonacc.pm:1.112
--- loncom/auth/lonacc.pm:1.111	Mon Oct  1 21:09:59 2007
+++ loncom/auth/lonacc.pm	Mon Nov  5 21:26:07 2007
@@ -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 @@
     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 @@
 	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) {