perl send mail code

pragti · 06-07-2004, 12:07 AM

system("perl /home/amarvir/ANYMEDIA/bin/mail.pl -f PORTTEST_SERVER\@MOH -t suchi.sood\@hfclconnect.com -s \"Report for Faulty ports \" ". $maildir.$_) ;

how to use this code to send it to multi user

rkef · 06-07-2004, 01:28 AM

I have no idea what mail.pl is, but can't you just:

Code:

my @recipients = ('person_one', 'person_two', 'person_three');

my $from = 'PORTTEST_SERVER@MOH';
my $subject = '"Report for Faulty ports"';
my $mailer = '/home/amarvir/ANYMEDIA/bin/mail.pl';

foreach my $recipient (@recipients) {
        system("$mailer -f $from -t $recipient -s $subject $maildir$unknown");
}

Where $unknown is whatever the heck $_ was supposed to be(?). You sure don't give us much to work with.

edit: of course, assuming mail.pl handles -t in a sane way, you should be able to feed it the list of recipients, separated by commas (ie. join ',',@recipients;)

indienick · 03-17-2006, 05:48 PM

if you want to use Perl to send mail, you need to do two things:

1) Install "sendmail" on your computer.

2) To actually SEND the mail, you need to open a filestream to the sendmail program...like so:

Code:

unless(open(SENDMAIL, "| $sendmailpath -t")) { die; }

Then, you just pipe everything to sendmail with a print statement as an HTML file. I suggest using the CGI Perl module (for working with the to-be-created HTML pages). So, the crucial lines of your Perl script should look something like this:

Code:

#!/usr/bin/perl -w
use CGI;
print header();
print html_start();
unless(open(SENDMAIL, "| $sendmailpath -t")) { die "ERROR!"; }
print (SENDMAIL, $variable);

I hope that helps.