diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-03 00:47:28 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-03 00:47:28 +0000 |
commit | b58392362e2ddf85271dae90c15d48215921d224 (patch) | |
tree | 76f7bbd93c4b0f893e9316ccb7cc78158facca9e /perl-install/install_steps.pm | |
parent | 9176797a41f4acb22259ffa0b7e58d49b1bceac3 (diff) | |
download | drakx-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.pm | 7 |
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}") |