diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-22 07:45:07 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-22 07:45:07 +0000 |
commit | bb82f3ba71871042f85fa8161bb3fff311c571e6 (patch) | |
tree | b75135717d132d4e63dc502b0f3cefe3ed15ec28 /perl-install | |
parent | ebbec40725eb566c91ca183f7677cc6526215a61 (diff) | |
download | drakx-bb82f3ba71871042f85fa8161bb3fff311c571e6.tar drakx-bb82f3ba71871042f85fa8161bb3fff311c571e6.tar.gz drakx-bb82f3ba71871042f85fa8161bb3fff311c571e6.tar.bz2 drakx-bb82f3ba71871042f85fa8161bb3fff311c571e6.tar.xz drakx-bb82f3ba71871042f85fa8161bb3fff311c571e6.zip |
(mail alert wizard) check if it's a valid user if it's not an email)
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; } }, |