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

Diff for /loncom/auth/lonauth.pm between versions 1.175 and 1.177

version 1.175, 2022/06/26 04:03:47 version 1.177, 2022/08/24 20:58:50
Line 47  use CGI::Cookie(); Line 47  use CGI::Cookie();
 # ------------------------------------------------------------ Successful login  # ------------------------------------------------------------ Successful login
 sub success {  sub success {
     my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,      my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
  $form,$skipcritical,$cid,$expirepub) = @_;   $form,$skipcritical,$cid,$expirepub,$write_to_opener) = @_;
   
 # ------------------------------------------------------------ Get cookie ready  # ------------------------------------------------------------ Get cookie ready
     my $cookie =      my $cookie =
Line 188  sub success { Line 188  sub success {
         my %info;          my %info;
         if ($env{'request.linkprot'}) {          if ($env{'request.linkprot'}) {
             $info{'linkprot'} = $env{'request.linkprot'};              $info{'linkprot'} = $env{'request.linkprot'};
             if ($form->{'linkprotuser'}) {              foreach my $item ('linkprotuser','linkprotexit') {
                 $info{'linkprotuser'} = $form->{'linkprotuser'};                  if ($form->{$item}) {
                       $info{$item} = $form->{$item};
                   }
             }              }
             $args = {'only_body' => 1,};              $args = {'only_body' => 1,};
         } elsif ($env{'request.linkkey'} ne '') {          } elsif ($env{'request.linkkey'} ne '') {
Line 278  ENDJS Line 280  ENDJS
         }          }
         $start_page=&Apache::loncommon::start_page('',$js,$args);          $start_page=&Apache::loncommon::start_page('',$js,$args);
     } else {      } else {
         $args->{'redirect'} = [0,$destination];          $args->{'redirect'} = [0,$destination,'',$write_to_opener];
         $start_page=&Apache::loncommon::start_page('Successful Login',          $start_page=&Apache::loncommon::start_page('Successful Login',
                                                    $js,$args);                                                     $js,$args);
         unless ($env{'request.linkprot'}) {          unless ($env{'request.linkprot'}) {
Line 371  sub failed { Line 373  sub failed {
             my %info = (              my %info = (
                          'linkprot' => $form->{'linkprot'},                           'linkprot' => $form->{'linkprot'},
                        );                         );
             if ($form->{linkprotuser} ne '') {              foreach my $item ('linkprotuser','linkprotexit') {
                 $info{'linkprotuser'} = $form->{linkprotuser};                  if ($form->{$item} ne '') {
                       $info{$item} = $form->{$item};
                   }
             }              }
             my $ltoken = &Apache::lonnet::tmpput(\%info,              my $ltoken = &Apache::lonnet::tmpput(\%info,
                                                  $r->dir_config('lonHostID'),'retry');                                                   $r->dir_config('lonHostID'),'retry');
Line 815  sub handler { Line 819  sub handler {
             }              }
             if ($form{'linkprot'}) {              if ($form{'linkprot'}) {
                 $env{'request.linkprot'} = $form{'linkprot'};                  $env{'request.linkprot'} = $form{'linkprot'};
                 if ($form{'linkprotuser'}) {                  foreach my $item ('linkprotuser','linkprotexit') {
                     $env{'request.linkprotuser'} = $form{'linkprotuser'};                      if ($form{$item}) {
                           $env{'request.'.$item} = $form{$item};
                       }
                 }                  }
             } elsif ($form{'linkkey'} ne '') {              } elsif ($form{'linkkey'} ne '') {
                 $env{'request.linkkey'} = $form{'linkkey'};                  $env{'request.linkkey'} = $form{'linkkey'};
Line 849  sub handler { Line 855  sub handler {
                 }                  }
                 if ($form{'linkprot'}) {                  if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};                      $env{'request.linkprot'} = $form{'linkprot'};
                     if ($form{'linkprotuser'}) {                      foreach my $item ('linkprotuser','linkprotexit') {
                         $env{'request.linkprotuser'} = $form{'linkprotuser'};                          if ($form{$item}) {
                               $env{'request.'.$item} = $form{$item};
                           }
                     }                      }
                 } elsif ($form{'linkkey'} ne '') {                  } elsif ($form{'linkkey'} ne '') {
                     $env{'request.linkkey'} = $form{'linkkey'};                      $env{'request.linkkey'} = $form{'linkkey'};
Line 935  sub handler { Line 943  sub handler {
                 } else {                  } else {
                     $extra_env = {'request.linkprot' => $form{'linkprot'}};                      $extra_env = {'request.linkprot' => $form{'linkprot'}};
                 }                  }
                   if ($form{'linkprotexit'}) {
                       $extra_env->{'request.linkprotexit'} = $form{'linkprotexit'};
                   }
             } elsif ($form{'linkkey'} ne '') {              } elsif ($form{'linkkey'} ne '') {
                 if (ref($extra_env) eq 'HASH') {                  if (ref($extra_env) eq 'HASH') {
                     %{$extra_env} = ( %{$extra_env}, 'request.linkkey' => $form{'linkkey'} );                      %{$extra_env} = ( %{$extra_env}, 'request.linkkey' => $form{'linkkey'} );
Line 1023  sub set_retry_token { Line 1034  sub set_retry_token {
     my ($form,$lonhost,$querystr) = @_;      my ($form,$lonhost,$querystr) = @_;
     if (ref($form) eq 'HASH') {      if (ref($form) eq 'HASH') {
         my ($firsturl,$token,$extras,@names);          my ($firsturl,$token,$extras,@names);
         @names = ('role','symb','linkprotuser','linkprot','linkkey','iptoken');          @names = ('role','symb','linkprotuser','linkprotexit','linkprot','linkkey','iptoken');
         foreach my $name (@names) {          foreach my $name (@names) {
             if ($form->{$name} ne '') {              if ($form->{$name} ne '') {
                 $extras .= '&'.$name.'='.&escape($form->{$name});                  $extras .= '&'.$name.'='.&escape($form->{$name});
Removed from v.1.175  
changed lines
  Added in v.1.177

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