[BACK]Return to lonacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.203 and 1.204

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:/) ||
Removed from v.1.203  
changed lines
  Added in v.1.204

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>