Hello, mod_perloids.
I'm having a gutfull of trouble sending mail under mod_perl. I'm doing
it by the books, to wit, the cookbook and the bigbirdie book, under rh
linux 5.2.
the code is
warn ("MAIL: Opening sendmail... path is \"".$sendmailpath."\"");
open (SENDMAIL, $sendmailpath) || warn ("MAIL: Cannot open sendmail
at \"".$sendmailpath."\"");
print SENDMAIL ( "From: Eidos Web Password Assistant
<passwordhelp\@".$dbh->{r}->server->server_hostname.">\n".
"To: You <".$dbh->{param}->{csemail}.">\n".
"Subject:
".$EidosParser::locale{mailsendpasswordsubject}."\n\n".
$EidosParser::locale{mailsendpasswordtext1}.
$result[1].
$EidosParser::locale{mailsendpasswordtext2}.
($dbh->{r}->server->server_hostname).($dbh->{r}->uri()).
$EidosParser::locale{mailsendpasswordtext3}.
"\n.\n");
warn ("MAIL: Mail Sent okay!");
close (SENDMAIL);
I ditched the fail-result tests in desperation. :)
It tells me the mail has been sent okay (even when the failiure tests
were in place) but nothing. Not in the outgoing or incoming mail spools.
I tested this code as a vanilla cgi script, and it worked fine. I have
*no* idea why it won't work under mod_perl.
Anyone else had similar problems (or solutions :), or should I Just Shut
Up?
Dave
