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

Diff for /loncom/auth/lonlogout.pm between versions 1.51 and 1.53

version 1.51, 2017/08/18 18:13:33 version 1.53, 2018/05/01 13:47:53
Line 49  use Apache::loncommon; Line 49  use Apache::loncommon;
 use Apache::lonmenu;  use Apache::lonmenu;
 use CGI::Cookie();  use CGI::Cookie();
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);   use LONCAPA qw(:DEFAULT :match);
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 100  sub handler { Line 100  sub handler {
     -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.linkeenv'})) {      if (($name eq 'lonID') && ($env{'user.linkedenv'})) {
         my $other = new CGI::Cookie(-name    => 'lonLinkID',          my $other = new CGI::Cookie(-name    => 'lonLinkID',
                                     -value   => '',                                      -value   => '',
                                     -expires => '-10y',);                                      -expires => '-10y',);
Line 130  sub handler { Line 130  sub handler {
                     $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config("lonSSOUserLogoutHeadFile_$domain"));                      $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config("lonSSOUserLogoutHeadFile_$domain"));
                     if ($ssofile eq $r->dir_config("lonSSOUserLogoutHeadFile_$domain")) {                      if ($ssofile eq $r->dir_config("lonSSOUserLogoutHeadFile_$domain")) {
                         if ($ssofile =~ /^\Q$londocroot\E/) {                          if ($ssofile =~ /^\Q$londocroot\E/) {
                             if (open(my $fh,"<$ssofile")) {                              if (open(my $fh,'<',$ssofile)) {
                                 $headextra = join('',<$fh>);                                  $headextra = join('',<$fh>);
                                 close($fh);                                  close($fh);
                             }                              }
Line 142  sub handler { Line 142  sub handler {
                 $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config('lonSSOUserLogoutHeadFile'));                  $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config('lonSSOUserLogoutHeadFile'));
                 if ($ssofile eq $r->dir_config('lonSSOUserLogoutHeadFile')) {                  if ($ssofile eq $r->dir_config('lonSSOUserLogoutHeadFile')) {
                     if ($ssofile =~ /^\Q$londocroot\E/) {                      if ($ssofile =~ /^\Q$londocroot\E/) {
                         if (open(my $fh,"<$ssofile")) {                          if (open(my $fh,'<',$ssofile)) {
                             $headextra.= join('',<$fh>);                              $headextra.= join('',<$fh>);
                             close($fh);                              close($fh);
                         }                          }
Line 210  Due to security reasons in new web brows Line 210  Due to security reasons in new web brows
         }          }
         if ($env{'request.sso.login'}          if ($env{'request.sso.login'}
     && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {      && defined($r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
     if (open(my $fh,$r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {      if (open(my $fh,'<',$r->dir_config("lonSSOUserLogoutMessageFile_$domain"))) {
         $relogmessage.= join('',<$fh>);          $relogmessage.= join('',<$fh>);
                 close($fh);                  close($fh);
             }              }
  }   }
  if ($env{'request.sso.login'}   if ($env{'request.sso.login'}
     && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) {      && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) {
     if (open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile'))) {      if (open(my $fh,'<',$r->dir_config('lonSSOUserLogoutMessageFile'))) {
         $relogmessage.= join('',<$fh>);          $relogmessage.= join('',<$fh>);
                 close($fh);                  close($fh);
             }              }
Removed from v.1.51  
changed lines
  Added in v.1.53

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