#!/usr/local/bin/perl -w
use strict;
our (%in);
require "../cgi-bin/cgi-lib.pl";
&ReadParse;
print &PrintHeader;
if (!$in{data}) { # not submitted
print "
INUDSTRIAL EYE - Contact Us";
print <
ENDOFTEXT
}
else { # submitted
delete $in{data};
if (open(MAIL,'|/usr/sbin/sendmail -oi -t')) {
print MAIL "From: \n";
print MAIL "To: \n";
print MAIL "Subject: contact form\n";
print MAIL "\n";
for (sort keys %in) {print MAIL "$_: [ $in{$_} ]\n\n"}
close MAIL;
}
print <INDUSTRIAL EYE - THANK YOU!
|
|
|

Thank you $in{'01.First_Name'} $in{'02.Last_Name'}
|
|
|



|
|
|
|