INUDSTRIAL EYE - Contact Us

#!/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 <

CONTACT INFORMATION

First Name:
Last Name:
E-Mail Address:
Home Phone:
Work Phone:
Mobile Phone:
Best Time to Call:

How did you find us?

Notes or comments:

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'}

ENDOFTEXT }