If you don't want to use sendmail, use CPAN's Net::SMTP module. It
connects directly to an SMTP server. Here's an example:
----- Start -----
#!/usr/bin/perl
use Net::SMTP;
sub SendEmail {
my $smtp = Net::SMTP->new('smtp.kansas.net');
$smtp->mail('willkil@kansas.net');
$smtp->to('chuck@onyxsys.net');
$smtp->data();
$smtp->datasend("From: Me <willkil\@kansas.net>\n" .
"To: You <chuck\@onyxsys.net>\n" .
"Subject: Example\n\n"
);
open(MAILFILE, 'mail.txt');
$smtp->datasend(<MAILFILE>);
close(MAILFILE);
$smtp->dataend();
$smtp->quit();
} # sub SendWilliamEmail
----- Stop -----
Thanks,
William Kilian - Internet Technical Support
support@kansas.net - (785) 776-1452
Fox Business Systems and KansasNet
Now open 9AM-9PM M-F and 10AM-5PM Sat. at our new location, 531 Ft. Riley Blvd
On Tue, 20 Jun 2000, Chuck Pierce wrote:
>Date: Tue, 20 Jun 2000 12:59:43 -0500
>From: Chuck Pierce <chuck@onyxsys.net>
>To: nocol-users@navya.com
>Subject: [nocol-users] sending mail without sendmail??
>
>does anyone have a mail script (preferably written in perl) that allows you to
>send mail to ops (using nocol) with out having sendmail installed (ie. the
>"mail" program). I have a machine that I want to use as the nocol monitoring
>box, but I don't want to have sendmail/qmail installed on it. thanks - Chuck
>
|