diff options
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}") |