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

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

version 1.50, 2017/02/25 20:00:36 version 1.51, 2017/08/18 18:13:33
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 120  sub handler { Line 122  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 (open(my $fh,"<$ssofile")) {
                                   $headextra = join('',<$fh>);
                                   close($fh);
                               }
                           }
                       }
                   }
             }              }
         }              if (defined($r->dir_config('lonSSOUserLogoutHeadFile'))) {
         if ($env{'request.sso.login'}                  $ssofile = '/'.&Apache::loncommon::clean_path($r->dir_config('lonSSOUserLogoutHeadFile'));
             && defined($r->dir_config('lonSSOUserLogoutHeadFile'))) {                  if ($ssofile eq $r->dir_config('lonSSOUserLogoutHeadFile')) {
             if (open(my $fh,$r->dir_config('lonSSOUserLogoutHeadFile'))) {                      if ($ssofile =~ /^\Q$londocroot\E/) {
                 $headextra.= join('',<$fh>);                          if (open(my $fh,"<$ssofile")) {
                 close($fh);                              $headextra.= join('',<$fh>);
                               close($fh);
                           }
                       }
                   }
             }              }
         }          }
  $start_page=&Apache::loncommon::start_page('Logged Out',$headextra,   $start_page=&Apache::loncommon::start_page('Logged Out',$headextra,
Removed from v.1.50  
changed lines
  Added in v.1.51

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