version 1.1, 2022/06/18 02:10:18
|
version 1.2, 2022/06/26 04:03:47
|
Line 45 sub handler {
|
Line 45 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($r->args,['rtoken']); |
&Apache::loncommon::get_unprocessed_cgi($r->args,['rtoken']); |
if (exists($env{'form.rtoken'})) { |
if (exists($env{'form.rtoken'})) { |
%data = &Apache::lonnet::tmpget($env{'form.rtoken'}); |
%data = &Apache::lonnet::tmpget($env{'form.rtoken'}); |
my $delete = &Apache::lonnet::tmpdel($env{'form.rtoken'}); |
|
} |
} |
} |
} |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
Line 85 sub handler {
|
Line 84 sub handler {
|
|
|
if ((keys(%data)) && ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$})) { |
if ((keys(%data)) && ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$})) { |
my $url = $data{'origurl'}; |
my $url = $data{'origurl'}; |
if (($data{'linkprot'} =~ m{^\w+(c|d):\Q$url\E$}) && |
if ($data{'linkprot'} =~ m{^\w+(c|d):\Q$url\E$}) { |
($data{'linkprotuser'} =~ m{^($match_username):($match_domain)$})) { |
if ((!exists($data{'linkprotuser'})) || |
my $brcrum = [{'href' => '','text' => 'Update session'},]; |
(($data{'linkprotuser'}) && |
$url .= '?ltoken='.$env{'form.rtoken'}; |
($data{'linkprotuser'} =~ m{^($match_username):($match_domain)$}))) { |
$r->print(&Apache::loncommon::start_page('Updating session',undef, |
$url .= '?ltoken='.$env{'form.rtoken'}; |
{'only_body' => 1, |
$r->print(&Apache::loncommon::start_page('Updating session',undef, |
'redirect' => [1,$url], |
{'only_body' => 1, |
'bread_crumbs' => $brcrum,}). |
'redirect' => [1,$url]}). |
'<p>'.&mt('Updating old session information').'</p>'. |
'<p>'.&mt('Updating old session information').'</p>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
} |
} |
$r->print(&Apache::loncommon::start_page('Username mismatch',undef,{'only_body' => 1})); |
if ($data{'linkprot'}) { |
$r->print(&mt('Although your credentials were authenticated, the username you entered did not match what was expected [_1] from the link you followed',"($data{'linkprotuser'})")); |
$r->print(&Apache::loncommon::start_page('Updating session',undef,{'only_body' => 1})); |
|
if ($data{'linkprotuser'} ne '') { |
|
$r->print(&mt('Although your credentials were authenticated, the username you entered did not match what was expected [_1] from the link you followed',"($data{'linkprotuser'})")); |
|
} else { |
|
$r->print(&mt('Expired any existing session')); |
|
} |
|
} else { |
|
$r->print(&Apache::loncommon::start_page('Session removed',undef,{'only_body' => 1})); |
|
$r->print(&mt('Expired any existing session')); |
|
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
|
if (exists($env{'form.rtoken'})) { |
|
&Apache::lonnet::tmpdel($env{'form.rtoken'}); |
|
} |
return OK; |
return OK; |
} |
} |
|
|