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

Diff for /loncom/auth/lonlogout.pm between versions 1.54 and 1.55

version 1.54, 2018/05/08 15:37:41 version 1.55, 2018/07/04 16:58:19
Line 71  sub handler { Line 71  sub handler {
     my @profile;      my @profile;
     my $lonidsdir=$r->dir_config('lonIDsDir');      my $lonidsdir=$r->dir_config('lonIDsDir');
     &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);      &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
     unlink("$lonidsdir/$handle.id");      if (unlink("$lonidsdir/$handle.id")) {
     if ($env{'user.linkedenv'} ne '') {          if (($env{'user.linkedenv'} =~ /^[a-f0-9]+_linked$/) &&
         my $lonhost = $r->dir_config('lonHostID');              (-l "$lonidsdir/$env{'user.linkedenv'}.id") &&
         if ((-l $env{'user.linkedenv'}) &&               (readlink("$lonidsdir/$env{'user.linkedenv'}.id") eq "$lonidsdir/$handle.id")) {
             (readlink($env{'user.linkedenv'}) eq "$lonidsdir/$handle.id")) {              unlink("$lonidsdir/$env{'user.linkedenv'}.id");
             unlink($env{'user.linkedenv'});  
         }          }
     }      }
     if (!$Apache::lonlocal::lh) {      if (!$Apache::lonlocal::lh) {
Line 91  sub handler { Line 90  sub handler {
   
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
   
     #expire the cookie      #expire the cookies
     my $name = 'lonID';      my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
     if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) {      foreach my $name (keys(%cookies)) {
         $name = 'lonPubID';          next unless ($name =~ /^lon(|S|Link|Pub)ID$/);
     }          my $c = new CGI::Cookie(-name    => $name,
     my $c = new CGI::Cookie(-name    => $name,                                  -value   => '',
     -value   => '',                                  -expires => '-10y',);
     -expires => '-10y',);          $r->headers_out->add('Set-cookie' => $c);
     $r->headers_out->add('Set-cookie' => $c);  
     if (($name eq 'lonID') && ($env{'user.linkedenv'})) {  
         my $other = new CGI::Cookie(-name    => 'lonLinkID',  
                                     -value   => '',  
                                     -expires => '-10y',);  
         $r->headers_out->add('Set-cookie' => $other);  
     }      }
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
Removed from v.1.54  
changed lines
  Added in v.1.55

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