Mailer Question

[gnotellaluvr]

My book is using an example with the Mail::Sendmail module being used. Unfortunately my host does not have this module available. I do however have access to the Mail::Mailer. The problem is that I am on a deadline of midnight Wednesday June 15 and I do not understand any of the online documentation. Can someone give me a quick instruct on how to send mail with the Mail::Mailer module. I would greatly appreciate it.

[wdr1]

Perl modules usually have the documentation with them, right in the code. You can get at it by:

perldoc Mail::Mailer

You can also view in via cpan.org:

[search.cpan.org...]

HTH,
-Bill

[gnotellaluvr]

wdr, I read that but it is greek to me. Can you please break it down for me. What I need to do is to have the script save the contents to a database, then send out an email to the person that submitted the form.

[wruppert]

This works for me to a test file. It dies on my Windows box when I try to use smtp due to a fork. If you are on a unix box with sendmail, I bet that would work.

[pre]
#!/usr/bin/perl
 
use strict;
use warnings;
use Carp;
use Mail::Mailer;
 
# pick one
# my $type = "sendmail";
# my $type = "smtp";
# my $type = "qmail";
my $type = "testfile";
 
my $mailer = new Mail::Mailer $type;
 
my %headers = ();
 
$headers {From} = '[e-mail]';
$headers {To}  = '[e-mail]';
$headers {CC}  = '[e-mail]';
$headers {BCC} = '[e-mail]';
 
$mailer->open(\%headers);
 
my $body = "This is the body of the email";
 
print $mailer $body;
 
$mailer->close;
[/pre]