From b58392362e2ddf85271dae90c15d48215921d224 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 3 Nov 1999 00:47:28 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index dd30e6dd9..60718fc88 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -323,11 +323,12 @@ sub addUser($) {
 
     foreach (@l) {
 	if (! -d "$p$_->{home}") {
-	    eval { commands::cp("-f", "$p/etc/skel", "$p$_->{home}") }; 
+	    my $mode = $o->{security} < 3 ? 0755 : 0750;
+	    eval { commands::cp("-f", "$p/etc/skel", "$p$_->{home}") };
 	    if ($@) {
-		log::l("copying of skel failed: $@"); mkdir("$p$_->{home}", 0750); 
+		log::l("copying of skel failed: $@"); mkdir("$p$_->{home}", $mode); 
 	    } else {
-		chmod 0750, "$p$_->{home}";
+		chmod $mode, "$p$_->{home}";
 	    }
 	}
 	commands::chown_("-r", "$_->{uid}.$_->{gid}", "$p$_->{home}")
-- 
cgit v1.2.1