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 |