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

Diff for /loncom/auth/lonlogout.pm between versions 1.45.2.3 and 1.45.2.3.2.2

version 1.45.2.3, 2015/03/12 00:50:46 version 1.45.2.3.2.2, 2018/05/02 19:02:27
Line 45  use strict; Line 45  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File;  use Apache::File;
 use Apache::lonnet;  use Apache::lonnet;
   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);
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 105  sub handler { Line 107  sub handler {
    $switch);     $switch);
     } else {      } else {
         my $domain = $env{'user.domain'};          my $domain = $env{'user.domain'};
         my $headextra;          my ($headextra,$ssofile);
         if ($env{'request.sso.login'}          if ($env{'request.sso.login'}) {
             && defined($r->dir_config("lonSSOUserLogoutHeadFile_$domain"))) {              my $londocroot = $r->dir_config('lonDocRoot');
             if (open(my $fh,$r->dir_config("lonSSOUserLogoutHeadFile_$domain"))) {              if ($domain =~ /^$match_domain$/) {
                 $headextra = join('',<$fh>);                  if (defined($r->dir_config("lonSSOUserLogoutHeadFile_$domain"))) {
                 close($fh);                      $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config("lonSSOUserLogoutHeadFile_$domain"));
             }                      if ($ssofile eq $r->dir_config("lonSSOUserLogoutHeadFile_$domain")) {
         }                          if ($ssofile =~ /^\Q$londocroot\E/) {
         if ($env{'request.sso.login'}                              if (open(my $fh,'<',$ssofile)) {
             && defined($r->dir_config('lonSSOUserLogoutHeadFile'))) {                                  $headextra = join('',<$fh>);
             if (open(my $fh,$r->dir_config('lonSSOUserLogoutHeadFile'))) {                                  close($fh);
                 $headextra.= join('',<$fh>);                              }
                 close($fh);                          }
                       }
                   }
               }
               if (defined($r->dir_config('lonSSOUserLogoutHeadFile'))) {
                   $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config('lonSSOUserLogoutHeadFile'));
                   if ($ssofile eq $r->dir_config('lonSSOUserLogoutHeadFile')) {
                       if ($ssofile =~ /^\Q$londocroot\E/) {
                           if (open(my $fh,'<',$ssofile)) {
                               $headextra.= join('',<$fh>);
                               close($fh);
                           }
                       }
                   }
             }              }
         }          }
  $start_page=&Apache::loncommon::start_page('Logged Out',$headextra,   $start_page=&Apache::loncommon::start_page('Logged Out',$headextra,
Line 181  Due to security reasons in new web brows Line 196  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.45.2.3  
changed lines
  Added in v.1.45.2.3.2.2

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