From bb82f3ba71871042f85fa8161bb3fff311c571e6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 22 Dec 2003 07:45:07 +0000 Subject: (mail alert wizard) check if it's a valid user if it's not an email) --- perl-install/standalone/logdrake | 5 +++-- 1 file 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; } }, -- cgit v1.2.1