summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-22 07:45:07 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-22 07:45:07 +0000
commitbb82f3ba71871042f85fa8161bb3fff311c571e6 (patch)
treeb75135717d132d4e63dc502b0f3cefe3ed15ec28 /perl-install
parentebbec40725eb566c91ca183f7677cc6526215a61 (diff)
downloaddrakx-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-xperl-install/standalone/logdrake5
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;
}
},