On May 6, 2007, at 10:48 AM, Olivier Regnier wrote:
Hello,
I written a small script in perl to send email.
Here is the code:
#!/usr/bin/perl -w
use strict;
use warnings;
use MIME::Lite;
my $msg = new MIME::Lite
From =>'[EMAIL PROTECTED]',
To =>'[EMAIL PROTECTED]',
Subject =>'test',
Type =>'TEXT',
Data =>'Hello this is a test';
$msg -> send;
I have a .mailrc file :
set sendmail="/root/scripts/nbsmtp.sh"
Perl isn't going to know or care about what is in your .mailrc file.
You should replace
$msg -> send
with something like
$msg -> send || die "Could not send: $!"
to at least get some idea of where the send attempt is failing
I installed a small mta nbsmtp and i use a shell script called
nbsmtp.sh with this line :
/usr/local/bin/nbsmtp -f [EMAIL PROTECTED] -h ssl0.ovh.net -d elipse -p
465 -U [EMAIL PROTECTED] -P password -M l -s -V
I don't know anything about nbsmtp, but if it sets up an SMTP daemon
on localhost then you can use the perl module Mail:Mailer to set up
the mailer with something like
$mailer = new Mail::Mailer 'smtp', Server => 'localhost' ;
-j
--
Jeffrey Goldberg http://www.goldmark.org/jeff/
_______________________________________________
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "[EMAIL PROTECTED]"