#!/usr/bin/perl
## NO NEED TO EDIT THIS FILE ##
sub nopost {
print "Content-type: text/html\n\n";
print <<"MYMAINtext";
Texas Homeless Network
http://www.bizmailform.com/
MYMAINtext
exit;
}
sub success {
print "Content-type: text/html\n\n";
print <<"Myformatsuccess";
Thank You from the THN Staff.
Your registration form has been successfully submitted!
$footer
Myformatsuccess
exit;
}
sub missing_email {
$title = "Missing or invalid format of email!";
$errormessage = "
Missing or invalid format of email.
The email Field must be filled in and in the proper format!";
$backbutton = "
Hit your browsers back button and resubmit the form.";
print "Content-type: text/html\n\n";
print "$title$errormessage$backbutton";
exit;
}
sub bad_okurl {
$title = "Invalid Reffering URL.";
$errormessage = "
Invalid Referring URL.
If you are the administrator, edit the \@okurls in the bizmail.cgi script or turn this feature off.";
print "Content-type: text/html\n\n";
print "$title$errormessage";
exit;
}
sub format_error {
for ($indexreq = 0; $indexreq < @required; $indexreq++) {
$myrequired = $required[$indexreq];
$myformreq = $formdata{"$myrequired"};
if ($required_desc[$indexreq]) {
$missing_desc = "$required_desc[$indexreq]";
}else{
$missing_desc = "$myrequired";
}
if (!$myformreq){
$REQUIRED{"$indexreq"} = "${'LISTITEMS'}