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

Diff for /loncom/auth/lonauth.pm between versions 1.174 and 1.179

version 1.174, 2022/06/18 02:10:18 version 1.179, 2023/06/02 01:20:26
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 147  sub success { Line 147  sub success {
                 $destination .= 'selectrole=1&'.$newrole.'=1';                  $destination .= 'selectrole=1&'.$newrole.'=1';
             }              }
         }          }
       } elsif (defined($form->{display})) {
           if ($destination =~ m{^/adm/email($|\?)}) {
               $destination  .= ($destination =~ /\?/) ? '&' : '?' .'display='.&escape($form->{display});
           }
     }      }
     if (defined($form->{symb})) {      if (defined($form->{symb})) {
         my $destsymb = $form->{symb};          my $destsymb = $form->{symb};
Line 179  sub success { Line 183  sub success {
         $destination .= 'source=login';          $destination .= 'source=login';
     }      }
   
       my $brcrum = [{'href' => '',
                      'text' => 'Successful Login'},];
       my $args = {'no_inline_link' => 1,
                   'bread_crumbs' => $brcrum,};
     if (($env{'request.deeplink.login'} eq $lowerurl) &&      if (($env{'request.deeplink.login'} eq $lowerurl) &&
         (($env{'request.linkprot'}) || ($env{'request.linkkey'} ne ''))) {          (($env{'request.linkprot'}) || ($env{'request.linkkey'} ne ''))) {
         my %info;          my %info;
         if ($env{'request.linkprot'}) {          if ($env{'request.linkprot'}) {
             $info{'linkprot'} = $env{'request.linkprot'};              $info{'linkprot'} = $env{'request.linkprot'};
               foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                   if ($form->{$item}) {
                       $info{$item} = $form->{$item};
                   }
               }
               $args = {'only_body' => 1,};
         } elsif ($env{'request.linkkey'} ne '') {          } elsif ($env{'request.linkkey'} ne '') {
             $info{'linkkey'} = $env{'request.linkkey'};              $info{'linkkey'} = $env{'request.linkkey'};
         }          }
Line 200  sub success { Line 214  sub success {
         $windowname .= 'lti';          $windowname .= 'lti';
     }      }
     my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="'.$windowname.'";');      my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="'.$windowname.'";');
     my $brcrum = [{'href' => '',  
                    'text' => 'Successful Login'},];  
     my $args = {'bread_crumbs' => $brcrum,};  
     unless ((defined($form->{role})) || (defined($form->{symb}))) {      unless ((defined($form->{role})) || (defined($form->{symb}))) {
         my $update=$env{'user.update.time'};          my $update=$env{'user.update.time'};
         if (!$update) {          if (!$update) {
Line 273  ENDJS Line 284  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'}) {
         my %lt=&Apache::lonlocal::texthash(              my %lt=&Apache::lonlocal::texthash(
            'wel' => 'Welcome',                     'wel' => 'Welcome',
            'pro' => 'Login problems?',                 'pro' => 'Login problems?',
           );            );
         $pagebody = "<h1>$lt{'wel'}</h1>\n".              $pagebody = "<h1>$lt{'wel'}</h1>\n".
                     &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>');                          &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>');
         my $loginhelp = &loginhelpdisplay($domain);              my $loginhelp = &loginhelpdisplay($domain);
         if ($loginhelp) {              if ($loginhelp) {
             $pagebody .= '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';                  $pagebody .= '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';
               }
         }          }
     }      }
     $end_page = &Apache::loncommon::end_page();      $end_page = &Apache::loncommon::end_page();
     $r->print(<<ENDSUCCESS);      $r->print(<<ENDSUCCESS);
 $start_page  $start_page
Line 365  sub failed { Line 377  sub failed {
             my %info = (              my %info = (
                          'linkprot' => $form->{'linkprot'},                           'linkprot' => $form->{'linkprot'},
                        );                         );
             if ($form->{linkprotuser} ne '') {              foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                 $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 809  sub handler { Line 823  sub handler {
             }              }
             if ($form{'linkprot'}) {              if ($form{'linkprot'}) {
                 $env{'request.linkprot'} = $form{'linkprot'};                  $env{'request.linkprot'} = $form{'linkprot'};
                   foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                       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'};
             }              }
             if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {              if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                 &set_deeplink_login(%form);                  &set_deeplink_login(%form);
               } elsif ($firsturl eq '/adm/email') {
                   if ($form{'display'} && ($form{'mailrecip'} eq "$form{'uname'}:$form{'udom'}")) {
                       $env{'request.display'} = $form{'display'};
                       $env{'request.mailrecip'} = $form{'mailrecip'};
                   }
             }              }
             $r->internal_redirect($switchto);              $r->internal_redirect($switchto);
         } else {          } else {
Line 840  sub handler { Line 864  sub handler {
                 }                  }
                 if ($form{'linkprot'}) {                  if ($form{'linkprot'}) {
                     $env{'request.linkprot'} = $form{'linkprot'};                      $env{'request.linkprot'} = $form{'linkprot'};
                       foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                           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'};
                 }                  }
                 if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {                  if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                     &set_deeplink_login(%form);                      &set_deeplink_login(%form);
                   } elsif ($firsturl eq '/adm/email') {
                       if ($form{'display'} && ($form{'mailrecip'} eq "$form{'uname'}:$form{'udom'}")) {
                           $env{'request.display'} = $form{'display'};
                           $env{'request.mailrecip'} = $form{'mailrecip'};
                       }
                 }                  }
                 $r->internal_redirect($switchto);                  $r->internal_redirect($switchto);
             } else {              } else {
Line 884  sub handler { Line 918  sub handler {
                 }                  }
                 if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {                  if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                     &set_deeplink_login(%form);                      &set_deeplink_login(%form);
                   } elsif ($firsturl eq '/adm/email') {
                       if ($form{'display'} && ($form{'mailrecip'} eq "$form{'uname'}:$form{'udom'}")) {
                           $env{'request.display'} = $form{'display'};
                           $env{'request.mailrecip'} = $form{'mailrecip'};
                       }
                 }                  }
                 $r->internal_redirect('/adm/switchserver?otherserver='.$unloaded.'&origurl='.$firsturl);                  $r->internal_redirect('/adm/switchserver?otherserver='.$unloaded.'&origurl='.$firsturl);
                 return OK;                  return OK;
Line 903  sub handler { Line 942  sub handler {
                         $form{$item} = $sessiondata{$item};                          $form{$item} = $sessiondata{$item};
                     }                      }
                 }                  }
                   if ($sessiondata{'origurl'} eq '/adm/email') {
                       if (($sessiondata{'display'}) && ($sessiondata{'mailrecip'})) {
                           if (&unescape($sessiondata{'mailrecip'}) eq "$form{'uname'}:$form{'udom'}") {
                               $form{'display'} = &unescape($sessiondata{'display'});
                               $form{'mailrecip'} = &unescape($sessiondata{'mailrecip'});
                           }
                       }
                   }
             }              }
         }          }
         if ($form{'linkprot'}) {          if ($form{'linkprot'}) {
Line 923  sub handler { Line 970  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'};
                   }
                   if ($form{'linkprotpbid'}) {
                       $extra_env->{'request.linkprotpbid'} = $form{'linkprotpbid'};
                   }
                   if ($form{'linkprotpburl'}) {
                       $extra_env->{'request.linkprotpburl'} = $form{'linkprotpburl'};
                   }
             } 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 1011  sub set_retry_token { Line 1067  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','linkprotpbid','linkprotpburl');
         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});
Line 1098  sub check_can_host { Line 1154  sub check_can_host {
                      $form);                       $form);
             if ($form->{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {              if ($form->{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                 $env{'request.deeplink.login'} = $form->{'firsturl'};                  $env{'request.deeplink.login'} = $form->{'firsturl'};
               } elsif ($form->{'firsturl'} eq '/adm/email') {
                   if ($form->{'display'} && ($form->{'mailrecip'} eq $form->{'uname'}.':'.$form->{'udom'})) {
                       $env{'request.display'} = $form->{'mailrecip'};
                       $env{'request.mailrecip'} = $form->{'mailrecip'};
                   }
             }              }
             if ($form->{'linkprot'}) {              if ($form->{'linkprot'}) {
                 $env{'request.linkprot'} = $form->{'linkprot'};                  $env{'request.linkprot'} = $form->{'linkprot'};
Removed from v.1.174  
changed lines
  Added in v.1.179

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