aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/AdminPanel/Module/Users.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/AdminPanel/Module/Users.pm b/lib/AdminPanel/Module/Users.pm
index c937cd5a..33d2ade1 100644
--- a/lib/AdminPanel/Module/Users.pm
+++ b/lib/AdminPanel/Module/Users.pm
@@ -988,9 +988,15 @@ sub addUserDialog {
}
my $userEnt = $continue && $self->ctx->InitUser($username, $is_system);
if ($continue && $createHome->value()) {
- $dontcreatehomedir = 0;
my $homedir = $homeDir->value();
- $userEnt and $userEnt->HomeDir($homedir);
+ if ( -d $homedir) {
+ $errorString = $self->loc->N("Home directory <%s> already exists.\nPlease uncheck the home creation option, or change the directory path name", $homedir);
+ $continue = 0;
+ }
+ else {
+ $dontcreatehomedir = 0;
+ $userEnt and $userEnt->HomeDir($homedir);
+ }
} else {
$dontcreatehomedir = 1;
}