[LON-CAPA-cvs] cvs: loncom /auth lontokacc.pm /lonnet/perl lonnet.pm

[albertel]

albertel		Tue May 11 02:49:59 2004 EDT

  Modified files:              
    /loncom/auth	lontokacc.pm 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - these seem to cause a bit much spew
  
  
Index: loncom/auth/lontokacc.pm
diff -u loncom/auth/lontokacc.pm:1.9 loncom/auth/lontokacc.pm:1.10
--- loncom/auth/lontokacc.pm:1.9	Fri Aug  1 13:25:40 2003
+++ loncom/auth/lontokacc.pm	Tue May 11 02:49:58 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Access Handler for User File Transfers
 #
-# $Id: lontokacc.pm,v 1.9 2003/08/01 17:25:40 www Exp $
+# $Id: lontokacc.pm,v 1.10 2004/05/11 06:49:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -72,7 +72,7 @@
     my $r=shift;
     if ($r->status==200) {
         unlink($r->filename);
-	&Apache::lonnet::logthis('Unlinking '.$r->filename);
+	#&Apache::lonnet::logthis('Unlinking '.$r->filename);
     } else {
         &Apache::lonnet::logthis('Failed to transfer '.$r->filename);
     }
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.499 loncom/lonnet/perl/lonnet.pm:1.500
--- loncom/lonnet/perl/lonnet.pm:1.499	Mon May 10 19:18:27 2004
+++ loncom/lonnet/perl/lonnet.pm	Tue May 11 02:49:58 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.499 2004/05/10 23:18:27 albertel Exp $
+# $Id: lonnet.pm,v 1.500 2004/05/11 06:49:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1325,7 +1325,7 @@
     }
 # Save the file
     {
-	&Apache::lonnet::logthis("Saving to $filepath $file");
+	#&Apache::lonnet::logthis("Saving to $filepath $file");
        open(my $fh,'>'.$filepath.'/'.$file);
        print $fh $ENV{'form.'.$formname};
        close($fh);