version 1.124, 2009/07/22 21:51:03
|
version 1.127, 2009/10/06 23:43:21
|
Line 81 sub handler {
|
Line 81 sub handler {
|
&Apache::loncommon::start_page('Already logged in'); |
&Apache::loncommon::start_page('Already logged in'); |
my $end_page = |
my $end_page = |
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
|
my $dest = '/adm/roles'; |
|
if ($env{'form.firsturl'} ne '') { |
|
$dest = $env{'form.firsturl'}; |
|
} |
$r->print( |
$r->print( |
$start_page |
$start_page |
.'<h1>'.&mt('You are already logged in!').'</h1>' |
.'<h1>'.&mt('You are already logged in!').'</h1>' |
.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].', |
.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].', |
'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>' |
'<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>' |
.'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>' |
.'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>' |
.$end_page |
.$end_page |
); |
); |
Line 107 sub handler {
|
Line 111 sub handler {
|
my $iconpath= |
my $iconpath= |
&Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); |
&Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); |
|
|
|
my $lonhost = $r->dir_config('lonHostID'); |
my $domain = &Apache::lonnet::default_login_domain(); |
my $domain = &Apache::lonnet::default_login_domain(); |
|
my %domconfhash = &Apache::loncommon::get_domainconf($domain); |
|
if ($lonhost ne '') { |
|
my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost}; |
|
if (($loginvia ne '') && ($loginvia ne $lonhost)) { |
|
my %servers = &Apache::lonnet::get_servers($domain); |
|
if ($servers{$loginvia} ne '') { |
|
$r->print(&redirect_page($loginvia)); |
|
return OK; |
|
} |
|
} |
|
} |
|
|
if (($env{'form.domain'}) && |
if (($env{'form.domain'}) && |
(&Apache::lonnet::domain($env{'form.domain'},'description'))) { |
(&Apache::lonnet::domain($env{'form.domain'},'description'))) { |
$domain=$env{'form.domain'}; |
$domain=$env{'form.domain'}; |
Line 115 sub handler {
|
Line 132 sub handler {
|
my $role = $r->dir_config('lonRole'); |
my $role = $r->dir_config('lonRole'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $servadm = $r->dir_config('lonAdmEMail'); |
my $lonhost = $r->dir_config('lonHostID'); |
|
my $tabdir = $r->dir_config('lonTabDir'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $include = $r->dir_config('lonIncludes'); |
my $include = $r->dir_config('lonIncludes'); |
my $expire = $r->dir_config('lonExpire'); |
my $expire = $r->dir_config('lonExpire'); |
Line 502 ENDDOCUMENT
|
Line 518 ENDDOCUMENT
|
return OK; |
return OK; |
} |
} |
|
|
|
sub redirect_page { |
|
my ($desthost) = @_; |
|
my $protocol = $Apache::lonnet::protocol{$desthost}; |
|
$protocol = 'http' if ($protocol ne 'https'); |
|
my $url = $protocol.'://'.&Apache::lonnet::hostname($desthost).'/'; |
|
if ($env{'form.firsturl'} ne '') { |
|
$url .='?firsturl='.$env{'form.firsturl'}; |
|
} |
|
my $start_page = &Apache::loncommon::start_page('Switching Server',undef, |
|
{'redirect' => [0,$url],}); |
|
my $end_page = &Apache::loncommon::end_page(); |
|
return $start_page.$end_page; |
|
} |
|
|
sub contactdisplay { |
sub contactdisplay { |
my ($lt,$servadm,$showadminmail,$version,$authdomain,$helpdeskscript) = @_; |
my ($lt,$servadm,$showadminmail,$version,$authdomain,$helpdeskscript) = @_; |
my $contactblock; |
my $contactblock; |