diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index 41766d3cb..911b9e991 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -423,8 +423,9 @@ sub alert_config() { }, ], complete => sub { - if ($options{MAIL} !~ /[\w.-]*\@[\w.-]/) { - err_dialog(N("Wrong email"), N("\"%s\" is not a valid email!", $options{MAIL})); + if ($options{MAIL} !~ /[\w.-]*\@[\w.-]/ && !member($options{MAIL}, map { $_->[0] } list_passwd())) { + err_dialog(N("Wrong email"), N("\"%s\" neither is a valid email nor is an existing local user!", + $options{MAIL})); return 1; } }, |