On Fri, 2002-04-05 at 03:53, Moonlit Submit wrote:
> Hi,
> I need the following subroutine to NOT use sendmail -t.
> How the heck do I do that> I paid a gazillion dollars to have this script
> made and it is hogging resources...aacckkkk!
> Lisa
> ####################################
<snip />
Boy, you got ripped off; The person that wrote this didn't even know how
to indent properly. Anyway, look at the modules Mail::Sendmail or
Mail::Sender. The author of Mail::Sender is on this list, so you might
be able to get more help with it (but it is a yucky OO module, bah).
With Mail::Sendmail this
open(MAIL,"|$sendmail -t");
print MAIL "Return-path: <$adress>\n";
print MAIL "From: ($sub/$listname)\n";
print MAIL "To: $mlist\n";
print MAIL "Reply-To: $sub ($first)\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$top_note\n";
print MAIL
"------------------------------------------------------------------------\n\n";
print MAIL "$message\n\n";
print MAIL
"------------------------------------------------------------------------\n";
print MAIL "$bot_note\n";
close (MAIL);
would look like this
my %email = (
Server => 'smtp_server_name',
To => $mlist,
From => "$sub/$listname",
Subject => $subject,
Message =>
"$top_note\n" .
'-' x 72 .
"\n$message\n" .
'-' x 72 .
"\n$bot_note"
)
sendmail(%email) or die $Mail::Sendmail::error;
--
Today is Setting Orange the 22nd day of Discord in the YOLD 3168
Missile Address: 33:48:3.521N 84:23:34.786W
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
