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

Mon, 24 Oct 2005 21:35:16 -0000

albertel		Mon Oct 24 17:35:16 2005 EDT

  Modified files:              
    /loncom/auth	switchserver.pm 
  Log:
  - removing some debug
  
  
Index: loncom/auth/switchserver.pm
diff -u loncom/auth/switchserver.pm:1.1 loncom/auth/switchserver.pm:1.2

--- loncom/auth/switchserver.pm:1.1	Mon Oct 24 17:32:43 2005
+++ loncom/auth/switchserver.pm	Mon Oct 24 17:35:16 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Switch Servers Handler
 #
-# $Id: switchserver.pm,v 1.1 2005/10/24 21:32:43 albertel Exp $
+# $Id: switchserver.pm,v 1.2 2005/10/24 21:35:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -77,9 +77,6 @@
     &Apache::lonnet::log($env{'user.domain'},$env{'user.name'},
 			 $env{'user.home'},
 			 "Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");
-    &Apache::lonnet::logthis(join(' -- ',$env{'user.domain'},$env{'user.name'},
-			 $env{'user.home'},
-			 "Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}"));
 
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
@@ -91,11 +88,10 @@
 # ---------------------------------------------------------------- Get handover
 
     my $token = &Apache::lonnet::reply('tmpput:'.join('&',$ENV{'REMOTE_ADDR'},$env{'user.domain'},$env{'user.name'},$env{'form.role'}),$env{'form.otherserver'});
-    &Apache::lonnet::logthis("token is $token $switch_to");
     my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://'.$switch_to.'/adm/migrateuser?token='.$token.'">';
     my $bodytag=&Apache::loncommon::bodytag('Switching Server ...');
 # --------------------------------------------------------------- Screen Output
-    my $doc=(<<ENDDOCUMENT);
+    $r->print(<<ENDDOCUMENT);
 	   <html>
 	       <head><title>The LearningOnline Network with CAPA Logout</title>
 	       $switch
@@ -105,8 +101,7 @@
 	       </body>
 	       </html>
 ENDDOCUMENT
-&Apache::lonnet::logthis($doc);
-    $r->print($doc);
+
     &Apache::lonnet::flushcourselogs();
     return OK;
 }



