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

Diff for /loncom/auth/lonlogin.pm between versions 1.190 and 1.191

version 1.190, 2021/10/08 14:45:45 version 1.191, 2021/10/10 23:22:30
Line 417  sub handler { Line 417  sub handler {
     }      }
     if ($env{'form.ltoken'}) {      if ($env{'form.ltoken'}) {
         my %info = &Apache::lonnet::tmpget($env{'form.ltoken'});          my %info = &Apache::lonnet::tmpget($env{'form.ltoken'});
         &Apache::lonnet::tmpdel($env{'form.ltoken'});  
         delete($env{'form.ltoken'});  
         if ($info{'linkprot'}) {          if ($info{'linkprot'}) {
             if (!$tokenextras) {              if (!$tokenextras) {
                 $tokenextras = '&&&';                  $tokenextras = '&&&';
Line 442  sub handler { Line 440  sub handler {
         if ($logtoken eq 'no_such_host') {          if ($logtoken eq 'no_such_host') {
             &Apache::lonnet::logthis('No valid logtoken for log-in page -- unable to determine hostname for hostID: '.$lonhost.'. Check entry in hosts.tab');              &Apache::lonnet::logthis('No valid logtoken for log-in page -- unable to determine hostname for hostID: '.$lonhost.'. Check entry in hosts.tab');
         }          }
           if ($env{'form.ltoken'}) {
               &Apache::lonnet::tmpdel($env{'form.ltoken'});
               delete($env{'form.ltoken'});
           }
         my $spares='';          my $spares='';
         my (@sparehosts,%spareservers);          my (@sparehosts,%spareservers);
         my $sparesref = &Apache::lonnet::this_host_spares($defdom);          my $sparesref = &Apache::lonnet::this_host_spares($defdom);
Line 819  HEADER Line 821  HEADER
             $querystring = &HTML::Entities::encode($querystring,"'");              $querystring = &HTML::Entities::encode($querystring,"'");
             $ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;              $ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;
         }          }
           if ($env{'form.ltoken'} ne '') {
               $querystring .= (($querystring eq '')?'':'&') . 'ltoken='.
                                 &HTML::Entities::encode(&uri_escape($env{'form.ltoken'}));
           } elsif ($env{'form.linkkey'}) {
               $querystring .= (($querystring eq '')?'':'&') . 'linkkey='.
                                 &HTML::Entities::encode(&uri_escape($env{'form.linkkey'}));
           }
         my $ssohref;          my $ssohref;
         if ($samlssoimg ne '') {          if ($samlssoimg ne '') {
             $ssohref = '<a href="'.$ssologin.'" title="'.$samltooltip.'"><img src="'.$samlssoimg.'" alt="'.$samlssoalt.'" /></a>';              $ssohref = '<a href="'.$ssologin.'" title="'.$samltooltip.'"><img src="'.$samlssoimg.'" alt="'.$samlssoalt.'" /></a>';
Line 849  $coursecatalog Line 858  $coursecatalog
 </div>  </div>
 </div>  </div>
 ENDSAML  ENDSAML
       } else {
           if ($env{'form.ltoken'}) {
               &Apache::lonnet::tmpdel($env{'form.ltoken'});
               delete($env{'form.ltoken'});
           }
     }      }
   
     $r->print(<<ENDLOGIN);      $r->print(<<ENDLOGIN);
Removed from v.1.190  
changed lines
  Added in v.1.191

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