... or try Email::Sendmail
luke
On Wed, 10 Apr 2002 15:33:10 -0400
fliptop <[EMAIL PROTECTED]> wrote:
> t3tsu0 wrote:
>
> > Where:
> >
> > $mail_prog= '/usr/bin/sendmail';
> >
> >
> > sub send_mail {
> > local($from,$to_name,$to_addr,$subject,$content) = @_;
> > ope
> Hi all
> I am trying to send a mail with the following code and the last print
> statement doesn't print, ie, the mail is not sent.
> This code is called on submitting a form on the web
>
> open(MAIL, "/usr/sbin/sendmail -oi -t") || die "Can't open mail";
> print MAIL < To:
[EMAIL PROTECTED] (T3tsu0) writes:
> sub send_mail {
> open(MAIL,"|$mail_prog -t") || &error("unable to send mail to:
> $to_name - $to_addr");
[...]
> close(MAIL);
you really want to put error checking on the close() too. In many
cases you won't be told until then if the open fa
print MAIL "Subject: $subject\n";
print MAIL "$content\n";
close(MAIL);
print "Mail to: $to_name - $to_addr, completed.";
}
-Original Message-----
From: Aman Raheja [mailto:[EMAIL PROTECTED]]
S
t3tsu0 wrote:
> Where:
>
> $mail_prog= '/usr/bin/sendmail';
>
>
> sub send_mail {
> local($from,$to_name,$to_addr,$subject,$content) = @_;
> open(MAIL,"|$mail_prog -t") || &error("unable to send mail to:
> $to_name - $to_addr");
> print MAIL "From: $to_name ",'<',"$
Aman Raheja [[EMAIL PROTECTED]] quoth:
*>Hi all
*>I am trying to send a mail with the following code and the last print
*>statement doesn't print, ie, the mail is not sent.
*>This code is called on submitting a form on the web
*>
*>open(MAIL, "/usr/sbin/sendmail -oi -t") || di
It didn't work either way as suggested
using -t only
or
changing the delimiting tag with print statetent
I tried to do the same on the command line and it works. I wonder what is
missing here.
Help is greatly appreciated
Aman
>From: "Aman Raheja" <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED], [EM
