use Mail::Mailer; use Mail::Mailer qw(mail); # specifies default mailer $mailer = Mail::Mailer->new; $mailer = Mail::Mailer->new($type, @args); $mailer->open(\%headers); print $mailer $body; $mailer->close;
Sends mail using any of the built-in methods. As TYPE argument to new(), you can specify any of
sendmail
sendmail
program to deliver the mail.
smtp
Use the smtp
protocol via Net::SMTP to deliver the mail. The server
to use can be specified in @args
with
$mailer = Mail::Mailer->new('smtp', Server => $server);
The smtp mailer does not handle Cc
and Bcc
lines, neither their
Resent-*
fellows. The Debug
options enables debugging output
from Net::SMTP
.
You may also use the < Auth =
[ $user, $password ] >> option for SASL
authentication (requires manual Authen::SASL and manual MIME::Base64).
qmail
Use qmail's qmail-inject program to deliver the mail.
testfile
Used for debugging, this displays the data to the file named in
$Mail::Mailer::testfile::config{outfile}
which defaults to a file
named mailer.testfile
. No mail is ever sent.
Mail::Mailer
will search for executables in the above order. The
default mailer will be the first one found.
Augments/override the build in choice for binary used to send out our mail messages.
Format:
"type1:mailbinary1;mailbinary2;...:type2:mailbinaryX;...:..."
Example: assume you want you use private sendmail binary instead
of mailx, one could set PERL_MAILERS
to:
"mail:/does/not/exists:sendmail:$HOME/test/bin/sendmail"
On systems which may include :
in file names, use |
as separator
between type-groups.
"mail:c:/does/not/exists|sendmail:$HOME/test/bin/sendmail"
Mail::Mailer does not help with folding, and does not protect against various web-script hacker attacks, for instance where a new-line is inserted in the content of the field.