[BACK]Return to takeoffline.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/takeoffline.pl between versions 1.1 and 1.2

version 1.1, 2003/09/11 19:47:30 version 1.2, 2003/09/11 20:54:11
Line 32  unless ($ENV{'QUERY_STRING'}) { Line 32  unless ($ENV{'QUERY_STRING'}) {
     print 'No reroute server given, taking completely offline.';      print 'No reroute server given, taking completely offline.';
     &dead();      &dead();
 } else {  } else {
     $otherserver=$ENV{'QUERY_STRING'};      ($otherserver,$domain)=split(/\&/,$ENV{'QUERY_STRING'});
     print 'Rerouting to '.$otherserver;      print 'Rerouting to '.$otherserver;
     &reroute();      &reroute();
 }  }
   open (STATUS,'>/home/httpd/html/lon-status/reroute.txt');
   print STATUS "status=rerouting&server=$otherserver&domain=$domain&time=".time."\n";
   close(STATUS);
   
 print "</body></html>";  print "</body></html>";
   
Line 51  sub reroute { Line 54  sub reroute {
 <html>  <html>
  <head>   <head>
   <title>Welcome to the LearningOnline Network with CAPA</title>    <title>Welcome to the LearningOnline Network with CAPA</title>
   <meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://$otherserver/adm/roles">    <meta HTTP-EQUIV="Refresh" CONTENT="0.5; url=http://$otherserver/adm/login?domain=$domain">
  </head>   </head>
  <body bgcolor="#004400" topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>   <body bgcolor="#004400" topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>
   <img src="/adm/lonIcons/header.gif" />    <img src="/adm/lonIcons/header.gif" />
 <p><font color="#FFFFFF">Connecting to  <p><font color="#FFFFFF">Connecting to
 <a href="http://$otherserver/adm/roles"><font color="#FFFFFF">http://$otherserver/</font></a></font></p>  <a href="http://$otherserver/adm/login?domain=$domain"><font color="#FFFFFF">http://$otherserver/</font></a></font></p>
 </body>  </body>
 </html>  </html>
 ENDNEWINDEX  ENDNEWINDEX
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>