[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /auth lonlogout.pm

[raeburn]

raeburn		Tue Sep 11 14:23:21 2018 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/auth	lonlogout.pm 
  Log:
  - For 2.11
    Backport 1.53 (part) not included in rev. 1.45.2.4
  
  
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.45.2.4 loncom/auth/lonlogout.pm:1.45.2.5
--- loncom/auth/lonlogout.pm:1.45.2.4	Sun Sep  2 21:23:08 2018
+++ loncom/auth/lonlogout.pm	Tue Sep 11 14:23:21 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Logout Handler
 #
-# $Id: lonlogout.pm,v 1.45.2.4 2018/09/02 21:23:08 raeburn Exp $
+# $Id: lonlogout.pm,v 1.45.2.5 2018/09/11 14:23:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -196,14 +196,14 @@
         }
         if ($env{'request.sso.login'}
 	    && 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>);
                 close($fh);
             }
 	}
 	if ($env{'request.sso.login'}
 	    && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) {
-	    if (open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile'))) {
+	    if (open(my $fh,'<',$r->dir_config('lonSSOUserLogoutMessageFile'))) {
 	        $relogmessage.= join('',<$fh>);
                 close($fh);
             }