version 1.203, 2022/06/18 02:10:18
|
version 1.204, 2022/06/20 15:07:21
|
Line 777 sub handler {
|
Line 777 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($r->args,['ttoken']); |
&Apache::loncommon::get_unprocessed_cgi($r->args,['ttoken']); |
if (defined($env{'form.ttoken'})) { |
if (defined($env{'form.ttoken'})) { |
my %info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
my %info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
if (($info{'linkprotuser'} ne '') && ($info{'origurl'} ne '')) { |
if (($info{'origurl'} ne '') && ($info{'origurl'} eq $requrl)) { |
if (($info{'linkprot'}) && ($info{'origurl'} eq $requrl) && |
my %data; |
|
if (($info{'linkprotuser'} ne '') && ($info{'linkprot'}) && |
($info{'linkprotuser'} ne $env{'user.name'}.':'.$env{'user.domain'})) { |
($info{'linkprotuser'} ne $env{'user.name'}.':'.$env{'user.domain'})) { |
my %data = ( |
%data = ( |
origurl => $requrl, |
origurl => $requrl, |
linkprot => $info{'linkprot'}, |
linkprot => $info{'linkprot'}, |
linkprotuser => $info{'linkprotuser'}, |
linkprotuser => $info{'linkprotuser'}, |
); |
); |
|
} elsif ($info{'ltoken'} ne '') { |
|
my %ltoken_info = &Apache::lonnet::tmpget($info{'ltoken'}); |
|
if (($ltoken_info{'linkprotuser'} ne '') && ($ltoken_info{'linkprot'}) && |
|
($ltoken_info{'linkprotuser'} ne $env{'user.name'}.':'.$env{'user.domain'})) { |
|
%data = ( |
|
origurl => $requrl, |
|
linkprot => $ltoken_info{'linkprot'}, |
|
linkprotuser => $ltoken_info{'linkprotuser'}, |
|
); |
|
} |
|
} |
|
if (keys(%data)) { |
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ttoken'}); |
|
if ($info{'ltoken'} ne '') { |
|
my $delete = &Apache::lonnet::tmpdel($info{'ltoken'}); |
|
} |
my $token = |
my $token = |
&Apache::lonnet::tmpput(\%data,$r->dir_config('lonHostID'),'retry'); |
&Apache::lonnet::tmpput(\%data,$r->dir_config('lonHostID'),'retry'); |
unless (($token eq 'con_lost') || ($token eq 'refused') || ($token =~ /^error:/) || |
unless (($token eq 'con_lost') || ($token eq 'refused') || ($token =~ /^error:/) || |