[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[cobalt-users] Problem with calling SENDMAIL from perl script

Hi:

I have two cobalt servers; an original ('classic'?) RaQ, and a new RaQ3.
I am currently in the process of moving sites along with cgi scripts,
etc. to the new Raq3.

The problem is that the following script which runs on the RaQ, will
not compile on the raq3... the script cannot find or execute sendmail
on the raq3! doing a perl -w gives a 'broken pipe' and an error for line
6.

any help is totally appreciated and will be reciprocated... please reply
to jsfrank@xxxxxxx or to the list.

sam frank


here the relevant part of the script:

#!/usr/bin/perl

&Parse_Form;

$sendmail = "sendmail -t -n -oi";
open (MAIL, "| $sendmail");

print MAIL "To: itainc\@mindspring.com\n";
print MAIL "Bcc: marketing\@cosmedico.com\n";
print MAIL "From: $formdata{'e_mail'}\n";
print MAIL "Reply-to: $formdata{'e_mail'}\n";
print MAIL "X-Mailer: ITA Mail-Robot\n";
print MAIL "Subject: ITA Membership application\n\n";
print MAIL "IP SERVER #: $ENV{'SERVER_NAME'}\n\n";
print MAIL "Application for ITA Membership: $formdata{'membership_type'}\n\n";
print MAIL "Contact: $formdata{'contact_person'}\n";
print MAIL "$formdata{'business_name'}\n";
print MAIL "$formdata{'business_address_1'}\n";
print MAIL "$formdata{'business_address_2'}\n";
print MAIL "$formdata{'business_address_3'}\n";
print MAIL "Phone: $formdata{'business_phone'}\n";
print MAIL "Phone: $formdata{'business_fax'}\n\n";
print MAIL "$formdata{'description'}\n\n";



print MAIL "\n\n";

close (MAIL);

open(LOG,">>logfile.txt");
print LOG
"$formdata{'business_name'},$formdata{'business_address_1'},$formdata{'business_address_2'},$formdata{'business_address_3'},$formdata{'contact_person'},$formdata{'e_mail'},$formdata{'business_phone'},$formdata{'membership_type'}\n";
close (LOG);


print "Content-type: text/html", "\n\n";
print "<html>\n";

print <<EOF;

etc......