<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#ffffff" text="#000000">
Hello- I am definitely not a programmer but I am definitely an
admirer of those who do. <br>
I need help. I spoke with Tim Maher and he sent me here.<br>
<br>
I have a cgi written in PERL that processes a form that includes
sending out email. The script works fine however it needs to be
CHANGED from using SENDMAIL to SMTP. The HTML points to the cgi and
on submit utilizes send_msg_to_list.<br>
<br>
Below are those snippets from the script with references to
SENDMAIL.<br>
<br>
Can anyone help??<br>
<br>
Thank you.<br>
<br>
Ken <br>
206-362-5000<br>
<br>
<dl class="settings">
<dd> <br>
</dd>
</dl>
<br>
Mail server is smtp.fatcow.com<br>
<br>
<br>
send_msg_to_list<br>
<br>
##################################<br>
<br>
# path to sendmail<br>
my $SENDMAIL = '/usr/sbin/sendmail';<br>
<br>
###################################3<br>
<br>
<br>
open (SENDMAIL, "|$SENDMAIL -t") <br>
or print_error ("Couldn't open [$SENDMAIL]: $!");<br>
<br>
my $body = &make_email_body();<br>
my $subject = $FORM::subject || "New Registrant to $type";<br>
<br>
my $counter = 0; <br>
print SENDMAIL <<EOF;<br>
To: $DEFAULT_ADMIN_EMAIL_ADDRESS<br>
From: $FROM_EMAIL_ADDRESS<br>
Subject: $subject<br>
<br>
New Registrant(s) to $type - Postal Code <br>
<br>
EOF<br>
while ($counter != $stoppoint) {<br>
<br>
if ($counter == 1) { print SENDMAIL "$catname1 with
$catemail1\n"; }<br>
if ($counter == 2) { print SENDMAIL "$catname2 with
$catemail2\n"; }<br>
if ($counter == 3) { print SENDMAIL "$catname3 with
$catemail3\n"; }<br>
if ($counter == 4) { print SENDMAIL "$catname4 with
$catemail4\n"; }<br>
if ($counter == 5) { print SENDMAIL "$catname5 with
$catemail5\n"; }<br>
<br>
$counter = $counter + 1;<br>
<br>
}<br>
<br>
close SENDMAIL;<br>
<br>
}<br>
<br>
################################################<br>
<br>
open (SENDMAIL, "|$SENDMAIL -t") or print_error ("Couldn't open
[$SENDMAIL]: $!");<br>
<br>
$date =~ s/\n//g;<br>
<br>
print SENDMAIL <<EOF;<br>
To: $DEFAULT_TO<br>
Bcc: $emails<br>
From: $FROM_EMAIL_ADDRESS<br>
Subject: $subject<br>
<br>
The following information was submitted to Apartmentresponse.com by
<br>
$FORM::email on $date ET<br>
<br>
$body<br>
.<br>
EOF<br>
close SENDMAIL;<br>
<br>
}<br>
<br>
<br>
<br>
</body>
</html>