version 1.179, 2019/01/27 16:02:43
|
version 1.181, 2020/10/26 01:52:15
|
Line 425 sub handler {
|
Line 425 sub handler {
|
&Apache::lonnet::logthis('No valid logtoken for log-in page -- unable to determine hostname for hostID: '.$lonhost.'. Check entry in hosts.tab');
|
&Apache::lonnet::logthis('No valid logtoken for log-in page -- unable to determine hostname for hostID: '.$lonhost.'. Check entry in hosts.tab');
|
}
|
}
|
my $spares='';
|
my $spares='';
|
my $last;
|
my (@sparehosts,%spareservers);
|
foreach my $hostid (sort
|
my $sparesref = &Apache::lonnet::this_host_spares($defdom);
|
{
|
if (ref($sparesref) eq 'HASH') {
|
&Apache::lonnet::hostname($a) cmp
|
foreach my $key (keys(%{$sparesref})) {
|
&Apache::lonnet::hostname($b);
|
if (ref($sparesref->{$key}) eq 'ARRAY') {
|
}
|
my @sorted = sort { &Apache::lonnet::hostname($a) cmp
|
keys(%Apache::lonnet::spareid)) {
|
&Apache::lonnet::hostname($b);
|
|
} @{$sparesref->{$key}};
|
|
if (@sorted) {
|
|
if ($key eq 'primary') {
|
|
unshift(@sparehosts,@sorted);
|
|
} elsif ($key eq 'default') {
|
|
push(@sparehosts,@sorted);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
foreach my $hostid (@sparehosts) {
|
next if ($hostid eq $lonhost);
|
next if ($hostid eq $lonhost);
|
my $hostname = &Apache::lonnet::hostname($hostid);
|
my $hostname = &Apache::lonnet::hostname($hostid);
|
next if (($last eq $hostname) || ($hostname eq ''));
|
next if (($hostname eq '') || ($spareservers{$hostname}));
|
$spares.='<br /><font size="+1"><a href="http://'.
|
$spareservers{$hostname} = 1;
|
|
my $protocol = $Apache::lonnet::protocol{$hostid};
|
|
$protocol = 'http' if ($protocol ne 'https');
|
|
$spares.='<br /><span style="font-size: larger;"><a href="'.$protocol.'://'.
|
$hostname.
|
$hostname.
|
'/adm/login?domain='.$authdomain.'">'.
|
'/adm/login?domain='.$authdomain.'">'.
|
$hostname.'</a>'.
|
$hostname.'</a>'.
|
' '.&mt('(preferred)').'</font>'.$/;
|
' '.&mt('(preferred)').'</span>'.$/;
|
$last=$hostname;
|
|
}
|
}
|
if ($spares) {
|
if ($spares) {
|
$spares.= '<br />';
|
$spares.= '<br />';
|
Line 452 sub handler {
|
Line 466 sub handler {
|
&Apache::lonnet::hostname($b);
|
&Apache::lonnet::hostname($b);
|
}
|
}
|
keys(%all_hostnames)) {
|
keys(%all_hostnames)) {
|
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid});
|
next if ($hostid eq $lonhost);
|
my $hostname = &Apache::lonnet::hostname($hostid);
|
my $hostname = &Apache::lonnet::hostname($hostid);
|
next if (($last eq $hostname) || ($hostname eq ''));
|
next if (($hostname eq '') || ($spareservers{$hostname}));
|
$spares.='<br /><a href="http://'.
|
$spareservers{$hostname} = 1;
|
|
my $protocol = $Apache::lonnet::protocol{$hostid};
|
|
$protocol = 'http' if ($protocol ne 'https');
|
|
$spares.='<br /><a href="'.$protocol.'://'.
|
$hostname.
|
$hostname.
|
'/adm/login?domain='.$authdomain.'">'.
|
'/adm/login?domain='.$authdomain.'">'.
|
$hostname.'</a>';
|
$hostname.'</a>';
|
$last=$hostname;
|
|
}
|
}
|
$r->print(
|
$r->print(
|
'<html>'
|
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
|
.'<head><title>'
|
.'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'
|
|
.'<head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>'
|
.&mt('The LearningOnline Network with CAPA')
|
.&mt('The LearningOnline Network with CAPA')
|
.'</title></head>'
|
.'</title></head>'
|
.'<body bgcolor="#FFFFFF">'
|
.'<body bgcolor="#FFFFFF">'
|
.'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
|
.'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
|
.'<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />'
|
.'<img src="/adm/lonKaputt/lonlogo_broken.gif" alt="broken icon" align="right" />'
|
.'<h3>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h3>');
|
.'<h3>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h3>');
|
if ($spares) {
|
if ($spares) {
|
$r->print('<p>'.&mt('Please attempt to login to one of the following servers:')
|
$r->print('<p>'.&mt('Please attempt to login to one of the following servers:')
|