"; print "Remember, your email address should only contain a valid email "; print "address, not your actual names.
"; print "Also note, a valid email address takes the form \"someone\@something.something\"
";
&Print_Footer;
exit(1);
}#endif
}#endsub
##############################################################################################################################################
############################################################################################
sub Successful_Add {
print "Thank you for your submission!
\n";
##### Print the proper start forms -- note that we should not print the guest option if this is a general non-guest thingee:
if ($FORM{guestepisode} ne "") {
&Print_Start_Form($PRINT_START_FORM_EPISODE);
}#endif
&Print_Start_Form($PRINT_START_FORM_SHOW);
&Print_Start_Form($PRINT_START_FORM_NAME);
&Print_Start_Form($PRINT_START_FORM_NORMAL_BUTTON);
print <<__ENDOFTEXT__;
"; print "Below I will give the output that would normally be given if this error message was not being printed. Do NOT use any of "; print "the links below or you will lose your output. This is just for me to debug my own script.
$AUDIT
Welcome to...
| The | Contribute To The Database | Form |
Please bookmark this page so you can continue to contribute in the future. :)
Remember: Use question marks if you are unsure about something!!
Remember: Please capitalize properly so I don't have to fix it!!
It's perfectly fine to be unsure about something!
But I'd prefer a question mark next to unsure information, rather than
just having incorrect information and not knowing it is uncertain.
\n\n"; # print "Clint suggests you leave this browser window open, and come back in 30 minutes (business hours--EST time zone) "; # print "to a day (nonbusiness hours) and then click reload.
";
# &send_bug_report("form{genre} eq \"$FORM{genre}\"\n\nemail=$FORM{Your_Email_Address}\n\n");
#}#endif
#DEBUG: print "status is "$FORM{status}"
\n";#
##### PUT THE PIECES TOGETHER AND RETURN THE AUDIT LINE:
$AUDIT = "$printable_name: $printable_genre: $showname";
if ($character !~ /UNKNOWN/i) {
$AUDIT .= ":$character"; #credit part
} else {
$COLON_NOT_PRINTED=1;
}#endif
if ($guest_title ne "") { #guest part
if ($COLON_NOT_PRINTED) { $AUDIT .= ":"; }
if ($guest_title !~ /unknown/i) {
if ($FORM{guestepisode_status} eq "contrived") {
$guest_title =~ s/\"/'/g;
$guest_title =~ s/,\s+/,/g;
$guest_title =~ s/,/ /g;
$guest_title =~ s/^(.*)$/\"$1\"/;
} else {
if ($guest_title =~ /[,]/) {
$guest_title =~ s/,\s+/,/g;
$guest_title =~ s/^(.*)$/\"$1\"/g;
}#endif
}#endif
$AUDIT .= "[$guest_title]";
} else {
$AUDIT .= "[guest]";
}#@endif
} elsif ($FORM{status} eq "unknown") {
if ($COLON_NOT_PRINTED) { $AUDIT .= ":"; }
$AUDIT .= "[regular?? guest??]";
}#endif
$AUDIT .= "\n";
return($AUDIT);
}#endsub audit_text
###########################################################################################################
###################################################################################
sub normalize_name {
my $name=$_[0];
my @NAMES=();
my $temp_name="";
my $retval,$first,$rest="";
@NAMES=split(/\s+/,"$name");
foreach $name (@NAMES) {
#if there's no lowercase letters, translate it
if (($name !~ /[a-z]/) && ($name =~ /[A-Z]/)) {
$name =~ tr/[A-Z]/[a-z]/;
}#endif
#at this point it should either be all lowercase, or user-formatted:
#if all lowercase, capitolize first letter:
if ($name =~ /^[a-z]/) {
$first = $name;
$rest = $name;
$first =~ s/^(.)(.*)$/$1/;
$rest =~ s/^(.)(.*)$/$2/;
$first =~ tr/[a-z]/[A-Z]/;
$name = "$first" . "$rest";
}#endif
#if it starts with a quote, capitalize the first letter after the quote:
if ($name =~ /^\"/) {
$name =~ s/^\"//;
$first = $name;
$rest = $name;
$first =~ s/^(.)(.*)$/$1/;
$rest =~ s/^(.)(.*)$/$2/;
$first =~ tr/[a-z]/[A-Z]/;
$name = "\"$first" . "$rest";
}#endif
if ($name =~ /^(Mc)([a-z])/) { #"Mcdonalds" -> "McDonalds"
$first = $name;
$rest = $name;
$first =~ s/^(..)(.)(.*)$/$2/;
$rest =~ s/^(..)(.)(.*)$/$3/;
$first =~ tr/[a-z]/[A-Z]/;
$name = "Mc" . "$first" . "$rest";
}#endif
if ($retval eq "") {
$retval = $name;
} else {
$retval .= " $name";
}#endif
}#endforeach
return($retval);
}#endsub normalize_name
###################################################################################