posted                   

quote:

---

#!/usr/bin/perl

do "cgi-lib.pl";

&ReadParse(*input);

$compname= $input{'compname'};
$phone= $input{'phonenum'};
$contact= $input{'name'};
$street= $input{'street'};
$city= $input{'city'};
$problem= $input{'problem'};
$from= "abrown@jeffuswilliams.com";
$to= "abrown@jeffuswilliams.com";
$subject= "$compname has requested service from Jeffus & Williams";

open(MAIL, "|/usr/sbin/sendmail -t") or die "Cannot open /usr/sbin/sendmail -t: $!";
print MAIL "To: $to";
print MAIL "From: $from";
print MAIL "Subject: $subject\n\n";
print MAIL "Content-type: text/plain\n\n";
print MAIL "Company Name: $compname\n";
print MAIL "Phone: $phone\n";
print MAIL "Contact: $contact\n";
print MAIL "Address:\n $street\n $city\n";
print MAIL "Problem:\n $problem";
close(MAIL);

print "Content-type: text/html\n\n";
print "{HTML}{BODY}";
print "Thank you $name for your request.<br />";
print "A technician will contact you soon to get more details and schedule a time to serve you.<br />";
print "Your information is as follows:<br />";
print "Company: $compname<br />";
print "Contact: $contact<br />";
print "Address:<br />";
print "$street<br />";
print "$city<br />";
print "Problem:<br />";
print "$problem";
print "{/BODY}{/HTML}";

---

Posts: 3003 | Registered: Oct 2004  |  IP: Logged | 

posted                   

quote:

---

Originally posted by Chanie:
If you put "use strict;" at the top you will get a clear error if something like that happens again.

---

Posts: 3003 | Registered: Oct 2004  |  IP: Logged | 

posted                   

quote:

---

Originally posted by quidscribis:
I have no advice for you, Boris, but I did want to stop by and say "Hi! Haven't seen you for a while! Glad to see you here! What'cha been up to?"

---

Posts: 3003 | Registered: Oct 2004  |  IP: Logged |