loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.54, 2003/07/17 15:24:46
+version 1.56, 2003/09/16 19:23:47
  Line 46  use Apache::loncommon();
  use Apache::lonnet();
  use Apache::lonmenu();
  use Fcntl qw(:flock);
+ use Apache::lonlocal;
  my %FORM;
- Line 236  $bodytag
+ Line 237  $bodytag
  ENDFAILED
  }
+ # ------------------------------------------------------------------ Rerouting!
+ sub reroute {
+     my $r=shift;
+     my $bodytag=&Apache::loncommon::bodytag('Rerouting');
+     $r->send_cgi_header(<<ENDRFHEADER);
+ Content-type: text/html
+ ENDRFHEADER
+     $r->print(<<ENDRFAILED);
+ <html>
+ <head>
+ <title>Rerouting Login to the LearningOnline Network with CAPA</title>
+ </head>
+ <html>
+ $bodytag
+ <h1>Sorry ...</h1>
+ Please <a href="/">log in again</a>.
+ </body>
+ </html>
+ ENDRFAILED
+ }
  # ---------------------------------------------------------------- Main handler
  sub handler {
      my $r = shift;
+ # Are we re-routing?
+     if (-e '/home/httpd/html/lon-status/reroute.txt') {
+ 	&reroute($r);
+ 	return OK;
+     }
+     &Apache::lonlocal::get_language_handle();
      my $buffer;
      $r->read($buffer,$r->header_in('Content-length'),0);
      my @pairs=split(/&/,$buffer);