version 1.25.2.5.2.6, 2022/07/08 15:51:15
|
version 1.25.2.5.2.7, 2022/08/30 15:32:51
|
Line 38 use Apache::lonlogin();
|
Line 38 use Apache::lonlogin();
|
use CGI::Cookie; |
use CGI::Cookie; |
|
|
sub goto_login { |
sub goto_login { |
my ($r,$domain) = @_; |
my ($r,$domain,$data) = @_; |
|
my $write_to_opener; |
|
if (ref($data) eq 'HASH') { |
|
$write_to_opener = $data->{'lcssowin'}; |
|
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my $url = '/adm/login'; |
my $url = '/adm/login'; |
Line 46 sub goto_login {
|
Line 50 sub goto_login {
|
$url .= '?domain='.$domain; |
$url .= '?domain='.$domain; |
} |
} |
$r->print(&Apache::loncommon::start_page('Going to login',undef, |
$r->print(&Apache::loncommon::start_page('Going to login',undef, |
{'redirect' => [0,$url],}). |
{'redirect' => [0,$url,'',$write_to_opener],}). |
'<h1>'.&mt('One moment please...').'</h1>'. |
'<h1>'.&mt('One moment please...').'</h1>'. |
'<p>'.&mt('Transferring to login page.').'</p>'. |
'<p>'.&mt('Transferring to login page.').'</p>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
Line 205 sub ip_changed {
|
Line 209 sub ip_changed {
|
} |
} |
$r->print(&Apache::loncommon::start_page($title,undef, |
$r->print(&Apache::loncommon::start_page($title,undef, |
{'redirect' => |
{'redirect' => |
[2,$url],}). |
[2,$url,'',$dataref->{'lcssowin'}]}). |
'<h1>'.&mt('One moment please...').'</h1>'. |
'<h1>'.&mt('One moment please...').'</h1>'. |
'<p class="LC_warning">'.$message.'</p>'. |
'<p class="LC_warning">'.$message.'</p>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
Line 244 sub logout {
|
Line 248 sub logout {
|
$r->headers_out->add('Set-cookie' => $c); |
$r->headers_out->add('Set-cookie' => $c); |
} |
} |
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
my ($url,$token,$delay,%info,%user_info); |
my ($url,$token,$delay,$write_to_opener,%info,%user_info); |
if (ref($data) eq 'HASH') { |
if (ref($data) eq 'HASH') { |
%user_info=('ip' => $ip, |
%user_info=('ip' => $ip, |
'domain' => $data->{'domain'}, |
'domain' => $data->{'domain'}, |
Line 254 sub logout {
|
Line 258 sub logout {
|
'origurl' => $data->{'origurl'}, |
'origurl' => $data->{'origurl'}, |
'symb' => $data->{'symb'}, |
'symb' => $data->{'symb'}, |
'server' => $lonhost); |
'server' => $lonhost); |
|
$write_to_opener = $data->{'lcssowin'}; |
} |
} |
$delay = 0.1; |
$delay = 0.1; |
if (ref($linkprot_info) eq 'HASH') { |
if (ref($linkprot_info) eq 'HASH') { |
Line 287 sub logout {
|
Line 292 sub logout {
|
$r->send_http_header; |
$r->send_http_header; |
$r->print( |
$r->print( |
&Apache::loncommon::start_page('Updating Session ...',undef, |
&Apache::loncommon::start_page('Updating Session ...',undef, |
{'redirect' => [$delay,$url], |
{'redirect' => [$delay,$url,'',$write_to_opener], |
'only_body' => 1,}). |
'only_body' => 1,}). |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
if ($env{'request.balancercookie'}) { |
if ($env{'request.balancercookie'}) { |
Line 319 sub handler {
|
Line 324 sub handler {
|
&Apache::lonlocal::get_language_handle($r); |
&Apache::lonlocal::get_language_handle($r); |
|
|
if ($delete ne 'ok') { |
if ($delete ne 'ok') { |
return &goto_login($r); |
return &goto_login($r,'',\%data); |
} |
} |
|
|
if (!defined($data{'username'}) || !defined($data{'domain'})) { |
if (!defined($data{'username'}) || !defined($data{'domain'})) { |
return &goto_login($r); |
return &goto_login($r,'',\%data); |
} |
} |
my $ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP); |
my $ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP); |
if ($data{'ip'} ne $ip) { |
if ($data{'ip'} ne $ip) { |
Line 338 sub handler {
|
Line 343 sub handler {
|
if (&Apache::lonnet::domain($data{'domain'})) { |
if (&Apache::lonnet::domain($data{'domain'})) { |
$udom=$data{'domain'}; |
$udom=$data{'domain'}; |
} |
} |
if ($home =~ /(con_lost|no_such_host)/) { return &goto_login($r,$udom); } |
if ($home =~ /(con_lost|no_such_host)/) { return &goto_login($r,$udom,\%data); } |
|
|
my $extra_env = &sso_check(\%data); |
my $extra_env = &sso_check(\%data); |
if (($data{'balancer'}) && ($data{'server'}) && ($data{'balcookie'})) { |
if (($data{'balancer'}) && ($data{'server'}) && ($data{'balcookie'})) { |
Line 563 sub handler {
|
Line 568 sub handler {
|
} |
} |
&Apache::lonauth::success($r,$data{'username'},$data{'domain'}, |
&Apache::lonauth::success($r,$data{'username'},$data{'domain'}, |
$home,$desturl,$extra_env,\%form,'', |
$home,$desturl,$extra_env,\%form,'', |
$expirepub); |
$expirepub,$data{'lcssowin'}); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 593 sub handler {
|
Line 598 sub handler {
|
} |
} |
} |
} |
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home, |
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home, |
$next_url,$extra_env,\%form,$cid); |
$next_url,$extra_env,\%form,$cid,'',$data{'lcssowin'}); |
return OK; |
return OK; |
} |
} |
|
|