-------
#!/usr/bin/perl -w
use strict;
use Mail::Mailer qw(smtp);
my $smtp = new Mail::Mailer 'smtp', 'Server' => 'mail.magpage.com';
my %headers = (
"To" => '[EMAIL PROTECTED]',
"From" => '[EMAIL PROTECTED]',
"Subject" => "This is a test :-)",
);
my $body = <<"EOF";
This is a cheap-ass test of the mailer system
should this work, rejoice!
EOF
$smtp->open(\%headers) or die $!;
print $smtp $body;
$smtp->close or die $!;
exit 0;
---------
results in
# Use of uninitialized value.
File '(snipped path):site_perl:Mail:Mailer.pm'; Line 210
# Use of uninitialized value.
File '(snipped path):site_perl:Mail:Mailer.pm'; Line 189
# Cannot locate ''
File 'Dev:Pseudo'; Line 4
# Bad file descriptor.
File 'Primus 8.5GB:Web Pages:cgi-scripts:ncrp:testing:mailertest.plx'; Line
24
If I change the headers to To: From: and Subject: it just says "died" as an
error. (wtf?)
The above, as written, 'works' (mysteriously I recieve an e-mail anyway),
but I have NO idea why it barks at me so much.
The documentation in this thing is REALLY sparse, and the way that it
'checks' for a suitable mail binary under MacOS is really specious to say
the least, IMHO, after looking at the code.. I've gone OUT of my way to
specify that it use an SMTP format, so why does the module STILL Search for
a mail binary (parTICULARLY under MacOS) even though I've TOLD it what I
want to use?
Any suggestions?
The documentation in Mail::Mailer is so sparse as to be almost useless for
someone not using nor 100% familiar with a unix environment, i.e. me :)
I really don't get it. *scratching head*
(this script at least *works* without barking at me, even though it doesn't
produce RFC822 compliant headers):
-------
#!perl -w
use strict;
use Net::SMTP;
my($smtp, $email, $to, $subject, $message);
$smtp = Net::SMTP->new('mail.magpage.com') or die "$!";
$email = '"Scott R. Godin" <[EMAIL PROTECTED]>';
$to = '"Scott R. Godin" <[EMAIL PROTECTED]>';
$subject = "Subject: testing MacPerl SMTP access";
$message = <<EOM;
Perl sent this message. Nifty, eh? :-)
Just another Perl Hacker hard at work. =]
EOM
$smtp->mail($email) or die("$!");
$smtp->to($to) or die("$!");
$smtp->data() or die("$!");
$smtp->datasend($subject) or die("$!");
$smtp->datasend($message) or die("$!");
$smtp->dataend() or die("$!");
$smtp->quit() or die("$!");
-------
Perhaps a little more explanation of what 'headers' are allowable would be
in order, as well as a more thorough 'working script example' of 'how it
should be done' for a simple script such as this should be added to the pod
documentation.. particularly for us new folks..
There's also no real "tie it all together" pod file that explains when and
where you would want to use each of the separate modules in Mailtools, and
THAT was sorely sorely missed. :-/
...
Some other things I tried as I was typing this were simply to remove the
qw(smtp) and the whole 'smtp', Server => 'mail.magpage.com' from the script
and let Mail::Mailer figure things out from my config files and Internet
settings, but that produced NO results and the script doesn't even die with
an error!
NOR does it work if I leave off qw(smtp) from the use statement and simply
do
my $smtp = new Mail::Mailer 'smtp', 'Server' => 'mail.magpage.com';
(again no die, no error)
Why no error? that makes NO sense to me.. it should at least report the
error or die or SOMETHING other than a no-op. :)
>From what the docs indicate, it should 'fall-through' mail and sendmail and
wind up at smtp automatically if no forced $type is given. and if it reaches
(i.e. falls-through to) 'test' and there's no /bin/echo why
shouldn't/couldn't/doesn't it simply print to STDOUT ?
Confused,
--
Scott R. Godin | e-mail : [EMAIL PROTECTED]
Laughing Dragon Services | web : http://www.webdragon.net/
