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

[albertel]

albertel		Tue May  6 17:45:25 2003 EDT

  Modified files:              
    /loncom/auth	lonacc.pm lonauth.pm loncacc.pm 
  Log:
  - Perl 5.80 + mod_perl 2.0 + APache 2.0  really want the 0 in there
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.44 loncom/auth/lonacc.pm:1.45
--- loncom/auth/lonacc.pm:1.44	Wed Apr 16 11:59:15 2003
+++ loncom/auth/lonacc.pm	Tue May  6 17:45:25 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.44 2003/04/16 15:59:15 www Exp $
+# $Id: lonacc.pm,v 1.45 2003/05/06 21:45:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -88,7 +88,7 @@
            
         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) {
             my @pairs=split(/&/,$buffer);
             my $pair;
@@ -223,7 +223,7 @@
 	|| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
         &Apache::lonnet::logthis('Granting public access: '.$requrl);
 	my $buffer;
-	$r->read($buffer,$r->header_in('Content-length'));
+	$r->read($buffer,$r->header_in('Content-length'),0);
 	&Apache::loncommon::get_unprocessed_cgi($buffer);
 	$ENV{'user.name'}='public';
         $ENV{'user.domain'}='public';
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.48 loncom/auth/lonauth.pm:1.49
--- loncom/auth/lonauth.pm:1.48	Mon Apr  7 14:24:05 2003
+++ loncom/auth/lonauth.pm	Tue May  6 17:45:25 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.48 2003/04/07 18:24:05 www Exp $
+# $Id: lonauth.pm,v 1.49 2003/05/06 21:45:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -232,7 +232,7 @@
     my $r = shift;
 
     my $buffer;
-    $r->read($buffer,$r->header_in('Content-length'));
+    $r->read($buffer,$r->header_in('Content-length'),0);
     my @pairs=split(/&/,$buffer);
     my $pair; my $name; my $value;
     undef %FORM;
Index: loncom/auth/loncacc.pm
diff -u loncom/auth/loncacc.pm:1.26 loncom/auth/loncacc.pm:1.27
--- loncom/auth/loncacc.pm:1.26	Thu Apr  3 16:32:23 2003
+++ loncom/auth/loncacc.pm	Tue May  6 17:45:25 2003
@@ -2,7 +2,7 @@
 # Cookie Based Access Handler for Construction Area
 # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)
 #
-# $Id: loncacc.pm,v 1.26 2003/04/03 21:32:23 www Exp $
+# $Id: loncacc.pm,v 1.27 2003/05/06 21:45:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -114,7 +114,7 @@
 
         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) {
             my @pairs=split(/&/,$buffer);