\n"; print "Sorry, but you did not fill in all required fields. Please use your browser's back button\n"; print "to return to the form and fill in the following fields:\n\n"; print "
\n";
print "\n";
if($blank_name)
{
print "Name\n";
print "
\n";
}
if($blank_address1)
{
print "Address\n";
print "
\n";
}
if($blank_city)
{
print "City\n";
print "
\n";
}
if($blank_state)
{
print "State\n";
print "
\n";
}
if($blank_country)
{
print "Country\n";
print "
\n";
}
if($blank_telephone)
{
print "Telephone\n";
print "
\n";
}
if($blank_email)
{
print "E-mail Address\n";
print "
\n";
}
# close out the page
print "\n\n";
print "\n";
print "\n";
} # end sub print_error_page
sub print_return_page
{
print "Content-type: text/html\n\n";
print "\n\n";
print "\n";
print "Thank you\n";
print "
\n\n";
print "The following information has been e-mailed to: ";
print $to;
print "\n
\n";
print "Name: $FORM{'name'}
";
print "Company: $FORM{'company'}
";
print "Address: $FORM{'address1'}
";
print "City: $FORM{'city'}
";
print "State: $FORM{'state'}
";
print "Country: $FORM{'country'}
";
print "Telephone: $FORM{'telephone'}
";
print "Fax: $FORM{'fax'}
";
print "E-mail: $FORM{'email'}
";
print "Services interested in: $FORM{'services'}
";
print "Notified when pages updated: $FORM{'notify'}
";
print "Comments: $FORM{'comments'}
";
print "
";
print "\n
";
}
sub log_data
{
$lock_ex = 2;
$lock_un = 8;
open(OUT, ">>logfile.txt");
flock(OUT, "$lock_ex");
print OUT $FORM{'name'};
print OUT ",";
print OUT $FORM{'company'};
print OUT ",";
print OUT $FORM{'address1'};
print OUT ",";
print OUT $FORM{'city'};
print OUT ",";
print OUT $FORM{'state'};
print OUT ",";
print OUT $FORM{'country'};
print OUT ",";
print OUT $FORM{'telephone'};
print OUT ",";
print OUT $FORM{'fax'};
print OUT ",";
print OUT $FORM{'email'};
print OUT ",";
print OUT $FORM{'services'};
print OUT ",";
print OUT $FORM{'notify'};
print OUT ",";
print OUT $FORM{'comments'};
print OUT "\n";
close(OUT);
flock(OUT, "$lock_un");
}