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

Diff for /loncom/auth/lonacc.pm between versions 1.206 and 1.208

version 1.206, 2022/08/24 20:58:50 version 1.208, 2023/06/02 01:20:26
Line 333  sub sso_login { Line 333  sub sso_login {
         }          }
     }      }
   
     my ($linkprot,$linkprotuser,$linkprotexit,$linkkey,$deeplinkurl);      my ($linkprot,$linkprotuser,$linkprotexit,$linkkey,$deeplinkurl,
           $linkprotpbid,$linkprotpburl);
   
 #  #
 # If Shibboleth auth is in use, and a dual SSO and non-SSO login page  # If Shibboleth auth is in use, and a dual SSO and non-SSO login page
Line 373  sub sso_login { Line 374  sub sso_login {
             $linkprot = $info{'linkprot'};              $linkprot = $info{'linkprot'};
             $linkprotuser = $info{'linkprotuser'};              $linkprotuser = $info{'linkprotuser'};
             $linkprotexit = $info{'linkprotexit'};              $linkprotexit = $info{'linkprotexit'};
               $linkprotpbid = $info{'linkprotpbid'};
               $linkprotpburl = $info{'linkprotpburl'};
         } elsif ($info{'linkkey'} ne '') {          } elsif ($info{'linkkey'} ne '') {
             $linkkey = $info{'linkkey'};              $linkkey = $info{'linkkey'};
         }          }
