nms formmail - не проверять электронную почту, если не требуется + отдельная страница переадресации

Question

У меня есть установка nms formmail недавно в моем блоге, и я сделал по электронной почте необязательным, однако я хотел бы убедиться, что когда он будет заполнен, проверка проверки подлинности электронной почты будет запущена , Похоже, что nms formmail предлагает эту проверку только в том случае, если требуется поле электронной почты.

Я хотел бы изменить скрипт cgi, используя собственную функцию validate_email, и перенаправить на страницу «Недействительный адрес электронной почты», если поле электронной почты не пустое, а поле недействительно.

Обратите внимание, что я добавил следующий код уже который заботится о добавлении стандартной электронной почты в случае, если поле пусто, поэтому проверка должна, вероятно, придет после этой линии где-то: $email = 'empty_email@mydomain.com' unless $email;

внутри этого фрагмента кода:

sub send_main_email { 
    my ($self, $date, $email, $realname) = @_; 

    my $mailer = $self->mailer; 
    $mailer->newmail($self->name_and_version, $self->{CFG}{postmaster}, @{ $self->{Recipients} }); 

    $email = 'empty_email@mydomain.com' unless $email; 

    $self->send_main_email_header($email, $realname); 
    $mailer->print("\n"); 

    $self->send_main_email_body_header($date); 

    $self->send_main_email_print_config; 

    $self->send_main_email_fields; 

    $self->send_main_email_footer; 

    $mailer->endmail; 
} 

Я попытался сделать следующее под empty_email@mydomain.com' unless $email;:

if (validate_email($email) = 0) { 
    print $self->cgi_object->redirect($self->{FormConfig}{'bad_email'}); 
} 

... но он вернулся эту ошибку : Can't modify non-lvalue subroutine call at (eval 8) line 1062.

это HTML я использую:

<form method=post action="http://mydomain.com/formmail.cgi"> 
<label for="realname">name (optional)</label><br /> 
<input type=text name="realname" /><br /> 
<label for="email">e-mail (optional)</label><br /> 
<input type=text name="email"/><br /> 
<label for="text">text (required)</label><br /> 
<textarea name=text></textarea><br /> 
<input type=submit value="send"> 

<input type=hidden name="redirect" value="http://mydomain.com/thank-you.html"> 
<input type=hidden name="subject" value="Email form submitted"> 
<input type=hidden name="required" value="text"> 
<input type=hidden name="missing_fields_redirect" value="http://mydomain.com/missing-field.html"> 
<input type=hidden name="bad_email" value="http://www.google.com/"> 
<input type=hidden name="env_report" value="REMOTE_HOST,REMOTE_ADDR,HTTP_USER_AGENT"> 
<input type=hidden name="sort" value="order:contact,text"> 
</form> 

Обратите внимание, что у меня нет специальных знаний в Perl, но я довольно быстро в подбирая новый язык кода, поэтому, пожалуйста, медведь со мной , и постарайтесь быть как можно более подробными (желательно с примером кода вместо описания того, что вы думаете, если только это не имеет больше смысла).

Answer 1

if (validate_email($email) = 0) должен быть if (not validate_email($email)) { или if (!validate_email($email)) { или if (0 == validate_email($email)) { потому, что = является оператором присваивания и == является оператором

числовая равенства, которое охватывает синтаксическую ошибку, все у меня есть время для :) также «VALID_EMAIL» звучит лучше читать (if not valid_email foo@example.com, затем перенаправить на badmailpage