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 ",'<',"$from",'>',"\n";
> print MAIL "To: $to_name ",'<',"$to_addr",'>',"\n";
> print MAIL "Subject: $subject\n";
> print MAIL "$content\n";
> close(MAIL);
> print "Mail to: $to_name - $to_addr, completed.<BR>";
> }
have you guys ever considered using mime::lite? it simplifies sending
mail, including attachments, etc.
http://search.cpan.org/search?dist=MIME-Lite
additionally, it's generally preferred that you not cross-post to
several lists. pick the one that's most appropriate (in this case, i
chose [EMAIL PROTECTED]) and post to that list only.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