Line 394  sub sso_login { Line 397  sub sso_login {
             if ($firsturl =~ m{^/tiny/$match_domain/\w+$}) {              if ($firsturl =~ m{^/tiny/$match_domain/\w+$}) {
                 $form{'origurl'} = $firsturl;                  $form{'origurl'} = $firsturl;
                 $deeplinkurl = $firsturl;                  $deeplinkurl = $firsturl;
               } elsif ($firsturl eq '/adm/email') {
                   $form{'origurl'} = $firsturl;
             }              }
             if ($form{'linkprot'}) {              if ($form{'linkprot'}) {
                 $linkprot = $form{'linkprot'};                  $linkprot = $form{'linkprot'};
                 $linkprotuser = $form{'linkprotuser'};                  $linkprotuser = $form{'linkprotuser'};
                 $linkprotexit = $form{'linkprotexit'};                  $linkprotexit = $form{'linkprotexit'};
                   $linkprotpbid = $form{'linkprotpbid'};
                   $linkprotpburl = $form{'linkprotpburl'};
             } elsif ($form{'linkkey'} ne '') {              } elsif ($form{'linkkey'} ne '') {
                 $linkkey = $form{'linkkey'};                  $linkkey = $form{'linkkey'};
             }              }
Line 428  sub sso_login { Line 435  sub sso_login {
                 $linkprot = $form{'linkprot'};                  $linkprot = $form{'linkprot'};
                 $linkprotuser = $form{'linkprotuser'};                  $linkprotuser = $form{'linkprotuser'};
                 $linkprotexit = $form{'linkprotexit'};                  $linkprotexit = $form{'linkprotexit'};
                   $linkprotpbid = $form{'linkprotpbid'};
                   $linkprotpburl = $form{'linkprotpburl'};
             } elsif ($form{'linkkey'} ne '') {              } elsif ($form{'linkkey'} ne '') {
                 $linkkey = $form{'linkkey'};                  $linkkey = $form{'linkkey'};
             }              }
Line 442  sub sso_login { Line 451  sub sso_login {
             if ($link_info{'linkprotexit'} ne '') {              if ($link_info{'linkprotexit'} ne '') {
                 $linkprotexit = $link_info{'linkprotexit'};                  $linkprotexit = $link_info{'linkprotexit'};
             }              }
               if ($link_info{'linkprotpbid'} ne '') {
                   $linkprotpbid = $link_info{'linkprotpbid'};
               }
               if ($link_info{'linkprotpburl'} ne '') {
                   $linkprotpburl = $link_info{'linkprotpburl'};
               }
         }          }
         my $delete = &Apache::lonnet::tmpdel($form{'ltoken'});          my $delete = &Apache::lonnet::tmpdel($form{'ltoken'});
         delete($form{'ltoken'});          delete($form{'ltoken'});
Line 464  sub sso_login { Line 479  sub sso_login {
                            linkprot => $linkprot,                             linkprot => $linkprot,
                            linkprotuser => $linkprotuser,                             linkprotuser => $linkprotuser,
                            linkprotexit => $linkprotexit,                             linkprotexit => $linkprotexit,
                              linkprotpbid => $linkprotpbid,
                              linkprotpburl => $linkprotpburl,
                        );                         );
             if ($env{'form.lcssowin'}) {              if ($env{'form.lcssowin'}) {
                 $data{'lcssowin'} = $env{'form.lcssowin'};                  $data{'lcssowin'} = $env{'form.lcssowin'};
Line 536  sub sso_login { Line 553  sub sso_login {
                     if ($linkprotexit ne '') {                      if ($linkprotexit ne '') {
                         $env{'request.linkprotexit'} = $linkprotexit;                          $env{'request.linkprotexit'} = $linkprotexit;
                     }                      }
                       if ($linkprotpbid ne '') {
                           $env{'request.linkprotpbid'} = $linkprotpbid;
                       }
                       if ($linkprotpburl ne '') {
                           $env{'request.linkprotpburl'} = $linkprotpburl;
                       }
                 } elsif ($linkkey ne '') {                  } elsif ($linkkey ne '') {
                     $env{'request.linkkey'} = $linkkey;                      $env{'request.linkkey'} = $linkkey;
                 }                  }
             }              }
               if (($r->uri eq '/adm/sso') && ($form{'origurl'} eq '/adm/email')) {
                   if ($form{'display'} && ($env{'form.mailrecip'} eq $user.':'.$domain)) {
                       $env{'request.display'} = $form{'display'};
                       $env{'request.mailrecip'} = $env{'form.mailrecip'};
                   }
               }
             $env{'request.sso.login'} = 1;              $env{'request.sso.login'} = 1;
             if (defined($r->dir_config("lonSSOReloginServer"))) {              if (defined($r->dir_config("lonSSOReloginServer"))) {
                 $env{'request.sso.reloginserver'} =                  $env{'request.sso.reloginserver'} =
Line 590  sub sso_login { Line 619  sub sso_login {
                     if ($linkprotexit ne '') {                      if ($linkprotexit ne '') {
                         $info{'linkprotexit'} = $linkprotexit;                          $info{'linkprotexit'} = $linkprotexit;
                     }                      }
                       if ($linkprotpbid ne '') {
                           $info{'linkprotpbid'} = $linkprotpbid;
                       }
                       if ($linkprotpburl ne '') {
                           $info{'linkprotpburl'} = $linkprotpburl;
                       }
                 } elsif ($linkkey ne '') {                  } elsif ($linkkey ne '') {
                     $info{'linkkey'} = $linkkey;                      $info{'linkkey'} = $linkkey;
                 }                  }
             }              }
               if (($r->uri eq '/adm/sso') && ($form{'origurl'} eq '/adm/email')) {
                   if ($form{'display'} && ($form{'mailrecip'} eq $user.':'.$domain)) {
                       $info{'display'} = &escape($form{'display'});
                       $info{'mailrecip'} = &escape($form{'mailrecip'});
                   }
               }
             if ($r->dir_config("ssodirecturl") == 1) {              if ($r->dir_config("ssodirecturl") == 1) {
                 $info{'origurl'} = $r->uri;                  $info{'origurl'} = $r->uri;
             }              }
Line 810  sub handler { Line 851  sub handler {
                                 linkprot => $info{'linkprot'},                                  linkprot => $info{'linkprot'},
                                 linkprotuser => $info{'linkprotuser'},                                  linkprotuser => $info{'linkprotuser'},
                                 linkprotexit => $info{'linkprotexit'},                                  linkprotexit => $info{'linkprotexit'},
                                   linkprotpbid => $info{'linkprotpbid'},
                                   linkprotpburl => $info{'linkprotpburl'},
                             );                              );
                         } elsif ($info{'ltoken'} ne '') {                          } elsif ($info{'ltoken'} ne '') {
                             my %ltoken_info = &Apache::lonnet::tmpget($info{'ltoken'});                              my %ltoken_info = &Apache::lonnet::tmpget($info{'ltoken'});
Line 820  sub handler { Line 863  sub handler {
                                     linkprot => $ltoken_info{'linkprot'},                                      linkprot => $ltoken_info{'linkprot'},
                                     linkprotuser => $ltoken_info{'linkprotuser'},                                      linkprotuser => $ltoken_info{'linkprotuser'},
                                     linkprotexit => $ltoken_info{'linkprotexit'},                                      linkprotexit => $ltoken_info{'linkprotexit'},
                                       linkprotpbid => $ltoken_info{'linkprotpbid'},
                                       linkprotpburl => $ltoken_info{'linkprotpburl'},
                                 );                                  );
                             }                              }
                         }                          }
Removed from v.1.206  
changed lines
  Added in v.1.208

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