#!c:\perl
print "Content-type: text/html\n\n";
use CGI qw(:standard);
use strict;
#declare variables
my ($fname, $lname, $company, $title, $address, $city, $state, $Zip, $day_phone, $evening_phone, $fax, $email, $bedrooms, $movein_month, $movein_year, $reason_for_visit, $comment, $data_ok);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
($fname, $lname, $company, $title, $address, $city, $state, $Zip, $day_phone, $evening_phone, $fax, $email, $bedrooms, $movein_month, $movein_year, $reason_for_visit, $comment, $data_ok) = get_input();
$data_ok = validate_input();
if ($data_ok eq "Y") {
save_to_file();
create_acknowledgement_page();
}
else {
create_error_page();
}
}
exit;
#*******user_defined functions**********************
sub get_input {
return param('fname'), param ('lname'), param('company'), param('title'), param('address'), param('city'), param('state'), param('Zip'), param('day_phone'), param('evening_phone'), param('fax'), param('email'), param('bedrooms'), param('movein_month'), param('movein_year'), param('reason_for_visit'), param('comment');
}
sub validate_input {
my $valid="Y";
if ($fname eq "" or $lname eq "" or $email eq "") {
$valid = "N";
}
return $valid;
}
sub save_to_file {
open(OUTFILE, ">>comments.txt") or die "Error opening comments.txt for save. $!, stopped";
print OUTFILE "$fname|$lname|$company|$title|$address|$city|$state|$Zip|$day_phone|$evening_phone|$fax|$email|$bedrooms|$movein_month|$movein_year|$reason_for_visit|$comment\n";
close(OUTFILE);
}
sub create_acknowledgement_page {
print "\n";
print "\n";
print "$fname $lname, thank you for the following \n";
print "contact information:
\n";
print "Name: $fname $lname\n";
print "
Address: $address\n";
print "
City: $city\n";
print "
State: $state\n";
print "
Zip: $Zip\n";
print "
Email: $email\n";
print "
Phone: $day_phone $evening_phone\n";
print "
Bedrooms: $bedrooms\n";
print "
Fax: $fax\n";
print "
Comments: $comment\n";
print "
\n
\n
\n\n";
print "Thank You";
print "