SPUG: sendmail from Perl (quick newbie question)
dancerboy
dancerboy at strangelight.com
Tue Feb 12 18:00:03 CST 2002
Okay, this is more of a sendmail question than a Perl question, but I
figure there are many on this list who will be able to answer it in
10 seconds flat, whereas it would take me considerable amounts of
digging to find the answer in an "appropriate" forums...
How do you send to multiple addresses using sendmail? I've got a
super-simple form-to-email CGI that accesses sendmail like this:
sub send_mail {
my $mailprog = '/usr/lib/sendmail';
my (
$to_addy,
$from_addy,
$from_realname,
$subject,
$msg_body
) = @_;
#### [ ... verifications omitted here for brevity ... ]
open(MAIL,"|$mailprog -t") || die "Couldn't open |$mailprog -t: !";
# Open The Mail Program
(print MAIL "To: $to_addy\n")
|| die "Couldn't print to |$mailprog -t: $!";
(print MAIL "From: $from_addy ($from_realname)\n")
|| die "Couldn't print to |$mailprog -t: $!";
(print MAIL "Subject: $subject\n\n")
|| die "Couldn't print to |$mailprog -t: $!";
(print MAIL "$msg_body\n")
|| die "Couldn't print to |$mailprog -t: $!";
close (MAIL) || die "Error closing $mailprog: $!";
}
I now need to modify the form so that it sends copies of the message
to multiple addresses. I had thought that just putting multiple
addresses on the "To:" line, separated by commas, would do the trick,
but it doesn't: when I set $to_addy to something like
'test_address_1 at myserver.com, test_address_2 at myserver.com,
test_address_3 at myserver.com' the message gets sent only to the first
address in the list (test_address_1 at myserver.com) not to any of the
others.
What's the correct syntax for sending to more than one address?
Thanks.
-jason
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
POST TO: spug-list at pm.org PROBLEMS: owner-spug-list at pm.org
Subscriptions; Email to majordomo at pm.org: ACTION LIST EMAIL
Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
For daily traffic, use spug-list for LIST ; for weekly, spug-list-digest
Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org
More information about the spug-list
mailing list