I have a script, and it works well, but there is a problem when redirecting the user, this is the piece o the code with error
sub enviar {
open (MAIL, "|$mailprog -t") | | die "Canīt open Mail Prog $mailprog";
print MAIL "To: $meu_nome <$meu_email>\n";
print MAIL "From: $form{'nome'} <$form{'email'}>\n";
print MAIL "Subject: subject\n\n";
print MAIL "Message.\n";
close (MAIL);
open (MAIL, "|$mailprog -t") | | die "Canīt open Mail Prog $mailprog";
print MAIL "To: $form{'nome'} <$form{'email'}\n";
print MAIL "From: Name <mail\@mail.com>\n";
print MAIL "Subject: Pedido\n\n";
print MAIL "\n Thank you. ";
close (MAIL);
print "Location: http://www.geocities.com/~tmoretti\n\n";
}
The error is "malformed header name=xxx" where xxx is the input name of the person.. Can someone help?
sub enviar {
open (MAIL, "|$mailprog -t") | | die "Canīt open Mail Prog $mailprog";
print MAIL "To: $meu_nome <$meu_email>\n";
print MAIL "From: $form{'nome'} <$form{'email'}>\n";
print MAIL "Subject: subject\n\n";
print MAIL "Message.\n";
close (MAIL);
open (MAIL, "|$mailprog -t") | | die "Canīt open Mail Prog $mailprog";
print MAIL "To: $form{'nome'} <$form{'email'}\n";
print MAIL "From: Name <mail\@mail.com>\n";
print MAIL "Subject: Pedido\n\n";
print MAIL "\n Thank you. ";
close (MAIL);
print "Location: http://www.geocities.com/~tmoretti\n\n";
}
The error is "malformed header name=xxx" where xxx is the input name of the person.. Can someone help?