summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-03 00:47:28 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-03 00:47:28 +0000
commitb58392362e2ddf85271dae90c15d48215921d224 (patch)
tree76f7bbd93c4b0f893e9316ccb7cc78158facca9e /perl-install/install_steps.pm
parent9176797a41f4acb22259ffa0b7e58d49b1bceac3 (diff)
downloaddrakx-backup-do-not-use-b58392362e2ddf85271dae90c15d48215921d224.tar
drakx-backup-do-not-use-b58392362e2ddf85271dae90c15d48215921d224.tar.gz
drakx-backup-do-not-use-b58392362e2ddf85271dae90c15d48215921d224.tar.bz2
drakx-backup-do-not-use-b58392362e2ddf85271dae90c15d48215921d224.tar.xz
drakx-backup-do-not-use-b58392362e2ddf85271dae90c15d48215921d224.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm7
1 files changed, 4 insertions, 3 deletions
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}")